Return to DINIT05.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT05.m, revision 1.1

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