1: DIPKI002 ; ; 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: Q:'DIFQ(9.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: ;;^DD(9.4,5,"DT")
7: ;;=2940603
8: ;;^DD(9.4,6,0)
9: ;;=*FILE^9.44PA^^4;0
10: ;;^DD(9.4,6,21,0)
11: ;;=^^3^3^2920513^^^^
12: ;;^DD(9.4,6,21,1,0)
13: ;;=Any FileMan files which are part of this Package are documented
14: ;;^DD(9.4,6,21,2,0)
15: ;;=here. This multiple controls what files (Data Dictionaries and
16: ;;^DD(9.4,6,21,3,0)
17: ;;=Data) are sent in an INIT built from this Package entry.
18: ;;^DD(9.4,6,"DT")
19: ;;=2940603
20: ;;^DD(9.4,7,0)
21: ;;=*PRINT TEMPLATE^9.46^^DIPT;0
22: ;;^DD(9.4,7,21,0)
23: ;;=^^4^4^2921202^^^^
24: ;;^DD(9.4,7,21,1,0)
25: ;;=The names of Print Templates being sent with this Package.
26: ;;^DD(9.4,7,21,2,0)
27: ;;=This multiple is used to send non-namespaced templates in an INIT.
28: ;;^DD(9.4,7,21,3,0)
29: ;;=Namespaced templates are sent automatically and need not be listed
30: ;;^DD(9.4,7,21,4,0)
31: ;;=separately.
32: ;;^DD(9.4,7,"DT")
33: ;;=2940603
34: ;;^DD(9.4,8,0)
35: ;;=*INPUT TEMPLATE^9.47^^DIE;0
36: ;;^DD(9.4,8,21,0)
37: ;;=^^4^4^2920513^^^
38: ;;^DD(9.4,8,21,1,0)
39: ;;=The names of the Input Templates being sent with this Package
40: ;;^DD(9.4,8,21,2,0)
41: ;;=This multiple is used to send non-namespaced templates in an INIT.
42: ;;^DD(9.4,8,21,3,0)
43: ;;=Namespaced templates are sent automatically and need not be listed
44: ;;^DD(9.4,8,21,4,0)
45: ;;=separately.
46: ;;^DD(9.4,8,"DT")
47: ;;=2940603
48: ;;^DD(9.4,9,0)
49: ;;=*SORT TEMPLATE^9.48^^DIBT;0
50: ;;^DD(9.4,9,21,0)
51: ;;=^^4^4^2920513^^^
52: ;;^DD(9.4,9,21,1,0)
53: ;;=The names of the Sort Templates being sent with this Package.
54: ;;^DD(9.4,9,21,2,0)
55: ;;=This multiple is used to send non-namespaced templates in an INIT.
56: ;;^DD(9.4,9,21,3,0)
57: ;;=Namespaced templates are sent automatically and need not be listed
58: ;;^DD(9.4,9,21,4,0)
59: ;;=separately.
60: ;;^DD(9.4,9,"DT")
61: ;;=2940603
62: ;;^DD(9.4,9.1,0)
63: ;;=*SCREEN TEMPLATE (FORM)^9.485^^DIST;0
64: ;;^DD(9.4,9.1,21,0)
65: ;;=^^2^2^2920513^^^
66: ;;^DD(9.4,9.1,21,1,0)
67: ;;=The names of Screen Templates (from the FORM file) associated with
68: ;;^DD(9.4,9.1,21,2,0)
69: ;;=this package.
70: ;;^DD(9.4,9.1,"DT")
71: ;;=2940603
72: ;;^DD(9.4,9.5,0)
73: ;;=*MENU^9.495^^M;0
74: ;;^DD(9.4,9.5,21,0)
75: ;;=^^1^1^2920513^^^
76: ;;^DD(9.4,9.5,21,1,0)
77: ;;=This is the name of a menu-type option in another namespace.
78: ;;^DD(9.4,9.5,"DT")
79: ;;=2940603
80: ;;^DD(9.4,10,0)
81: ;;=DEVELOPER (PERSON/SITE)^F^^DEV;1^K:$L(X)>50!($L(X)<2) X
82: ;;^DD(9.4,10,3)
83: ;;=Please enter the name of the principal Developer and Site (2-50 characters).
84: ;;^DD(9.4,10,21,0)
85: ;;=^^1^1^2920513^^
86: ;;^DD(9.4,10,21,1,0)
87: ;;=The name of the principal Developer and Site for this Package.
88: ;;^DD(9.4,10.6,0)
89: ;;=*LOWEST FILE NUMBER^NJ12,2^^11;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N) X
90: ;;^DD(9.4,10.6,3)
91: ;;=Type a Number between 0 and 999999999, 2 Decimal Digits
92: ;;^DD(9.4,10.6,21,0)
93: ;;=^^1^1^2920513^^^^
94: ;;^DD(9.4,10.6,21,1,0)
95: ;;=Inclusive lower bound of the range of file numbers allocated to this package.
96: ;;^DD(9.4,10.6,"DT")
97: ;;=2940603
98: ;;^DD(9.4,11,0)
99: ;;=*HIGHEST FILE NUMBER^NJ12,2^^11;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N) X
100: ;;^DD(9.4,11,3)
101: ;;=Type a Number between 0 and 999999999, 2 Decimal Digits
102: ;;^DD(9.4,11,21,0)
103: ;;=^^1^1^2920513^^^
104: ;;^DD(9.4,11,21,1,0)
105: ;;=Inclusive upper bound of the range of file numbers assigned to this package.
106: ;;^DD(9.4,11,"DT")
107: ;;=2940603
108: ;;^DD(9.4,11.01,0)
109: ;;=DEVELOPMENT ISC^F^^5;1^K:$L(X)>20!($L(X)<3) X
110: ;;^DD(9.4,11.01,3)
111: ;;=Please enter the name of the ISC (3-20 characters).
112: ;;^DD(9.4,11.01,21,0)
113: ;;=^^1^1^2920513^^^
114: ;;^DD(9.4,11.01,21,1,0)
115: ;;=The ISC responsible for the development and management of this Package.
116: ;;^DD(9.4,11.01,"DT")
117: ;;=2840815
118: ;;^DD(9.4,11.1,0)
119: ;;=*MAINTENANCE ISC^F^^7;1^K:$L(X)>20!($L(X)<3) X
120: ;;^DD(9.4,11.1,3)
121: ;;=Please enter the name of the ISC (3-20 characters).
122: ;;^DD(9.4,11.1,21,0)
123: ;;=^^1^1^2920513^^^
124: ;;^DD(9.4,11.1,21,1,0)
125: ;;=The ISC responsible for the support and maintenance of this Package.
126: ;;^DD(9.4,11.1,"DT")
127: ;;=2940603
128: ;;^DD(9.4,11.3,0)
129: ;;=CLASS^S^I:National;II:Inactive;III:Local;^7;3^Q
130: ;;^DD(9.4,11.3,21,0)
131: ;;=^^1^1^2920513^^
132: ;;^DD(9.4,11.3,21,1,0)
133: ;;=The ranking Class of this software Package.
134: ;;^DD(9.4,11.3,"DT")
135: ;;=2940325
136: ;;^DD(9.4,11.4,0)
137: ;;=*VERIFICATION^9.404ID^^8;0
138: ;;^DD(9.4,11.4,21,0)
139: ;;=^^1^1^2920513^^^
140: ;;^DD(9.4,11.4,21,1,0)
141: ;;=Information about the verification(s) of this Package.
142: ;;^DD(9.4,11.4,"DT")
143: ;;=2940603
144: ;;^DD(9.4,11.5,0)
145: ;;=*ALPHA^P4'^DIC(4,^9;1^Q
146: ;;^DD(9.4,11.5,3)
147: ;;=Please enter the name of the Alpha Test site.
148: ;;^DD(9.4,11.5,21,0)
149: ;;=^^1^1^2920513^^^
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIPKI002.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman / USER