Return to DINIT03.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT03.m, revision 1.1

1.1     ! snw         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:        ;;=