"DATA",113059001,34,3,8,0)
"DATA",113059001,34,3,9,0)
|
"DATA",113059001,34,3,10,0)
"DATA",113059001,34,3,11,0)
"DATA",113059001,34,3,12,0)
"DATA",113059001,35,3,3,0)
"DATA",113059001,35,3,6,0)
"DATA",113059001,35,3,7,0)
"DATA",113059001,35,3,8,0)
"DATA",113059001,35,6)
1
"DATA",113059001,36,0)
C0P RENEWAL NOMATCH URL
"DATA",113059001,36,1)
https://viper/dev/eRx/
"DATA",113059001,36,6)
1
"DATA",113059001,37,0)
FREE TEXT MEDS
"DATA",113059001,37,3,0)
^113059001.01^11^11^3110308^^^^
"DATA",113059001,37,3,1,0)
"DATA",113059001,37,3,2,0)
"DATA",113059001,37,3,3,0)
1000ab
"DATA",113059001,37,3,4,0)
20070117
"DATA",113059001,37,3,5,0)
Dr. Bob
"DATA",113059001,37,3,6,0)
Accupril 40mg Oral Tablet
"DATA",113059001,37,3,7,0)
30
"DATA",113059001,37,3,8,0)
1 daily
"DATA",113059001,37,3,9,0)
0
"DATA",113059001,37,3,10,0)
reconcile
"DATA",113059001,37,3,11,0)
"DATA",113059001,37,4,0)
^113059001.03^10^10^3110308^^
"DATA",113059001,37,4,1,0)
"DATA",113059001,37,4,2,0)
@@externalId@@
"DATA",113059001,37,4,3,0)
@@date@@
"DATA",113059001,37,4,4,0)
@@doctorName@@
"DATA",113059001,37,4,5,0)
@@drug@@
"DATA",113059001,37,4,6,0)
@@dispenseNumber@@
"DATA",113059001,37,4,7,0)
@@sig@@
"DATA",113059001,37,4,8,0)
@@refillCount@@
"DATA",113059001,37,4,9,0)
@@prescriptionType@@
"DATA",113059001,37,4,10,0)
"DATA",113059001,37,5,0)
^113059001.04^16^8
"DATA",113059001,37,5,9,0)
date
"DATA",113059001,37,5,9,1)
^^^date
"DATA",113059001,37,5,10,0)
dispenseNumber
"DATA",113059001,37,5,10,1)
^^^dispenseNumber
"DATA",113059001,37,5,11,0)
doctorName
"DATA",113059001,37,5,11,1)
^^^doctorName
"DATA",113059001,37,5,12,0)
drug
"DATA",113059001,37,5,12,1)
^^^drug
"DATA",113059001,37,5,13,0)
externalId
"DATA",113059001,37,5,13,1)
^^^externalId
"DATA",113059001,37,5,14,0)
prescriptionType
"DATA",113059001,37,5,14,1)
^^^prescriptionType
"DATA",113059001,37,5,15,0)
refillCount
"DATA",113059001,37,5,15,1)
^^^refillCount
"DATA",113059001,37,5,16,0)
sig
"DATA",113059001,37,5,16,1)
^^^sig
"DATA",113059001,37,6)
1
"DATA",113059001,37,9)
//OutsidePrescription/
"DATA",113059003,1,0)
NEWCROPTEST1
"DATA",113059003,1,2,0)
^113059003.02^1^1
"DATA",113059003,1,2,1,0)
ORDER^https://preproduction.newcropaccounts.com/InterfaceV7^1
"DATA",113059003,1,3,0)
^113059003.03P^1^1
"DATA",113059003,1,3,1,0)
1^OUT
"DATA",113059003,1,4)
PP
"DATA",113059003,1,5,0)
^113059003.04^2^2
"DATA",113059003,1,5,1,0)
P^1
"DATA",113059003,1,5,2,0)
MA^17
"FIA",113059001)
C0P XML TEMPLATE
"FIA",113059001,0)
^C0PX(
"FIA",113059001,0,0)
113059001
"FIA",113059001,0,1)
y^y^f^^n^^y^o^n
"FIA",113059001,0,10)
"FIA",113059001,0,11)
"FIA",113059001,0,"RLRO")
"FIA",113059001,0,"VR")
1.0^C0P
"FIA",113059001,113059001)
0
"FIA",113059001,113059001.01)
0
"FIA",113059001,113059001.02)
0
"FIA",113059001,113059001.03)
0
"FIA",113059001,113059001.04)
0
"FIA",113059001,113059001.05)
0
"FIA",113059003)
C0P WEB SERVICE
"FIA",113059003,0)
^C0PW(
"FIA",113059003,0,0)
113059003
"FIA",113059003,0,1)
y^y^f^^n^^y^o^n
"FIA",113059003,0,10)
"FIA",113059003,0,11)
"FIA",113059003,0,"RLRO")
"FIA",113059003,0,"VR")
1.0^C0P
"FIA",113059003,113059003)
0
"FIA",113059003,113059003.01)
0
"FIA",113059003,113059003.02)
0
"FIA",113059003,113059003.03)
0
"FIA",113059003,113059003.04)
0
"IX",113059001,113059001,"C",0)
113059001^C^Uniqueness Index for Key 'A' of File #113059001^R^^R^IR^I^113059001^^^^^LS
"IX",113059001,113059001,"C",1)
S ^C0PX("C",X(1),X(2),DA)=""
"IX",113059001,113059001,"C",2)
K ^C0PX("C",X(1),X(2),DA)
"IX",113059001,113059001,"C",2.5)
K ^C0PX("C")
"IX",113059001,113059001,"C",11.1,0)
^.114IA^2^2
"IX",113059001,113059001,"C",11.1,1,0)
1^F^113059001^.02^^1
"IX",113059001,113059001,"C",11.1,2,0)
2^F^113059001^.01^^2
"IX",113059001,113059001,"XPATH",0)
113059001^XPATH^WHOLE FILE XPATH INDEX FOR BINDINGS BY TEMPLATE^R^^F^IR^W^113059001.04^^^^^LS
"IX",113059001,113059001,"XPATH",1)
S ^C0PX("XPATH",$E(X,1,240),DA(1),DA)=""
"IX",113059001,113059001,"XPATH",2)
K ^C0PX("XPATH",$E(X,1,240),DA(1),DA)
"IX",113059001,113059001,"XPATH",2.5)
K ^C0PX("XPATH")
"IX",113059001,113059001,"XPATH",11.1,0)
^.114IA^1^1
"IX",113059001,113059001,"XPATH",11.1,1,0)
1^F^113059001.04^.01^240^1^F
"IX",113059001,113059001.04,"B",0)
113059001.04^B^REPLACEMENT FOR B INDEX TO INCREASE MAX LENGTH^R^^F^IR^I^113059001.04^^^^^LS
"IX",113059001,113059001.04,"B",1)
S ^C0PX(DA(1),5,"B",$E(X,1,240),DA)=""
"IX",113059001,113059001.04,"B",2)
K ^C0PX(DA(1),5,"B",$E(X,1,240),DA)
"IX",113059001,113059001.04,"B",2.5)
K ^C0PX(DA(1),5,"B")
"IX",113059001,113059001.04,"B",11.1,0)
^.114IA^1^1
"IX",113059001,113059001.04,"B",11.1,1,0)
1^F^113059001.04^.01^240^1^F
"IX",113059001,113059001.04,"B",11.1,1,3)
"KEY",113059001,113059001,"A",0)
113059001^A^P^559
"KEY",113059001,113059001,"A",2,0)
^.312IA^2^2
"KEY",113059001,113059001,"A",2,1,0)
.01^113059001^2
"KEY",113059001,113059001,"A",2,2,0)
.02^113059001^1
"KEYPTR",113059001,113059001,"A")
113059001^C
"MBREQ")
0
"PKG",211,-1)
1^1
"PKG",211,0)
ORO ERX E-PRESCRIBING^C0P^Oroville Electronic Prescriptions
"PKG",211,20,0)
^9.402P^^
"PKG",211,22,0)
^9.49I^1^1
"PKG",211,22,1,0)
1.0^3120507
"PKG",211,22,1,"PAH",1,0)
1^3120508
"PKG",211,22,1,"PAH",1,1,0)
^^23^23^3120508
"PKG",211,22,1,"PAH",1,1,1,0)
This build contains copyrighted content. Only use if you have an
"PKG",211,22,1,"PAH",1,1,2,0)
agreement with New Crop.
"PKG",211,22,1,"PAH",1,1,3,0)
"PKG",211,22,1,"PAH",1,1,4,0)
Build originally produced by George Lily on Mar 31st 2011, containing New
"PKG",211,22,1,"PAH",1,1,5,0)
Crop Templates and First DataBank Drugs.
"PKG",211,22,1,"PAH",1,1,6,0)
"PKG",211,22,1,"PAH",1,1,7,0)
Build updated by Sam Habiel, April 24th 2012. First Databank Drugs are
"PKG",211,22,1,"PAH",1,1,8,0)
now separated out into their own separate build as they are to be updated
"PKG",211,22,1,"PAH",1,1,9,0)
monthly.
"PKG",211,22,1,"PAH",1,1,10,0)
"PKG",211,22,1,"PAH",1,1,11,0)
This build is prepared for release with WorldVistA 2.0.
"PKG",211,22,1,"PAH",1,1,12,0)
"PKG",211,22,1,"PAH",1,1,13,0)
This build contains two files:
"PKG",211,22,1,"PAH",1,1,14,0)
C0P XML TEMPLATE with DATA
"PKG",211,22,1,"PAH",1,1,15,0)
C0P WEB SERVICE with DATA
"PKG",211,22,1,"PAH",1,1,16,0)
"PKG",211,22,1,"PAH",1,1,17,0)
The XML Template File contains SOAP XML Templates for use with the Web
"PKG",211,22,1,"PAH",1,1,18,0)
Service.
"PKG",211,22,1,"PAH",1,1,19,0)
"PKG",211,22,1,"PAH",1,1,20,0)
The Web Service File contains the configuration of the web service to use
"PKG",211,22,1,"PAH",1,1,21,0)
with the SOAP messages.
"PKG",211,22,1,"PAH",1,1,22,0)
"PKG",211,22,1,"PAH",1,1,23,0)
Dependencies: This package depends on files in package C0C*1.1*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
"SEC","^DIC",113059001,113059001,0,"AUDIT")
@
"SEC","^DIC",113059001,113059001,0,"DD")
@
"SEC","^DIC",113059001,113059001,0,"DEL")
@
"SEC","^DIC",113059001,113059001,0,"LAYGO")
@
"SEC","^DIC",113059001,113059001,0,"RD")
@
"SEC","^DIC",113059001,113059001,0,"WR")
@
"SEC","^DIC",113059003,113059003,0,"AUDIT")
@
"SEC","^DIC",113059003,113059003,0,"DD")
@
"SEC","^DIC",113059003,113059003,0,"DEL")
@
"SEC","^DIC",113059003,113059003,0,"LAYGO")
@
"SEC","^DIC",113059003,113059003,0,"RD")
@
"SEC","^DIC",113059003,113059003,0,"WR")
@
"VER")
8.0^22.0
"^DD",113059001,113059001,0)
FIELD^^5^13
"^DD",113059001,113059001,0,"DDA")
N
"^DD",113059001,113059001,0,"DT")
3091016
"^DD",113059001,113059001,0,"IX","B",113059001,.01)
"^DD",113059001,113059001,0,"NM","C0P XML TEMPLATE")
"^DD",113059001,113059001,0,"PT",113059001,.03)
"^DD",113059001,113059001,0,"PT",113059001.05,1)
"^DD",113059001,113059001,0,"PT",113059003.02,2)
"^DD",113059001,113059001,0,"PT",113059003.03,.01)
"^DD",113059001,113059001,0,"PT",113059003.04,1)
"^DD",113059001,113059001,.01,0)
TEMPLATE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
"^DD",113059001,113059001,.01,.1)
NAME OF THE TEMPLATE
"^DD",113059001,113059001,.01,1,0)
^.1
"^DD",113059001,113059001,.01,1,1,0)
113059001^B
"^DD",113059001,113059001,.01,1,1,1)
S ^C0PX("B",$E(X,1,30),DA)=""
"^DD",113059001,113059001,.01,1,1,2)
K ^C0PX("B",$E(X,1,30),DA)
"^DD",113059001,113059001,.01,3)
TEMPLATE NAME
"^DD",113059001,113059001,.01,"DT")
3091015
"^DD",113059001,113059001,.02,0)
BELONGS TO WEB SERVICE^P113059003^C0PW(^6;1^Q
"^DD",113059001,113059001,.02,.1)
WEB SERVICE THAT THIS TEMPLATE BELONGS TO
"^DD",113059001,113059001,.02,3)
WEB SERVICE THAT THIS TEMPLATE BELONGS TO
"^DD",113059001,113059001,.02,"DT")
3091015
"^DD",113059001,113059001,.03,0)
REPLY TEMPLATE^P113059001^C0PX(^9;2^Q
"^DD",113059001,113059001,.03,.1)
TEMPLATE TO PROCESS THE REPLY FROM REQUEST TEMPLATE
"^DD",113059001,113059001,.03,"DT")
3091015
"^DD",113059001,113059001,1,0)
URL^F^^1;1^K:$L(X)>240!($L(X)<3) X
"^DD",113059001,113059001,1,.1)
URL FOR USE WITH THIS TEMPLATE
"^DD",113059001,113059001,1,3)
"^DD",113059001,113059001,1,21,0)
^^1^1^3120504^
"^DD",113059001,113059001,1,21,1,0)
This is the Soap Request endpoint where the Soap Request must be sent.
"^DD",113059001,113059001,1,"DT")
3120504
"^DD",113059001,113059001,2,0)
WSDL URL^F^^2;1^K:$L(X)>240!($L(X)<3) X
"^DD",113059001,113059001,2,.1)
URL WHERE THE WSDL XML IS FOUND
"^DD",113059001,113059001,2,3)
URL WHERE THE WSDL XML IS FOUND
"^DD",113059001,113059001,2,"DT")
3091015
"^DD",113059001,113059001,2.1,0)
XML^113059001.01^^3;0
"^DD",113059001,113059001,2.1,21,0)
^^2^2^3120504^
"^DD",113059001,113059001,2.1,21,1,0)
Contains sample XML Soaps to send to the web service. These are then
"^DD",113059001,113059001,2.1,21,2,0)
compiled to form the Template XML stored in the Template XML field.
"^DD",113059001,113059001,2.1,"DT")
3091015
"^DD",113059001,113059001,2.2,0)
XML HEADER^113059001.02^^7;0
"^DD",113059001,113059001,2.2,21,0)
^^2^2^3120504^
"^DD",113059001,113059001,2.2,21,1,0)
This contains the HTTP request headers for getting the XML field. It does
"^DD",113059001,113059001,2.2,21,2,0)
not contain the XML xml ... ?> header.
"^DD",113059001,113059001,2.2,"DT")
3090925
"^DD",113059001,113059001,2.3,0)
MIME TYPE^F^^8;1^K:$L(X)>100!($L(X)<3) X
"^DD",113059001,113059001,2.3,.1)
MIME TYPE FOR THE XML MESSAGE
"^DD",113059001,113059001,2.3,3)
MIME TYPE FOR THE XML MESSAGE i.e. text/xml
"^DD",113059001,113059001,2.3,"DT")
3120504
"^DD",113059001,113059001,2.4,0)
PROXY SERVER^F^^8;2^K:$L(X)>100!($L(X)<3) X
"^DD",113059001,113059001,2.4,.1)
"^DD",113059001,113059001,2.4,3)
OPTIONAL PROXY SERVER TO USE
"^DD",113059001,113059001,2.4,"DT")
3120504
"^DD",113059001,113059001,2.5,0)
XPATH REDUCTION STRING^F^^9;1^K:$L(X)>240!($L(X)<3) X
"^DD",113059001,113059001,2.5,.1)
"^DD",113059001,113059001,2.5,3)
Answer must be 3-240 characters in length
"^DD",113059001,113059001,2.5,21,0)
^^1^1^3120504^
"^DD",113059001,113059001,2.5,21,1,0)
XPATH STRING TO REDUCE XPATH SIZE
"^DD",113059001,113059001,2.5,"DT")
3120504
"^DD",113059001,113059001,3,0)
TEMPLATE XML^113059001.03^^4;0
"^DD",113059001,113059001,3,21,0)
^^20^20^3120504^
"^DD",113059001,113059001,3,21,1,0)
This field holds a compliled XML template (generated by COMPILE^C0PSOAP)
"^DD",113059001,113059001,3,21,2,0)
that contains prototype XML with @@ escaped fields for substitution
"^DD",113059001,113059001,3,21,3,0)
processing by MAP^C0CXPATH
"^DD",113059001,113059001,3,21,4,0)
"^DD",113059001,113059001,3,21,5,0)
Example of variable interpolation:
"^DD",113059001,113059001,3,21,6,0)
@@PATIENTNAME@@
"^DD",113059001,113059001,3,21,7,0)
"^DD",113059001,113059001,3,21,8,0)
becomes:
"^DD",113059001,113059001,3,21,9,0)
"^DD",113059001,113059001,3,21,10,0)
Mouse,Mickey
"^DD",113059001,113059001,3,21,11,0)
"^DD",113059001,113059001,3,21,12,0)
Example of field interpolation based on an XPATH:
"^DD",113059001,113059001,3,21,13,0)
"^DD",113059001,113059001,3,21,14,0)
//soap:Envelope/soap:Body/GetPatientFullMedicationHistory5/patientRequest
"^DD",113059001,113059001,3,21,15,0)
/PatientId
"^DD",113059001,113059001,3,21,16,0)
"^DD",113059001,113059001,3,21,17,0)
"^DD",113059001,113059001,3,21,18,0)
becomes:
"^DD",113059001,113059001,3,21,19,0)
"^DD",113059001,113059001,3,21,20,0)
98129749824240!($L(X)<3) X
"^DD",113059001,113059001.04,.01,.1)
BINDING XPATH
"^DD",113059001,113059001.04,.01,1,0)
^.1^^0
"^DD",113059001,113059001.04,.01,3)
XPATH or Variable Name
"^DD",113059001,113059001.04,.01,21,0)
^^1^1^3120507^
"^DD",113059001,113059001.04,.01,21,1,0)
Contains either the XPATH or variable name in @@..@@ to substitute.
"^DD",113059001,113059001.04,.01,"DT")
3120507
"^DD",113059001,113059001.04,.05,0)
INDEXED BY^S^DFN:PATIENT;DUZ:PROVIDER;ACCT:ACCOUNT;LOC:LOCATION;^0;2^Q
"^DD",113059001,113059001.04,.05,.1)
"^DD",113059001,113059001.04,.05,3)
INDEXED BY - DFN OR DUZ OR ACCOUNT OR LOCATION
"^DD",113059001,113059001.04,.05,21,0)
^^2^2^3120507^
"^DD",113059001,113059001.04,.05,21,1,0)
This functions almost as a 'variable pointer' for the code. The code
"^DD",113059001,113059001.04,.05,21,2,0)
uses this to figure out which file to retrieve data from.
"^DD",113059001,113059001.04,.05,"DT")
3120507
"^DD",113059001,113059001.04,1,0)
FILEMAN FIELD NAME^F^^1;1^K:$L(X)>80!($L(X)<3) X
"^DD",113059001,113059001.04,1,.1)
NAME OF FILEMAN FIELD
"^DD",113059001,113059001.04,1,3)
FILEMAN FIELD NAME
"^DD",113059001,113059001.04,1,21,0)
^^2^2^3120507^
"^DD",113059001,113059001.04,1,21,1,0)
This field is for documentation only; the actual field is in #1.2 FILEMAN
"^DD",113059001,113059001.04,1,21,2,0)
FIELD NUMBER.
"^DD",113059001,113059001.04,1,"DT")
3120507
"^DD",113059001,113059001.04,1.1,0)
FILEMAN FILE POINTER^P1'^DIC(^1;2^Q
"^DD",113059001,113059001.04,1.1,.1)
"^DD",113059001,113059001.04,1.1,3)
Fileman File
"^DD",113059001,113059001.04,1.1,21,0)
^^1^1^3120507^
"^DD",113059001,113059001.04,1.1,21,1,0)
Fileman file to retrieve data from for the element.
"^DD",113059001,113059001.04,1.1,"DT")
3120507
"^DD",113059001,113059001.04,1.2,0)
FILEMAN FIELD NUMBER^NJ22,9^^1;3^K:+X'=X!(X>999999999999)!(X<.000000001)!(X?.E1"."10.N) X
"^DD",113059001,113059001.04,1.2,.1)
"^DD",113059001,113059001.04,1.2,3)
FILEMAN FIELD NUMBER
"^DD",113059001,113059001.04,1.2,21,0)
^^1^1^3120507^
"^DD",113059001,113059001.04,1.2,21,1,0)
Field to use for the file entered (1.1 FILEMAN FILE POINTER)
"^DD",113059001,113059001.04,1.2,"DT")
3120507
"^DD",113059001,113059001.04,2,0)
VARIABLE NAME^F^^1;4^K:$L(X)>80!($L(X)<3) X
"^DD",113059001,113059001.04,2,.1)
"^DD",113059001,113059001.04,2,3)
Name of a runtime variable
"^DD",113059001,113059001.04,2,21,0)
^^3^3^3120507^
"^DD",113059001,113059001.04,2,21,1,0)
Runtime Variable to use for the data (instead of retrieving data from
"^DD",113059001,113059001.04,2,21,2,0)
Fileman File/Field). If this is specified, it override Fileman File/Field
"^DD",113059001,113059001.04,2,21,3,0)
data in the runtime processor.
"^DD",113059001,113059001.04,2,"DT")
3120507
"^DD",113059001,113059001.04,3,0)
SQLI FIELD NAME^F^^2;1^K:$L(X)>80!($L(X)<3) X
"^DD",113059001,113059001.04,3,.1)
"^DD",113059001,113059001.04,3,3)
"^DD",113059001,113059001.04,3,21,0)
^^1^1^3120507^
"^DD",113059001,113059001.04,3,21,1,0)
Not used in eRx.
"^DD",113059001,113059001.04,3,"DT")
3120507
"^DD",113059001,113059001.04,4,0)
CCR VARIABLE^P170^C0CDIC(170,^2;2^Q
"^DD",113059001,113059001.04,4,.1)
"^DD",113059001,113059001.04,4,21,0)
^^1^1^3120507^
"^DD",113059001,113059001.04,4,21,1,0)
Pointer to the CCR dictionary for binding. Not used in eRx.
"^DD",113059001,113059001.04,4,"DT")
3120507
"^DD",113059001,113059001.05,0)
INCLUDE TEMPLATE SUB-FIELD^^1^2
"^DD",113059001,113059001.05,0,"DT")
3091016
"^DD",113059001,113059001.05,0,"IX","B",113059001.05,.01)
"^DD",113059001,113059001.05,0,"NM","INCLUDE TEMPLATE")
"^DD",113059001,113059001.05,0,"UP")
113059001
"^DD",113059001,113059001.05,.01,0)
INCLUDE TEMPLATE NAME^MF^^0;1^K:$L(X)>30!($L(X)<3) X
"^DD",113059001,113059001.05,.01,.1)
"^DD",113059001,113059001.05,.01,1,0)
^.1
"^DD",113059001,113059001.05,.01,1,1,0)
113059001.05^B
"^DD",113059001,113059001.05,.01,1,1,1)
S ^C0PX(DA(1),10,"B",$E(X,1,30),DA)=""
"^DD",113059001,113059001.05,.01,1,1,2)
K ^C0PX(DA(1),10,"B",$E(X,1,30),DA)
"^DD",113059001,113059001.05,.01,3)
Templates to be included during processing
"^DD",113059001,113059001.05,.01,"DT")
3120507
"^DD",113059001,113059001.05,1,0)
INCLUDE TEMPLATE POINTER^P113059001^C0PX(^0;2^Q
"^DD",113059001,113059001.05,1,.1)
"^DD",113059001,113059001.05,1,3)
Pointer to the Included Template
"^DD",113059001,113059001.05,1,"DT")
3120507
"^DD",113059003,113059003,0)
FIELD^^4^6
"^DD",113059003,113059003,0,"DDA")
N
"^DD",113059003,113059003,0,"DT")
3100214
"^DD",113059003,113059003,0,"IX","B",113059003,.01)
"^DD",113059003,113059003,0,"NM","C0P WEB SERVICE")
"^DD",113059003,113059003,0,"PT",113059001,.02)
"^DD",113059003,113059003,0,"PT",113059002,4)
"^DD",113059003,113059003,.01,0)
C0PW WS NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
"^DD",113059003,113059003,.01,1,0)
^.1
"^DD",113059003,113059003,.01,1,1,0)
113059003^B
"^DD",113059003,113059003,.01,1,1,1)
S ^C0PW("B",$E(X,1,30),DA)=""
"^DD",113059003,113059003,.01,1,1,2)
K ^C0PW("B",$E(X,1,30),DA)
"^DD",113059003,113059003,.01,3)
NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
"^DD",113059003,113059003,.01,"DT")
3090730
"^DD",113059003,113059003,.05,0)
C0PW CONTEXT^S^PP:PATIENT PROVIDER;SYS:SYSTEM;^4;1^Q
"^DD",113059003,113059003,.05,.1)
WEB SERVICE CONTEXT
"^DD",113059003,113059003,.05,21,0)
^^3^3^3090922^
"^DD",113059003,113059003,.05,21,1,0)
This field is a set of codes which define the "context" of the web service being defined. The Context will dictate which sets of variables will be initialized at the beginning of whenever the web service is used. Contexted so far defined are:
"^DD",113059003,113059003,.05,21,2,0)
Patient Provider (PP) which is used for ePrescribing and will initialize the SUBSRIBER, ACCOUNT, and PATIENT variables. See C0PSUB AND C0PPAT for details on variable names. System (SYS) which is for web services that do not require
"^DD",113059003,113059003,.05,21,3,0)
variables to be initialized
"^DD",113059003,113059003,.05,"DT")
3090922
"^DD",113059003,113059003,1,0)
C0PW DEFINING XML^113059003.01^^1;0
"^DD",113059003,113059003,2,0)
C0PW BUTTON^113059003.02^^2;0
"^DD",113059003,113059003,3,0)
C0PW TEMPLATES^113059003.03P^^3;0
"^DD",113059003,113059003,4,0)
C0PW ROLE MAPPING^113059003.04^^5;0
"^DD",113059003,113059003.01,0)
C0PW DEFINING XML SUB-FIELD^^.01^1
"^DD",113059003,113059003.01,0,"DT")
3090730
"^DD",113059003,113059003.01,0,"NM","C0PW DEFINING XML")
"^DD",113059003,113059003.01,0,"UP")
113059003
"^DD",113059003,113059003.01,.01,0)
C0PW DEFINING XML^WLx^^0;1
"^DD",113059003,113059003.01,.01,.1)
XML TO DEFINE THE WEB SERVICE
"^DD",113059003,113059003.01,.01,3)
XML TO DEFINE THE WEB SERVICE
"^DD",113059003,113059003.01,.01,"DT")
3090730
"^DD",113059003,113059003.02,0)
C0PW BUTTON SUB-FIELD^^2^3
"^DD",113059003,113059003.02,0,"DT")
3090913
"^DD",113059003,113059003.02,0,"IX","B",113059003.02,.01)
"^DD",113059003,113059003.02,0,"NM","C0PW BUTTON")
"^DD",113059003,113059003.02,0,"UP")
113059003
"^DD",113059003,113059003.02,.01,0)
C0PW BUTTON^F^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",113059003,113059003.02,.01,.1)
BUTTON ENTRY POINTS FOR THE WEB SERVICE
"^DD",113059003,113059003.02,.01,1,0)
^.1
"^DD",113059003,113059003.02,.01,1,1,0)
113059003.02^B
"^DD",113059003,113059003.02,.01,1,1,1)
S ^C0PW(DA(1),2,"B",$E(X,1,30),DA)=""
"^DD",113059003,113059003.02,.01,1,1,2)
K ^C0PW(DA(1),2,"B",$E(X,1,30),DA)
"^DD",113059003,113059003.02,.01,3)
BUTTON ENTRY POINTS FOR THE WEB SERVICE
"^DD",113059003,113059003.02,.01,"DT")
3090730
"^DD",113059003,113059003.02,1,0)
C0PW BUTTON URL^F^^0;2^K:$L(X)>100!($L(X)<1) X
"^DD",113059003,113059003.02,1,.1)
BUTTON URL
"^DD",113059003,113059003.02,1,3)
BUTTON URL
"^DD",113059003,113059003.02,1,"DT")
3090730
"^DD",113059003,113059003.02,2,0)
C0PW BUTTON TEMPLATE NAME^P113059001^C0PX(^0;3^Q
"^DD",113059003,113059003.02,2,.1)
BUTTON TEMPLATE POINTER
"^DD",113059003,113059003.02,2,3)
BUTTON TEMPLATE POINTER
"^DD",113059003,113059003.02,2,"DT")
3090913
"^DD",113059003,113059003.03,0)
C0PW TEMPLATES SUB-FIELD^^1^2
"^DD",113059003,113059003.03,0,"DT")
3090913
"^DD",113059003,113059003.03,0,"IX","B",113059003.03,.01)
"^DD",113059003,113059003.03,0,"NM","C0PW TEMPLATES")
"^DD",113059003,113059003.03,0,"UP")
113059003
"^DD",113059003,113059003.03,.01,0)
C0PW TEMPLATES^MP113059001^C0PX(^0;1^Q
"^DD",113059003,113059003.03,.01,.1)
POINTER TO XML TEMPLATE
"^DD",113059003,113059003.03,.01,1,0)
^.1
"^DD",113059003,113059003.03,.01,1,1,0)
113059003.03^B
"^DD",113059003,113059003.03,.01,1,1,1)
S ^C0PW(DA(1),3,"B",$E(X,1,30),DA)=""
"^DD",113059003,113059003.03,.01,1,1,2)
K ^C0PW(DA(1),3,"B",$E(X,1,30),DA)
"^DD",113059003,113059003.03,.01,3)
POINTER TO TEMPLATE FILE
"^DD",113059003,113059003.03,.01,"DT")
3090913
"^DD",113059003,113059003.03,1,0)
C0PW USE^S^IN:INPUT;OUT:OUPUT;^0;2^Q
"^DD",113059003,113059003.03,1,.1)
TEMPLATE USE - INPUT OR OUTPUT
"^DD",113059003,113059003.03,1,3)
TEMPLATE USE - INPUT OR OUTPUT
"^DD",113059003,113059003.03,1,"DT")
3090913
"^DD",113059003,113059003.04,0)
C0PW ROLE MAPPING SUB-FIELD^^1^2
"^DD",113059003,113059003.04,0,"DT")
3100214
"^DD",113059003,113059003.04,0,"IX","B",113059003.04,.01)
"^DD",113059003,113059003.04,0,"NM","C0PW ROLE MAPPING")
"^DD",113059003,113059003.04,0,"UP")
113059003
"^DD",113059003,113059003.04,.01,0)
C0PW ROLE MAPPING^MF^^0;1^K:$L(X)>30!($L(X)<1) X
"^DD",113059003,113059003.04,.01,.1)
ROLE MAPPINGS FOR ERX WEB SERVICES
"^DD",113059003,113059003.04,.01,1,0)
^.1
"^DD",113059003,113059003.04,.01,1,1,0)
113059003.04^B
"^DD",113059003,113059003.04,.01,1,1,1)
S ^C0PW(DA(1),5,"B",$E(X,1,30),DA)=""
"^DD",113059003,113059003.04,.01,1,1,2)
K ^C0PW(DA(1),5,"B",$E(X,1,30),DA)
"^DD",113059003,113059003.04,.01,3)
ROLE MAPPINGS FOR ERX WEB SERVICES
"^DD",113059003,113059003.04,.01,"DT")
3100214
"^DD",113059003,113059003.04,1,0)
TEMPLATE TO USE^P113059001'^C0PX(^0;2^Q
"^DD",113059003,113059003.04,1,.1)
TEMPLATE TO USE FOR CLICKTHROUGH FOR THIS ROLE
"^DD",113059003,113059003.04,1,3)
TEMPLATE TO USE FOR CLICKTHROUGH FOR THIS ROLE
"^DD",113059003,113059003.04,1,"DT")
3100214
"^DIC",113059001,113059001,0)
C0P XML TEMPLATE^113059001
"^DIC",113059001,113059001,0,"GL")
^C0PX(
"^DIC",113059001,113059001,"%",0)
^1.005^^0
"^DIC",113059001,113059001,"%D",0)
^^38^38^3120504^
"^DIC",113059001,113059001,"%D",1,0)
Copyright 2009 George Lilly. Licensed under the terms of the GNU General
"^DIC",113059001,113059001,"%D",2,0)
Public License See attached copy of the License.
"^DIC",113059001,113059001,"%D",3,0)
"^DIC",113059001,113059001,"%D",4,0)
This program is free software; you can redistribute it and/or modify it
"^DIC",113059001,113059001,"%D",5,0)
under the terms of the GNU General Public License as published by the Free
"^DIC",113059001,113059001,"%D",6,0)
Software Foundation; either version 2 of the License, or (at your option)
"^DIC",113059001,113059001,"%D",7,0)
any later version.
"^DIC",113059001,113059001,"%D",8,0)
"^DIC",113059001,113059001,"%D",9,0)
This program is distributed in the hope that it will be useful, but
"^DIC",113059001,113059001,"%D",10,0)
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
"^DIC",113059001,113059001,"%D",11,0)
or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
"^DIC",113059001,113059001,"%D",12,0)
for more details.
"^DIC",113059001,113059001,"%D",13,0)
"^DIC",113059001,113059001,"%D",14,0)
You should have received a copy of the GNU General Public License along
"^DIC",113059001,113059001,"%D",15,0)
with this program; if not, write to the Free Software Foundation, Inc., 51
"^DIC",113059001,113059001,"%D",16,0)
Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
"^DIC",113059001,113059001,"%D",17,0)
"^DIC",113059001,113059001,"%D",18,0)
This file was created by George Lilly for the Oroville Hospital
"^DIC",113059001,113059001,"%D",19,0)
ePrescribing project.
"^DIC",113059001,113059001,"%D",20,0)
"^DIC",113059001,113059001,"%D",21,0)
It stores XML templates that define web services for use in VistA.
"^DIC",113059001,113059001,"%D",22,0)
"^DIC",113059001,113059001,"%D",23,0)
Each template has a name and a pointer to a Web Service record in the C0P
"^DIC",113059001,113059001,"%D",24,0)
WEB SERVICE file #113059003. For templates that define external web
"^DIC",113059001,113059001,"%D",25,0)
services, there is automation to generate most of this file. If a template
"^DIC",113059001,113059001,"%D",26,0)
record has a name and a pointer to its webservice, and a URL to its WSDL
"^DIC",113059001,113059001,"%D",27,0)
definition on the external web service, TBLD^C0PWS1(DA) will download the
"^DIC",113059001,113059001,"%D",28,0)
WSDL xml, put it in the Raw XML WP field, call INDEX^C0CXPATH to generate
"^DIC",113059001,113059001,"%D",29,0)
a template, store the template in the Template WP field, and then generate
"^DIC",113059001,113059001,"%D",30,0)
a XPath binding subfile for each XPath in the xml. It will also look to
"^DIC",113059001,113059001,"%D",31,0)
see if the XPath binding has already been created for a different template
"^DIC",113059001,113059001,"%D",32,0)
pointing to the same web service, and if so, will copy the VistA bindings
"^DIC",113059001,113059001,"%D",33,0)
from that definition. Often, multiple templates for the same web service
"^DIC",113059001,113059001,"%D",34,0)
will have many XPath definitions in common. So when adding a new web
"^DIC",113059001,113059001,"%D",35,0)
service to the system, start with one template, run TBLKD^C0PWS1, and then
"^DIC",113059001,113059001,"%D",36,0)
add the VistA binding by hand. After the first one is completed, add the
"^DIC",113059001,113059001,"%D",37,0)
other templates and avoid having to enter the common XPath bindings again
"^DIC",113059001,113059001,"%D",38,0)
by hand.
"^DIC",113059001,"B","C0P XML TEMPLATE",113059001)
"^DIC",113059003,113059003,0)
C0P WEB SERVICE^113059003
"^DIC",113059003,113059003,0,"GL")
^C0PW(
"^DIC",113059003,113059003,"%",0)
^1.005^^
"^DIC",113059003,113059003,"%D",0)
^^29^29^3120507^
"^DIC",113059003,113059003,"%D",1,0)
This file is used as a walkthrough from the Web Service Account in C0P WS
"^DIC",113059003,113059003,"%D",2,0)
ACCT to the Web Service XML/endpoint in C0P XML TEMPLATE.
"^DIC",113059003,113059003,"%D",3,0)
"^DIC",113059003,113059003,"%D",4,0)
Each entry in the C0P XML TEMPLATE file can belong to only one Web
"^DIC",113059003,113059003,"%D",5,0)
Service.
"^DIC",113059003,113059003,"%D",6,0)
"^DIC",113059003,113059003,"%D",7,0)
The way a specific template/web service call is decided upon is to check
"^DIC",113059003,113059003,"%D",8,0)
the DUZ's C0P SUBSCRIPTION entry in the new person file, which points to
"^DIC",113059003,113059003,"%D",9,0)
the account in the C0P WS ACCT file. The account will contain an entry to
"^DIC",113059003,113059003,"%D",10,0)
C0P WEB SERVICE (this file). The entry in this file will be used to
"^DIC",113059003,113059003,"%D",11,0)
resolve the entry correct template to use from C0P XML TEMPLATE for the
"^DIC",113059003,113059003,"%D",12,0)
specific web service.
"^DIC",113059003,113059003,"%D",13,0)
"^DIC",113059003,113059003,"%D",14,0)
Copyright 2009 George Lilly. Licensed under the terms of the GNU
"^DIC",113059003,113059003,"%D",15,0)
General Public License See attached copy of the License.
"^DIC",113059003,113059003,"%D",16,0)
"^DIC",113059003,113059003,"%D",17,0)
This program is free software; you can redistribute it and/or modify
"^DIC",113059003,113059003,"%D",18,0)
it under the terms of the GNU General Public License as published by
"^DIC",113059003,113059003,"%D",19,0)
the Free Software Foundation; either version 2 of the License, or
"^DIC",113059003,113059003,"%D",20,0)
(at your option) any later version.
"^DIC",113059003,113059003,"%D",21,0)
"^DIC",113059003,113059003,"%D",22,0)
This program is distributed in the hope that it will be useful,
"^DIC",113059003,113059003,"%D",23,0)
but WITHOUT ANY WARRANTY; without even the implied warranty of
"^DIC",113059003,113059003,"%D",24,0)
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
"^DIC",113059003,113059003,"%D",25,0)
GNU General Public License for more details.
"^DIC",113059003,113059003,"%D",26,0)
"^DIC",113059003,113059003,"%D",27,0)
You should have received a copy of the GNU General Public License along
"^DIC",113059003,113059003,"%D",28,0)
with this program; if not, write to the Free Software Foundation, Inc.,
"^DIC",113059003,113059003,"%D",29,0)
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
"^DIC",113059003,"B","C0P WEB SERVICE",113059003)
**END**
**END**