Annotation of freem_fileman/DIINI00A.m, revision 1.1.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: ;;=
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIINI00A.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman