Return to DIINI00A.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIINI00A.m, revision 1.1

1.1     ! snw         1: DIINI00A       ; ; 22-DEC-1994
        !             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(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
        !             5: Q      Q
        !             6:        ;;^UTILITY(U,$J,"OPT",405,20)
        !             7:        ;;=D 5^DDXP
        !             8:        ;;^UTILITY(U,$J,"OPT",405,"U")
        !             9:        ;;=PRINT FORMAT DOCUMENTATION
        !            10:        ;;^UTILITY(U,$J,"OPT",407,0)
        !            11:        ;;=DI SORT COMPILE^Sort Template Compile/Uncompile^^R^^^^^^^^VA FILEMAN
        !            12:        ;;^UTILITY(U,$J,"OPT",407,1,0)
        !            13:        ;;=^^3^3^2930715^^
        !            14:        ;;^UTILITY(U,$J,"OPT",407,1,1,0)
        !            15:        ;;=This option allows the user to mark a Sort Template compiled or uncompiled.
        !            16:        ;;^UTILITY(U,$J,"OPT",407,1,2,0)
        !            17:        ;;=The actual routine compilation occurs when the template is used during
        !            18:        ;;^UTILITY(U,$J,"OPT",407,1,3,0)
        !            19:        ;;=FileMan Sort/Print.
        !            20:        ;;^UTILITY(U,$J,"OPT",407,25)
        !            21:        ;;=EN1^DIOZ
        !            22:        ;;^UTILITY(U,$J,"OPT",407,"U")
        !            23:        ;;=SORT TEMPLATE COMPILE/UNCOMPIL
        !            24:        ;;^UTILITY(U,$J,"OPT",503,0)
        !            25:        ;;=DDBROWSER^Browser^^R^^^^^^^^VA FILEMAN
        !            26:        ;;^UTILITY(U,$J,"OPT",503,1,0)
        !            27:        ;;=^^3^3^2940519^
        !            28:        ;;^UTILITY(U,$J,"OPT",503,1,1,0)
        !            29:        ;;=Prompts user to select file, word processing field and entry.
        !            30:        ;;^UTILITY(U,$J,"OPT",503,1,2,0)
        !            31:        ;;=The text is then displayed to the screen, allowing the user to
        !            32:        ;;^UTILITY(U,$J,"OPT",503,1,3,0)
        !            33:        ;;=navigate through the document.
        !            34:        ;;^UTILITY(U,$J,"OPT",503,25)
        !            35:        ;;=DDBR
        !            36:        ;;^UTILITY(U,$J,"OPT",503,99.1)
        !            37:        ;;=56123,39787
        !            38:        ;;^UTILITY(U,$J,"OPT",503,"U")
        !            39:        ;;=BROWSER
        !            40:        ;;^UTILITY(U,$J,"OPT",509,0)
        !            41:        ;;=DDS DELETE A FORM^Delete a Form^^R^^^^^^^^
        !            42:        ;;^UTILITY(U,$J,"OPT",509,1,0)
        !            43:        ;;=^^1^1^2940630^^
        !            44:        ;;^UTILITY(U,$J,"OPT",509,1,1,0)
        !            45:        ;;=An option to delete a form.
        !            46:        ;;^UTILITY(U,$J,"OPT",509,25)
        !            47:        ;;=3^DDSOPT
        !            48:        ;;^UTILITY(U,$J,"OPT",509,99.1)
        !            49:        ;;=56123,39787
        !            50:        ;;^UTILITY(U,$J,"OPT",509,"U")
        !            51:        ;;=DELETE A FORM
        !            52:        ;;^UTILITY(U,$J,"OPT",510,0)
        !            53:        ;;=DDS PURGE UNUSED BLOCKS^Purge Unused Blocks^^R^^^^^^^^
        !            54:        ;;^UTILITY(U,$J,"OPT",510,1,0)
        !            55:        ;;=^^3^3^2940630^
        !            56:        ;;^UTILITY(U,$J,"OPT",510,1,1,0)
        !            57:        ;;=An option to delete blocks that aren't used on any forms.  This option
        !            58:        ;;^UTILITY(U,$J,"OPT",510,1,2,0)
        !            59:        ;;=prompts for file, and searches the Block File for all blocks that are
        !            60:        ;;^UTILITY(U,$J,"OPT",510,1,3,0)
        !            61:        ;;=associated with that file and that aren't used on any forms.
        !            62:        ;;^UTILITY(U,$J,"OPT",510,25)
        !            63:        ;;=4^DDSOPT
        !            64:        ;;^UTILITY(U,$J,"OPT",510,99.1)
        !            65:        ;;=56123,39787
        !            66:        ;;^UTILITY(U,$J,"OPT",510,"U")
        !            67:        ;;=PURGE UNUSED BLOCKS
        !            68:        ;;^UTILITY(U,$J,"PKG",11,0)
        !            69:        ;;=VA FILEMAN^DI^FM INIT
        !            70:        ;;^UTILITY(U,$J,"PKG",11,4,0)
        !            71:        ;;=^9.44PA^^0
        !            72:        ;;^UTILITY(U,$J,"PKG",11,22,0)
        !            73:        ;;=^9.49I^7^7
        !            74:        ;;^UTILITY(U,$J,"PKG",11,22,1,0)
        !            75:        ;;=20.0T2^2930112^2930113
        !            76:        ;;^UTILITY(U,$J,"PKG",11,22,2,0)
        !            77:        ;;=20.0T3^2930312^2930426
        !            78:        ;;^UTILITY(U,$J,"PKG",11,22,3,0)
        !            79:        ;;=21.0A03^2940705
        !            80:        ;;^UTILITY(U,$J,"PKG",11,22,4,0)
        !            81:        ;;=21.0T01^2940715
        !            82:        ;;^UTILITY(U,$J,"PKG",11,22,5,0)
        !            83:        ;;=21.0V01^2940919
        !            84:        ;;^UTILITY(U,$J,"PKG",11,22,6,0)
        !            85:        ;;=21.0V02^2941025
        !            86:        ;;^UTILITY(U,$J,"PKG",11,22,7,0)
        !            87:        ;;=21.0^2941222
        !            88:        ;;^UTILITY(U,$J,"PKG",11,22,"B","20.0T2",1)
        !            89:        ;;=
        !            90:        ;;^UTILITY(U,$J,"PKG",11,22,"B","20.0T3",2)
        !            91:        ;;=
        !            92:        ;;^UTILITY(U,$J,"PKG",11,22,"B","21.0",7)
        !            93:        ;;=
        !            94:        ;;^UTILITY(U,$J,"PKG",11,22,"B","21.0A03",3)
        !            95:        ;;=
        !            96:        ;;^UTILITY(U,$J,"PKG",11,22,"B","21.0T01",4)
        !            97:        ;;=
        !            98:        ;;^UTILITY(U,$J,"PKG",11,22,"B","21.0V01",5)
        !            99:        ;;=
        !           100:        ;;^UTILITY(U,$J,"PKG",11,22,"B","21.0V02",6)
        !           101:        ;;=