source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXDI01P.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.2 KB
Line 
1OCXDI01P ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:30
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 ^OCXDI01Q
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;D^ORPHAN^OCXFMGR2
21 ;;R^"863.6:","863.63:1",.01,"E"
22 ;;D^OUTPUT VARIABLE
23 ;;R^"863.6:","863.63:1",1,"E"
24 ;;D^Y
25 ;;R^"863.6:","863.63:2",.01,"E"
26 ;;D^ORPHAN DELETE CLASS
27 ;;R^"863.6:","863.63:3",.01,"E"
28 ;;D^ORPHAN DELETE OBJECT
29 ;;R^"863.6:","863.63:4",.01,"E"
30 ;;D^ORPHAN ALL
31 ;;R^"863.6:","863.63:4",1,"E"
32 ;;D^2
33 ;;EOR^
34 ;;KEY^863.6:^CASE TOOL
35 ;;R^"863.6:",.01,"E"
36 ;;D^CASE TOOL
37 ;;R^"863.6:",.02,"E"
38 ;;D^BUILD REC
39 ;;R^"863.6:",.03,"E"
40 ;;D^CLASS
41 ;;R^"863.6:",.04,"E"
42 ;;D^ROUTINE
43 ;;R^"863.6:",1,1
44 ;;D^Call to build a method subroutine
45 ;;R^"863.6:",2,"E"
46 ;;D^BUILD^OCXMGRM1
47 ;;R^"863.6:","863.63:1",.01,"E"
48 ;;D^BUILD CALL
49 ;;EOR^
50 ;;KEY^863.6:^LIST PUBLIC FUNCTIONS
51 ;;R^"863.6:",.01,"E"
52 ;;D^LIST PUBLIC FUNCTIONS
53 ;;R^"863.6:",.02,"E"
54 ;;D^LIST PF REC
55 ;;R^"863.6:",.03,"E"
56 ;;D^CLASS
57 ;;R^"863.6:",.04,"E"
58 ;;D^ROUTINE
59 ;;R^"863.6:",1,1
60 ;;D^Summary list of all public functions
61 ;;R^"863.6:",2,"E"
62 ;;D^FLIST^OCXFMGR3
63 ;;EOR^
64 ;;KEY^863.6:^DIALOGUE OUTPUT TRANSFORM
65 ;;R^"863.6:",.01,"E"
66 ;;D^DIALOGUE OUTPUT TRANSFORM
67 ;;R^"863.6:",.02,"E"
68 ;;D^DT OT
69 ;;R^"863.6:",.03,"E"
70 ;;D^DATA TYPE
71 ;;R^"863.6:",.04,"E"
72 ;;D^ROUTINE
73 ;;R^"863.6:",1,1
74 ;;D^For a specific data type, this method translates the internal format
75 ;;R^"863.6:",1,2
76 ;;D^to the external format
77 ;;R^"863.6:",2,"E"
78 ;;D^VAL^OCXFD
79 ;;R^"863.6:","863.63:1",.01,"E"
80 ;;D^INPUT VALUE
81 ;;R^"863.6:","863.63:1",.02,"E"
82 ;;D^INPUT
83 ;;R^"863.6:","863.63:1",1,"E"
84 ;;D^
85 ;;EOR^
86 ;;KEY^863.6:^DIALOGUE INPUT TRANSFORM
87 ;;R^"863.6:",.01,"E"
88 ;;D^DIALOGUE INPUT TRANSFORM
89 ;;R^"863.6:",.02,"E"
90 ;;D^DT IT
91 ;;R^"863.6:",.03,"E"
92 ;;D^DATA TYPE
93 ;;R^"863.6:",.04,"E"
94 ;;D^ROUTINE
95 ;;R^"863.6:",1,1
96 ;;D^This method converts an external format value stored in 'INVAL' to
97 ;;R^"863.6:",1,2
98 ;;D^the internal format
99 ;;R^"863.6:",2,"E"
100 ;;D^VAL^OCXFD
101 ;;R^"863.6:","863.63:1",.01,"E"
102 ;;D^INPUT VALUE
103 ;;R^"863.6:","863.63:1",.02,"E"
104 ;;D^INPUT
105 ;;EOR^
106 ;;KEY^863.6:^DIALOGUE INPUT VALIDATION
107 ;;R^"863.6:",.01,"E"
108 ;;D^DIALOGUE INPUT VALIDATION
109 ;;R^"863.6:",.02,"E"
110 ;;D^DT IVAL
111 ;;R^"863.6:",.03,"E"
112 ;;D^DATA TYPE
113 ;;R^"863.6:",.04,"E"
114 ;;D^ROUTINE
115 ;;R^"863.6:",1,1
116 ;;D^Validates the user input.
117 ;;R^"863.6:",2,"E"
118 ;;D^VAL^OCXFD
119 ;;R^"863.6:","863.63:1",.01,"E"
120 ;;D^INPUT VALUE
121 ;;R^"863.6:","863.63:1",.02,"E"
122 ;;D^INPUT
123 ;;EOR^
124 ;;KEY^863.6:^DIALOGUE VALIDATE STORED VALUE
125 ;;R^"863.6:",.01,"E"
126 ;;D^DIALOGUE VALIDATE STORED VALUE
127 ;;R^"863.6:",.02,"E"
128 ;;D^DT VAL
129 ;;R^"863.6:",.03,"E"
130 ;;D^DATA TYPE
131 ;;R^"863.6:",.04,"E"
132 ;;D^ROUTINE
133 ;;R^"863.6:",1,1
134 ;;D^Validates the value stored in INVAL
135 ;;R^"863.6:",2,"E"
136 ;;D^VAL^OCXFD
137 ;;R^"863.6:","863.63:1",.01,"E"
138 ;;D^INPUT VALUE
139 ;;R^"863.6:","863.63:1",.02,"E"
140 ;;D^INPUT
141 ;;EOR^
142 ;;KEY^863.6:^PARAMETER VALUE DIALOGUE
143 ;;R^"863.6:",.01,"E"
144 ;;D^PARAMETER VALUE DIALOGUE
145 ;;R^"863.6:",.02,"E"
146 ;;D^READER
147 ;;R^"863.6:",.03,"E"
148 ;;D^PARAMETER
149 ;;R^"863.6:",.04,"E"
150 ;;D^ROUTINE
151 ;;R^"863.6:",1,1
152 ;;D^Every parameter has a data type. This data type determines the
153 ;;R^"863.6:",1,2
154 ;;D^dialogue, transforms and validations related to each parameter
155 ;;R^"863.6:",1,3
156 ;;D^value.
157 ;;R^"863.6:",2,"E"
158 ;;D^GETVAL^OCXFD
159 ;;EOR^
160 ;;KEY^863.6:^TEST
161 ;;R^"863.6:",.01,"E"
162 ;;D^TEST
163 ;;R^"863.6:",.02,"E"
164 ;;D^TEST
165 ;;R^"863.6:",.03,"E"
166 ;;D^DATA TYPE
167 ;;R^"863.6:",.04,"E"
168 ;;D^ROUTINE
169 ;;R^"863.6:",1,1
170 ;;D^XXXXXXX
171 ;;R^"863.6:",2,"E"
172 ;;D^GEN^OCXFDMOM
173 ;;R^"863.6:","863.63:1",.01,"E"
174 ;;D^LINE FEED
175 ;;R^"863.6:","863.63:1",1,"E"
176 ;;D^5
177 ;;R^"863.6:","863.63:2",.01,"E"
178 ;;D^TAB OFFSET
179 ;;R^"863.6:","863.63:2",1,"E"
180 ;;D^5
181 ;;EOR^
182 ;;KEY^863.6:^LIST ENTRIES
183 ;;R^"863.6:",.01,"E"
184 ;;D^LIST ENTRIES
185 ;;EOR^
186 ;;KEY^863.6:^USER CLASS LOOKUP
187 ;;R^"863.6:",.01,"E"
188 ;;D^USER CLASS LOOKUP
189 ;;R^"863.6:",.02,"E"
190 ;;D^USER CLASS LOOKUP
191 ;;R^"863.6:",.03,"E"
192 ;;D^CLASS
193 ;;R^"863.6:",.04,"E"
194 ;;D^ROUTINE
195 ;;R^"863.6:",1,1
196 ;;D^
197 ;;R^"863.6:",1,2
198 ;;D^ Returns an object identifier
199 ;;R^"863.6:",1,3
200 ;;D^
201 ;;R^"863.6:",2,"E"
202 ;;D^GETINST^OCXFLK
203 ;;R^"863.6:","863.63:1",.01,"E"
204 ;;D^TAB OFFSET
205 ;;R^"863.6:","863.63:1",.02,"E"
206 ;;D^INPUT
207 ;;R^"863.6:","863.63:10",.01,"E"
208 ;;D^MULTI SELECT
209 ;;R^"863.6:","863.63:10",.02,"E"
210 ;;D^INPUT
211 ;;R^"863.6:","863.63:2",.01,"E"
212 ;;D^LINE FEED
213 ;;R^"863.6:","863.63:2",.02,"E"
214 ;;D^INPUT
215 ;;R^"863.6:","863.63:3",.01,"E"
216 ;;D^OUTPUT VARIABLE
217 ;;R^"863.6:","863.63:3",.02,"E"
218 ;;D^INPUT
219 ;;R^"863.6:","863.63:4",.01,"E"
220 ;;D^QUERY
221 ;;R^"863.6:","863.63:5",.01,"E"
222 ;;D^DEFAULT VALUE
223 ;;R^"863.6:","863.63:6",.01,"E"
224 ;;D^SILENT CALL
225 ;;R^"863.6:","863.63:7",.01,"E"
226 ;;D^FM SCREEN CODE
227 ;;R^"863.6:","863.63:8",.01,"E"
228 ;;D^HELP EXECUTABLE
229 ;;R^"863.6:","863.63:9",.01,"E"
230 ;;D^FM CROSS REFERENCE LIST
231 ;;EOR^
232 ;;EOF^OCXS(863.6)^1
233 ;;SOF^863.4 OCX MDD ATTRIBUTE
234 ;;KEY^863.4:^NAME OF PATIENT
235 ;;R^"863.4:",.01,"E"
236 ;;D^NAME OF PATIENT
237 ;;EOR^
238 ;;KEY^863.4:^SEX OF PATIENT
239 ;;R^"863.4:",.01,"E"
240 ;;D^SEX OF PATIENT
241 ;;EOR^
242 ;1;
243 ;
Note: See TracBrowser for help on using the repository browser.