Return to DINIT05.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT05	;SFISC/DPC-BLOCK FOR FOREIGN FORMAT ;12/1/92  10:59 AM
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT06 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
    5: 	Q
    6: ENTRY	;
    7: 	;;^DIST(.404,.442,0)
    8: 	;;=DDXP FF BLK2^.44^0
    9: 	;;^DIST(.404,.442,15,0)
   10: 	;;=^^2^2^2920925^^^
   11: 	;;^DIST(.404,.442,15,1,0)
   12: 	;;=Contains fields for page 2 of form used to define Foreign Formats.
   13: 	;;^DIST(.404,.442,15,2,0)
   14: 	;;=Primarily used to document the format.
   15: 	;;^DIST(.404,.442,40,0)
   16: 	;;=^.4044I^7^7
   17: 	;;^DIST(.404,.442,40,1,0)
   18: 	;;=1^FOREIGN FILE FORMAT: ^1^
   19: 	;;^DIST(.404,.442,40,1,2)
   20: 	;;=^^1,21^
   21: 	;;^DIST(.404,.442,40,2,0)
   22: 	;;=2^^0
   23: 	;;^DIST(.404,.442,40,2,1)
   24: 	;;=.01
   25: 	;;^DIST(.404,.442,40,2,2)
   26: 	;;=1,42^30
   27: 	;;^DIST(.404,.442,40,2,4)
   28: 	;;=^^^1
   29: 	;;^DIST(.404,.442,40,3,0)
   30: 	;;=2.5^PAGE 2^1^
   31: 	;;^DIST(.404,.442,40,3,2)
   32: 	;;=^^1,74^
   33: 	;;^DIST(.404,.442,40,4,0)
   34: 	;;=3^!M^1^
   35: 	;;^DIST(.404,.442,40,4,.1)
   36: 	;;=N I S Y="" F I=1:1:21+$L($G(DDXPFMNM)) S Y=Y_"="
   37: 	;;^DIST(.404,.442,40,4,2)
   38: 	;;=^^2,21^
   39: 	;;^DIST(.404,.442,40,5,0)
   40: 	;;=4^DESCRIPTION (WP)^0
   41: 	;;^DIST(.404,.442,40,5,1)
   42: 	;;=30
   43: 	;;^DIST(.404,.442,40,5,2)
   44: 	;;=4,44^1^4,26^0
   45: 	;;^DIST(.404,.442,40,6,0)
   46: 	;;=5^USAGE NOTES (WP)^0
   47: 	;;^DIST(.404,.442,40,6,1)
   48: 	;;=31
   49: 	;;^DIST(.404,.442,40,6,2)
   50: 	;;=6,44^1^6,26^0
   51: 	;;^DIST(.404,.442,40,7,0)
   52: 	;;=6^Select OTHER NAME FOR FORMAT^0
   53: 	;;^DIST(.404,.442,40,7,1)
   54: 	;;=50
   55: 	;;^DIST(.404,.442,40,7,2)
   56: 	;;=10,44^22^10,14^0
   57: 	;;^DIST(.404,.442,40,7,4)
   58: 	;;=^^^^0
   59: 	;;^DIST(.404,.442,40,7,7)
   60: 	;;=^3
   61: 	;;^DIST(.404,.442,40,"B",1,1)
   62: 	;;=
   63: 	;;^DIST(.404,.442,40,"B",2,2)
   64: 	;;=
   65: 	;;^DIST(.404,.442,40,"B",2.5,3)
   66: 	;;=
   67: 	;;^DIST(.404,.442,40,"B",3,4)
   68: 	;;=
   69: 	;;^DIST(.404,.442,40,"B",4,5)
   70: 	;;=
   71: 	;;^DIST(.404,.442,40,"B",5,6)
   72: 	;;=
   73: 	;;^DIST(.404,.442,40,"B",6,7)
   74: 	;;=
   75: 	;;^DIST(.404,.442,40,"C","DESCRIPTION (WP)",5)
   76: 	;;=
   77: 	;;^DIST(.404,.442,40,"C","FOREIGN FILE FORMAT: ",1)
   78: 	;;=
   79: 	;;^DIST(.404,.442,40,"C","OTHER NAME FOR FORMAT",7)
   80: 	;;=
   81: 	;;^DIST(.404,.442,40,"C","PAGE 2",3)
   82: 	;;=
   83: 	;;^DIST(.404,.442,40,"C","USAGE NOTES (WP)",6)
   84: 	;;=