KIDS Distribution saved on Apr 11, 2009@16:23:57 Initial ePrescribing prototyping **KIDS**:C0P*1.0*1^ **INSTALL NAME** C0P*1.0*1 "BLD",6966,0) C0P*1.0*1^^0^3090411^y "BLD",6966,4,0) ^9.64PA^175.201^2 "BLD",6966,4,175.101,0) 175.101 "BLD",6966,4,175.101,222) y^y^f^^n^^y^o^n "BLD",6966,4,175.201,0) 175.201 "BLD",6966,4,175.201,222) y^y^f^^n^^y^o^n "BLD",6966,4,"B",175.101,175.101) "BLD",6966,4,"B",175.201,175.201) "BLD",6966,6.3) 1 "BLD",6966,"KRN",0) ^9.67PA^8989.52^19 "BLD",6966,"KRN",.4,0) .4 "BLD",6966,"KRN",.401,0) .401 "BLD",6966,"KRN",.402,0) .402 "BLD",6966,"KRN",.403,0) .403 "BLD",6966,"KRN",.5,0) .5 "BLD",6966,"KRN",.84,0) .84 "BLD",6966,"KRN",3.6,0) 3.6 "BLD",6966,"KRN",3.8,0) 3.8 "BLD",6966,"KRN",9.2,0) 9.2 "BLD",6966,"KRN",9.8,0) 9.8 "BLD",6966,"KRN",9.8,"NM",0) ^9.68A^2^2 "BLD",6966,"KRN",9.8,"NM",1,0) C0PEWD1^^0^B8658372 "BLD",6966,"KRN",9.8,"NM",2,0) C0PEWDU^^0^B1881609 "BLD",6966,"KRN",9.8,"NM","B","C0PEWD1",1) "BLD",6966,"KRN",9.8,"NM","B","C0PEWDU",2) "BLD",6966,"KRN",19,0) 19 "BLD",6966,"KRN",19.1,0) 19.1 "BLD",6966,"KRN",101,0) 101 "BLD",6966,"KRN",409.61,0) 409.61 "BLD",6966,"KRN",771,0) 771 "BLD",6966,"KRN",870,0) 870 "BLD",6966,"KRN",8989.51,0) 8989.51 "BLD",6966,"KRN",8989.52,0) 8989.52 "BLD",6966,"KRN",8994,0) 8994 "BLD",6966,"KRN","B",.4,.4) "BLD",6966,"KRN","B",.401,.401) "BLD",6966,"KRN","B",.402,.402) "BLD",6966,"KRN","B",.403,.403) "BLD",6966,"KRN","B",.5,.5) "BLD",6966,"KRN","B",.84,.84) "BLD",6966,"KRN","B",3.6,3.6) "BLD",6966,"KRN","B",3.8,3.8) "BLD",6966,"KRN","B",9.2,9.2) "BLD",6966,"KRN","B",9.8,9.8) "BLD",6966,"KRN","B",19,19) "BLD",6966,"KRN","B",19.1,19.1) "BLD",6966,"KRN","B",101,101) "BLD",6966,"KRN","B",409.61,409.61) "BLD",6966,"KRN","B",771,771) "BLD",6966,"KRN","B",870,870) "BLD",6966,"KRN","B",8989.51,8989.51) "BLD",6966,"KRN","B",8989.52,8989.52) "BLD",6966,"KRN","B",8994,8994) "DATA",175.101,1,0) DrugAllergyInteraction^https://secure.newcropaccounts.com/V7/webservices/DrugAllergyInteraction "DATA",175.101,1,1,0) ^175.1012^28^28^3090303^^ "DATA",175.101,1,1,1,0) "DATA",175.101,1,1,3,0) "DATA",175.101,1,1,4,0) string "DATA",175.101,1,1,5,0) string "DATA",175.101,1,1,6,0) string "DATA",175.101,1,1,7,0) "DATA",175.101,1,1,8,0) "DATA",175.101,1,1,9,0) string "DATA",175.101,1,1,10,0) string "DATA",175.101,1,1,11,0) "DATA",175.101,1,1,12,0) "DATA",175.101,1,1,13,0) string "DATA",175.101,1,1,14,0) "DATA",175.101,1,1,15,0) "DATA",175.101,1,1,16,0) string "DATA",175.101,1,1,17,0) string "DATA",175.101,1,1,18,0) "DATA",175.101,1,1,19,0) "DATA",175.101,1,1,20,0) string "DATA",175.101,1,1,21,0) string "DATA",175.101,1,1,22,0) "DATA",175.101,1,1,23,0) "DATA",175.101,1,1,24,0) string "DATA",175.101,1,1,25,0) string "DATA",175.101,1,1,26,0) "DATA",175.101,1,1,27,0) string "DATA",175.101,1,1,28,0) "DATA",175.101,1,2,0) ^175.1013^18^18^3090303^^ "DATA",175.101,1,2,1,0) "DATA",175.101,1,2,2,0) "DATA",175.101,1,2,3,0) Unknown or OK or Fail or NotFound "DATA",175.101,1,2,4,0) string "DATA",175.101,1,2,5,0) string "DATA",175.101,1,2,6,0) int "DATA",175.101,1,2,7,0) int "DATA",175.101,1,2,8,0) "DATA",175.101,1,2,9,0) "DATA",175.101,1,2,10,0) "DATA",175.101,1,2,11,0) string "DATA",175.101,1,2,12,0) "DATA",175.101,1,2,13,0) "DATA",175.101,1,2,14,0) string "DATA",175.101,1,2,15,0) "DATA",175.101,1,2,16,0) "DATA",175.101,1,2,17,0) "DATA",175.101,1,2,18,0) "DATA",175.101,2,0) DrugDrugInteraction^https://secure.newcropaccounts.com/V7/webservices/DrugDrugInteraction "DATA",175.101,2,1,0) ^^28^28^3090303^ "DATA",175.101,2,1,1,0) "DATA",175.101,2,1,3,0) "DATA",175.101,2,1,4,0) string "DATA",175.101,2,1,5,0) string "DATA",175.101,2,1,6,0) string "DATA",175.101,2,1,7,0) "DATA",175.101,2,1,8,0) "DATA",175.101,2,1,9,0) string "DATA",175.101,2,1,10,0) string "DATA",175.101,2,1,11,0) "DATA",175.101,2,1,12,0) "DATA",175.101,2,1,13,0) string "DATA",175.101,2,1,14,0) "DATA",175.101,2,1,15,0) "DATA",175.101,2,1,16,0) string "DATA",175.101,2,1,17,0) string "DATA",175.101,2,1,18,0) "DATA",175.101,2,1,19,0) "DATA",175.101,2,1,20,0) string "DATA",175.101,2,1,21,0) string "DATA",175.101,2,1,22,0) "DATA",175.101,2,1,23,0) "DATA",175.101,2,1,24,0) string "DATA",175.101,2,1,25,0) string "DATA",175.101,2,1,26,0) "DATA",175.101,2,1,27,0) string "DATA",175.101,2,1,28,0) "DATA",175.101,2,2,0) ^^48^48^3090303^ "DATA",175.101,2,2,1,0) "DATA",175.101,2,2,3,0) "DATA",175.101,2,2,4,0) "DATA",175.101,2,2,5,0) Unknown or OK or Fail or NotFound "DATA",175.101,2,2,6,0) string "DATA",175.101,2,2,7,0) string "DATA",175.101,2,2,8,0) int "DATA",175.101,2,2,9,0) int "DATA",175.101,2,2,10,0) "DATA",175.101,2,2,11,0) "DATA",175.101,2,2,12,0) "DATA",175.101,2,2,13,0) string "DATA",175.101,2,2,14,0) string "DATA",175.101,2,2,15,0) string "DATA",175.101,2,2,16,0) string "DATA",175.101,2,2,17,0) string "DATA",175.101,2,2,18,0) string "DATA",175.101,2,2,19,0) string "DATA",175.101,2,2,20,0) string "DATA",175.101,2,2,21,0) string "DATA",175.101,2,2,22,0) string "DATA",175.101,2,2,23,0) string "DATA",175.101,2,2,24,0) string "DATA",175.101,2,2,25,0) string "DATA",175.101,2,2,26,0) string "DATA",175.101,2,2,27,0) string "DATA",175.101,2,2,28,0) "DATA",175.101,2,2,29,0) "DATA",175.101,2,2,30,0) string "DATA",175.101,2,2,31,0) string "DATA",175.101,2,2,32,0) string "DATA",175.101,2,2,33,0) string "DATA",175.101,2,2,34,0) string "DATA",175.101,2,2,35,0) string "DATA",175.101,2,2,36,0) string "DATA",175.101,2,2,37,0) string "DATA",175.101,2,2,38,0) string "DATA",175.101,2,2,39,0) string "DATA",175.101,2,2,40,0) string "DATA",175.101,2,2,41,0) string "DATA",175.101,2,2,42,0) string "DATA",175.101,2,2,43,0) string "DATA",175.101,2,2,44,0) string "DATA",175.101,2,2,45,0) "DATA",175.101,2,2,46,0) "DATA",175.101,2,2,47,0) "DATA",175.101,2,2,48,0) "DATA",175.101,3,0) DrugFoodInteraction^https://secure.newcropaccounts.com/V7/webservices/DrugFoodInteraction "DATA",175.101,3,1,0) ^^14^14^3090303^ "DATA",175.101,3,1,1,0) "DATA",175.101,3,1,3,0) "DATA",175.101,3,1,4,0) string "DATA",175.101,3,1,5,0) string "DATA",175.101,3,1,6,0) string "DATA",175.101,3,1,7,0) "DATA",175.101,3,1,8,0) "DATA",175.101,3,1,9,0) string "DATA",175.101,3,1,10,0) string "DATA",175.101,3,1,11,0) "DATA",175.101,3,1,12,0) string "DATA",175.101,3,1,13,0) string "DATA",175.101,3,1,14,0) "DATA",175.101,3,2,0) ^^32^32^3090303^ "DATA",175.101,3,2,1,0) "DATA",175.101,3,2,3,0) "DATA",175.101,3,2,4,0) "DATA",175.101,3,2,5,0) Unknown or OK or Fail or NotFound "DATA",175.101,3,2,6,0) string "DATA",175.101,3,2,7,0) string "DATA",175.101,3,2,8,0) int "DATA",175.101,3,2,9,0) int "DATA",175.101,3,2,10,0) "DATA",175.101,3,2,11,0) "DATA",175.101,3,2,12,0) "DATA",175.101,3,2,13,0) string "DATA",175.101,3,2,14,0) string "DATA",175.101,3,2,15,0) string "DATA",175.101,3,2,16,0) string "DATA",175.101,3,2,17,0) string "DATA",175.101,3,2,18,0) string "DATA",175.101,3,2,19,0) string "DATA",175.101,3,2,20,0) "DATA",175.101,3,2,21,0) "DATA",175.101,3,2,22,0) string "DATA",175.101,3,2,23,0) string "DATA",175.101,3,2,24,0) string "DATA",175.101,3,2,25,0) string "DATA",175.101,3,2,26,0) string "DATA",175.101,3,2,27,0) string "DATA",175.101,3,2,28,0) string "DATA",175.101,3,2,29,0) "DATA",175.101,3,2,30,0) "DATA",175.101,3,2,31,0) "DATA",175.101,3,2,32,0) "DATA",175.101,4,0) DrugSearchWithFormulary^https://secure.newcropaccounts.com/V7/webservices/DrugSearchWithFormulary "DATA",175.101,4,1,0) ^^26^26^3090303^ "DATA",175.101,4,1,1,0) "DATA",175.101,4,1,3,0) "DATA",175.101,4,1,4,0) string "DATA",175.101,4,1,5,0) string "DATA",175.101,4,1,6,0) string "DATA",175.101,4,1,7,0) "DATA",175.101,4,1,8,0) "DATA",175.101,4,1,9,0) string "DATA",175.101,4,1,10,0) string "DATA",175.101,4,1,11,0) "DATA",175.101,4,1,12,0) "DATA",175.101,4,1,13,0) string "DATA",175.101,4,1,14,0) "DATA",175.101,4,1,15,0) "DATA",175.101,4,1,16,0) string "DATA",175.101,4,1,17,0) string "DATA",175.101,4,1,18,0) "DATA",175.101,4,1,19,0) string "DATA",175.101,4,1,20,0) string "DATA",175.101,4,1,21,0) string "DATA",175.101,4,1,22,0) string "DATA",175.101,4,1,23,0) string "DATA",175.101,4,1,24,0) string "DATA",175.101,4,1,25,0) string "DATA",175.101,4,1,26,0) "DATA",175.101,4,2,0) ^^22^22^3090303^ "DATA",175.101,4,2,1,0) "DATA",175.101,4,2,3,0) "DATA",175.101,4,2,4,0) "DATA",175.101,4,2,5,0) Unknown or OK or Fail or NotFound "DATA",175.101,4,2,6,0) string "DATA",175.101,4,2,7,0) string "DATA",175.101,4,2,8,0) int "DATA",175.101,4,2,9,0) int "DATA",175.101,4,2,10,0) "DATA",175.101,4,2,11,0) "DATA",175.101,4,2,12,0) "DATA",175.101,4,2,13,0) "DATA",175.101,4,2,14,0) string "DATA",175.101,4,2,15,0) "DATA",175.101,4,2,16,0) "DATA",175.101,4,2,17,0) "DATA",175.101,4,2,18,0) string "DATA",175.101,4,2,19,0) "DATA",175.101,4,2,20,0) "DATA",175.101,4,2,21,0) "DATA",175.101,4,2,22,0) "DATA",175.101,5,0) DrugsByDiagnosis^https://secure.newcropaccounts.com/V7/webservices/DrugsByDiagnosis "DATA",175.101,5,1,0) ^^24^24^3090303^ "DATA",175.101,5,1,1,0) "DATA",175.101,5,1,3,0) "DATA",175.101,5,1,4,0) string "DATA",175.101,5,1,5,0) string "DATA",175.101,5,1,6,0) string "DATA",175.101,5,1,7,0) "DATA",175.101,5,1,8,0) "DATA",175.101,5,1,9,0) string "DATA",175.101,5,1,10,0) string "DATA",175.101,5,1,11,0) "DATA",175.101,5,1,12,0) "DATA",175.101,5,1,13,0) string "DATA",175.101,5,1,14,0) "DATA",175.101,5,1,15,0) "DATA",175.101,5,1,16,0) string "DATA",175.101,5,1,17,0) string "DATA",175.101,5,1,18,0) "DATA",175.101,5,1,19,0) "DATA",175.101,5,1,20,0) string "DATA",175.101,5,1,21,0) string "DATA",175.101,5,1,22,0) "DATA",175.101,5,1,23,0) string "DATA",175.101,5,1,24,0) "DATA",175.101,5,2,0) ^^56^56^3090303^ "DATA",175.101,5,2,1,0) "DATA",175.101,5,2,3,0) "DATA",175.101,5,2,4,0) "DATA",175.101,5,2,5,0) Unknown or OK or Fail or NotFound "DATA",175.101,5,2,6,0) string "DATA",175.101,5,2,7,0) string "DATA",175.101,5,2,8,0) int "DATA",175.101,5,2,9,0) int "DATA",175.101,5,2,10,0) "DATA",175.101,5,2,11,0) "DATA",175.101,5,2,12,0) "DATA",175.101,5,2,13,0) string "DATA",175.101,5,2,14,0) string "DATA",175.101,5,2,15,0) string "DATA",175.101,5,2,16,0) string "DATA",175.101,5,2,17,0) string "DATA",175.101,5,2,18,0) string "DATA",175.101,5,2,19,0) string "DATA",175.101,5,2,20,0) string "DATA",175.101,5,2,21,0) string "DATA",175.101,5,2,22,0) string "DATA",175.101,5,2,23,0) string "DATA",175.101,5,2,24,0) string "DATA",175.101,5,2,25,0) string "DATA",175.101,5,2,26,0) string "DATA",175.101,5,2,27,0) "DATA",175.101,5,2,28,0) string "DATA",175.101,5,2,29,0) string "DATA",175.101,5,2,30,0) string "DATA",175.101,5,2,31,0) string "DATA",175.101,5,2,32,0) "DATA",175.101,5,2,33,0) "DATA",175.101,5,2,34,0) string "DATA",175.101,5,2,35,0) string "DATA",175.101,5,2,36,0) string "DATA",175.101,5,2,37,0) string "DATA",175.101,5,2,38,0) string "DATA",175.101,5,2,39,0) string "DATA",175.101,5,2,40,0) string "DATA",175.101,5,2,41,0) string "DATA",175.101,5,2,42,0) string "DATA",175.101,5,2,43,0) string "DATA",175.101,5,2,44,0) string "DATA",175.101,5,2,45,0) string "DATA",175.101,5,2,46,0) string "DATA",175.101,5,2,47,0) string "DATA",175.101,5,2,48,0) "DATA",175.101,5,2,49,0) string "DATA",175.101,5,2,50,0) string "DATA",175.101,5,2,51,0) string "DATA",175.101,5,2,52,0) string "DATA",175.101,5,2,53,0) "DATA",175.101,5,2,54,0) "DATA",175.101,5,2,55,0) "DATA",175.101,5,2,56,0) "DATA",175.101,6,0) DrugsByDiagnosisWithFormulary^https://secure.newcropaccounts.com/V7/webservices/DrugsByDiagnosisWithFormulary "DATA",175.101,6,1,0) ^^26^26^3090303^ "DATA",175.101,6,1,1,0) "DATA",175.101,6,1,3,0) "DATA",175.101,6,1,4,0) string "DATA",175.101,6,1,5,0) string "DATA",175.101,6,1,6,0) string "DATA",175.101,6,1,7,0) "DATA",175.101,6,1,8,0) "DATA",175.101,6,1,9,0) string "DATA",175.101,6,1,10,0) string "DATA",175.101,6,1,11,0) "DATA",175.101,6,1,12,0) "DATA",175.101,6,1,13,0) string "DATA",175.101,6,1,14,0) "DATA",175.101,6,1,15,0) "DATA",175.101,6,1,16,0) string "DATA",175.101,6,1,17,0) string "DATA",175.101,6,1,18,0) "DATA",175.101,6,1,19,0) string "DATA",175.101,6,1,20,0) string "DATA",175.101,6,1,21,0) "DATA",175.101,6,1,22,0) string "DATA",175.101,6,1,23,0) string "DATA",175.101,6,1,24,0) "DATA",175.101,6,1,25,0) string "DATA",175.101,6,1,26,0) "DATA",175.101,6,2,0) ^^22^22^3090303^ "DATA",175.101,6,2,1,0) "DATA",175.101,6,2,3,0) "DATA",175.101,6,2,4,0) "DATA",175.101,6,2,5,0) Unknown or OK or Fail or NotFound "DATA",175.101,6,2,6,0) string "DATA",175.101,6,2,7,0) string "DATA",175.101,6,2,8,0) int "DATA",175.101,6,2,9,0) int "DATA",175.101,6,2,10,0) "DATA",175.101,6,2,11,0) "DATA",175.101,6,2,12,0) "DATA",175.101,6,2,13,0) "DATA",175.101,6,2,14,0) string "DATA",175.101,6,2,15,0) "DATA",175.101,6,2,16,0) "DATA",175.101,6,2,17,0) "DATA",175.101,6,2,18,0) string "DATA",175.101,6,2,19,0) "DATA",175.101,6,2,20,0) "DATA",175.101,6,2,21,0) "DATA",175.101,6,2,22,0) "DATA",175.101,7,0) ValidateNDCList^https://secure.newcropaccounts.com/V7/webservices/ValidateNDCList "DATA",175.101,7,1,0) ^^13^13^3090303^ "DATA",175.101,7,1,1,0) "DATA",175.101,7,1,3,0) "DATA",175.101,7,1,4,0) string "DATA",175.101,7,1,5,0) string "DATA",175.101,7,1,6,0) string "DATA",175.101,7,1,7,0) "DATA",175.101,7,1,8,0) "DATA",175.101,7,1,9,0) string "DATA",175.101,7,1,10,0) string "DATA",175.101,7,1,11,0) "DATA",175.101,7,1,12,0) string "DATA",175.101,7,1,13,0) "DATA",175.101,7,2,0) ^^22^22^3090303^ "DATA",175.101,7,2,1,0) "DATA",175.101,7,2,3,0) "DATA",175.101,7,2,4,0) "DATA",175.101,7,2,5,0) Unknown or OK or Fail or NotFound "DATA",175.101,7,2,6,0) string "DATA",175.101,7,2,7,0) string "DATA",175.101,7,2,8,0) int "DATA",175.101,7,2,9,0) int "DATA",175.101,7,2,10,0) "DATA",175.101,7,2,11,0) "DATA",175.101,7,2,12,0) "DATA",175.101,7,2,13,0) string "DATA",175.101,7,2,14,0) string "DATA",175.101,7,2,15,0) "DATA",175.101,7,2,16,0) "DATA",175.101,7,2,17,0) string "DATA",175.101,7,2,18,0) string "DATA",175.101,7,2,19,0) "DATA",175.101,7,2,20,0) "DATA",175.101,7,2,21,0) "DATA",175.101,7,2,22,0) "DATA",175.201,2,0) EPRESCRIBING "DATA",175.201,2,1,0) ^175.2011P^2^2 "DATA",175.201,2,1,1,0) 1^1 "DATA",175.201,2,1,2,0) 3^2 "FIA",175.101) C0P APPLICATION STEPS "FIA",175.101,0) ^C0PS( "FIA",175.101,0,0) 175.101 "FIA",175.101,0,1) y^y^f^^n^^y^o^n "FIA",175.101,0,10) "FIA",175.101,0,11) "FIA",175.101,0,"RLRO") "FIA",175.101,175.101) 0 "FIA",175.101,175.1012) 0 "FIA",175.101,175.1013) 0 "FIA",175.201) C0P WEB APPLICATIONS "FIA",175.201,0) ^C0PAPP( "FIA",175.201,0,0) 175.201 "FIA",175.201,0,1) y^y^f^^n^^y^o^n "FIA",175.201,0,10) "FIA",175.201,0,11) "FIA",175.201,0,"RLRO") "FIA",175.201,175.201) 0 "FIA",175.201,175.2011) 0 "MBREQ") 0 "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 2 "RTN","C0PEWD1") 0^1^B8658372 "RTN","C0PEWD1",1,0) C0CEWD1 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08 "RTN","C0PEWD1",2,0) ;;0.1;CCDCCR;nopatch;noreleasedate;Build 1 "RTN","C0PEWD1",3,0) ;Copyright 2008 WorldVistA. Licensed under the terms of the GNU "RTN","C0PEWD1",4,0) ;General Public License See attached copy of the License. "RTN","C0PEWD1",5,0) ; "RTN","C0PEWD1",6,0) ;This program is free software; you can redistribute it and/or modify "RTN","C0PEWD1",7,0) ;it under the terms of the GNU General Public License as published by "RTN","C0PEWD1",8,0) ;the Free Software Foundation; either version 2 of the License, or "RTN","C0PEWD1",9,0) ;(at your option) any later version. "RTN","C0PEWD1",10,0) ; "RTN","C0PEWD1",11,0) ;This program is distributed in the hope that it will be useful, "RTN","C0PEWD1",12,0) ;but WITHOUT ANY WARRANTY; without even the implied warranty of "RTN","C0PEWD1",13,0) ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the "RTN","C0PEWD1",14,0) ;GNU General Public License for more details. "RTN","C0PEWD1",15,0) ; "RTN","C0PEWD1",16,0) ;You should have received a copy of the GNU General Public License along "RTN","C0PEWD1",17,0) ;with this program; if not, write to the Free Software Foundation, Inc., "RTN","C0PEWD1",18,0) ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. "RTN","C0PEWD1",19,0) ; "RTN","C0PEWD1",20,0) Q "RTN","C0PEWD1",21,0) ;TEST(filepath) ; filepath IS THE PATH/FILE TO BE READ IN "RTN","C0PEWD1",22,0) i $g(^%ZISH)["" d ; if the VistA Kernal routine %ZISH exists "RTN","C0PEWD1",23,0) . n zfile,zpath,ztmp s (zfile,zpath,ztmp)="" "RTN","C0PEWD1",24,0) . s zfile=$re($p($re(filepath),"/",1)) ;file name "RTN","C0PEWD1",25,0) . s zpath=$p(filepath,zfile,1) ; file path "RTN","C0PEWD1",26,0) . s ztmp=$na(^CacheTempEWD($j,0)) "RTN","C0PEWD1",27,0) . s ok=$$FTG^%ZISH(zpath,zfile,ztmp,2) ; import the file incrementing subscr 2 "RTN","C0PEWD1",28,0) q "RTN","C0PEWD1",29,0) ; "RTN","C0PEWD1",30,0) TEST2 ; "RTN","C0PEWD1",31,0) s zfilepath="/home/vademo2/CCR/PAT_780_CCR_V1_0_17.xml" "RTN","C0PEWD1",32,0) ;s ok=$$gtmImportFile^%zewdHTMLParser(zfilepath) "RTN","C0PEWD1",33,0) s ok=$$LOAD(zfilepath) ;load the XML file to the EWD global "RTN","C0PEWD1",34,0) s ok=$$parseDocument^%zewdHTMLParser("DerekDOM",0) "RTN","C0PEWD1",35,0) ;s ok=$$parseXMLFile^%zewdAPI(zfilepath,"fourthDOM") "RTN","C0PEWD1",36,0) w ok,! "RTN","C0PEWD1",37,0) q "RTN","C0PEWD1",38,0) ; "RTN","C0PEWD1",39,0) GPLTEST ; "RTN","C0PEWD1",40,0) ;s ok=$$httpGET^%zewdGTM("http://preproduction.newcropaccounts.com/InterfaceV7/NewrxFDB.xml",.gpl) "RTN","C0PEWD1",41,0) s URL="https://trac.opensourcevista.net/CCD-CCR-Project/browser/ccr/tags/CCR_1_0_7/output" "RTN","C0PEWD1",42,0) s ok=$$httpGET^%zewdGTM(URL,.gpl) "RTN","C0PEWD1",43,0) S ZG="" "RTN","C0PEWD1",44,0) F S ZG=$O(gpl(ZG)) Q:ZG="" D ; "RTN","C0PEWD1",45,0) . s gpl(ZG)=$$CLEAN^C0PEWDU(gpl(ZG)) ; "RTN","C0PEWD1",46,0) . ;w gpl(ZG) "RTN","C0PEWD1",47,0) m ^CacheTempEWD($j)=gpl "RTN","C0PEWD1",48,0) b "RTN","C0PEWD1",49,0) s ok=$$parseDocument^%zewdHTMLParser("gpl2",0) "RTN","C0PEWD1",50,0) s ok=$$outputDOM^%zewdDOM("gpl2",1,1) "RTN","C0PEWD1",51,0) Q "RTN","C0PEWD1",52,0) ; "RTN","C0PEWD1",53,0) CLEAN(INX) ;DELETE NON-PRINTING CHARACTER IN INX, PASSED BY VALUE "RTN","C0PEWD1",54,0) ;DON'T USE THIS -- IT DOESN'T WORK -- USE $$CLEAN^C0PEWDU "RTN","C0PEWD1",55,0) ;N ZT,ZI "RTN","C0PEWD1",56,0) S ZT="" "RTN","C0PEWD1",57,0) F ZI=32:1:126 S ZT=ZT_$CHAR(ZI) "RTN","C0PEWD1",58,0) S ZZ=$TR(INX,ZT) "RTN","C0PEWD1",59,0) Q ZZ "RTN","C0PEWD1",60,0) ; "RTN","C0PEWD1",61,0) LOAD(filepath) ; load an xml file into the EWD global for DOM processing "RTN","C0PEWD1",62,0) ; need to call s error=$$parseDocument^%zewdHTMLParser(docName,isHTML) "RTN","C0PEWD1",63,0) ; after to process it to the DOM - isHTML=0 for XML files "RTN","C0PEWD1",64,0) n i "RTN","C0PEWD1",65,0) i $g(^%ZISH)["" d QUIT i ; if VistA Kernal routine %ZISH exists - gpl 2/23/09 "RTN","C0PEWD1",66,0) . n zfile,zpath,ztmp,zok s (zfile,zpath,ztmp)="" "RTN","C0PEWD1",67,0) . s zfile=$re($p($re(filepath),"/",1)) ;file name "RTN","C0PEWD1",68,0) . s zpath=$p(filepath,zfile,1) ; file path "RTN","C0PEWD1",69,0) . s ztmp=$na(^CacheTempEWD($j,0)) "RTN","C0PEWD1",70,0) . s zok=$$FTG^%ZISH(zpath,zfile,ztmp,2) ; import the file increment subscr 2 "RTN","C0PEWD1",71,0) . s i=$o(^CacheTempEWD($j,""),-1) ; highest line number "RTN","C0PEWD1",72,0) q i "RTN","C0PEWD1",73,0) ; "RTN","C0PEWD1",74,0) Q(ZQ,ZD) ; SEND QUERY ZQ TO DOM ZD AND DIPLAY NODES RETURNED "RTN","C0PEWD1",75,0) I '$D(ZD) S ZD="DerekDOM" "RTN","C0PEWD1",76,0) s error=$$select^%zewdXPath(ZQ,ZD,.nodes) ; "RTN","C0PEWD1",77,0) d displayNodes^%zewdXPath(.nodes) "RTN","C0PEWD1",78,0) q "RTN","C0PEWD1",79,0) ; "RTN","C0PEWDU") 0^2^B1881609 "RTN","C0PEWDU",1,0) C0PEWDU ; WV/SMH - E-prescription utilities; Mar 3 2009 "RTN","C0PEWDU",2,0) ;;0.1;WV EPrescribing;;;Build 1 "RTN","C0PEWDU",3,0) Q "RTN","C0PEWDU",4,0) ; "RTN","C0PEWDU",5,0) CLEAN(STR) ; extrinsic function; returns string "RTN","C0PEWDU",6,0) ;; Removes all non printable characters from a string. "RTN","C0PEWDU",7,0) ;; STR by Value "RTN","C0PEWDU",8,0) N TR,I "RTN","C0PEWDU",9,0) F I=0:1:31 S TR=$G(TR)_$C(I) "RTN","C0PEWDU",10,0) S TR=TR_$C(127) "RTN","C0PEWDU",11,0) QUIT $TR(STR,TR) "RTN","C0PEWDU",12,0) ; "RTN","C0PEWDU",13,0) GETSOAP(ENTRY,REQUEST,RESULT) ; XML SOAP Spec for NewCrop "RTN","C0PEWDU",14,0) ;; Gets world processing field from Fileman for Parsing "RTN","C0PEWDU",15,0) ;; ENTRY Input by Value "RTN","C0PEWDU",16,0) ;; REQUEST XML Output by Reference "RTN","C0PEWDU",17,0) ;; RESULT XML Output by Reference "RTN","C0PEWDU",18,0) ;; Example call: D GETSOAP^C0PEWDU("DrugAllergyInteraction",.REQ,.RES) "RTN","C0PEWDU",19,0) ; "RTN","C0PEWDU",20,0) N OK,ERR,IEN,F ; if call is okay, Error, IEN, File "RTN","C0PEWDU",21,0) S F=175.101 "RTN","C0PEWDU",22,0) S IEN=$$FIND1^DIC(F,"","",ENTRY,"B") "RTN","C0PEWDU",23,0) S OK=$$GET1^DIQ(F,IEN,2,"","REQUEST","ERR") "RTN","C0PEWDU",24,0) I OK=""!($D(ERR)) S REQUEST="" "RTN","C0PEWDU",25,0) ; M ^CacheTempEWD($j)=REQUEST "RTN","C0PEWDU",26,0) ; K REQUEST "RTN","C0PEWDU",27,0) ; S ok=$$parseDocument^%zewdHTMLParser("REQUEST",0) "RTN","C0PEWDU",28,0) ; S ok=$$outputDOM^%zewdDOM("REQUEST",1,1) "RTN","C0PEWDU",29,0) ; Q ; remove later "RTN","C0PEWDU",30,0) K OK,ERR "RTN","C0PEWDU",31,0) S OK=$$GET1^DIQ(F,IEN,3,"","RESULT","ERR") "RTN","C0PEWDU",32,0) I OK=""!($D(ERR)) S RESULT="" "RTN","C0PEWDU",33,0) QUIT "RTN","C0PEWDU",34,0) ; "SEC","^DIC",175.101,175.101,0,"AUDIT") @ "SEC","^DIC",175.101,175.101,0,"DD") @ "SEC","^DIC",175.101,175.101,0,"DEL") @ "SEC","^DIC",175.101,175.101,0,"LAYGO") @ "SEC","^DIC",175.101,175.101,0,"RD") @ "SEC","^DIC",175.101,175.101,0,"WR") @ "SEC","^DIC",175.201,175.201,0,"AUDIT") @ "SEC","^DIC",175.201,175.201,0,"DD") @ "SEC","^DIC",175.201,175.201,0,"DEL") @ "SEC","^DIC",175.201,175.201,0,"LAYGO") @ "SEC","^DIC",175.201,175.201,0,"RD") @ "SEC","^DIC",175.201,175.201,0,"WR") @ "VER") 8.0^22.0 "^DD",175.101,175.101,0) FIELD^^.05^5 "^DD",175.101,175.101,0,"DDA") N "^DD",175.101,175.101,0,"DT") 3090303 "^DD",175.101,175.101,0,"IX","B",175.101,.01) "^DD",175.101,175.101,0,"NM","C0P APPLICATION STEPS") "^DD",175.101,175.101,0,"PT",175.2011,.01) "^DD",175.101,175.101,.01,0) STEP NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X "^DD",175.101,175.101,.01,.1) APPLICATION STEP NAME "^DD",175.101,175.101,.01,1,0) ^.1 "^DD",175.101,175.101,.01,1,1,0) 175.101^B "^DD",175.101,175.101,.01,1,1,1) S ^C0PS("B",$E(X,1,30),DA)="" "^DD",175.101,175.101,.01,1,1,2) K ^C0PS("B",$E(X,1,30),DA) "^DD",175.101,175.101,.01,3) APPLICATION STEP NAME "^DD",175.101,175.101,.01,"DT") 3090303 "^DD",175.101,175.101,.05,0) SEQUENCE^NJ9,0^^3;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1.N) X "^DD",175.101,175.101,.05,.1) STEP SEQUENCE NUMBER "^DD",175.101,175.101,.05,3) STEP SEQUENCE NUMBER "^DD",175.101,175.101,.05,"DT") 3090303 "^DD",175.101,175.101,1,0) URL^F^^0;2^K:$L(X)>200!($L(X)<1) X "^DD",175.101,175.101,1,.1) URL OF WEB SERVICE "^DD",175.101,175.101,1,3) URL OF WEB SERVICE "^DD",175.101,175.101,1,"DT") 3090303 "^DD",175.101,175.101,2,0) REQUEST XML^175.1012^^1;0 "^DD",175.101,175.101,3,0) RESPONSE XML^175.1013^^2;0 "^DD",175.101,175.1012,0) REQUEST XML SUB-FIELD^^.01^1 "^DD",175.101,175.1012,0,"DT") 3090303 "^DD",175.101,175.1012,0,"NM","REQUEST XML") "^DD",175.101,175.1012,0,"UP") 175.101 "^DD",175.101,175.1012,.01,0) REQUEST XML^Wx^^0;1 "^DD",175.101,175.1012,.01,.1) REQUEST XML FOR THIS WEB SERVICE STEP "^DD",175.101,175.1012,.01,3) REQUEST XML FOR THIS WEB SERVICE STEP "^DD",175.101,175.1012,.01,"DT") 3090303 "^DD",175.101,175.1013,0) RESPONSE XML SUB-FIELD^^.01^1 "^DD",175.101,175.1013,0,"DT") 3090303 "^DD",175.101,175.1013,0,"NM","RESPONSE XML") "^DD",175.101,175.1013,0,"UP") 175.101 "^DD",175.101,175.1013,.01,0) RESPONSE XML^Wx^^0;1 "^DD",175.101,175.1013,.01,.1) RESPONSE XML FOR THIS APPLICATION STEP "^DD",175.101,175.1013,.01,3) RESPONSE XML FOR THIS APPLICATION STEP "^DD",175.101,175.1013,.01,"DT") 3090303 "^DD",175.201,175.201,0) FIELD^^1^2 "^DD",175.201,175.201,0,"DDA") N "^DD",175.201,175.201,0,"DT") 3090303 "^DD",175.201,175.201,0,"IX","B",175.201,.01) "^DD",175.201,175.201,0,"NM","C0P WEB APPLICATIONS") "^DD",175.201,175.201,.01,0) APPLICATION NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X "^DD",175.201,175.201,.01,.1) WEB APPLICATION NAME "^DD",175.201,175.201,.01,1,0) ^.1 "^DD",175.201,175.201,.01,1,1,0) 175.201^B "^DD",175.201,175.201,.01,1,1,1) S ^C0PAPP("B",$E(X,1,30),DA)="" "^DD",175.201,175.201,.01,1,1,2) K ^C0PAPP("B",$E(X,1,30),DA) "^DD",175.201,175.201,.01,3) APPLICATION NAME "^DD",175.201,175.201,.01,"DT") 3090303 "^DD",175.201,175.201,1,0) STEPS^175.2011P^^1;0 "^DD",175.201,175.2011,0) STEPS SUB-FIELD^^1^2 "^DD",175.201,175.2011,0,"DT") 3090303 "^DD",175.201,175.2011,0,"IX","B",175.2011,.01) "^DD",175.201,175.2011,0,"NM","STEPS") "^DD",175.201,175.2011,0,"UP") 175.201 "^DD",175.201,175.2011,.01,0) STEPS^MP175.101^C0PS(^0;1^Q "^DD",175.201,175.2011,.01,.1) APPLICATION STEPS "^DD",175.201,175.2011,.01,1,0) ^.1 "^DD",175.201,175.2011,.01,1,1,0) 175.2011^B "^DD",175.201,175.2011,.01,1,1,1) S ^C0PAPP(DA(1),1,"B",$E(X,1,30),DA)="" "^DD",175.201,175.2011,.01,1,1,2) K ^C0PAPP(DA(1),1,"B",$E(X,1,30),DA) "^DD",175.201,175.2011,.01,3) APPLICATIONS STEPS "^DD",175.201,175.2011,.01,"DT") 3090303 "^DD",175.201,175.2011,1,0) SEQUENCE^NJ8,0^^0;2^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1.N) X "^DD",175.201,175.2011,1,.1) STEP SEQUENCE "^DD",175.201,175.2011,1,3) STEP SEQUENCE "^DD",175.201,175.2011,1,"DT") 3090303 "^DIC",175.101,175.101,0) C0P APPLICATION STEPS^175.101 "^DIC",175.101,175.101,0,"GL") ^C0PS( "^DIC",175.101,175.101,"%",0) ^1.005^^ "^DIC",175.101,175.101,"%D",0) ^^10^10^3090303^ "^DIC",175.101,175.101,"%D",1,0) This file is being built to support the ePrescribing project. It contains "^DIC",175.101,175.101,"%D",2,0) application steps that are used in combination to retrieve information "^DIC",175.101,175.101,"%D",3,0) from external web services, combine them, and store them in variables for "^DIC",175.101,175.101,"%D",4,0) use in the Order Checking process. In addition, if external meds are "^DIC",175.101,175.101,"%D",5,0) identified by the web services for a patient, they are saved to the CCR "^DIC",175.101,175.101,"%D",6,0) ELEMENTS file and will be accessioned to the patient's record as "NON-VA" "^DIC",175.101,175.101,"%D",7,0) meds. "^DIC",175.101,175.101,"%D",8,0) "^DIC",175.101,175.101,"%D",9,0) This prototype file was created by George Lilly during the RMU VistA "^DIC",175.101,175.101,"%D",10,0) sprint March 3, 2009 "^DIC",175.101,"B","C0P APPLICATION STEPS",175.101) "^DIC",175.201,175.201,0) C0P WEB APPLICATIONS^175.201 "^DIC",175.201,175.201,0,"GL") ^C0PAPP( "^DIC",175.201,175.201,"%",0) ^1.005^^ "^DIC",175.201,175.201,"%D",0) ^^6^6^3090303^ "^DIC",175.201,175.201,"%D",1,0) This file is being created as part of the ePrescription RMU sprint by "^DIC",175.201,175.201,"%D",2,0) George Lilly, Nancy Anthracite, Sam Habiel, and Greg Woodhouse. "^DIC",175.201,175.201,"%D",3,0) "^DIC",175.201,175.201,"%D",4,0) The Web Application file contains a sequence of processing steps for a "^DIC",175.201,175.201,"%D",5,0) named application. The processing steps are pointers to the C0P "^DIC",175.201,175.201,"%D",6,0) APPLICATION STEP file (175.101). "^DIC",175.201,"B","C0P WEB APPLICATIONS",175.201) **END** **END**