source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI00Z.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 5.1 KB
Line 
1OCXDI00Z ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:29
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^OCXDIAG
8 ;
9 ;
10 K REMOTE,LOCAL,OPCODE,REF
11 F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
12 .S ^TMP("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
13 ;
14 G ^OCXDI010
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;R^"863.8:","863.84:5",.01,"E"
21 ;;D^DATA TYPE
22 ;;R^"863.8:","863.84:5",1,"E"
23 ;;D^FREE TEXT
24 ;;EOR^
25 ;;KEY^863.8:^FM LOCATION
26 ;;R^"863.8:",.01,"E"
27 ;;D^FM LOCATION
28 ;;R^"863.8:",.02,"E"
29 ;;D^FM LOC
30 ;;R^"863.8:",1,1
31 ;;D^FILE #,FIELD #
32 ;;R^"863.8:","863.84:1",.01,"E"
33 ;;D^QUERY
34 ;;R^"863.8:","863.84:1",1,"E"
35 ;;D^Enter the DD location (file#,field#)
36 ;;R^"863.8:","863.84:5",.01,"E"
37 ;;D^DATA TYPE
38 ;;R^"863.8:","863.84:5",1,"E"
39 ;;D^FILEMAN DD LOCATION
40 ;;EOR^
41 ;;KEY^863.8:^HELP EXECUTABLE
42 ;;R^"863.8:",.01,"E"
43 ;;D^HELP EXECUTABLE
44 ;;R^"863.8:",.02,"E"
45 ;;D^HELPEXEC
46 ;;R^"863.8:",1,1
47 ;;D^A tag^routine that will be executed if the user enters a '?'
48 ;;R^"863.8:","863.84:3",.01,"E"
49 ;;D^QUERY
50 ;;R^"863.8:","863.84:3",1,"E"
51 ;;D^Enter tag^routine which generates the message
52 ;;R^"863.8:","863.84:4",.01,"E"
53 ;;D^DATA TYPE
54 ;;R^"863.8:","863.84:4",1,"E"
55 ;;D^LINE TAG
56 ;;EOR^
57 ;;KEY^863.8:^SILENT CALL
58 ;;R^"863.8:",.01,"E"
59 ;;D^SILENT CALL
60 ;;R^"863.8:",.02,"E"
61 ;;D^SILENT
62 ;;R^"863.8:",1,1
63 ;;D^This flag tells a dialogue type function to operate without user
64 ;;R^"863.8:",1,2
65 ;;D^intervention. Just use the value in the default parameter.
66 ;;R^"863.8:","863.84:1",.01,"E"
67 ;;D^QUERY
68 ;;R^"863.8:","863.84:1",1,"E"
69 ;;D^Silent call mode
70 ;;R^"863.8:","863.84:8",.01,"E"
71 ;;D^DATA TYPE
72 ;;R^"863.8:","863.84:8",1,"E"
73 ;;D^YES NO
74 ;;EOR^
75 ;;KEY^863.8:^ALTERNATE RECORD IDENTIFIER CODE
76 ;;R^"863.8:",.01,"E"
77 ;;D^ALTERNATE RECORD IDENTIFIER CODE
78 ;;R^"863.8:",.02,"E"
79 ;;D^ALTID
80 ;;EOR^
81 ;;KEY^863.8:^FM CROSS REFERENCE LIST
82 ;;R^"863.8:",.01,"E"
83 ;;D^FM CROSS REFERENCE LIST
84 ;;R^"863.8:",.02,"E"
85 ;;D^FMXREF
86 ;;R^"863.8:","863.84:1",.01,"E"
87 ;;D^DATA TYPE
88 ;;R^"863.8:","863.84:1",1,"E"
89 ;;D^FREE TEXT
90 ;;R^"863.8:","863.84:2",.01,"E"
91 ;;D^QUERY
92 ;;R^"863.8:","863.84:2",1,"E"
93 ;;D^Enter a '^' delimited string with index names to be used in the search
94 ;;R^"863.8:","863.84:3",.01,"E"
95 ;;D^HELP MESSAGE
96 ;;R^"863.8:","863.84:3",1,"E"
97 ;;D^Should be in the format 'B^C^DOB' etc.
98 ;;EOR^
99 ;;KEY^863.8:^ORPHAN DELETE CLASS
100 ;;R^"863.8:",.01,"E"
101 ;;D^ORPHAN DELETE CLASS
102 ;;R^"863.8:",.02,"E"
103 ;;D^ORPH CLASS
104 ;;R^"863.8:",1,1
105 ;;D^IEN of the class file which contains the deleted object
106 ;;R^"863.8:","863.84:6",.01,"E"
107 ;;D^QUERY
108 ;;R^"863.8:","863.84:6",1,"E"
109 ;;D^Enter the class of the deleted object
110 ;;R^"863.8:","863.84:7",.01,"E"
111 ;;D^DATA TYPE
112 ;;R^"863.8:","863.84:7",1,"E"
113 ;;D^POINTER TO A FILEMAN FILE
114 ;;R^"863.8:","863.84:8",.01,"E"
115 ;;D^DIC
116 ;;R^"863.8:","863.84:8",1,"E"
117 ;;D^863
118 ;;EOR^
119 ;;KEY^863.8:^ORPHAN DELETE OBJECT
120 ;;R^"863.8:",.01,"E"
121 ;;D^ORPHAN DELETE OBJECT
122 ;;R^"863.8:",.02,"E"
123 ;;D^ORPH OBJ
124 ;;R^"863.8:",1,1
125 ;;D^Delete object which may cause orphaned parameters
126 ;;R^"863.8:","863.84:4",.01,"E"
127 ;;D^QUERY
128 ;;R^"863.8:","863.84:4",1,"E"
129 ;;D^Enter the IEN of the deleted object
130 ;;R^"863.8:","863.84:5",.01,"E"
131 ;;D^DATA TYPE
132 ;;R^"863.8:","863.84:5",1,"E"
133 ;;D^NUMERIC
134 ;;R^"863.8:","863.84:6",.01,"E"
135 ;;D^FREE TEXT MAXIMUM LENGTH
136 ;;R^"863.8:","863.84:6",1,"E"
137 ;;D^24
138 ;;EOR^
139 ;;KEY^863.8:^ORPHAN ALL
140 ;;R^"863.8:",.01,"E"
141 ;;D^ORPHAN ALL
142 ;;R^"863.8:",.02,"E"
143 ;;D^ORPH ALL
144 ;;R^"863.8:",1,1
145 ;;D^Check param to see if it is an orphan. Not related to the deletion of any object.
146 ;;R^"863.8:",2,"E"
147 ;;D^0
148 ;;R^"863.8:","863.84:5",.01,"E"
149 ;;D^QUERY
150 ;;R^"863.8:","863.84:5",1,"E"
151 ;;D^Check all classes for this parameter
152 ;;R^"863.8:","863.84:6",.01,"E"
153 ;;D^DATA TYPE
154 ;;R^"863.8:","863.84:6",1,"E"
155 ;;D^YES NO
156 ;;EOR^
157 ;;KEY^863.8:^FREE TEXT MINIMUM LENGTH
158 ;;R^"863.8:",.01,"E"
159 ;;D^FREE TEXT MINIMUM LENGTH
160 ;;R^"863.8:",.02,"E"
161 ;;D^FMIN
162 ;;R^"863.8:",1,1
163 ;;D^Minimum number of characters allowed in a free text response
164 ;;R^"863.8:",2,"E"
165 ;;D^0
166 ;;R^"863.8:","863.84:3",.01,"E"
167 ;;D^QUERY
168 ;;R^"863.8:","863.84:3",1,"E"
169 ;;D^Enter minimum text string length
170 ;;R^"863.8:","863.84:4",.01,"E"
171 ;;D^FM MASK
172 ;;R^"863.8:","863.84:4",1,"E"
173 ;;D^FMIN^OCXF6
174 ;;R^"863.8:","863.84:5",.01,"E"
175 ;;D^DATA TYPE
176 ;;R^"863.8:","863.84:5",1,"E"
177 ;;D^POSITIVE INTEGER
178 ;;EOR^
179 ;;KEY^863.8:^FREE TEXT MAXIMUM LENGTH
180 ;;R^"863.8:",.01,"E"
181 ;;D^FREE TEXT MAXIMUM LENGTH
182 ;;R^"863.8:",.02,"E"
183 ;;D^FMAX
184 ;;R^"863.8:",1,1
185 ;;D^Maximum string length allowed
186 ;;R^"863.8:",2,"E"
187 ;;D^245
188 ;;R^"863.8:","863.84:3",.01,"E"
189 ;;D^QUERY
190 ;;R^"863.8:","863.84:3",1,"E"
191 ;;D^Maximum text string length allowed
192 ;;R^"863.8:","863.84:4",.01,"E"
193 ;;D^FM MASK
194 ;;R^"863.8:","863.84:4",1,"E"
195 ;;D^FMAX^OCXF6
196 ;;R^"863.8:","863.84:5",.01,"E"
197 ;;D^DATA TYPE
198 ;;R^"863.8:","863.84:5",1,"E"
199 ;;D^POSITIVE INTEGER
200 ;;EOR^
201 ;;KEY^863.8:^DATE DEFAULT TIME FRAME
202 ;;R^"863.8:",.01,"E"
203 ;;D^DATE DEFAULT TIME FRAME
204 ;;R^"863.8:",.02,"E"
205 ;;D^DATE DFLT
206 ;;R^"863.8:",1,1
207 ;;D^If year is uspecified, the date will default to the pasr "P", futuren "F",
208 ;1;
209 ;
Note: See TracBrowser for help on using the repository browser.