source: ePrescribing/trunk/p/C0P_1_0_1_T1.KID@ 673

Last change on this file since 673 was 502, checked in by George Lilly, 17 years ago

initial ePrescribing prototype
File size: 39.7 KB
Line 
1KIDS Distribution saved on Apr 11, 2009@16:23:57
2Initial ePrescribing prototyping
3**KIDS**:C0P*1.0*1^
4
5**INSTALL NAME**
6C0P*1.0*1
7"BLD",6966,0)
8C0P*1.0*1^^0^3090411^y
9"BLD",6966,4,0)
10^9.64PA^175.201^2
11"BLD",6966,4,175.101,0)
12175.101
13"BLD",6966,4,175.101,222)
14y^y^f^^n^^y^o^n
15"BLD",6966,4,175.201,0)
16175.201
17"BLD",6966,4,175.201,222)
18y^y^f^^n^^y^o^n
19"BLD",6966,4,"B",175.101,175.101)
20
21"BLD",6966,4,"B",175.201,175.201)
22
23"BLD",6966,6.3)
241
25"BLD",6966,"KRN",0)
26^9.67PA^8989.52^19
27"BLD",6966,"KRN",.4,0)
28.4
29"BLD",6966,"KRN",.401,0)
30.401
31"BLD",6966,"KRN",.402,0)
32.402
33"BLD",6966,"KRN",.403,0)
34.403
35"BLD",6966,"KRN",.5,0)
36.5
37"BLD",6966,"KRN",.84,0)
38.84
39"BLD",6966,"KRN",3.6,0)
403.6
41"BLD",6966,"KRN",3.8,0)
423.8
43"BLD",6966,"KRN",9.2,0)
449.2
45"BLD",6966,"KRN",9.8,0)
469.8
47"BLD",6966,"KRN",9.8,"NM",0)
48^9.68A^2^2
49"BLD",6966,"KRN",9.8,"NM",1,0)
50C0PEWD1^^0^B8658372
51"BLD",6966,"KRN",9.8,"NM",2,0)
52C0PEWDU^^0^B1881609
53"BLD",6966,"KRN",9.8,"NM","B","C0PEWD1",1)
54
55"BLD",6966,"KRN",9.8,"NM","B","C0PEWDU",2)
56
57"BLD",6966,"KRN",19,0)
5819
59"BLD",6966,"KRN",19.1,0)
6019.1
61"BLD",6966,"KRN",101,0)
62101
63"BLD",6966,"KRN",409.61,0)
64409.61
65"BLD",6966,"KRN",771,0)
66771
67"BLD",6966,"KRN",870,0)
68870
69"BLD",6966,"KRN",8989.51,0)
708989.51
71"BLD",6966,"KRN",8989.52,0)
728989.52
73"BLD",6966,"KRN",8994,0)
748994
75"BLD",6966,"KRN","B",.4,.4)
76
77"BLD",6966,"KRN","B",.401,.401)
78
79"BLD",6966,"KRN","B",.402,.402)
80
81"BLD",6966,"KRN","B",.403,.403)
82
83"BLD",6966,"KRN","B",.5,.5)
84
85"BLD",6966,"KRN","B",.84,.84)
86
87"BLD",6966,"KRN","B",3.6,3.6)
88
89"BLD",6966,"KRN","B",3.8,3.8)
90
91"BLD",6966,"KRN","B",9.2,9.2)
92
93"BLD",6966,"KRN","B",9.8,9.8)
94
95"BLD",6966,"KRN","B",19,19)
96
97"BLD",6966,"KRN","B",19.1,19.1)
98
99"BLD",6966,"KRN","B",101,101)
100
101"BLD",6966,"KRN","B",409.61,409.61)
102
103"BLD",6966,"KRN","B",771,771)
104
105"BLD",6966,"KRN","B",870,870)
106
107"BLD",6966,"KRN","B",8989.51,8989.51)
108
109"BLD",6966,"KRN","B",8989.52,8989.52)
110
111"BLD",6966,"KRN","B",8994,8994)
112
113"DATA",175.101,1,0)
114DrugAllergyInteraction^https://secure.newcropaccounts.com/V7/webservices/DrugAllergyInteraction
115"DATA",175.101,1,1,0)
116^175.1012^28^28^3090303^^
117"DATA",175.101,1,1,1,0)
118 <DrugAllergyInteraction
119"DATA",175.101,1,1,2,0)
120xmlns="https://secure.newcropaccounts.com/V7/webservices">
121"DATA",175.101,1,1,3,0)
122 <credentials>
123"DATA",175.101,1,1,4,0)
124 <PartnerName>string</PartnerName>
125"DATA",175.101,1,1,5,0)
126 <Name>string</Name>
127"DATA",175.101,1,1,6,0)
128 <Password>string</Password>
129"DATA",175.101,1,1,7,0)
130 </credentials>
131"DATA",175.101,1,1,8,0)
132 <accountRequest>
133"DATA",175.101,1,1,9,0)
134 <AccountId>string</AccountId>
135"DATA",175.101,1,1,10,0)
136 <SiteId>string</SiteId>
137"DATA",175.101,1,1,11,0)
138 </accountRequest>
139"DATA",175.101,1,1,12,0)
140 <patientRequest>
141"DATA",175.101,1,1,13,0)
142 <PatientId>string</PatientId>
143"DATA",175.101,1,1,14,0)
144 </patientRequest>
145"DATA",175.101,1,1,15,0)
146 <patientInformationRequester>
147"DATA",175.101,1,1,16,0)
148 <UserType>string</UserType>
149"DATA",175.101,1,1,17,0)
150 <UserId>string</UserId>
151"DATA",175.101,1,1,18,0)
152 </patientInformationRequester>
153"DATA",175.101,1,1,19,0)
154 <allergies>
155"DATA",175.101,1,1,20,0)
156 <string>string</string>
157"DATA",175.101,1,1,21,0)
158 <string>string</string>
159"DATA",175.101,1,1,22,0)
160 </allergies>
161"DATA",175.101,1,1,23,0)
162 <proposedMedications>
163"DATA",175.101,1,1,24,0)
164 <string>string</string>
165"DATA",175.101,1,1,25,0)
166 <string>string</string>
167"DATA",175.101,1,1,26,0)
168 </proposedMedications>
169"DATA",175.101,1,1,27,0)
170 <drugStandardType>string</drugStandardType>
171"DATA",175.101,1,1,28,0)
172 </DrugAllergyInteraction>
173"DATA",175.101,1,2,0)
174^175.1013^18^18^3090303^^
175"DATA",175.101,1,2,1,0)
176<DrugAllergyInteractionResult>
177"DATA",175.101,1,2,2,0)
178 <result>
179"DATA",175.101,1,2,3,0)
180 <Status>Unknown or OK or Fail or NotFound</Status>
181"DATA",175.101,1,2,4,0)
182 <Message>string</Message>
183"DATA",175.101,1,2,5,0)
184 <XmlResponse>string</XmlResponse>
185"DATA",175.101,1,2,6,0)
186 <RowCount>int</RowCount>
187"DATA",175.101,1,2,7,0)
188 <Timing>int</Timing>
189"DATA",175.101,1,2,8,0)
190 </result>
191"DATA",175.101,1,2,9,0)
192 <drugAllergyDetailArray>
193"DATA",175.101,1,2,10,0)
194 <DrugAllergyDetail>
195"DATA",175.101,1,2,11,0)
196 <InteractionText>string</InteractionText>
197"DATA",175.101,1,2,12,0)
198 </DrugAllergyDetail>
199"DATA",175.101,1,2,13,0)
200 <DrugAllergyDetail>
201"DATA",175.101,1,2,14,0)
202 <InteractionText>string</InteractionText>
203"DATA",175.101,1,2,15,0)
204 </DrugAllergyDetail>
205"DATA",175.101,1,2,16,0)
206 </drugAllergyDetailArray>
207"DATA",175.101,1,2,17,0)
208 </DrugAllergyInteractionResult>
209"DATA",175.101,1,2,18,0)
210 </DrugAllergyInteractionResponse>
211"DATA",175.101,2,0)
212DrugDrugInteraction^https://secure.newcropaccounts.com/V7/webservices/DrugDrugInteraction
213"DATA",175.101,2,1,0)
214^^28^28^3090303^
215"DATA",175.101,2,1,1,0)
216<DrugDrugInteraction
217"DATA",175.101,2,1,2,0)
218xmlns="https://secure.newcropaccounts.com/V7/webservices">
219"DATA",175.101,2,1,3,0)
220 <credentials>
221"DATA",175.101,2,1,4,0)
222 <PartnerName>string</PartnerName>
223"DATA",175.101,2,1,5,0)
224 <Name>string</Name>
225"DATA",175.101,2,1,6,0)
226 <Password>string</Password>
227"DATA",175.101,2,1,7,0)
228 </credentials>
229"DATA",175.101,2,1,8,0)
230 <accountRequest>
231"DATA",175.101,2,1,9,0)
232 <AccountId>string</AccountId>
233"DATA",175.101,2,1,10,0)
234 <SiteId>string</SiteId>
235"DATA",175.101,2,1,11,0)
236 </accountRequest>
237"DATA",175.101,2,1,12,0)
238 <patientRequest>
239"DATA",175.101,2,1,13,0)
240 <PatientId>string</PatientId>
241"DATA",175.101,2,1,14,0)
242 </patientRequest>
243"DATA",175.101,2,1,15,0)
244 <patientInformationRequester>
245"DATA",175.101,2,1,16,0)
246 <UserType>string</UserType>
247"DATA",175.101,2,1,17,0)
248 <UserId>string</UserId>
249"DATA",175.101,2,1,18,0)
250 </patientInformationRequester>
251"DATA",175.101,2,1,19,0)
252 <currentMedications>
253"DATA",175.101,2,1,20,0)
254 <string>string</string>
255"DATA",175.101,2,1,21,0)
256 <string>string</string>
257"DATA",175.101,2,1,22,0)
258 </currentMedications>
259"DATA",175.101,2,1,23,0)
260 <proposedMedications>
261"DATA",175.101,2,1,24,0)
262 <string>string</string>
263"DATA",175.101,2,1,25,0)
264 <string>string</string>
265"DATA",175.101,2,1,26,0)
266 </proposedMedications>
267"DATA",175.101,2,1,27,0)
268 <drugStandardType>string</drugStandardType>
269"DATA",175.101,2,1,28,0)
270 </DrugDrugInteraction>
271"DATA",175.101,2,2,0)
272^^48^48^3090303^
273"DATA",175.101,2,2,1,0)
274 <DrugDrugInteractionResponse
275"DATA",175.101,2,2,2,0)
276xmlns="https://secure.newcropaccounts.com/V7/webservices">
277"DATA",175.101,2,2,3,0)
278 <DrugDrugInteractionResult>
279"DATA",175.101,2,2,4,0)
280 <result>
281"DATA",175.101,2,2,5,0)
282 <Status>Unknown or OK or Fail or NotFound</Status>
283"DATA",175.101,2,2,6,0)
284 <Message>string</Message>
285"DATA",175.101,2,2,7,0)
286 <XmlResponse>string</XmlResponse>
287"DATA",175.101,2,2,8,0)
288 <RowCount>int</RowCount>
289"DATA",175.101,2,2,9,0)
290 <Timing>int</Timing>
291"DATA",175.101,2,2,10,0)
292 </result>
293"DATA",175.101,2,2,11,0)
294 <drugInteractionArray>
295"DATA",175.101,2,2,12,0)
296 <DrugInteraction>
297"DATA",175.101,2,2,13,0)
298 <MechanismOfAction>string</MechanismOfAction>
299"DATA",175.101,2,2,14,0)
300 <Discussion>string</Discussion>
301"DATA",175.101,2,2,15,0)
302 <ClinicalEffects>string</ClinicalEffects>
303"DATA",175.101,2,2,16,0)
304 <SeverityLevel>string</SeverityLevel>
305"DATA",175.101,2,2,17,0)
306 <PatientManagement>string</PatientManagement>
307"DATA",175.101,2,2,18,0)
308 <PredisposingFactors>string</PredisposingFactors>
309"DATA",175.101,2,2,19,0)
310 <References>string</References>
311"DATA",175.101,2,2,20,0)
312 <MonographTitle>string</MonographTitle>
313"DATA",175.101,2,2,21,0)
314 <Drug1>string</Drug1>
315"DATA",175.101,2,2,22,0)
316 <Drug1ID>string</Drug1ID>
317"DATA",175.101,2,2,23,0)
318 <Drug1Type>string</Drug1Type>
319"DATA",175.101,2,2,24,0)
320 <Drug2>string</Drug2>
321"DATA",175.101,2,2,25,0)
322 <Drug2ID>string</Drug2ID>
323"DATA",175.101,2,2,26,0)
324 <Drug2Type>string</Drug2Type>
325"DATA",175.101,2,2,27,0)
326 <Performance>string</Performance>
327"DATA",175.101,2,2,28,0)
328 </DrugInteraction>
329"DATA",175.101,2,2,29,0)
330 <DrugInteraction>
331"DATA",175.101,2,2,30,0)
332 <MechanismOfAction>string</MechanismOfAction>
333"DATA",175.101,2,2,31,0)
334 <Discussion>string</Discussion>
335"DATA",175.101,2,2,32,0)
336 <ClinicalEffects>string</ClinicalEffects>
337"DATA",175.101,2,2,33,0)
338 <SeverityLevel>string</SeverityLevel>
339"DATA",175.101,2,2,34,0)
340 <PatientManagement>string</PatientManagement>
341"DATA",175.101,2,2,35,0)
342 <PredisposingFactors>string</PredisposingFactors>
343"DATA",175.101,2,2,36,0)
344 <References>string</References>
345"DATA",175.101,2,2,37,0)
346 <MonographTitle>string</MonographTitle>
347"DATA",175.101,2,2,38,0)
348 <Drug1>string</Drug1>
349"DATA",175.101,2,2,39,0)
350 <Drug1ID>string</Drug1ID>
351"DATA",175.101,2,2,40,0)
352 <Drug1Type>string</Drug1Type>
353"DATA",175.101,2,2,41,0)
354 <Drug2>string</Drug2>
355"DATA",175.101,2,2,42,0)
356 <Drug2ID>string</Drug2ID>
357"DATA",175.101,2,2,43,0)
358 <Drug2Type>string</Drug2Type>
359"DATA",175.101,2,2,44,0)
360 <Performance>string</Performance>
361"DATA",175.101,2,2,45,0)
362 </DrugInteraction>
363"DATA",175.101,2,2,46,0)
364 </drugInteractionArray>
365"DATA",175.101,2,2,47,0)
366 </DrugDrugInteractionResult>
367"DATA",175.101,2,2,48,0)
368 </DrugDrugInteractionResponse>
369"DATA",175.101,3,0)
370DrugFoodInteraction^https://secure.newcropaccounts.com/V7/webservices/DrugFoodInteraction
371"DATA",175.101,3,1,0)
372^^14^14^3090303^
373"DATA",175.101,3,1,1,0)
374<DrugFoodInteraction
375"DATA",175.101,3,1,2,0)
376xmlns="https://secure.newcropaccounts.com/V7/webservices">
377"DATA",175.101,3,1,3,0)
378 <credentials>
379"DATA",175.101,3,1,4,0)
380 <PartnerName>string</PartnerName>
381"DATA",175.101,3,1,5,0)
382 <Name>string</Name>
383"DATA",175.101,3,1,6,0)
384 <Password>string</Password>
385"DATA",175.101,3,1,7,0)
386 </credentials>
387"DATA",175.101,3,1,8,0)
388 <accountRequest>
389"DATA",175.101,3,1,9,0)
390 <AccountId>string</AccountId>
391"DATA",175.101,3,1,10,0)
392 <SiteId>string</SiteId>
393"DATA",175.101,3,1,11,0)
394 </accountRequest>
395"DATA",175.101,3,1,12,0)
396 <drugId>string</drugId>
397"DATA",175.101,3,1,13,0)
398 <drugStandardType>string</drugStandardType>
399"DATA",175.101,3,1,14,0)
400 </DrugFoodInteraction>
401"DATA",175.101,3,2,0)
402^^32^32^3090303^
403"DATA",175.101,3,2,1,0)
404<DrugFoodInteractionResponse
405"DATA",175.101,3,2,2,0)
406xmlns="https://secure.newcropaccounts.com/V7/webservices">
407"DATA",175.101,3,2,3,0)
408 <DrugFoodInteractionResult>
409"DATA",175.101,3,2,4,0)
410 <result>
411"DATA",175.101,3,2,5,0)
412 <Status>Unknown or OK or Fail or NotFound</Status>
413"DATA",175.101,3,2,6,0)
414 <Message>string</Message>
415"DATA",175.101,3,2,7,0)
416 <XmlResponse>string</XmlResponse>
417"DATA",175.101,3,2,8,0)
418 <RowCount>int</RowCount>
419"DATA",175.101,3,2,9,0)
420 <Timing>int</Timing>
421"DATA",175.101,3,2,10,0)
422 </result>
423"DATA",175.101,3,2,11,0)
424 <drugFoodDetailArray>
425"DATA",175.101,3,2,12,0)
426 <DrugFoodDetail>
427"DATA",175.101,3,2,13,0)
428 <DataProvider>string</DataProvider>
429"DATA",175.101,3,2,14,0)
430 <DrugID>string</DrugID>
431"DATA",175.101,3,2,15,0)
432 <DrugName>string</DrugName>
433"DATA",175.101,3,2,16,0)
434 <SeverityLevel>string</SeverityLevel>
435"DATA",175.101,3,2,17,0)
436 <Result>string</Result>
437"DATA",175.101,3,2,18,0)
438 <Line1>string</Line1>
439"DATA",175.101,3,2,19,0)
440 <Line2>string</Line2>
441"DATA",175.101,3,2,20,0)
442 </DrugFoodDetail>
443"DATA",175.101,3,2,21,0)
444 <DrugFoodDetail>
445"DATA",175.101,3,2,22,0)
446 <DataProvider>string</DataProvider>
447"DATA",175.101,3,2,23,0)
448 <DrugID>string</DrugID>
449"DATA",175.101,3,2,24,0)
450 <DrugName>string</DrugName>
451"DATA",175.101,3,2,25,0)
452 <SeverityLevel>string</SeverityLevel>
453"DATA",175.101,3,2,26,0)
454 <Result>string</Result>
455"DATA",175.101,3,2,27,0)
456 <Line1>string</Line1>
457"DATA",175.101,3,2,28,0)
458 <Line2>string</Line2>
459"DATA",175.101,3,2,29,0)
460 </DrugFoodDetail>
461"DATA",175.101,3,2,30,0)
462 </drugFoodDetailArray>
463"DATA",175.101,3,2,31,0)
464 </DrugFoodInteractionResult>
465"DATA",175.101,3,2,32,0)
466 </DrugFoodInteractionResponse>
467"DATA",175.101,4,0)
468DrugSearchWithFormulary^https://secure.newcropaccounts.com/V7/webservices/DrugSearchWithFormulary
469"DATA",175.101,4,1,0)
470^^26^26^3090303^
471"DATA",175.101,4,1,1,0)
472<DrugSearchWithFormulary
473"DATA",175.101,4,1,2,0)
474xmlns="https://secure.newcropaccounts.com/V7/webservices">
475"DATA",175.101,4,1,3,0)
476 <credentials>
477"DATA",175.101,4,1,4,0)
478 <PartnerName>string</PartnerName>
479"DATA",175.101,4,1,5,0)
480 <Name>string</Name>
481"DATA",175.101,4,1,6,0)
482 <Password>string</Password>
483"DATA",175.101,4,1,7,0)
484 </credentials>
485"DATA",175.101,4,1,8,0)
486 <accountRequest>
487"DATA",175.101,4,1,9,0)
488 <AccountId>string</AccountId>
489"DATA",175.101,4,1,10,0)
490 <SiteId>string</SiteId>
491"DATA",175.101,4,1,11,0)
492 </accountRequest>
493"DATA",175.101,4,1,12,0)
494 <patientRequest>
495"DATA",175.101,4,1,13,0)
496 <PatientId>string</PatientId>
497"DATA",175.101,4,1,14,0)
498 </patientRequest>
499"DATA",175.101,4,1,15,0)
500 <patientInformationRequester>
501"DATA",175.101,4,1,16,0)
502 <UserType>string</UserType>
503"DATA",175.101,4,1,17,0)
504 <UserId>string</UserId>
505"DATA",175.101,4,1,18,0)
506 </patientInformationRequester>
507"DATA",175.101,4,1,19,0)
508 <healthplanID>string</healthplanID>
509"DATA",175.101,4,1,20,0)
510 <healthplanTypeID>string</healthplanTypeID>
511"DATA",175.101,4,1,21,0)
512 <drugName>string</drugName>
513"DATA",175.101,4,1,22,0)
514 <includeObsolete>string</includeObsolete>
515"DATA",175.101,4,1,23,0)
516 <searchBrandGeneric>string</searchBrandGeneric>
517"DATA",175.101,4,1,24,0)
518 <searchRxOTC>string</searchRxOTC>
519"DATA",175.101,4,1,25,0)
520 <searchDrugSupply>string</searchDrugSupply>
521"DATA",175.101,4,1,26,0)
522 </DrugSearchWithFormulary>
523"DATA",175.101,4,2,0)
524^^22^22^3090303^
525"DATA",175.101,4,2,1,0)
526<DrugSearchWithFormularyResponse
527"DATA",175.101,4,2,2,0)
528xmlns="https://secure.newcropaccounts.com/V7/webservices">
529"DATA",175.101,4,2,3,0)
530 <DrugSearchWithFormularyResult>
531"DATA",175.101,4,2,4,0)
532 <result>
533"DATA",175.101,4,2,5,0)
534 <Status>Unknown or OK or Fail or NotFound</Status>
535"DATA",175.101,4,2,6,0)
536 <Message>string</Message>
537"DATA",175.101,4,2,7,0)
538 <XmlResponse>string</XmlResponse>
539"DATA",175.101,4,2,8,0)
540 <RowCount>int</RowCount>
541"DATA",175.101,4,2,9,0)
542 <Timing>int</Timing>
543"DATA",175.101,4,2,10,0)
544 </result>
545"DATA",175.101,4,2,11,0)
546 <drugFormularyDetailArray>
547"DATA",175.101,4,2,12,0)
548 <DrugFormularyDetail>
549"DATA",175.101,4,2,13,0)
550 <drugDetail xsi:nil="true" />
551"DATA",175.101,4,2,14,0)
552 <formularyCoverage>string</formularyCoverage>
553"DATA",175.101,4,2,15,0)
554 </DrugFormularyDetail>
555"DATA",175.101,4,2,16,0)
556 <DrugFormularyDetail>
557"DATA",175.101,4,2,17,0)
558 <drugDetail xsi:nil="true" />
559"DATA",175.101,4,2,18,0)
560 <formularyCoverage>string</formularyCoverage>
561"DATA",175.101,4,2,19,0)
562 </DrugFormularyDetail>
563"DATA",175.101,4,2,20,0)
564 </drugFormularyDetailArray>
565"DATA",175.101,4,2,21,0)
566 </DrugSearchWithFormularyResult>
567"DATA",175.101,4,2,22,0)
568 </DrugSearchWithFormularyResponse>
569"DATA",175.101,5,0)
570DrugsByDiagnosis^https://secure.newcropaccounts.com/V7/webservices/DrugsByDiagnosis
571"DATA",175.101,5,1,0)
572^^24^24^3090303^
573"DATA",175.101,5,1,1,0)
574<DrugsByDiagnosis
575"DATA",175.101,5,1,2,0)
576xmlns="https://secure.newcropaccounts.com/V7/webservices">
577"DATA",175.101,5,1,3,0)
578 <credentials>
579"DATA",175.101,5,1,4,0)
580 <PartnerName>string</PartnerName>
581"DATA",175.101,5,1,5,0)
582 <Name>string</Name>
583"DATA",175.101,5,1,6,0)
584 <Password>string</Password>
585"DATA",175.101,5,1,7,0)
586 </credentials>
587"DATA",175.101,5,1,8,0)
588 <accountRequest>
589"DATA",175.101,5,1,9,0)
590 <AccountId>string</AccountId>
591"DATA",175.101,5,1,10,0)
592 <SiteId>string</SiteId>
593"DATA",175.101,5,1,11,0)
594 </accountRequest>
595"DATA",175.101,5,1,12,0)
596 <patientRequest>
597"DATA",175.101,5,1,13,0)
598 <PatientId>string</PatientId>
599"DATA",175.101,5,1,14,0)
600 </patientRequest>
601"DATA",175.101,5,1,15,0)
602 <patientInformationRequester>
603"DATA",175.101,5,1,16,0)
604 <UserType>string</UserType>
605"DATA",175.101,5,1,17,0)
606 <UserId>string</UserId>
607"DATA",175.101,5,1,18,0)
608 </patientInformationRequester>
609"DATA",175.101,5,1,19,0)
610 <diagnosisList>
611"DATA",175.101,5,1,20,0)
612 <string>string</string>
613"DATA",175.101,5,1,21,0)
614 <string>string</string>
615"DATA",175.101,5,1,22,0)
616 </diagnosisList>
617"DATA",175.101,5,1,23,0)
618 <diagnosisListType>string</diagnosisListType>
619"DATA",175.101,5,1,24,0)
620 </DrugsByDiagnosis>
621"DATA",175.101,5,2,0)
622^^56^56^3090303^
623"DATA",175.101,5,2,1,0)
624<DrugsByDiagnosisResponse
625"DATA",175.101,5,2,2,0)
626xmlns="https://secure.newcropaccounts.com/V7/webservices">
627"DATA",175.101,5,2,3,0)
628 <DrugsByDiagnosisResult>
629"DATA",175.101,5,2,4,0)
630 <result>
631"DATA",175.101,5,2,5,0)
632 <Status>Unknown or OK or Fail or NotFound</Status>
633"DATA",175.101,5,2,6,0)
634 <Message>string</Message>
635"DATA",175.101,5,2,7,0)
636 <XmlResponse>string</XmlResponse>
637"DATA",175.101,5,2,8,0)
638 <RowCount>int</RowCount>
639"DATA",175.101,5,2,9,0)
640 <Timing>int</Timing>
641"DATA",175.101,5,2,10,0)
642 </result>
643"DATA",175.101,5,2,11,0)
644 <drugDetailArray>
645"DATA",175.101,5,2,12,0)
646 <DrugDetail>
647"DATA",175.101,5,2,13,0)
648 <DataProvider>string</DataProvider>
649"DATA",175.101,5,2,14,0)
650 <Drug>string</Drug>
651"DATA",175.101,5,2,15,0)
652 <DrugID>string</DrugID>
653"DATA",175.101,5,2,16,0)
654 <DrugSubID1>string</DrugSubID1>
655"DATA",175.101,5,2,17,0)
656 <DrugName>string</DrugName>
657"DATA",175.101,5,2,18,0)
658 <DrugNameID>string</DrugNameID>
659"DATA",175.101,5,2,19,0)
660 <GenericName>string</GenericName>
661"DATA",175.101,5,2,20,0)
662 <DeaClassCode>string</DeaClassCode>
663"DATA",175.101,5,2,21,0)
664 <Dosage>string</Dosage>
665"DATA",175.101,5,2,22,0)
666 <DosageForm>string</DosageForm>
667"DATA",175.101,5,2,23,0)
668 <Route>string</Route>
669"DATA",175.101,5,2,24,0)
670 <Status>string</Status>
671"DATA",175.101,5,2,25,0)
672 <TherapeuticClass>string</TherapeuticClass>
673"DATA",175.101,5,2,26,0)
674 <DeaGenericNamedCode>string</DeaGenericNamedCode>
675"DATA",175.101,5,2,27,0)
676
677"DATA",175.101,5,2,28,0)
678<DeaGenericNamedDescription>string</DeaGenericNamedDescription>
679"DATA",175.101,5,2,29,0)
680 <DeaLegendCode>string</DeaLegendCode>
681"DATA",175.101,5,2,30,0)
682 <DeaLegendDescription>string</DeaLegendDescription>
683"DATA",175.101,5,2,31,0)
684 <Touchdate>string</Touchdate>
685"DATA",175.101,5,2,32,0)
686 </DrugDetail>
687"DATA",175.101,5,2,33,0)
688 <DrugDetail>
689"DATA",175.101,5,2,34,0)
690 <DataProvider>string</DataProvider>
691"DATA",175.101,5,2,35,0)
692 <Drug>string</Drug>
693"DATA",175.101,5,2,36,0)
694 <DrugID>string</DrugID>
695"DATA",175.101,5,2,37,0)
696 <DrugSubID1>string</DrugSubID1>
697"DATA",175.101,5,2,38,0)
698 <DrugName>string</DrugName>
699"DATA",175.101,5,2,39,0)
700 <DrugNameID>string</DrugNameID>
701"DATA",175.101,5,2,40,0)
702 <GenericName>string</GenericName>
703"DATA",175.101,5,2,41,0)
704 <DeaClassCode>string</DeaClassCode>
705"DATA",175.101,5,2,42,0)
706 <Dosage>string</Dosage>
707"DATA",175.101,5,2,43,0)
708 <DosageForm>string</DosageForm>
709"DATA",175.101,5,2,44,0)
710 <Route>string</Route>
711"DATA",175.101,5,2,45,0)
712 <Status>string</Status>
713"DATA",175.101,5,2,46,0)
714 <TherapeuticClass>string</TherapeuticClass>
715"DATA",175.101,5,2,47,0)
716 <DeaGenericNamedCode>string</DeaGenericNamedCode>
717"DATA",175.101,5,2,48,0)
718
719"DATA",175.101,5,2,49,0)
720<DeaGenericNamedDescription>string</DeaGenericNamedDescription>
721"DATA",175.101,5,2,50,0)
722 <DeaLegendCode>string</DeaLegendCode>
723"DATA",175.101,5,2,51,0)
724 <DeaLegendDescription>string</DeaLegendDescription>
725"DATA",175.101,5,2,52,0)
726 <Touchdate>string</Touchdate>
727"DATA",175.101,5,2,53,0)
728 </DrugDetail>
729"DATA",175.101,5,2,54,0)
730 </drugDetailArray>
731"DATA",175.101,5,2,55,0)
732 </DrugsByDiagnosisResult>
733"DATA",175.101,5,2,56,0)
734 </DrugsByDiagnosisResponse>
735"DATA",175.101,6,0)
736DrugsByDiagnosisWithFormulary^https://secure.newcropaccounts.com/V7/webservices/DrugsByDiagnosisWithFormulary
737"DATA",175.101,6,1,0)
738^^26^26^3090303^
739"DATA",175.101,6,1,1,0)
740<DrugsByDiagnosisWithFormulary
741"DATA",175.101,6,1,2,0)
742xmlns="https://secure.newcropaccounts.com/V7/webservices">
743"DATA",175.101,6,1,3,0)
744 <credentials>
745"DATA",175.101,6,1,4,0)
746 <PartnerName>string</PartnerName>
747"DATA",175.101,6,1,5,0)
748 <Name>string</Name>
749"DATA",175.101,6,1,6,0)
750 <Password>string</Password>
751"DATA",175.101,6,1,7,0)
752 </credentials>
753"DATA",175.101,6,1,8,0)
754 <accountRequest>
755"DATA",175.101,6,1,9,0)
756 <AccountId>string</AccountId>
757"DATA",175.101,6,1,10,0)
758 <SiteId>string</SiteId>
759"DATA",175.101,6,1,11,0)
760 </accountRequest>
761"DATA",175.101,6,1,12,0)
762 <patientRequest>
763"DATA",175.101,6,1,13,0)
764 <PatientId>string</PatientId>
765"DATA",175.101,6,1,14,0)
766 </patientRequest>
767"DATA",175.101,6,1,15,0)
768 <patientInformationRequester>
769"DATA",175.101,6,1,16,0)
770 <UserType>string</UserType>
771"DATA",175.101,6,1,17,0)
772 <UserId>string</UserId>
773"DATA",175.101,6,1,18,0)
774 </patientInformationRequester>
775"DATA",175.101,6,1,19,0)
776 <healthplanID>string</healthplanID>
777"DATA",175.101,6,1,20,0)
778 <healthplanTypeID>string</healthplanTypeID>
779"DATA",175.101,6,1,21,0)
780 <diagnosisList>
781"DATA",175.101,6,1,22,0)
782 <string>string</string>
783"DATA",175.101,6,1,23,0)
784 <string>string</string>
785"DATA",175.101,6,1,24,0)
786 </diagnosisList>
787"DATA",175.101,6,1,25,0)
788 <diagnosisListType>string</diagnosisListType>
789"DATA",175.101,6,1,26,0)
790 </DrugsByDiagnosisWithFormulary>
791"DATA",175.101,6,2,0)
792^^22^22^3090303^
793"DATA",175.101,6,2,1,0)
794<DrugsByDiagnosisWithFormularyResponse
795"DATA",175.101,6,2,2,0)
796xmlns="https://secure.newcropaccounts.com/V7/webservices">
797"DATA",175.101,6,2,3,0)
798 <DrugsByDiagnosisWithFormularyResult>
799"DATA",175.101,6,2,4,0)
800 <result>
801"DATA",175.101,6,2,5,0)
802 <Status>Unknown or OK or Fail or NotFound</Status>
803"DATA",175.101,6,2,6,0)
804 <Message>string</Message>
805"DATA",175.101,6,2,7,0)
806 <XmlResponse>string</XmlResponse>
807"DATA",175.101,6,2,8,0)
808 <RowCount>int</RowCount>
809"DATA",175.101,6,2,9,0)
810 <Timing>int</Timing>
811"DATA",175.101,6,2,10,0)
812 </result>
813"DATA",175.101,6,2,11,0)
814 <drugFormularyDetailArray>
815"DATA",175.101,6,2,12,0)
816 <DrugFormularyDetail>
817"DATA",175.101,6,2,13,0)
818 <drugDetail xsi:nil="true" />
819"DATA",175.101,6,2,14,0)
820 <formularyCoverage>string</formularyCoverage>
821"DATA",175.101,6,2,15,0)
822 </DrugFormularyDetail>
823"DATA",175.101,6,2,16,0)
824 <DrugFormularyDetail>
825"DATA",175.101,6,2,17,0)
826 <drugDetail xsi:nil="true" />
827"DATA",175.101,6,2,18,0)
828 <formularyCoverage>string</formularyCoverage>
829"DATA",175.101,6,2,19,0)
830 </DrugFormularyDetail>
831"DATA",175.101,6,2,20,0)
832 </drugFormularyDetailArray>
833"DATA",175.101,6,2,21,0)
834 </DrugsByDiagnosisWithFormularyResult>
835"DATA",175.101,6,2,22,0)
836 </DrugsByDiagnosisWithFormularyResponse>
837"DATA",175.101,7,0)
838ValidateNDCList^https://secure.newcropaccounts.com/V7/webservices/ValidateNDCList
839"DATA",175.101,7,1,0)
840^^13^13^3090303^
841"DATA",175.101,7,1,1,0)
842<ValidateNDCList
843"DATA",175.101,7,1,2,0)
844xmlns="https://secure.newcropaccounts.com/V7/webservices">
845"DATA",175.101,7,1,3,0)
846 <credentials>
847"DATA",175.101,7,1,4,0)
848 <PartnerName>string</PartnerName>
849"DATA",175.101,7,1,5,0)
850 <Name>string</Name>
851"DATA",175.101,7,1,6,0)
852 <Password>string</Password>
853"DATA",175.101,7,1,7,0)
854 </credentials>
855"DATA",175.101,7,1,8,0)
856 <ndcList>
857"DATA",175.101,7,1,9,0)
858 <string>string</string>
859"DATA",175.101,7,1,10,0)
860 <string>string</string>
861"DATA",175.101,7,1,11,0)
862 </ndcList>
863"DATA",175.101,7,1,12,0)
864 <drugStandardType>string</drugStandardType>
865"DATA",175.101,7,1,13,0)
866 </ValidateNDCList>
867"DATA",175.101,7,2,0)
868^^22^22^3090303^
869"DATA",175.101,7,2,1,0)
870<ValidateNDCListResponse
871"DATA",175.101,7,2,2,0)
872xmlns="https://secure.newcropaccounts.com/V7/webservices">
873"DATA",175.101,7,2,3,0)
874 <ValidateNDCListResult>
875"DATA",175.101,7,2,4,0)
876 <result>
877"DATA",175.101,7,2,5,0)
878 <Status>Unknown or OK or Fail or NotFound</Status>
879"DATA",175.101,7,2,6,0)
880 <Message>string</Message>
881"DATA",175.101,7,2,7,0)
882 <XmlResponse>string</XmlResponse>
883"DATA",175.101,7,2,8,0)
884 <RowCount>int</RowCount>
885"DATA",175.101,7,2,9,0)
886 <Timing>int</Timing>
887"DATA",175.101,7,2,10,0)
888 </result>
889"DATA",175.101,7,2,11,0)
890 <ndcValidationDetailArray>
891"DATA",175.101,7,2,12,0)
892 <NDCValidationDetail>
893"DATA",175.101,7,2,13,0)
894 <ndc>string</ndc>
895"DATA",175.101,7,2,14,0)
896 <ndcStatus>string</ndcStatus>
897"DATA",175.101,7,2,15,0)
898 </NDCValidationDetail>
899"DATA",175.101,7,2,16,0)
900 <NDCValidationDetail>
901"DATA",175.101,7,2,17,0)
902 <ndc>string</ndc>
903"DATA",175.101,7,2,18,0)
904 <ndcStatus>string</ndcStatus>
905"DATA",175.101,7,2,19,0)
906 </NDCValidationDetail>
907"DATA",175.101,7,2,20,0)
908 </ndcValidationDetailArray>
909"DATA",175.101,7,2,21,0)
910 </ValidateNDCListResult>
911"DATA",175.101,7,2,22,0)
912 </ValidateNDCListResponse>
913"DATA",175.201,2,0)
914EPRESCRIBING
915"DATA",175.201,2,1,0)
916^175.2011P^2^2
917"DATA",175.201,2,1,1,0)
9181^1
919"DATA",175.201,2,1,2,0)
9203^2
921"FIA",175.101)
922C0P APPLICATION STEPS
923"FIA",175.101,0)
924^C0PS(
925"FIA",175.101,0,0)
926175.101
927"FIA",175.101,0,1)
928y^y^f^^n^^y^o^n
929"FIA",175.101,0,10)
930
931"FIA",175.101,0,11)
932
933"FIA",175.101,0,"RLRO")
934
935"FIA",175.101,175.101)
9360
937"FIA",175.101,175.1012)
9380
939"FIA",175.101,175.1013)
9400
941"FIA",175.201)
942C0P WEB APPLICATIONS
943"FIA",175.201,0)
944^C0PAPP(
945"FIA",175.201,0,0)
946175.201
947"FIA",175.201,0,1)
948y^y^f^^n^^y^o^n
949"FIA",175.201,0,10)
950
951"FIA",175.201,0,11)
952
953"FIA",175.201,0,"RLRO")
954
955"FIA",175.201,175.201)
9560
957"FIA",175.201,175.2011)
9580
959"MBREQ")
9600
961"QUES","XPF1",0)
962Y
963"QUES","XPF1","??")
964^D REP^XPDH
965"QUES","XPF1","A")
966Shall I write over your |FLAG| File
967"QUES","XPF1","B")
968YES
969"QUES","XPF1","M")
970D XPF1^XPDIQ
971"QUES","XPF2",0)
972Y
973"QUES","XPF2","??")
974^D DTA^XPDH
975"QUES","XPF2","A")
976Want my data |FLAG| yours
977"QUES","XPF2","B")
978YES
979"QUES","XPF2","M")
980D XPF2^XPDIQ
981"QUES","XPI1",0)
982YO
983"QUES","XPI1","??")
984^D INHIBIT^XPDH
985"QUES","XPI1","A")
986Want KIDS to INHIBIT LOGONs during the install
987"QUES","XPI1","B")
988NO
989"QUES","XPI1","M")
990D XPI1^XPDIQ
991"QUES","XPM1",0)
992PO^VA(200,:EM
993"QUES","XPM1","??")
994^D MG^XPDH
995"QUES","XPM1","A")
996Enter the Coordinator for Mail Group '|FLAG|'
997"QUES","XPM1","B")
998
999"QUES","XPM1","M")
1000D XPM1^XPDIQ
1001"QUES","XPO1",0)
1002Y
1003"QUES","XPO1","??")
1004^D MENU^XPDH
1005"QUES","XPO1","A")
1006Want KIDS to Rebuild Menu Trees Upon Completion of Install
1007"QUES","XPO1","B")
1008NO
1009"QUES","XPO1","M")
1010D XPO1^XPDIQ
1011"QUES","XPZ1",0)
1012Y
1013"QUES","XPZ1","??")
1014^D OPT^XPDH
1015"QUES","XPZ1","A")
1016Want to DISABLE Scheduled Options, Menu Options, and Protocols
1017"QUES","XPZ1","B")
1018NO
1019"QUES","XPZ1","M")
1020D XPZ1^XPDIQ
1021"QUES","XPZ2",0)
1022Y
1023"QUES","XPZ2","??")
1024^D RTN^XPDH
1025"QUES","XPZ2","A")
1026Want to MOVE routines to other CPUs
1027"QUES","XPZ2","B")
1028NO
1029"QUES","XPZ2","M")
1030D XPZ2^XPDIQ
1031"RTN")
10322
1033"RTN","C0PEWD1")
10340^1^B8658372
1035"RTN","C0PEWD1",1,0)
1036C0CEWD1 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
1037"RTN","C0PEWD1",2,0)
1038 ;;0.1;CCDCCR;nopatch;noreleasedate;Build 1
1039"RTN","C0PEWD1",3,0)
1040 ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU
1041"RTN","C0PEWD1",4,0)
1042 ;General Public License See attached copy of the License.
1043"RTN","C0PEWD1",5,0)
1044 ;
1045"RTN","C0PEWD1",6,0)
1046 ;This program is free software; you can redistribute it and/or modify
1047"RTN","C0PEWD1",7,0)
1048 ;it under the terms of the GNU General Public License as published by
1049"RTN","C0PEWD1",8,0)
1050 ;the Free Software Foundation; either version 2 of the License, or
1051"RTN","C0PEWD1",9,0)
1052 ;(at your option) any later version.
1053"RTN","C0PEWD1",10,0)
1054 ;
1055"RTN","C0PEWD1",11,0)
1056 ;This program is distributed in the hope that it will be useful,
1057"RTN","C0PEWD1",12,0)
1058 ;but WITHOUT ANY WARRANTY; without even the implied warranty of
1059"RTN","C0PEWD1",13,0)
1060 ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
1061"RTN","C0PEWD1",14,0)
1062 ;GNU General Public License for more details.
1063"RTN","C0PEWD1",15,0)
1064 ;
1065"RTN","C0PEWD1",16,0)
1066 ;You should have received a copy of the GNU General Public License along
1067"RTN","C0PEWD1",17,0)
1068 ;with this program; if not, write to the Free Software Foundation, Inc.,
1069"RTN","C0PEWD1",18,0)
1070 ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
1071"RTN","C0PEWD1",19,0)
1072 ;
1073"RTN","C0PEWD1",20,0)
1074 Q
1075"RTN","C0PEWD1",21,0)
1076 ;TEST(filepath) ; filepath IS THE PATH/FILE TO BE READ IN
1077"RTN","C0PEWD1",22,0)
1078 i $g(^%ZISH)["" d ; if the VistA Kernal routine %ZISH exists
1079"RTN","C0PEWD1",23,0)
1080 . n zfile,zpath,ztmp s (zfile,zpath,ztmp)=""
1081"RTN","C0PEWD1",24,0)
1082 . s zfile=$re($p($re(filepath),"/",1)) ;file name
1083"RTN","C0PEWD1",25,0)
1084 . s zpath=$p(filepath,zfile,1) ; file path
1085"RTN","C0PEWD1",26,0)
1086 . s ztmp=$na(^CacheTempEWD($j,0))
1087"RTN","C0PEWD1",27,0)
1088 . s ok=$$FTG^%ZISH(zpath,zfile,ztmp,2) ; import the file incrementing subscr 2
1089"RTN","C0PEWD1",28,0)
1090 q
1091"RTN","C0PEWD1",29,0)
1092 ;
1093"RTN","C0PEWD1",30,0)
1094TEST2 ;
1095"RTN","C0PEWD1",31,0)
1096 s zfilepath="/home/vademo2/CCR/PAT_780_CCR_V1_0_17.xml"
1097"RTN","C0PEWD1",32,0)
1098 ;s ok=$$gtmImportFile^%zewdHTMLParser(zfilepath)
1099"RTN","C0PEWD1",33,0)
1100 s ok=$$LOAD(zfilepath) ;load the XML file to the EWD global
1101"RTN","C0PEWD1",34,0)
1102 s ok=$$parseDocument^%zewdHTMLParser("DerekDOM",0)
1103"RTN","C0PEWD1",35,0)
1104 ;s ok=$$parseXMLFile^%zewdAPI(zfilepath,"fourthDOM")
1105"RTN","C0PEWD1",36,0)
1106 w ok,!
1107"RTN","C0PEWD1",37,0)
1108 q
1109"RTN","C0PEWD1",38,0)
1110 ;
1111"RTN","C0PEWD1",39,0)
1112GPLTEST ;
1113"RTN","C0PEWD1",40,0)
1114 ;s ok=$$httpGET^%zewdGTM("http://preproduction.newcropaccounts.com/InterfaceV7/NewrxFDB.xml",.gpl)
1115"RTN","C0PEWD1",41,0)
1116 s URL="https://trac.opensourcevista.net/CCD-CCR-Project/browser/ccr/tags/CCR_1_0_7/output"
1117"RTN","C0PEWD1",42,0)
1118 s ok=$$httpGET^%zewdGTM(URL,.gpl)
1119"RTN","C0PEWD1",43,0)
1120 S ZG=""
1121"RTN","C0PEWD1",44,0)
1122 F S ZG=$O(gpl(ZG)) Q:ZG="" D ;
1123"RTN","C0PEWD1",45,0)
1124 . s gpl(ZG)=$$CLEAN^C0PEWDU(gpl(ZG)) ;
1125"RTN","C0PEWD1",46,0)
1126 . ;w gpl(ZG)
1127"RTN","C0PEWD1",47,0)
1128 m ^CacheTempEWD($j)=gpl
1129"RTN","C0PEWD1",48,0)
1130 b
1131"RTN","C0PEWD1",49,0)
1132 s ok=$$parseDocument^%zewdHTMLParser("gpl2",0)
1133"RTN","C0PEWD1",50,0)
1134 s ok=$$outputDOM^%zewdDOM("gpl2",1,1)
1135"RTN","C0PEWD1",51,0)
1136 Q
1137"RTN","C0PEWD1",52,0)
1138 ;
1139"RTN","C0PEWD1",53,0)
1140CLEAN(INX) ;DELETE NON-PRINTING CHARACTER IN INX, PASSED BY VALUE
1141"RTN","C0PEWD1",54,0)
1142 ;DON'T USE THIS -- IT DOESN'T WORK -- USE $$CLEAN^C0PEWDU
1143"RTN","C0PEWD1",55,0)
1144 ;N ZT,ZI
1145"RTN","C0PEWD1",56,0)
1146 S ZT=""
1147"RTN","C0PEWD1",57,0)
1148 F ZI=32:1:126 S ZT=ZT_$CHAR(ZI)
1149"RTN","C0PEWD1",58,0)
1150 S ZZ=$TR(INX,ZT)
1151"RTN","C0PEWD1",59,0)
1152 Q ZZ
1153"RTN","C0PEWD1",60,0)
1154 ;
1155"RTN","C0PEWD1",61,0)
1156LOAD(filepath) ; load an xml file into the EWD global for DOM processing
1157"RTN","C0PEWD1",62,0)
1158 ; need to call s error=$$parseDocument^%zewdHTMLParser(docName,isHTML)
1159"RTN","C0PEWD1",63,0)
1160 ; after to process it to the DOM - isHTML=0 for XML files
1161"RTN","C0PEWD1",64,0)
1162 n i
1163"RTN","C0PEWD1",65,0)
1164 i $g(^%ZISH)["" d QUIT i ; if VistA Kernal routine %ZISH exists - gpl 2/23/09
1165"RTN","C0PEWD1",66,0)
1166 . n zfile,zpath,ztmp,zok s (zfile,zpath,ztmp)=""
1167"RTN","C0PEWD1",67,0)
1168 . s zfile=$re($p($re(filepath),"/",1)) ;file name
1169"RTN","C0PEWD1",68,0)
1170 . s zpath=$p(filepath,zfile,1) ; file path
1171"RTN","C0PEWD1",69,0)
1172 . s ztmp=$na(^CacheTempEWD($j,0))
1173"RTN","C0PEWD1",70,0)
1174 . s zok=$$FTG^%ZISH(zpath,zfile,ztmp,2) ; import the file increment subscr 2
1175"RTN","C0PEWD1",71,0)
1176 . s i=$o(^CacheTempEWD($j,""),-1) ; highest line number
1177"RTN","C0PEWD1",72,0)
1178 q i
1179"RTN","C0PEWD1",73,0)
1180 ;
1181"RTN","C0PEWD1",74,0)
1182Q(ZQ,ZD) ; SEND QUERY ZQ TO DOM ZD AND DIPLAY NODES RETURNED
1183"RTN","C0PEWD1",75,0)
1184 I '$D(ZD) S ZD="DerekDOM"
1185"RTN","C0PEWD1",76,0)
1186 s error=$$select^%zewdXPath(ZQ,ZD,.nodes) ;
1187"RTN","C0PEWD1",77,0)
1188 d displayNodes^%zewdXPath(.nodes)
1189"RTN","C0PEWD1",78,0)
1190 q
1191"RTN","C0PEWD1",79,0)
1192 ;
1193"RTN","C0PEWDU")
11940^2^B1881609
1195"RTN","C0PEWDU",1,0)
1196C0PEWDU ; WV/SMH - E-prescription utilities; Mar 3 2009
1197"RTN","C0PEWDU",2,0)
1198 ;;0.1;WV EPrescribing;;;Build 1
1199"RTN","C0PEWDU",3,0)
1200 Q
1201"RTN","C0PEWDU",4,0)
1202 ;
1203"RTN","C0PEWDU",5,0)
1204CLEAN(STR) ; extrinsic function; returns string
1205"RTN","C0PEWDU",6,0)
1206 ;; Removes all non printable characters from a string.
1207"RTN","C0PEWDU",7,0)
1208 ;; STR by Value
1209"RTN","C0PEWDU",8,0)
1210 N TR,I
1211"RTN","C0PEWDU",9,0)
1212 F I=0:1:31 S TR=$G(TR)_$C(I)
1213"RTN","C0PEWDU",10,0)
1214 S TR=TR_$C(127)
1215"RTN","C0PEWDU",11,0)
1216 QUIT $TR(STR,TR)
1217"RTN","C0PEWDU",12,0)
1218 ;
1219"RTN","C0PEWDU",13,0)
1220GETSOAP(ENTRY,REQUEST,RESULT) ; XML SOAP Spec for NewCrop
1221"RTN","C0PEWDU",14,0)
1222 ;; Gets world processing field from Fileman for Parsing
1223"RTN","C0PEWDU",15,0)
1224 ;; ENTRY Input by Value
1225"RTN","C0PEWDU",16,0)
1226 ;; REQUEST XML Output by Reference
1227"RTN","C0PEWDU",17,0)
1228 ;; RESULT XML Output by Reference
1229"RTN","C0PEWDU",18,0)
1230 ;; Example call: D GETSOAP^C0PEWDU("DrugAllergyInteraction",.REQ,.RES)
1231"RTN","C0PEWDU",19,0)
1232 ;
1233"RTN","C0PEWDU",20,0)
1234 N OK,ERR,IEN,F ; if call is okay, Error, IEN, File
1235"RTN","C0PEWDU",21,0)
1236 S F=175.101
1237"RTN","C0PEWDU",22,0)
1238 S IEN=$$FIND1^DIC(F,"","",ENTRY,"B")
1239"RTN","C0PEWDU",23,0)
1240 S OK=$$GET1^DIQ(F,IEN,2,"","REQUEST","ERR")
1241"RTN","C0PEWDU",24,0)
1242 I OK=""!($D(ERR)) S REQUEST=""
1243"RTN","C0PEWDU",25,0)
1244 ; M ^CacheTempEWD($j)=REQUEST
1245"RTN","C0PEWDU",26,0)
1246 ; K REQUEST
1247"RTN","C0PEWDU",27,0)
1248 ; S ok=$$parseDocument^%zewdHTMLParser("REQUEST",0)
1249"RTN","C0PEWDU",28,0)
1250 ; S ok=$$outputDOM^%zewdDOM("REQUEST",1,1)
1251"RTN","C0PEWDU",29,0)
1252 ; Q ; remove later
1253"RTN","C0PEWDU",30,0)
1254 K OK,ERR
1255"RTN","C0PEWDU",31,0)
1256 S OK=$$GET1^DIQ(F,IEN,3,"","RESULT","ERR")
1257"RTN","C0PEWDU",32,0)
1258 I OK=""!($D(ERR)) S RESULT=""
1259"RTN","C0PEWDU",33,0)
1260 QUIT
1261"RTN","C0PEWDU",34,0)
1262 ;
1263"SEC","^DIC",175.101,175.101,0,"AUDIT")
1264@
1265"SEC","^DIC",175.101,175.101,0,"DD")
1266@
1267"SEC","^DIC",175.101,175.101,0,"DEL")
1268@
1269"SEC","^DIC",175.101,175.101,0,"LAYGO")
1270@
1271"SEC","^DIC",175.101,175.101,0,"RD")
1272@
1273"SEC","^DIC",175.101,175.101,0,"WR")
1274@
1275"SEC","^DIC",175.201,175.201,0,"AUDIT")
1276@
1277"SEC","^DIC",175.201,175.201,0,"DD")
1278@
1279"SEC","^DIC",175.201,175.201,0,"DEL")
1280@
1281"SEC","^DIC",175.201,175.201,0,"LAYGO")
1282@
1283"SEC","^DIC",175.201,175.201,0,"RD")
1284@
1285"SEC","^DIC",175.201,175.201,0,"WR")
1286@
1287"VER")
12888.0^22.0
1289"^DD",175.101,175.101,0)
1290FIELD^^.05^5
1291"^DD",175.101,175.101,0,"DDA")
1292N
1293"^DD",175.101,175.101,0,"DT")
12943090303
1295"^DD",175.101,175.101,0,"IX","B",175.101,.01)
1296
1297"^DD",175.101,175.101,0,"NM","C0P APPLICATION STEPS")
1298
1299"^DD",175.101,175.101,0,"PT",175.2011,.01)
1300
1301"^DD",175.101,175.101,.01,0)
1302STEP NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
1303"^DD",175.101,175.101,.01,.1)
1304APPLICATION STEP NAME
1305"^DD",175.101,175.101,.01,1,0)
1306^.1
1307"^DD",175.101,175.101,.01,1,1,0)
1308175.101^B
1309"^DD",175.101,175.101,.01,1,1,1)
1310S ^C0PS("B",$E(X,1,30),DA)=""
1311"^DD",175.101,175.101,.01,1,1,2)
1312K ^C0PS("B",$E(X,1,30),DA)
1313"^DD",175.101,175.101,.01,3)
1314APPLICATION STEP NAME
1315"^DD",175.101,175.101,.01,"DT")
13163090303
1317"^DD",175.101,175.101,.05,0)
1318SEQUENCE^NJ9,0^^3;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1.N) X
1319"^DD",175.101,175.101,.05,.1)
1320STEP SEQUENCE NUMBER
1321"^DD",175.101,175.101,.05,3)
1322STEP SEQUENCE NUMBER
1323"^DD",175.101,175.101,.05,"DT")
13243090303
1325"^DD",175.101,175.101,1,0)
1326URL^F^^0;2^K:$L(X)>200!($L(X)<1) X
1327"^DD",175.101,175.101,1,.1)
1328URL OF WEB SERVICE
1329"^DD",175.101,175.101,1,3)
1330URL OF WEB SERVICE
1331"^DD",175.101,175.101,1,"DT")
13323090303
1333"^DD",175.101,175.101,2,0)
1334REQUEST XML^175.1012^^1;0
1335"^DD",175.101,175.101,3,0)
1336RESPONSE XML^175.1013^^2;0
1337"^DD",175.101,175.1012,0)
1338REQUEST XML SUB-FIELD^^.01^1
1339"^DD",175.101,175.1012,0,"DT")
13403090303
1341"^DD",175.101,175.1012,0,"NM","REQUEST XML")
1342
1343"^DD",175.101,175.1012,0,"UP")
1344175.101
1345"^DD",175.101,175.1012,.01,0)
1346REQUEST XML^Wx^^0;1
1347"^DD",175.101,175.1012,.01,.1)
1348REQUEST XML FOR THIS WEB SERVICE STEP
1349"^DD",175.101,175.1012,.01,3)
1350REQUEST XML FOR THIS WEB SERVICE STEP
1351"^DD",175.101,175.1012,.01,"DT")
13523090303
1353"^DD",175.101,175.1013,0)
1354RESPONSE XML SUB-FIELD^^.01^1
1355"^DD",175.101,175.1013,0,"DT")
13563090303
1357"^DD",175.101,175.1013,0,"NM","RESPONSE XML")
1358
1359"^DD",175.101,175.1013,0,"UP")
1360175.101
1361"^DD",175.101,175.1013,.01,0)
1362RESPONSE XML^Wx^^0;1
1363"^DD",175.101,175.1013,.01,.1)
1364RESPONSE XML FOR THIS APPLICATION STEP
1365"^DD",175.101,175.1013,.01,3)
1366RESPONSE XML FOR THIS APPLICATION STEP
1367"^DD",175.101,175.1013,.01,"DT")
13683090303
1369"^DD",175.201,175.201,0)
1370FIELD^^1^2
1371"^DD",175.201,175.201,0,"DDA")
1372N
1373"^DD",175.201,175.201,0,"DT")
13743090303
1375"^DD",175.201,175.201,0,"IX","B",175.201,.01)
1376
1377"^DD",175.201,175.201,0,"NM","C0P WEB APPLICATIONS")
1378
1379"^DD",175.201,175.201,.01,0)
1380APPLICATION NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
1381"^DD",175.201,175.201,.01,.1)
1382WEB APPLICATION NAME
1383"^DD",175.201,175.201,.01,1,0)
1384^.1
1385"^DD",175.201,175.201,.01,1,1,0)
1386175.201^B
1387"^DD",175.201,175.201,.01,1,1,1)
1388S ^C0PAPP("B",$E(X,1,30),DA)=""
1389"^DD",175.201,175.201,.01,1,1,2)
1390K ^C0PAPP("B",$E(X,1,30),DA)
1391"^DD",175.201,175.201,.01,3)
1392APPLICATION NAME
1393"^DD",175.201,175.201,.01,"DT")
13943090303
1395"^DD",175.201,175.201,1,0)
1396STEPS^175.2011P^^1;0
1397"^DD",175.201,175.2011,0)
1398STEPS SUB-FIELD^^1^2
1399"^DD",175.201,175.2011,0,"DT")
14003090303
1401"^DD",175.201,175.2011,0,"IX","B",175.2011,.01)
1402
1403"^DD",175.201,175.2011,0,"NM","STEPS")
1404
1405"^DD",175.201,175.2011,0,"UP")
1406175.201
1407"^DD",175.201,175.2011,.01,0)
1408STEPS^MP175.101^C0PS(^0;1^Q
1409"^DD",175.201,175.2011,.01,.1)
1410APPLICATION STEPS
1411"^DD",175.201,175.2011,.01,1,0)
1412^.1
1413"^DD",175.201,175.2011,.01,1,1,0)
1414175.2011^B
1415"^DD",175.201,175.2011,.01,1,1,1)
1416S ^C0PAPP(DA(1),1,"B",$E(X,1,30),DA)=""
1417"^DD",175.201,175.2011,.01,1,1,2)
1418K ^C0PAPP(DA(1),1,"B",$E(X,1,30),DA)
1419"^DD",175.201,175.2011,.01,3)
1420APPLICATIONS STEPS
1421"^DD",175.201,175.2011,.01,"DT")
14223090303
1423"^DD",175.201,175.2011,1,0)
1424SEQUENCE^NJ8,0^^0;2^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1.N) X
1425"^DD",175.201,175.2011,1,.1)
1426STEP SEQUENCE
1427"^DD",175.201,175.2011,1,3)
1428STEP SEQUENCE
1429"^DD",175.201,175.2011,1,"DT")
14303090303
1431"^DIC",175.101,175.101,0)
1432C0P APPLICATION STEPS^175.101
1433"^DIC",175.101,175.101,0,"GL")
1434^C0PS(
1435"^DIC",175.101,175.101,"%",0)
1436^1.005^^
1437"^DIC",175.101,175.101,"%D",0)
1438^^10^10^3090303^
1439"^DIC",175.101,175.101,"%D",1,0)
1440This file is being built to support the ePrescribing project. It contains
1441"^DIC",175.101,175.101,"%D",2,0)
1442application steps that are used in combination to retrieve information
1443"^DIC",175.101,175.101,"%D",3,0)
1444from external web services, combine them, and store them in variables for
1445"^DIC",175.101,175.101,"%D",4,0)
1446use in the Order Checking process. In addition, if external meds are
1447"^DIC",175.101,175.101,"%D",5,0)
1448identified by the web services for a patient, they are saved to the CCR
1449"^DIC",175.101,175.101,"%D",6,0)
1450ELEMENTS file and will be accessioned to the patient's record as "NON-VA"
1451"^DIC",175.101,175.101,"%D",7,0)
1452meds.
1453"^DIC",175.101,175.101,"%D",8,0)
1454
1455"^DIC",175.101,175.101,"%D",9,0)
1456This prototype file was created by George Lilly during the RMU VistA
1457"^DIC",175.101,175.101,"%D",10,0)
1458sprint March 3, 2009
1459"^DIC",175.101,"B","C0P APPLICATION STEPS",175.101)
1460
1461"^DIC",175.201,175.201,0)
1462C0P WEB APPLICATIONS^175.201
1463"^DIC",175.201,175.201,0,"GL")
1464^C0PAPP(
1465"^DIC",175.201,175.201,"%",0)
1466^1.005^^
1467"^DIC",175.201,175.201,"%D",0)
1468^^6^6^3090303^
1469"^DIC",175.201,175.201,"%D",1,0)
1470This file is being created as part of the ePrescription RMU sprint by
1471"^DIC",175.201,175.201,"%D",2,0)
1472George Lilly, Nancy Anthracite, Sam Habiel, and Greg Woodhouse.
1473"^DIC",175.201,175.201,"%D",3,0)
1474
1475"^DIC",175.201,175.201,"%D",4,0)
1476The Web Application file contains a sequence of processing steps for a
1477"^DIC",175.201,175.201,"%D",5,0)
1478named application. The processing steps are pointers to the C0P
1479"^DIC",175.201,175.201,"%D",6,0)
1480APPLICATION STEP file (175.101).
1481"^DIC",175.201,"B","C0P WEB APPLICATIONS",175.201)
1482
1483**END**
1484**END**
Note: See TracBrowser for help on using the repository browser.