Return to DINIT03.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT03	;SFISC/DPC-FORM FOR FOREIGN FORMATS ;2/24/93  13:18
    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="" ^DINIT04 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
    5: 	Q
    6: ENTRY	;
    7: 	;;^DIST(.403,.441,0)
    8: 	;;=DDXP FF FORM1^^^^2920925^2921112.085213^^.44
    9: 	;;^DIST(.403,.441,20)
   10: 	;;=D FORMVAL^DDXP1
   11: 	;;^DIST(.403,.441,40,0)
   12: 	;;=^.4031I^3^3
   13: 	;;^DIST(.403,.441,40,1,0)
   14: 	;;=1^^1,1^2^2^0
   15: 	;;^DIST(.403,.441,40,1,1)
   16: 	;;=PAGE 1
   17: 	;;^DIST(.403,.441,40,1,15,0)
   18: 	;;=^^1^1^2920925^^
   19: 	;;^DIST(.403,.441,40,1,15,1,0)
   20: 	;;=First page for Foreign Format definition.  It contains block DDXP FF BLK1.
   21: 	;;^DIST(.403,.441,40,1,40,0)
   22: 	;;=^.4032PI^.441^1
   23: 	;;^DIST(.403,.441,40,1,40,.441,0)
   24: 	;;=.441^1^1,1^e
   25: 	;;^DIST(.403,.441,40,1,40,"AC",1,.441)
   26: 	;;=
   27: 	;;^DIST(.403,.441,40,1,40,"B",.441,.441)
   28: 	;;=
   29: 	;;^DIST(.403,.441,40,2,0)
   30: 	;;=2^^1,1^1^1^0
   31: 	;;^DIST(.403,.441,40,2,1)
   32: 	;;=PAGE 2
   33: 	;;^DIST(.403,.441,40,2,15,0)
   34: 	;;=^^2^2^2920925^
   35: 	;;^DIST(.403,.441,40,2,15,1,0)
   36: 	;;=Page 2 of the form used to define a Foreign Format.  It contains block
   37: 	;;^DIST(.403,.441,40,2,15,2,0)
   38: 	;;=DDXP FF BLK2 and subpage containing DDXP FF BLK3.
   39: 	;;^DIST(.403,.441,40,2,40,0)
   40: 	;;=^.4032PI^.442^1
   41: 	;;^DIST(.403,.441,40,2,40,.442,0)
   42: 	;;=.442^1^1,1^e
   43: 	;;^DIST(.403,.441,40,2,40,"AC",1,.442)
   44: 	;;=
   45: 	;;^DIST(.403,.441,40,2,40,"B",.442,.442)
   46: 	;;=
   47: 	;;^DIST(.403,.441,40,3,0)
   48: 	;;=3^^12,23^^^1^16,59
   49: 	;;^DIST(.403,.441,40,3,1)
   50: 	;;=POP-UP PAGE 1
   51: 	;;^DIST(.403,.441,40,3,15,0)
   52: 	;;=^^2^2^2920925^^
   53: 	;;^DIST(.403,.441,40,3,15,1,0)
   54: 	;;=This pop-up page is called from page 2 of DDXP FF FORM1.  It contains
   55: 	;;^DIST(.403,.441,40,3,15,2,0)
   56: 	;;=block DDXP FF BLK3, which has the OTHER NAME FOR FORMAT multiple.
   57: 	;;^DIST(.403,.441,40,3,40,0)
   58: 	;;=^.4032PI^.443^1
   59: 	;;^DIST(.403,.441,40,3,40,.443,0)
   60: 	;;=.443^1^1,1^e
   61: 	;;^DIST(.403,.441,40,3,40,"AC",1,.443)
   62: 	;;=
   63: 	;;^DIST(.403,.441,40,3,40,"B",.443,.443)
   64: 	;;=
   65: 	;;^DIST(.403,.441,40,"B",1,1)
   66: 	;;=
   67: 	;;^DIST(.403,.441,40,"B",2,2)
   68: 	;;=
   69: 	;;^DIST(.403,.441,40,"B",3,3)
   70: 	;;=
   71: 	;;^DIST(.403,.441,40,"C","PAGE 1",1)
   72: 	;;=
   73: 	;;^DIST(.403,.441,40,"C","PAGE 2",2)
   74: 	;;=
   75: 	;;^DIST(.403,.441,40,"C","POP-UP PAGE 1",3)
   76: 	;;=