Return to DINIT0F9.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT0F9.m, revision 1.1

1.1     ! snw         1: DINIT0F9       ;SFISC/MKO-FORMS AND BLOCKS FOR FORM EDITOR ;11/23/94  1:24 PM
        !             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="" ^DINIT02 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
        !             5:        Q
        !             6: ENTRY  ;
        !             7:        ;;^DIST(.404,.404063,40,1,0)
        !             8:        ;;=1^!M^1
        !             9:        ;;^DIST(.404,.404063,40,1,.1)
        !            10:        ;;=S Y="Block "_DDGFBNAM
        !            11:        ;;^DIST(.404,.404063,40,1,2)
        !            12:        ;;=^^3,3
        !            13:        ;;^DIST(.404,.404063,40,2,0)
        !            14:        ;;=2^already exists on this page!^1
        !            15:        ;;^DIST(.404,.404063,40,2,2)
        !            16:        ;;=^^4,3
        !            17:        ;;^DIST(.404,.404063,40,3,0)
        !            18:        ;;=3^OK^2
        !            19:        ;;^DIST(.404,.404063,40,3,2)
        !            20:        ;;=6,18^1^6,15^1
        !            21:        ;;^DIST(.404,.404063,40,3,12)
        !            22:        ;;=S DDACT="EX"
        !            23:        ;;^DIST(.404,.404063,40,3,20)
        !            24:        ;;=F^^0:0
        !            25:        ;;^DIST(.404,.404063,40,3,21,0)
        !            26:        ;;=^^1^1^2940928^
        !            27:        ;;^DIST(.404,.404063,40,3,21,1,0)
        !            28:        ;;=Press <RET> to close this page
        !            29:        ;;^DIST(.404,.404071,0)
        !            30:        ;;=DDGF BLOCK DELETE
        !            31:        ;;^DIST(.404,.404071,40,0)
        !            32:        ;;=^.4044I^4^4
        !            33:        ;;^DIST(.404,.404071,40,1,0)
        !            34:        ;;=1^Block^1
        !            35:        ;;^DIST(.404,.404071,40,1,2)
        !            36:        ;;=^^1,1
        !            37:        ;;^DIST(.404,.404071,40,2,0)
        !            38:        ;;=4^Do you want to delete it from the BLOCK file?^2
        !            39:        ;;^DIST(.404,.404071,40,2,2)
        !            40:        ;;=3,47^3^3,1^1
        !            41:        ;;^DIST(.404,.404071,40,2,12)
        !            42:        ;;=S:X]"" DDACT="EX" I X="" D HLP^DDSUTL($C(7)_"A response is required.  Enter either YES or NO.") S DDSBR=2
        !            43:        ;;^DIST(.404,.404071,40,2,20)
        !            44:        ;;=Y
        !            45:        ;;^DIST(.404,.404071,40,2,23)
        !            46:        ;;=S DDGFANS=X
        !            47:        ;;^DIST(.404,.404071,40,3,0)
        !            48:        ;;=2^!M^1
        !            49:        ;;^DIST(.404,.404071,40,3,.1)
        !            50:        ;;=S Y=DDGFBK
        !            51:        ;;^DIST(.404,.404071,40,3,2)
        !            52:        ;;=^^1,7
        !            53:        ;;^DIST(.404,.404071,40,4,0)
        !            54:        ;;=3^is not used on any other forms.^1
        !            55:        ;;^DIST(.404,.404071,40,4,2)
        !            56:        ;;=^^2,1
        !            57:        ;;^DIST(.404,.404081,0)
        !            58:        ;;=DDGF HEADER BLOCK SELECT
        !            59:        ;;^DIST(.404,.404081,40,0)
        !            60:        ;;=^.4044I^2^2
        !            61:        ;;^DIST(.404,.404081,40,1,0)
        !            62:        ;;=1^ Add a New Header Block ^1
        !            63:        ;;^DIST(.404,.404081,40,1,2)
        !            64:        ;;=^^1,20
        !            65:        ;;^DIST(.404,.404081,40,2,0)
        !            66:        ;;=2^Select New Header Block Name^2
        !            67:        ;;^DIST(.404,.404081,40,2,2)
        !            68:        ;;=3,33^30^3,3
        !            69:        ;;^DIST(.404,.404081,40,2,12)
        !            70:        ;;=S DDACT="EX"
        !            71:        ;;^DIST(.404,.404081,40,2,20)
        !            72:        ;;=P^^DIST(.404,:QEALMZF
        !            73:        ;;^DIST(.404,.404081,40,2,23)
        !            74:        ;;=S DDGFBNUM=X,DDGFBNAM=DDSEXT