source: EDIS/tags/ed/tracking-kids/EDPFACILITY1_0T1.KID@ 1240

KIDS Distribution saved on Jan 11, 2008@19:30:14
EDIS TRACKING FACILITY INSTALL 1.0T1
**KIDS**:EDP FACILITY 1.0^

**INSTALL NAME**
EDP FACILITY 1.0
"BLD",6765,0)
EDP FACILITY 1.0^^0^3080111^n
"BLD",6765,1,0)
^^4^4^3080103^
"BLD",6765,1,1,0)
This installed the options, security keys, and remote procedures that are 
"BLD",6765,1,2,0)
used with the EDIS (Emergency Department Information System) web 
"BLD",6765,1,3,0)
application.  Most of the application runs on the EDIS server.  This 
"BLD",6765,1,4,0)
build installs only the components that run at a local facility.
"BLD",6765,4,0)
^9.64PA^232^1
"BLD",6765,4,232,0)
232
"BLD",6765,4,232,222)
y^y^f^^^^n
"BLD",6765,4,"B",232,232)

"BLD",6765,6.3)
10
"BLD",6765,"INIT")
EDPYPST
"BLD",6765,"KRN",0)
^9.67PA^8989.52^19
"BLD",6765,"KRN",.4,0)
.4
"BLD",6765,"KRN",.401,0)
.401
"BLD",6765,"KRN",.402,0)
.402
"BLD",6765,"KRN",.403,0)
.403
"BLD",6765,"KRN",.5,0)
.5
"BLD",6765,"KRN",.84,0)
.84
"BLD",6765,"KRN",3.6,0)
3.6
"BLD",6765,"KRN",3.8,0)
3.8
"BLD",6765,"KRN",9.2,0)
9.2
"BLD",6765,"KRN",9.8,0)
9.8
"BLD",6765,"KRN",9.8,"NM",0)
^9.68A^9^9
"BLD",6765,"KRN",9.8,"NM",1,0)
EDPFAA^^0^B2913485
"BLD",6765,"KRN",9.8,"NM",2,0)
EDPFLEX^^0^B795410
"BLD",6765,"KRN",9.8,"NM",3,0)
EDPFMON^^0^B17219023
"BLD",6765,"KRN",9.8,"NM",4,0)
EDPFMRG^^0^B842644
"BLD",6765,"KRN",9.8,"NM",5,0)
EDPFPER^^0^B2333867
"BLD",6765,"KRN",9.8,"NM",6,0)
EDPFPTL^^0^B2639044
"BLD",6765,"KRN",9.8,"NM",7,0)
EDPFPTS^^0^B7170775
"BLD",6765,"KRN",9.8,"NM",8,0)
EDPFRPC^^0^B1979072
"BLD",6765,"KRN",9.8,"NM",9,0)
EDPX^^0^B6480298
"BLD",6765,"KRN",9.8,"NM","B","EDPFAA",1)

"BLD",6765,"KRN",9.8,"NM","B","EDPFLEX",2)

"BLD",6765,"KRN",9.8,"NM","B","EDPFMON",3)

"BLD",6765,"KRN",9.8,"NM","B","EDPFMRG",4)

"BLD",6765,"KRN",9.8,"NM","B","EDPFPER",5)

"BLD",6765,"KRN",9.8,"NM","B","EDPFPTL",6)

"BLD",6765,"KRN",9.8,"NM","B","EDPFPTS",7)

"BLD",6765,"KRN",9.8,"NM","B","EDPFRPC",8)

"BLD",6765,"KRN",9.8,"NM","B","EDPX",9)

"BLD",6765,"KRN",19,0)
19
"BLD",6765,"KRN",19,"NM",0)
^9.68A^15^15
"BLD",6765,"KRN",19,"NM",1,0)
EDPF TRACKING MENU ALL^^0
"BLD",6765,"KRN",19,"NM",2,0)
EDPF TRACKING MENU CLINICIAN^^0
"BLD",6765,"KRN",19,"NM",3,0)
EDPF TRACKING MENU SIGNIN^^0
"BLD",6765,"KRN",19,"NM",4,0)
EDPF TRACKING MENU TRIAGE^^0
"BLD",6765,"KRN",19,"NM",5,0)
EDPF TRACKING SYSTEM^^0
"BLD",6765,"KRN",19,"NM",6,0)
EDPF TRACKING VIEW BOARD^^0
"BLD",6765,"KRN",19,"NM",7,0)
EDPF TRACKING VIEW CONFIGURE^^0
"BLD",6765,"KRN",19,"NM",8,0)
EDPF TRACKING VIEW DISPOSITION^^0
"BLD",6765,"KRN",19,"NM",9,0)
EDPF TRACKING VIEW EDIT CLOSED^^0
"BLD",6765,"KRN",19,"NM",10,0)
EDPF TRACKING VIEW REPORTS^^0
"BLD",6765,"KRN",19,"NM",11,0)
EDPF TRACKING VIEW SIGNIN^^0
"BLD",6765,"KRN",19,"NM",12,0)
EDPF TRACKING VIEW STAFF^^0
"BLD",6765,"KRN",19,"NM",13,0)
EDPF TRACKING VIEW TRIAGE^^0
"BLD",6765,"KRN",19,"NM",14,0)
EDPF TRACKING VIEW UPDATE^^0
"BLD",6765,"KRN",19,"NM",15,0)
EDPFLOGLISTENER^^0
"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU ALL",1)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU CLINICIAN",2)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU SIGNIN",3)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING MENU TRIAGE",4)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING SYSTEM",5)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW BOARD",6)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW CONFIGURE",7)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW DISPOSITION",8)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW EDIT CLOSED",9)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW REPORTS",10)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW SIGNIN",11)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW STAFF",12)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW TRIAGE",13)

"BLD",6765,"KRN",19,"NM","B","EDPF TRACKING VIEW UPDATE",14)

"BLD",6765,"KRN",19,"NM","B","EDPFLOGLISTENER",15)

"BLD",6765,"KRN",19.1,0)
19.1
"BLD",6765,"KRN",19.1,"NM",0)
^9.68A^3^3
"BLD",6765,"KRN",19.1,"NM",1,0)
EDPR EXPORT^^0
"BLD",6765,"KRN",19.1,"NM",2,0)
EDPR PROVIDER^^0
"BLD",6765,"KRN",19.1,"NM",3,0)
EDPR XREF^^0
"BLD",6765,"KRN",19.1,"NM","B","EDPR EXPORT",1)

"BLD",6765,"KRN",19.1,"NM","B","EDPR PROVIDER",2)

"BLD",6765,"KRN",19.1,"NM","B","EDPR XREF",3)

"BLD",6765,"KRN",101,0)
101
"BLD",6765,"KRN",101,"NM",0)
^9.68A^9^9
"BLD",6765,"KRN",101,"NM",1,0)
EDP CHECK-IN^^0
"BLD",6765,"KRN",101,"NM",2,0)
EDP MONITOR^^0
"BLD",6765,"KRN",101,"NM",3,0)
FH EVSEND OR^^2
"BLD",6765,"KRN",101,"NM",4,0)
GMRC EVSEND OR^^2
"BLD",6765,"KRN",101,"NM",5,0)
LR7O CH EVSEND OR^^2
"BLD",6765,"KRN",101,"NM",6,0)
OR EVSEND ORG^^2
"BLD",6765,"KRN",101,"NM",7,0)
PS EVSEND OR^^2
"BLD",6765,"KRN",101,"NM",8,0)
RA EVSEND OR^^2
"BLD",6765,"KRN",101,"NM",9,0)
SDAM APPOINTMENT EVENTS^^2
"BLD",6765,"KRN",101,"NM","B","EDP CHECK-IN",1)

"BLD",6765,"KRN",101,"NM","B","EDP MONITOR",2)

"BLD",6765,"KRN",101,"NM","B","FH EVSEND OR",3)

"BLD",6765,"KRN",101,"NM","B","GMRC EVSEND OR",4)

"BLD",6765,"KRN",101,"NM","B","LR7O CH EVSEND OR",5)

"BLD",6765,"KRN",101,"NM","B","OR EVSEND ORG",6)

"BLD",6765,"KRN",101,"NM","B","PS EVSEND OR",7)

"BLD",6765,"KRN",101,"NM","B","RA EVSEND OR",8)

"BLD",6765,"KRN",101,"NM","B","SDAM APPOINTMENT EVENTS",9)

"BLD",6765,"KRN",409.61,0)
409.61
"BLD",6765,"KRN",771,0)
771
"BLD",6765,"KRN",870,0)
870
"BLD",6765,"KRN",8989.51,0)
8989.51
"BLD",6765,"KRN",8989.51,"NM",0)
^9.68A^2^2
"BLD",6765,"KRN",8989.51,"NM",1,0)
EDPF LOCATION^^0
"BLD",6765,"KRN",8989.51,"NM",2,0)
EDPF SERVER^^0
"BLD",6765,"KRN",8989.51,"NM","B","EDPF LOCATION",1)

"BLD",6765,"KRN",8989.51,"NM","B","EDPF SERVER",2)

"BLD",6765,"KRN",8989.52,0)
8989.52
"BLD",6765,"KRN",8994,0)
8994
"BLD",6765,"KRN",8994,"NM",0)
^9.68A^1^1
"BLD",6765,"KRN",8994,"NM",1,0)
EDPFRPC CMD^^0
"BLD",6765,"KRN",8994,"NM","B","EDPFRPC CMD",1)

"BLD",6765,"KRN","B",.4,.4)

"BLD",6765,"KRN","B",.401,.401)

"BLD",6765,"KRN","B",.402,.402)

"BLD",6765,"KRN","B",.403,.403)

"BLD",6765,"KRN","B",.5,.5)

"BLD",6765,"KRN","B",.84,.84)

"BLD",6765,"KRN","B",3.6,3.6)

"BLD",6765,"KRN","B",3.8,3.8)

"BLD",6765,"KRN","B",9.2,9.2)

"BLD",6765,"KRN","B",9.8,9.8)

"BLD",6765,"KRN","B",19,19)

"BLD",6765,"KRN","B",19.1,19.1)

"BLD",6765,"KRN","B",101,101)

"BLD",6765,"KRN","B",409.61,409.61)

"BLD",6765,"KRN","B",771,771)

"BLD",6765,"KRN","B",870,870)

"BLD",6765,"KRN","B",8989.51,8989.51)

"BLD",6765,"KRN","B",8989.52,8989.52)

"BLD",6765,"KRN","B",8994,8994)

"BLD",6765,"PRE")
EDPYCHK
"BLD",6765,"QUES",0)
^9.62^^
"BLD",6765,"REQB",0)
^9.611^^
"FIA",232)
ED ACTIVE LOG
"FIA",232,0)
^EDP(232,
"FIA",232,0,0)
232
"FIA",232,0,1)
y^y^f^^^^n
"FIA",232,0,10)

"FIA",232,0,11)

"FIA",232,0,"RLRO")

"FIA",232,232)
0
"INIT")
EDPYPST
"KRN",19,13497,-1)
0^5
"KRN",19,13497,0)
EDPF TRACKING SYSTEM^ED Tracking System - Facility^^B^^^^^^^^
"KRN",19,13497,1,0)
^^1^1^3071207^
"KRN",19,13497,1,1,0)
Context option for ED Tracking System RPC calls at local facility.
"KRN",19,13497,99.1)
61001,51187
"KRN",19,13497,"RPC",0)
^19.05P^6^1
"KRN",19,13497,"RPC",6,0)
EDPFRPC CMD
"KRN",19,13497,"U")
ED TRACKING SYSTEM - FACILITY
"KRN",19,13498,-1)
0^11
"KRN",19,13498,0)
EDPF TRACKING VIEW SIGNIN^Sign In Patient^^M^^^^^^^^
"KRN",19,13498,10,0)
^19.01IP^1^1
"KRN",19,13498,10,1,0)
13497
"KRN",19,13498,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13498,99)
61006,69169
"KRN",19,13498,"U")
SIGN IN PATIENT
"KRN",19,13499,-1)
0^13
"KRN",19,13499,0)
EDPF TRACKING VIEW TRIAGE^Triage Patient^^M^^^^^^^^
"KRN",19,13499,10,0)
^19.01IP^1^1
"KRN",19,13499,10,1,0)
13497
"KRN",19,13499,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13499,99)
61006,69210
"KRN",19,13499,"U")
TRIAGE PATIENT
"KRN",19,13500,-1)
0^14
"KRN",19,13500,0)
EDPF TRACKING VIEW UPDATE^Update Tracking Board^^M^^^^^^^^
"KRN",19,13500,10,0)
^19.01IP^1^1
"KRN",19,13500,10,1,0)
13497
"KRN",19,13500,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13500,99)
61006,69219
"KRN",19,13500,"U")
UPDATE TRACKING BOARD
"KRN",19,13501,-1)
0^8
"KRN",19,13501,0)
EDPF TRACKING VIEW DISPOSITION^Disposition Patient^^M^^^^^^^^
"KRN",19,13501,10,0)
^19.01IP^1^1
"KRN",19,13501,10,1,0)
13497
"KRN",19,13501,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13501,99)
61006,69114
"KRN",19,13501,"U")
DISPOSITION PATIENT
"KRN",19,13502,-1)
0^9
"KRN",19,13502,0)
EDPF TRACKING VIEW EDIT CLOSED^Edit Closed Patient^^M^^^^^^^^
"KRN",19,13502,10,0)
^19.01IP^1^1
"KRN",19,13502,10,1,0)
13497
"KRN",19,13502,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13502,99)
61006,69143
"KRN",19,13502,"U")
EDIT CLOSED PATIENT
"KRN",19,13503,-1)
0^6
"KRN",19,13503,0)
EDPF TRACKING VIEW BOARD^Display Board^^M^^^^^^^^
"KRN",19,13503,10,0)
^19.01IP^1^1
"KRN",19,13503,10,1,0)
13497
"KRN",19,13503,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13503,99)
61006,69081
"KRN",19,13503,"U")
DISPLAY BOARD
"KRN",19,13504,-1)
0^10
"KRN",19,13504,0)
EDPF TRACKING VIEW REPORTS^Tracking Reports^^M^^^^^^^^
"KRN",19,13504,10,0)
^19.01IP^1^1
"KRN",19,13504,10,1,0)
13497
"KRN",19,13504,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13504,99)
61006,69156
"KRN",19,13504,"U")
TRACKING REPORTS
"KRN",19,13505,-1)
0^7
"KRN",19,13505,0)
EDPF TRACKING VIEW CONFIGURE^Configure Tracking Board^^M^^^^^^^^
"KRN",19,13505,10,0)
^19.01IP^1^1
"KRN",19,13505,10,1,0)
13497
"KRN",19,13505,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13505,99)
61006,69100
"KRN",19,13505,"U")
CONFIGURE TRACKING BOARD
"KRN",19,13506,-1)
0^12
"KRN",19,13506,0)
EDPF TRACKING VIEW STAFF^Assign Staff^^M^^^^^^^^
"KRN",19,13506,10,0)
^19.01IP^1^1
"KRN",19,13506,10,1,0)
13497
"KRN",19,13506,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13506,99)
61006,69203
"KRN",19,13506,"U")
ASSIGN STAFF
"KRN",19,13507,-1)
0^1
"KRN",19,13507,0)
EDPF TRACKING MENU ALL^All Tracking Views^^M^^^^^^^^
"KRN",19,13507,10,0)
^19.01IP^9^9
"KRN",19,13507,10,1,0)
13498^^10
"KRN",19,13507,10,1,"^")
EDPF TRACKING VIEW SIGNIN
"KRN",19,13507,10,2,0)
13499^^20
"KRN",19,13507,10,2,"^")
EDPF TRACKING VIEW TRIAGE
"KRN",19,13507,10,3,0)
13500^^30
"KRN",19,13507,10,3,"^")
EDPF TRACKING VIEW UPDATE
"KRN",19,13507,10,4,0)
13501^^40
"KRN",19,13507,10,4,"^")
EDPF TRACKING VIEW DISPOSITION
"KRN",19,13507,10,5,0)
13502^^50
"KRN",19,13507,10,5,"^")
EDPF TRACKING VIEW EDIT CLOSED
"KRN",19,13507,10,6,0)
13503^^60
"KRN",19,13507,10,6,"^")
EDPF TRACKING VIEW BOARD
"KRN",19,13507,10,7,0)
13506^^70
"KRN",19,13507,10,7,"^")
EDPF TRACKING VIEW STAFF
"KRN",19,13507,10,8,0)
13504^^80
"KRN",19,13507,10,8,"^")
EDPF TRACKING VIEW REPORTS
"KRN",19,13507,10,9,0)
13505^^90
"KRN",19,13507,10,9,"^")
EDPF TRACKING VIEW CONFIGURE
"KRN",19,13507,99)
61006,69308
"KRN",19,13507,99.1)
60985,48124
"KRN",19,13507,"U")
ALL TRACKING VIEWS
"KRN",19,13510,-1)
0^15
"KRN",19,13510,0)
EDPFLOGLISTENER^Listen for changes in tracking log.^^S^^^^^^^^EMERGENCY DEPARTMENT
"KRN",19,13510,25)
EDPFMRG
"KRN",19,13510,220)
^R^^N^Y^N
"KRN",19,13510,"U")
LISTEN FOR CHANGES IN TRACKING
"KRN",19,13511,-1)
0^3
"KRN",19,13511,0)
EDPF TRACKING MENU SIGNIN^Sign-in Tracking Views^^^^^^^^^^
"KRN",19,13511,10,0)
^19.01IP^2^2
"KRN",19,13511,10,1,0)
13498^^10
"KRN",19,13511,10,1,"^")
EDPF TRACKING VIEW SIGNIN
"KRN",19,13511,10,2,0)
13503^^20
"KRN",19,13511,10,2,"^")
EDPF TRACKING VIEW BOARD
"KRN",19,13511,99)
61006,69828
"KRN",19,13511,"U")
SIGN-IN TRACKING VIEWS
"KRN",19,13512,-1)
0^4
"KRN",19,13512,0)
EDPF TRACKING MENU TRIAGE^Triage Tracking Views^^^^^^^^^^
"KRN",19,13512,10,0)
^19.01IP^2^2
"KRN",19,13512,10,1,0)
13499^^10
"KRN",19,13512,10,1,"^")
EDPF TRACKING VIEW TRIAGE
"KRN",19,13512,10,2,0)
13503^^20
"KRN",19,13512,10,2,"^")
EDPF TRACKING VIEW BOARD
"KRN",19,13512,99)
61006,69855
"KRN",19,13512,"U")
TRIAGE TRACKING VIEWS
"KRN",19,13513,-1)
0^2
"KRN",19,13513,0)
EDPF TRACKING MENU CLINICIAN^Clinician Tracking Views^^^^^^^^^^
"KRN",19,13513,10,0)
^19.01IP^3^3
"KRN",19,13513,10,1,0)
13500^^10
"KRN",19,13513,10,1,"^")
EDPF TRACKING VIEW UPDATE
"KRN",19,13513,10,2,0)
13501^^20
"KRN",19,13513,10,2,"^")
EDPF TRACKING VIEW DISPOSITION
"KRN",19,13513,10,3,0)
13503^^30
"KRN",19,13513,10,3,"^")
EDPF TRACKING VIEW BOARD
"KRN",19,13513,99)
61006,69882
"KRN",19,13513,"U")
CLINICIAN TRACKING VIEWS
"KRN",19.1,594,-1)
0^1
"KRN",19.1,594,0)
EDPR EXPORT^Allows CSV Export of Report
"KRN",19.1,594,1,0)
^^2^2^3071221^
"KRN",19.1,594,1,1,0)
Allows export of report using tab delimited values for use in Excel and 
"KRN",19.1,594,1,2,0)
other products.
"KRN",19.1,595,-1)
0^2
"KRN",19.1,595,0)
EDPR PROVIDER^Allow Provider Report
"KRN",19.1,595,1,0)
^^2^2^3071221^
"KRN",19.1,595,1,1,0)
Allows access to the provider report in the reports menu for the ED 
"KRN",19.1,595,1,2,0)
package.
"KRN",19.1,596,-1)
0^3
"KRN",19.1,596,0)
EDPR XREF^Allow Pt Xref Report
"KRN",19.1,596,1,0)
^^2^2^3071221^
"KRN",19.1,596,1,1,0)
Allows use of the patient cross reference report in the list of reports 
"KRN",19.1,596,1,2,0)
for the emergency department.
"KRN",101,1302,-1)
2^9
"KRN",101,1302,0)
SDAM APPOINTMENT EVENTS^Appointment Event Driver^^X^10000000020^^^^^^^16
"KRN",101,1302,10,0)
^101.01PA^20^20
"KRN",101,1302,10,20,0)
5601^^^
"KRN",101,1302,10,20,"^")
EDP CHECK-IN
"KRN",101,2690,-1)
2^8
"KRN",101,2690,0)
RA EVSEND OR^Radiology event sent to OE/RR^^X^10000000179^^^^^^^31
"KRN",101,2690,10,0)
^101.01PA^4^4
"KRN",101,2690,10,4,0)
5600^^^
"KRN",101,2690,10,4,"^")
EDP MONITOR
"KRN",101,3336,-1)
2^5
"KRN",101,3336,0)
LR7O CH EVSEND OR^LAB => OE/RR ORDER MESSAGE EVENT^^X^10000000179^^^^^^^
"KRN",101,3336,10,0)
^101.01PA^4^4
"KRN",101,3336,10,4,0)
5600^^^
"KRN",101,3336,10,4,"^")
EDP MONITOR
"KRN",101,3373,-1)
2^7
"KRN",101,3373,0)
PS EVSEND OR^Send Pharmacy orders to CPRS.^^X^10000000179^^^^^^^18
"KRN",101,3373,10,0)
^101.01PA^6^6
"KRN",101,3373,10,6,0)
5600^^^
"KRN",101,3373,10,6,"^")
EDP MONITOR
"KRN",101,3392,-1)
2^4
"KRN",101,3392,0)
GMRC EVSEND OR^Consults event sent to OE/RR^^X^10000000179^^^^^^^294
"KRN",101,3392,10,0)
^101.01PA^5^5
"KRN",101,3392,10,5,0)
5600^^^
"KRN",101,3392,10,5,"^")
EDP MONITOR
"KRN",101,3411,-1)
2^3
"KRN",101,3411,0)
FH EVSEND OR^FH --> OR event messages^^X^10000000179^^^^^^^
"KRN",101,3411,10,0)
^101.01PA^3^3
"KRN",101,3411,10,3,0)
5600^^^
"KRN",101,3411,10,3,"^")
EDP MONITOR
"KRN",101,3536,-1)
2^6
"KRN",101,3536,0)
OR EVSEND ORG^OE/RR => GENERIC MESSAGE EVENT^^X^10000000179^^^^^^^
"KRN",101,3536,10,0)
^101.01PA^3^3
"KRN",101,3536,10,3,0)
5600^^^
"KRN",101,3536,10,3,"^")
EDP MONITOR
"KRN",101,5600,-1)
0^2
"KRN",101,5600,0)
EDP MONITOR^Monitor order messages for EDP Log^^A^^^^^^^^
"KRN",101,5600,20)
D EN^EDPFMON(.XQORMSG)
"KRN",101,5600,99)
60981,2250
"KRN",101,5601,-1)
0^1
"KRN",101,5601,0)
EDP CHECK-IN^Monitor for ED check-in^^A^^^^^^^^
"KRN",101,5601,1,0)
^101.06^2^2^3071228^^^
"KRN",101,5601,1,1,0)
This protocol will monitor the Scheduling event for patients being
"KRN",101,5601,1,2,0)
checked-in to the Emergency Department.
"KRN",101,5601,20)
D SDAM^EDPFMON
"KRN",101,5601,99)
60984,42497
"KRN",8989.51,510,-1)
0^1
"KRN",8989.51,510,0)
EDPF LOCATION^Local ED Hospital Location^0^^ED LOCATION
"KRN",8989.51,510,1)
P^44^Enter the Hospital Location that is the local Emergency Department.
"KRN",8989.51,510,3)
I $P(^(0),U,3)'="W"
"KRN",8989.51,510,20,0)
^8989.512^2^2^3071220^
"KRN",8989.51,510,20,1,0)
This parameter holds the Hospital Location file #44 ien of the local
"KRN",8989.51,510,20,2,0)
Emergency Department.
"KRN",8989.51,510,30,0)
^8989.513I^1^1
"KRN",8989.51,510,30,1,0)
1^4.2
"KRN",8989.51,511,-1)
0^2
"KRN",8989.51,511,0)
EDPF SERVER^EDIS Server^0^^Domain Address
"KRN",8989.51,511,1)
F^^Enter the domain name for the EDIS server.
"KRN",8989.51,511,30,0)
^8989.513I^2^2
"KRN",8989.51,511,30,1,0)
5^4.2
"KRN",8989.51,511,30,2,0)
10^9.4
"KRN",8994,2528,-1)
0^1
"KRN",8994,2528,0)
EDPFRPC CMD^CMD^EDPFRPC^2
"MBREQ")
0
"ORD",3,19.1)
19.1;3;1;;KEY^XPDTA1;;;KEYF2^XPDIA1;;KEYDEL^XPDIA1
"ORD",3,19.1,0)
SECURITY KEY
"ORD",15,101)
101;15;;;PRO^XPDTA;PROF1^XPDIA;PROE1^XPDIA;PROF2^XPDIA;;PRODEL^XPDIA
"ORD",15,101,0)
PROTOCOL
"ORD",16,8994)
8994;16;1;;;;;;;RPCDEL^XPDIA1
"ORD",16,8994,0)
REMOTE PROCEDURE
"ORD",18,19)
19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
"ORD",18,19,0)
OPTION
"ORD",20,8989.51)
8989.51;20;;;PAR1E1^XPDTA2;PAR1F1^XPDIA3;PAR1E1^XPDIA3;PAR1F2^XPDIA3;;PAR1DEL^XPDIA3(%)
"ORD",20,8989.51,0)
PARAMETER DEFINITION
"PRE")
EDPYCHK
"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")
YES
"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")
YES
"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")
YES
"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")
11
"RTN","EDPFAA")
0^1^B2913485
"RTN","EDPFAA",1,0)
EDPFAA ;SLC/KCM - RPC Calls to Facility
"RTN","EDPFAA",2,0)
 ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
"RTN","EDPFAA",3,0)
 ;
"RTN","EDPFAA",4,0)
SESS ; set up session
"RTN","EDPFAA",5,0)
 N X
"RTN","EDPFAA",6,0)
 S X("duz")=DUZ
"RTN","EDPFAA",7,0)
 S X("userNm")=$P($G(^VA(200,DUZ,0)),U)
"RTN","EDPFAA",8,0)
 S X("site")=DUZ(2)
"RTN","EDPFAA",9,0)
 S X("siteNm")=$$NAME^XUAF4(X("site"))
"RTN","EDPFAA",10,0)
 S X("station")=$$STA^XUAF4(DUZ(2))
"RTN","EDPFAA",11,0)
 S X("time")=$$NOW^XLFDT
"RTN","EDPFAA",12,0)
 S X("rptExport")=($D(^XUSEC("EDPR EXPORT",DUZ))>0)
"RTN","EDPFAA",13,0)
 S X("rptProvider")=($D(^XUSEC("EDPR PROVIDER",DUZ))>0)
"RTN","EDPFAA",14,0)
 S X("rptXRef")=($D(^XUSEC("EDPR XREF",DUZ))>0)
"RTN","EDPFAA",15,0)
 D XML^EDPX($$XMLA^EDPX("user",.X))
"RTN","EDPFAA",16,0)
 Q
"RTN","EDPFAA",17,0)
 ;
"RTN","EDPFAA",18,0)
VIEWS ; Return views allowed for this user
"RTN","EDPFAA",19,0)
 N I,X,ID
"RTN","EDPFAA",20,0)
 F I=1:1 S X=$P($T(OPTIONS+I),";",3,99) Q:X="zzzzz"  D
"RTN","EDPFAA",21,0)
 . I $$ACCESS^XQCHK(DUZ,$P(X,U)) D
"RTN","EDPFAA",22,0)
 . . D XML^EDPX($$XMLS^EDPX("view",$P(X,U,3),$P(X,U,2)))
"RTN","EDPFAA",23,0)
 Q
"RTN","EDPFAA",24,0)
OPTIONS ;; options visible in Tracking System
"RTN","EDPFAA",25,0)
 ;;EDPF TRACKING VIEW SIGNIN^Sign In^1
"RTN","EDPFAA",26,0)
 ;;EDPF TRACKING VIEW TRIAGE^Triage^2
"RTN","EDPFAA",27,0)
 ;;EDPF TRACKING VIEW UPDATE^Update^3
"RTN","EDPFAA",28,0)
 ;;EDPF TRACKING VIEW DISPOSITION^Disposition^4
"RTN","EDPFAA",29,0)
 ;;EDPF TRACKING VIEW EDIT CLOSED^Edit Closed^5
"RTN","EDPFAA",30,0)
 ;;EDPF TRACKING VIEW BOARD^Display Board^6
"RTN","EDPFAA",31,0)
 ;;EDPF TRACKING VIEW STAFF^Assign Staff^7
"RTN","EDPFAA",32,0)
 ;;EDPF TRACKING VIEW REPORTS^Reports^8
"RTN","EDPFAA",33,0)
 ;;EDPF TRACKING VIEW CONFIGURE^Configure^9
"RTN","EDPFAA",34,0)
 ;;zzzzz
"RTN","EDPFLEX")
0^2^B795410
"RTN","EDPFLEX",1,0)
EDPFLEX ;SLC/KCM - Lexicon Utilities
"RTN","EDPFLEX",2,0)
 ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
"RTN","EDPFLEX",3,0)
 ;
"RTN","EDPFLEX",4,0)
ICD(TEXT) ; Return Lexicon hits for TEXT
"RTN","EDPFLEX",5,0)
 N LEX,X,Y,I,CODE,NAME,ITEM
"RTN","EDPFLEX",6,0)
 D CONFIG^LEXSET("GMPL","PL1",DT)
"RTN","EDPFLEX",7,0)
 D LOOK^LEXA(TEXT,"GMPL",999,"",DT)
"RTN","EDPFLEX",8,0)
 D XML^EDPX("<items>")
"RTN","EDPFLEX",9,0)
 S I=0 F  S I=$O(LEX("LIST",I)) Q:I<1  D
"RTN","EDPFLEX",10,0)
 . S X=$P(LEX("LIST",I),U,2)
"RTN","EDPFLEX",11,0)
 . S CODE=$P($P(X,"ICD-9-CM ",2),")") Q:'$L(CODE)
"RTN","EDPFLEX",12,0)
 . S NAME=$P(X," (ICD-9-CM")
"RTN","EDPFLEX",13,0)
 . S:$E(NAME,$L(NAME))="*" NAME=$E(NAME,1,$L(NAME)-2)
"RTN","EDPFLEX",14,0)
 . S ITEM("icd")=CODE,ITEM("text")=NAME
"RTN","EDPFLEX",15,0)
 . S Y=$$XMLA^EDPX("item",.ITEM) D XML^EDPX(Y)
"RTN","EDPFLEX",16,0)
 D XML^EDPX("</items>")
"RTN","EDPFLEX",17,0)
 Q
"RTN","EDPFMON")
0^3^B17219023
"RTN","EDPFMON",1,0)
EDPFMON ;SLC/MKB - ED Monitor at facility
"RTN","EDPFMON",2,0)
 ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
"RTN","EDPFMON",3,0)
 ;
"RTN","EDPFMON",4,0)
EN(MSG) ; -- main entry point for EDP MONITOR where MSG contains HL7 msg
"RTN","EDPFMON",5,0)
 N EDMSG,PKG,MSH,PID,PV1,ORC,DFN,LOG
"RTN","EDPFMON",6,0)
 S EDMSG=$S($L($G(MSG)):MSG,1:"MSG")           ;MSG="NAME" or MSG(#)=segment
"RTN","EDPFMON",7,0)
 S MSH=0 F  S MSH=$O(@EDMSG@(MSH)) Q:MSH'>0  Q:$E(@EDMSG@(MSH),1,3)="MSH"
"RTN","EDPFMON",8,0)
 S PKG=$$PKG($P(@EDMSG@(MSH),"|",3)) Q:'$L(PKG)  ;unknown
"RTN","EDPFMON",9,0)
 S DFN=$$PID Q:DFN<1
"RTN","EDPFMON",10,0)
 S LOG=+$O(^EDP(232,"C",DFN,0)) Q:LOG<1  ;not in ED
"RTN","EDPFMON",11,0)
 S LOG=+$P(^EDP(232,LOG,0),U) Q:LOG<1
"RTN","EDPFMON",12,0)
 S ORC=0 F  S ORC=$O(@EDMSG@(+ORC)) Q:ORC'>0  I $E(@EDMSG@(ORC),1,3)="ORC" D
"RTN","EDPFMON",13,0)
 . N ORDCNTRL,ORIFN,STS,RTN
"RTN","EDPFMON",14,0)
 . S ORC=ORC_U_@EDMSG@(ORC),ORDCNTRL=$TR($P(ORC,"|",2),"@","P")
"RTN","EDPFMON",15,0)
 . Q:'$L(ORDCNTRL)
"RTN","EDPFMON",16,0)
 . S ORIFN=$P($P(ORC,"|",3),U),STS=$P(ORC,"|",6)
"RTN","EDPFMON",17,0)
 . S RTN=$S("NW^OK^SN^XR"[ORDCNTRL:"NEW",1:"UPD")
"RTN","EDPFMON",18,0)
 . D @RTN
"RTN","EDPFMON",19,0)
 Q
"RTN","EDPFMON",20,0)
 ;
"RTN","EDPFMON",21,0)
PKG(NAME) ; -- Returns package code
"RTN","EDPFMON",22,0)
 I NAME="RADIOLOGY"!(NAME="IMAGING") Q "R"
"RTN","EDPFMON",23,0)
 I NAME="LABORATORY" Q "L"
"RTN","EDPFMON",24,0)
 I NAME="PHARMACY" Q "M"
"RTN","EDPFMON",25,0)
 I NAME="CONSULTS" Q "C"
"RTN","EDPFMON",26,0)
 I NAME="PROCEDURES" Q "C"
"RTN","EDPFMON",27,0)
 I NAME="DIETETICS" Q "A"
"RTN","EDPFMON",28,0)
 I NAME="ORDER ENTRY" Q "A"
"RTN","EDPFMON",29,0)
 Q ""
"RTN","EDPFMON",30,0)
 ;
"RTN","EDPFMON",31,0)
PID() ; -- Returns patient DFN from PID segment in current msg
"RTN","EDPFMON",32,0)
 N I,Y,SEG S I=MSH
"RTN","EDPFMON",33,0)
 F  S I=$O(@EDMSG@(I)) Q:I'>0  S SEG=$E(@EDMSG@(I),1,3) Q:SEG="ORC"  I SEG="PID" S Y=+$P(@EDMSG@(I),"|",4) Q
"RTN","EDPFMON",34,0)
 Q Y
"RTN","EDPFMON",35,0)
 ;
"RTN","EDPFMON",36,0)
NEW ; -- add new order to patient log
"RTN","EDPFMON",37,0)
 N MSG,START,URG
"RTN","EDPFMON",38,0)
 S START=$$VALUE^ORX8(ORIFN,"START")
"RTN","EDPFMON",39,0)
 I "NOW"'[START,"TODAY"'[START Q  ;others?
"RTN","EDPFMON",40,0)
 S URG=$$VALUE^ORX8(ORIFN,"URGENCY",1,"E") S:'$L(URG) URG="ROUTINE"
"RTN","EDPFMON",41,0)
 S MSG(1)="command=newOrder"
"RTN","EDPFMON",42,0)
 S MSG(2)="id="_LOG
"RTN","EDPFMON",43,0)
 S MSG(3)="orifn="_+ORIFN
"RTN","EDPFMON",44,0)
 S MSG(4)="pkg="_PKG
"RTN","EDPFMON",45,0)
 S MSG(5)="sts="_"N"
"RTN","EDPFMON",46,0)
 S MSG(6)="stat="_(URG="STAT"!(URG="ASAP"))
"RTN","EDPFMON",47,0)
 S MSG(7)="release="_$$NOW^XLFDT
"RTN","EDPFMON",48,0)
 D SEND(.MSG)
"RTN","EDPFMON",49,0)
 Q
"RTN","EDPFMON",50,0)
 ;
"RTN","EDPFMON",51,0)
UPD ; -- update state of order in log
"RTN","EDPFMON",52,0)
 I ORDCNTRL="RE" D STS("C") Q
"RTN","EDPFMON",53,0)
 I "CA^DC^OC^OD^CR^DR"[ORDCNTRL D DEL Q  ;??
"RTN","EDPFMON",54,0)
 I PKG="L",ORDCNTRL="SC" D STS("A") Q
"RTN","EDPFMON",55,0)
 I PKG="R",ORDCNTRL="SC" D STS("A") Q
"RTN","EDPFMON",56,0)
 I PKG="C","SC^XX"[ORDCNTRL D STS("A") Q
"RTN","EDPFMON",57,0)
 I PKG="M" D  Q
"RTN","EDPFMON",58,0)
 . I "RO^XX^ZV"[ORDCNTRL D STS("A") Q
"RTN","EDPFMON",59,0)
 . Q:ORDCNTRL'="SC"  Q:'$L(STS)
"RTN","EDPFMON",60,0)
 . I "DC^ZE^RP"[STS D STS("C") Q
"RTN","EDPFMON",61,0)
 . D STS("A")
"RTN","EDPFMON",62,0)
 I PKG="A","SC^XX"[ORDCNTRL D  Q
"RTN","EDPFMON",63,0)
 . I "DC^ZE"[STS D STS("C") Q
"RTN","EDPFMON",64,0)
 . D STS("A")
"RTN","EDPFMON",65,0)
 Q
"RTN","EDPFMON",66,0)
 ;
"RTN","EDPFMON",67,0)
STS(DA,X) ; -- update status
"RTN","EDPFMON",68,0)
 N MSG
"RTN","EDPFMON",69,0)
 S MSG(1)="command=updateOrder"
"RTN","EDPFMON",70,0)
 S MSG(2)="id="_LOG
"RTN","EDPFMON",71,0)
 S MSG(3)="orifn="_+ORIFN
"RTN","EDPFMON",72,0)
 S MSG(4)="sts="_X
"RTN","EDPFMON",73,0)
 D SEND(.MSG)
"RTN","EDPFMON",74,0)
 Q
"RTN","EDPFMON",75,0)
 ;
"RTN","EDPFMON",76,0)
DEL ; -- remove order
"RTN","EDPFMON",77,0)
 N MSG
"RTN","EDPFMON",78,0)
 S MSG(1)="command=deleteOrder"
"RTN","EDPFMON",79,0)
 S MSG(2)="id="_LOG
"RTN","EDPFMON",80,0)
 S MSG(3)="orifn="_+ORIFN
"RTN","EDPFMON",81,0)
 D SEND(.MSG)
"RTN","EDPFMON",82,0)
 Q
"RTN","EDPFMON",83,0)
 ;
"RTN","EDPFMON",84,0)
VER(ORIFN) ; -- update status when ORIFN verified
"RTN","EDPFMON",85,0)
 N SITE,DFN,LOG,DA S ORIFN=+$G(ORIFN)
"RTN","EDPFMON",86,0)
 S DFN=+$P($G(^OR(100,ORIFN,0)),U,2) Q:DFN<1
"RTN","EDPFMON",87,0)
 S LOG=+$O(^EDP(232,"C",DFN,0)) Q:LOG<1  ;not in ED
"RTN","EDPFMON",88,0)
 S LOG=+$P(^EDP(232,LOG,0),U) Q:LOG<1
"RTN","EDPFMON",89,0)
 N MSG
"RTN","EDPFMON",90,0)
 S MSG(1)="command=verifyOrder"
"RTN","EDPFMON",91,0)
 S MSG(2)="id="_LOG
"RTN","EDPFMON",92,0)
 S MSG(3)="orifn="_ORIFN
"RTN","EDPFMON",93,0)
 D SEND(.MSG)
"RTN","EDPFMON",94,0)
 Q
"RTN","EDPFMON",95,0)
 ;
"RTN","EDPFMON",96,0)
COMP(ORIFN) ; -- update status when ORIFN completed
"RTN","EDPFMON",97,0)
 N SITE,DFN,LOG,DA S ORIFN=+$G(ORIFN)
"RTN","EDPFMON",98,0)
 S DFN=+$P($G(^OR(100,ORIFN,0)),U,2) Q:DFN<1
"RTN","EDPFMON",99,0)
 S LOG=+$O(^EDP(232,"C",DFN,0)) Q:LOG<1  ;not in ED
"RTN","EDPFMON",100,0)
 S LOG=+$P(^EDP(232,LOG,0),U) Q:LOG<1
"RTN","EDPFMON",101,0)
 N MSG
"RTN","EDPFMON",102,0)
 S MSG(1)="command=completeOrder"
"RTN","EDPFMON",103,0)
 S MSG(2)="id="_LOG
"RTN","EDPFMON",104,0)
 S MSG(3)="orifn="_ORIFN
"RTN","EDPFMON",105,0)
 D SEND(.MSG)
"RTN","EDPFMON",106,0)
 Q
"RTN","EDPFMON",107,0)
 ;
"RTN","EDPFMON",108,0)
 ; -- Monitor SDAM APPOINTMENT EVENTS for patients checking-in to ED
"RTN","EDPFMON",109,0)
 ; 
"RTN","EDPFMON",110,0)
SDAM ; -- send bulletin on check-in
"RTN","EDPFMON",111,0)
 Q:$G(SDAMEVT)'=4  ;only looking for check-in events for ED
"RTN","EDPFMON",112,0)
 Q:$P(SDATA,U,4)'=$$GET^XPAR("ALL","EDPF LOCATION")
"RTN","EDPFMON",113,0)
 N DFN,DATE,HLOC
"RTN","EDPFMON",114,0)
 S DFN=+$P(SDATA,U,2),DATE=+$P(SDATA,U,3),HLOC=+$P(SDATA,U,4)
"RTN","EDPFMON",115,0)
 ; your code goes here :)
"RTN","EDPFMON",116,0)
 N MSG
"RTN","EDPFMON",117,0)
 S MSG(1)="command=patientCheckIn"
"RTN","EDPFMON",118,0)
 S MSG(2)="dfn="_DFN
"RTN","EDPFMON",119,0)
 S MSG(3)="ptNm="_$P(^DPT(DFN,0),U)
"RTN","EDPFMON",120,0)
 S MSG(4)="ssn="_$P(^DPT(DFN,0),U,9)
"RTN","EDPFMON",121,0)
 S MSG(5)="hloc="_HLOC
"RTN","EDPFMON",122,0)
 S MSG(6)="site="_$$STA^XUAF4(DUZ(2))
"RTN","EDPFMON",123,0)
 S MSG(7)="time="_$$NOW^XLFDT
"RTN","EDPFMON",124,0)
 D SEND(.MSG)
"RTN","EDPFMON",125,0)
 Q
"RTN","EDPFMON",126,0)
SEND(MSG) ; Send update message to EDIS server
"RTN","EDPFMON",127,0)
 N DOMAIN S DOMAIN=$$GET^XPAR("ALL","EDPF SERVER",1,"Q")
"RTN","EDPFMON",128,0)
 Q:'$L(DOMAIN)
"RTN","EDPFMON",129,0)
 ;
"RTN","EDPFMON",130,0)
 N XMSUB,XMY,XMTEXT,EDPMSG
"RTN","EDPFMON",131,0)
 S XMSUB="EDIS Update Event"
"RTN","EDPFMON",132,0)
 S XMTEXT="MSG("
"RTN","EDPFMON",133,0)
 S XMY("S.EDPSERVER@"_DOMAIN)=""
"RTN","EDPFMON",134,0)
 D ^XMD
"RTN","EDPFMON",135,0)
 Q
"RTN","EDPFMRG")
0^4^B842644
"RTN","EDPFMRG",1,0)
EDPFMRG ;SLC/KCM - Maintain facility list of active entries
"RTN","EDPFMRG",2,0)
 ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
"RTN","EDPFMRG",3,0)
 ;
"RTN","EDPFMRG",4,0)
INMAIL ; process incoming mail
"RTN","EDPFMRG",5,0)
 ;
"RTN","EDPFMRG",6,0)
 ; message formats --
"RTN","EDPFMRG",7,0)
 ;   registerLog:logEntry:dfn
"RTN","EDPFMRG",8,0)
 ;   removeLog:logEntry
"RTN","EDPFMRG",9,0)
 ;   
"RTN","EDPFMRG",10,0)
 N I
"RTN","EDPFMRG",11,0)
 F I=1:1 X XMREC Q:XMER<0  D
"RTN","EDPFMRG",12,0)
 . I $P(XMRG,":")="registerLog" D REG($P(XMRG,":",2),$P(XMRG,":",3))
"RTN","EDPFMRG",13,0)
 . I $P(XMRG,":")="removeLog" D REM($P(XMRG,":",2))
"RTN","EDPFMRG",14,0)
 Q
"RTN","EDPFMRG",15,0)
REG(LOG,DFN) ; register new patient for events
"RTN","EDPFMRG",16,0)
 N FDA,FDAIEN,DIERR,ERR
"RTN","EDPFMRG",17,0)
 S FDA(232,"+1,",.01)=LOG
"RTN","EDPFMRG",18,0)
 S FDA(232,"+1,",.02)=DFN
"RTN","EDPFMRG",19,0)
 D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPFMRG",20,0)
 I $D(DIERR) ; send a message?
"RTN","EDPFMRG",21,0)
 Q
"RTN","EDPFMRG",22,0)
REM(LOG) ; remove new patient for events
"RTN","EDPFMRG",23,0)
 N DA,DIK
"RTN","EDPFMRG",24,0)
 S DA=$O(^EDP(232,"B",LOG,0)) Q:'DA
"RTN","EDPFMRG",25,0)
 S DIK="^EDP(232,"
"RTN","EDPFMRG",26,0)
 D ^DIK
"RTN","EDPFMRG",27,0)
 Q
"RTN","EDPFPER")
0^5^B2333867
"RTN","EDPFPER",1,0)
EDPFPER ;SLC/KCM - Lookup Persons at Facility
"RTN","EDPFPER",2,0)
 ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
"RTN","EDPFPER",3,0)
 ;
"RTN","EDPFPER",4,0)
MATCH(MATCH,PTYP) ; Return a matching list of providers
"RTN","EDPFPER",5,0)
 S MATCH=$$UP^XLFSTR(MATCH)
"RTN","EDPFPER",6,0)
 D XML^EDPX("<personType>"_PTYP_"</personType>")
"RTN","EDPFPER",7,0)
 I PTYP="N" D NURS
"RTN","EDPFPER",8,0)
 I PTYP'="N" D PROV
"RTN","EDPFPER",9,0)
 Q
"RTN","EDPFPER",10,0)
PROV ; match providers
"RTN","EDPFPER",11,0)
 N NM,PRV,X0,X
"RTN","EDPFPER",12,0)
 S NM=$O(^VA(200,"AK.PROVIDER",MATCH),-1)
"RTN","EDPFPER",13,0)
 F  S NM=$O(^VA(200,"AK.PROVIDER",NM)) Q:$E(NM,1,$L(MATCH))'=MATCH  D
"RTN","EDPFPER",14,0)
 . S PRV=0 F  S PRV=$O(^VA(200,"AK.PROVIDER",NM,PRV)) Q:'PRV  D
"RTN","EDPFPER",15,0)
 . . I '$$PROVIDER^XUSER(PRV) Q
"RTN","EDPFPER",16,0)
 . . S X0=^VA(200,PRV,0)
"RTN","EDPFPER",17,0)
 . . S X("nm")=NM
"RTN","EDPFPER",18,0)
 . . S X("itl")=$P(X0,U,2)
"RTN","EDPFPER",19,0)
 . . I X("itl")="" S X("itl")=$E($P(NM,",",2))_$E(NM)
"RTN","EDPFPER",20,0)
 . . S X("duz")=PRV
"RTN","EDPFPER",21,0)
 . . D XML^EDPX($$XMLA^EDPX("staff",.X))
"RTN","EDPFPER",22,0)
 Q
"RTN","EDPFPER",23,0)
NURS ; match nurses
"RTN","EDPFPER",24,0)
 N NM,NRS
"RTN","EDPFPER",25,0)
 S NM=$O(^VA(200,"B",MATCH),-1)
"RTN","EDPFPER",26,0)
 F  S NM=$O(^VA(200,"B",NM)) Q:$E(NM,1,$L(MATCH))'=MATCH  D
"RTN","EDPFPER",27,0)
 . S NRS=0 F  S NRS=$O(^VA(200,"B",NM,NRS)) Q:'NRS  D
"RTN","EDPFPER",28,0)
 . . I '$D(^NURSF(210,"B",NRS)) Q
"RTN","EDPFPER",29,0)
 . . I '$$ACTIVE^XUSER(NRS) Q
"RTN","EDPFPER",30,0)
 . . S X0=^VA(200,NRS,0)
"RTN","EDPFPER",31,0)
 . . S X("nm")=NM
"RTN","EDPFPER",32,0)
 . . S X("itl")=$P(X0,U,2)
"RTN","EDPFPER",33,0)
 . . I X("itl")="" S X("itl")=$E($P(NM,",",2))_$E(NM)
"RTN","EDPFPER",34,0)
 . . S X("duz")=NRS
"RTN","EDPFPER",35,0)
 . . D XML^EDPX($$XMLA^EDPX("staff",.X))
"RTN","EDPFPER",36,0)
 Q
"RTN","EDPFPTL")
0^6^B2639044
"RTN","EDPFPTL",1,0)
EDPFPTL ;SLC/KCM - Select Patient at Facility
"RTN","EDPFPTL",2,0)
 ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
"RTN","EDPFPTL",3,0)
 ;
"RTN","EDPFPTL",4,0)
MATCH(MATCH) ; return XML of matching patients
"RTN","EDPFPTL",5,0)
 S MATCH=$$UP^XLFSTR(MATCH)
"RTN","EDPFPTL",6,0)
 Q:MATCH=""
"RTN","EDPFPTL",7,0)
 ;
"RTN","EDPFPTL",8,0)
 S:+MATCH MATCH=$TR(MATCH,"-","")
"RTN","EDPFPTL",9,0)
 ;
"RTN","EDPFPTL",10,0)
 N LST
"RTN","EDPFPTL",11,0)
 I MATCH?1U4N D LAST4(MATCH,.LST)
"RTN","EDPFPTL",12,0)
 I MATCH?9N.1U D SSN(MATCH,.LST)
"RTN","EDPFPTL",13,0)
 D LNAM(MATCH,.LST)
"RTN","EDPFPTL",14,0)
 I LST=0 D NONE
"RTN","EDPFPTL",15,0)
 I LST>0 D LIST(.LST)
"RTN","EDPFPTL",16,0)
 Q
"RTN","EDPFPTL",17,0)
 ;
"RTN","EDPFPTL",18,0)
NONE ; create a "no matches" list
"RTN","EDPFPTL",19,0)
 N X
"RTN","EDPFPTL",20,0)
 S X("name")="No matches found."
"RTN","EDPFPTL",21,0)
 S X("ssn")="",X("dob")="",X("dfn")=0
"RTN","EDPFPTL",22,0)
 D XML^EDPX($$XMLA^EDPX("ptlk",.X))
"RTN","EDPFPTL",23,0)
 Q
"RTN","EDPFPTL",24,0)
LIST(LST) ; list names that match
"RTN","EDPFPTL",25,0)
 N I,X,DFN
"RTN","EDPFPTL",26,0)
 S I=0 F  S I=$O(LST(I)) Q:'I  D
"RTN","EDPFPTL",27,0)
 . S DFN=LST(I)
"RTN","EDPFPTL",28,0)
 . S X("name")=$P(^DPT(DFN,0),U)
"RTN","EDPFPTL",29,0)
 . S X("ssn")=$$SSN^DPTLK1(DFN)  ; DG249
"RTN","EDPFPTL",30,0)
 . S X("dob")=$$DOB^DPTLK1(DFN)  ; DG249
"RTN","EDPFPTL",31,0)
 . S X("dfn")=DFN
"RTN","EDPFPTL",32,0)
 . D XML^EDPX($$XMLA^EDPX("ptlk",.X))
"RTN","EDPFPTL",33,0)
 Q
"RTN","EDPFPTL",34,0)
LAST4(X,Y) ; find matches on X9999 (BS5)
"RTN","EDPFPTL",35,0)
 N DFN S DFN=0,Y=0
"RTN","EDPFPTL",36,0)
 F  S DFN=$O(^DPT("BS5",X,DFN)) Q:'DFN  S Y=Y+1,Y(Y)=DFN
"RTN","EDPFPTL",37,0)
 Q
"RTN","EDPFPTL",38,0)
SSN(X,Y) ; find matches on 999999999 (SSN)
"RTN","EDPFPTL",39,0)
 N DFN S DFN=0,Y=0
"RTN","EDPFPTL",40,0)
 F  S DFN=$O(^DPT("SSN",X,DFN)) Q:'DFN  S Y=Y+1,Y(Y)=DFN
"RTN","EDPFPTL",41,0)
 Q
"RTN","EDPFPTL",42,0)
LNAM(X,Y) ; find matches on name (B)
"RTN","EDPFPTL",43,0)
 N DFN,NAME
"RTN","EDPFPTL",44,0)
 S NAME=$O(^DPT("B",X),-1),Y=0
"RTN","EDPFPTL",45,0)
 F  S NAME=$O(^DPT("B",NAME)) Q:$E(NAME,1,$L(X))'=X  Q:NAME=""  D
"RTN","EDPFPTL",46,0)
 . S DFN=0 F  S DFN=$O(^DPT("B",NAME,DFN)) Q:'DFN  S Y=Y+1,Y(Y)=DFN
"RTN","EDPFPTL",47,0)
 Q
"RTN","EDPFPTS")
0^7^B7170775
"RTN","EDPFPTS",1,0)
EDPFPTS ;SLC/MKB - Patient look-up Utilities at Facility
"RTN","EDPFPTS",2,0)
 ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
"RTN","EDPFPTS",3,0)
 ;
"RTN","EDPFPTS",4,0)
SEC(DFN) ; Check for sensitive record, patient record flags
"RTN","EDPFPTS",5,0)
 N I,N,X,Y,EDI,EDPY,SP,PRF,EDPT,EDPN,PN,EDPX
"RTN","EDPFPTS",6,0)
 ; check for sensitive record
"RTN","EDPFPTS",7,0)
 D PTSEC^DGSEC4(.EDPY,DFN,1) S Y=$G(EDPY(1)) ;IA #3027
"RTN","EDPFPTS",8,0)
 S SP("value")="false",SP("mayAccess")="true" I Y>0 D
"RTN","EDPFPTS",9,0)
 . S SP("value")="true"
"RTN","EDPFPTS",10,0)
 . S I=2,X=$G(EDPY(2))
"RTN","EDPFPTS",11,0)
 . F  S I=$O(EDPY(I)) Q:I<1  S X=X_$C(13,10)_EDPY(I)
"RTN","EDPFPTS",12,0)
 . S SP("text")="SENSITIVE PATIENT WARNING" ;X
"RTN","EDPFPTS",13,0)
 . I Y>2 S SP("mayAccess")="false"
"RTN","EDPFPTS",14,0)
 . E  S SP("getAck")=$S(Y=2:"true",1:"false")
"RTN","EDPFPTS",15,0)
 D XML^EDPX("<sensitivePatient>")
"RTN","EDPFPTS",16,0)
 D XMLE^EDPX(.SP)
"RTN","EDPFPTS",17,0)
 D XML^EDPX("</sensitivePatient>")
"RTN","EDPFPTS",18,0)
PRF ; get Patient Record Flags
"RTN","EDPFPTS",19,0)
 K EDPY Q:$$GETACT^DGPFAPI(DFN,"EDPY")'>0
"RTN","EDPFPTS",20,0)
 D XML^EDPX("<patientRecordFlags>")
"RTN","EDPFPTS",21,0)
 S EDI=0 F  S EDI=$O(EDPY(EDI)) Q:EDI<1  K PRF D
"RTN","EDPFPTS",22,0)
 . S PRF("assignmentStatus")="Active"
"RTN","EDPFPTS",23,0)
 . S PRF("assignTS")=$P($G(EDPY(EDI,"ASSIGNDT")),U)
"RTN","EDPFPTS",24,0)
 . S PRF("approved")=$P($G(EDPY(EDI,"APPRVBY")),U,2)
"RTN","EDPFPTS",25,0)
 . S PRF("nextReviewDT")=$P($G(EDPY(EDI,"REVIEWDT")),U)
"RTN","EDPFPTS",26,0)
 . S PRF("name")=$P($G(EDPY(EDI,"FLAG")),U,2)
"RTN","EDPFPTS",27,0)
 . S PRF("type")=$P($G(EDPY(EDI,"FLAGTYPE")),U,2)
"RTN","EDPFPTS",28,0)
 . S PRF("category")=$P($G(EDPY(EDI,"CATEGORY")),U,2)
"RTN","EDPFPTS",29,0)
 . S PRF("ownerSite")=$P($G(EDPY(EDI,"OWNER")),U,2)
"RTN","EDPFPTS",30,0)
 . S PRF("originatingSite")=$P($G(EDPY(EDI,"ORIGSITE")),U,2)
"RTN","EDPFPTS",31,0)
 . S X=$$XMLA^EDPX("flag",.PRF),X=$TR(X,"/") D XML^EDPX(X)
"RTN","EDPFPTS",32,0)
 . S N=1,X=$G(EDPY(EDI,"NARR",1,0))
"RTN","EDPFPTS",33,0)
 . F  S N=$O(EDPY(EDI,"NARR",N)) Q:N<1  S X=X_$C(13,10)_$G(EDPY(EDI,"NARR",N,0))
"RTN","EDPFPTS",34,0)
 . S X="<text>"_$$ESC^EDPX(X)_"</text>" D XML^EDPX(X)
"RTN","EDPFPTS",35,0)
 . ;linked progress notes?
"RTN","EDPFPTS",36,0)
 . ;D GETTITLE^TIUPRF2(.EDPT,DFN,EDI),GETNOTES^TIUPRF2(.EDPN,DFN,EDPT,1)
"RTN","EDPFPTS",37,0)
 . I $O(EDPN(0)) D
"RTN","EDPFPTS",38,0)
 .. D XML^EDPX("<notes>")
"RTN","EDPFPTS",39,0)
 .. S N=0 F  S N=$O(EDPN(N)) Q:N<1  K PN S X=EDPN(N) D
"RTN","EDPFPTS",40,0)
 ... S PN("id")=+X,PN("action")=$P(X,U,2),PN("author")=$P(X,U,4)
"RTN","EDPFPTS",41,0)
 ... S PN("noteTS")=9999999-N
"RTN","EDPFPTS",42,0)
 ... D TGET^TIUSRVR1(.EDPX,+X)
"RTN","EDPFPTS",43,0)
 ... S X=$$XMLA^EDPX("note",.PN),X=$TR(X,"/") D XML^EDPX(X)
"RTN","EDPFPTS",44,0)
 ... S I=1,X=$G(@EDPX@(1))
"RTN","EDPFPTS",45,0)
 ... F  S I=$O(@EDPX@(I)) Q:I<1  S X=X_$C(13,10)_$G(@EDPX@(I))
"RTN","EDPFPTS",46,0)
 ... S X="<text>"_$$ESC^EDPX(X)_"</text>" D XML^EDPX(X)
"RTN","EDPFPTS",47,0)
 ... D XML^EDPX("</note>")
"RTN","EDPFPTS",48,0)
 .. D XML^EDPX("</notes>")
"RTN","EDPFPTS",49,0)
 . D XML^EDPX("</flag>")
"RTN","EDPFPTS",50,0)
 D XML^EDPX("</patientRecordFlags>")
"RTN","EDPFPTS",51,0)
 Q
"RTN","EDPFPTS",52,0)
 ;
"RTN","EDPFPTS",53,0)
LOG(DFN) ; Make entry in security log for sensitive patient access
"RTN","EDPFPTS",54,0)
 N EDPY,X
"RTN","EDPFPTS",55,0)
 D NOTICE^DGSEC4(.EDPY,DFN) ;IA #3027
"RTN","EDPFPTS",56,0)
 S X=$S(EDPY:"ok",1:"fail")
"RTN","EDPFPTS",57,0)
 D XML^EDPX("<save status='"_X_"' />")
"RTN","EDPFPTS",58,0)
 Q
"RTN","EDPFRPC")
0^8^B1979072
"RTN","EDPFRPC",1,0)
EDPFRPC ;SLC/KCM - Facility Front Controller for ED Tracking
"RTN","EDPFRPC",2,0)
 ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
"RTN","EDPFRPC",3,0)
 ;
"RTN","EDPFRPC",4,0)
CMD(EDPXML,REQ) ; process command and return XML
"RTN","EDPFRPC",5,0)
 ;
"RTN","EDPFRPC",6,0)
 N EDPFAIL,CMD
"RTN","EDPFRPC",7,0)
 S CMD=$G(REQ("command"))
"RTN","EDPFRPC",8,0)
 ;
"RTN","EDPFRPC",9,0)
 ; switch on command
"RTN","EDPFRPC",10,0)
 ; 
"RTN","EDPFRPC",11,0)
 ; ---------------------------------
"RTN","EDPFRPC",12,0)
 ; 
"RTN","EDPFRPC",13,0)
 ; initUser
"RTN","EDPFRPC",14,0)
 ; return <user />
"RTN","EDPFRPC",15,0)
 ;        <view />...
"RTN","EDPFRPC",16,0)
 I CMD="initUser" D  G OUT
"RTN","EDPFRPC",17,0)
 . D SESS^EDPFAA,VIEWS^EDPFAA
"RTN","EDPFRPC",18,0)
 ;
"RTN","EDPFRPC",19,0)
 ; ---------------------------------
"RTN","EDPFRPC",20,0)
 ;
"RTN","EDPFRPC",21,0)
 ; matchPatients
"RTN","EDPFRPC",22,0)
 ; return <ptlk />...<ptlk />
"RTN","EDPFRPC",23,0)
 I CMD="matchPatients" D  G OUT
"RTN","EDPFRPC",24,0)
 . D MATCH^EDPFPTL(REQ("partial"))
"RTN","EDPFRPC",25,0)
 ;
"RTN","EDPFRPC",26,0)
 ; ---------------------------------
"RTN","EDPFRPC",27,0)
 ;
"RTN","EDPFRPC",28,0)
 ; matchPersons
"RTN","EDPFRPC",29,0)
 ; return <per />...<per />
"RTN","EDPFRPC",30,0)
 I CMD="matchPersons" D  G OUT
"RTN","EDPFRPC",31,0)
 . D MATCH^EDPFPER(REQ("partial"),REQ("personType"))
"RTN","EDPFRPC",32,0)
 ;
"RTN","EDPFRPC",33,0)
 ; ---------------------------------
"RTN","EDPFRPC",34,0)
 ; 
"RTN","EDPFRPC",35,0)
 ; getPatientRecordFlags
"RTN","EDPFRPC",36,0)
 ; return <sensitivePatient>
"RTN","EDPFRPC",37,0)
 ;        <patientRecordFlags>
"RTN","EDPFRPC",38,0)
 I CMD="getPatientRecordFlags" D  G OUT
"RTN","EDPFRPC",39,0)
 . D SEC^EDPFPTS(REQ("patient"))
"RTN","EDPFRPC",40,0)
 ; 
"RTN","EDPFRPC",41,0)
 ; ---------------------------------
"RTN","EDPFRPC",42,0)
 ; 
"RTN","EDPFRPC",43,0)
 ; saveSecurityLog
"RTN","EDPFRPC",44,0)
 ; return <save />
"RTN","EDPFRPC",45,0)
 I CMD="saveSecurityLog" D  G OUT
"RTN","EDPFRPC",46,0)
 . D LOG^EDPFPTS(REQ("patient"))
"RTN","EDPFRPC",47,0)
 ; 
"RTN","EDPFRPC",48,0)
 ; ---------------------------------
"RTN","EDPFRPC",49,0)
 ;
"RTN","EDPFRPC",50,0)
 ; 
"RTN","EDPFRPC",51,0)
 ; getLexiconMatches
"RTN","EDPFRPC",52,0)
 ; return <items><item />...</items>
"RTN","EDPFRPC",53,0)
 I CMD="getLexiconMatches" D  G OUT
"RTN","EDPFRPC",54,0)
 . D ICD^EDPFLEX(REQ("text"))
"RTN","EDPFRPC",55,0)
 ; 
"RTN","EDPFRPC",56,0)
 ; ---------------------------------
"RTN","EDPFRPC",57,0)
 ; 
"RTN","EDPFRPC",58,0)
 ; else
"RTN","EDPFRPC",59,0)
 D XML^EDPX("<error msg='"_$$MSG^EDPX(2300010)_"' />")
"RTN","EDPFRPC",60,0)
 ; end switch
"RTN","EDPFRPC",61,0)
 ;
"RTN","EDPFRPC",62,0)
OUT ; end switch
"RTN","EDPFRPC",63,0)
 Q
"RTN","EDPX")
0^9^B6480298
"RTN","EDPX",1,0)
EDPX ;SLC/KCM - Common Utilities
"RTN","EDPX",2,0)
 ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
"RTN","EDPX",3,0)
 ;
"RTN","EDPX",4,0)
ESC(X) ; Escape for XML transmission
"RTN","EDPX",5,0)
 Q $ZCONVERT(X,"O","HTML")
"RTN","EDPX",6,0)
 ;
"RTN","EDPX",7,0)
UES(X) ; Unescape XML
"RTN","EDPX",8,0)
 Q $ZCONVERT(X,"I","HTML")
"RTN","EDPX",9,0)
 ;
"RTN","EDPX",10,0)
UESREQ(REQ) ; Unescape HTTP post
"RTN","EDPX",11,0)
 N I,X
"RTN","EDPX",12,0)
 S X="" F  S X=$O(REQ(X)) Q:X=""  D
"RTN","EDPX",13,0)
 . S I=0 F  S I=$O(REQ(X,I)) Q:'I  D
"RTN","EDPX",14,0)
 . . S REQ(X,I)=$ZCONVERT(REQ(X,I),"I","HTML")
"RTN","EDPX",15,0)
 Q
"RTN","EDPX",16,0)
VAL(X,R) ; Returns parameter value or null
"RTN","EDPX",17,0)
 ; HTTP passes HTML-escaped values in an array as REC(param,1)
"RTN","EDPX",18,0)
 Q $G(R(X,1))
"RTN","EDPX",19,0)
 ;
"RTN","EDPX",20,0)
NVPARSE(LST,IN) ; Parses tab delimited name-value pairs into array
"RTN","EDPX",21,0)
 N I,X,TAB,NM,VAL
"RTN","EDPX",22,0)
 S TAB=$C(9)
"RTN","EDPX",23,0)
 F I=1:1:$L(IN,TAB) S X=$P(IN,TAB,I),NM=$P(X,"="),VAL=$P(X,"=",2,999) S:$L(NM) LST(NM)=VAL
"RTN","EDPX",24,0)
 Q
"RTN","EDPX",25,0)
XMLS(TAG,DATA,LBL) ; Return XML node as <TAG data="9" label="XXX" />
"RTN","EDPX",26,0)
 Q "<"_TAG_" data="""_$$ESC(DATA)_""" label="""_$$ESC(LBL)_""" />"
"RTN","EDPX",27,0)
 ;
"RTN","EDPX",28,0)
XMLA(TAG,ATT,END) ; Return XML node as <TAG att1="a" att2="b"... />
"RTN","EDPX",29,0)
 N NODE S NODE="<"_TAG_" "
"RTN","EDPX",30,0)
 N X
"RTN","EDPX",31,0)
 S X="" F  S X=$O(ATT(X)) Q:X=""  I $L(ATT(X)) S NODE=NODE_X_"="""_$$ESC(ATT(X))_""" "
"RTN","EDPX",32,0)
 S NODE=NODE_$G(END,"/")_">"
"RTN","EDPX",33,0)
 Q NODE
"RTN","EDPX",34,0)
 ;
"RTN","EDPX",35,0)
XMLE(SRC) ; Append list to XML array as elements
"RTN","EDPX",36,0)
 N X,NODE
"RTN","EDPX",37,0)
 S X="" F  S X=$O(SRC(X)) Q:X=""  D
"RTN","EDPX",38,0)
 . S NODE="<"_X_">"_$$ESC(SRC(X))_"</"_X_">"
"RTN","EDPX",39,0)
 . D XML(NODE)
"RTN","EDPX",40,0)
 Q
"RTN","EDPX",41,0)
XML(X) ; Add a line of XML to be returned
"RTN","EDPX",42,0)
 S EDPXML=$G(EDPXML)+1
"RTN","EDPX",43,0)
 S EDPXML(EDPXML)=X
"RTN","EDPX",44,0)
 Q
"RTN","EDPX",45,0)
CODE(X) ; Return internal value for a code
"RTN","EDPX",46,0)
 Q $O(^EDPB(233.1,"B",X,0))
"RTN","EDPX",47,0)
 ;
"RTN","EDPX",48,0)
MSG(MSG) ; Write out error message
"RTN","EDPX",49,0)
 I MSG=1       S X="some error"
"RTN","EDPX",50,0)
 I MSG=2300001 S X="Station Number is missing"
"RTN","EDPX",51,0)
 I MSG=2300002 S X="Patient is already active in log"
"RTN","EDPX",52,0)
 I MSG=2300003 S X="Unable to create lock for new record"
"RTN","EDPX",53,0)
 I MSG=2300004 S X="Error creating new record"
"RTN","EDPX",54,0)
 I MSG=2300005 S X="Error creating sub-record"
"RTN","EDPX",55,0)
 I MSG=2300006 S X="Missing log record"
"RTN","EDPX",56,0)
 I MSG=2300007 S X="Missing log IEN"
"RTN","EDPX",57,0)
 I MSG=2300008 S X="Error updating record"
"RTN","EDPX",58,0)
 I MSG=2300009 S X="Error updating sub-record"
"RTN","EDPX",59,0)
 I MSG=2300010 S X="Command missing or not recognized"
"RTN","EDPX",60,0)
 I MSG=2300011 S X="Unknown report type"
"RTN","EDPX",61,0)
 I MSG=2300012 S X="Missing or invalid date range"
"RTN","EDPX",62,0)
 I MSG=2300013 S X="Shift times not defined for this site"
"RTN","EDPX",63,0)
 Q $$ESC^EDPX(X)
"RTN","EDPYCHK")
0^^B1074868
"RTN","EDPYCHK",1,0)
EDPYCHK ;SLC/KCM - Environmental Check for facility install
"RTN","EDPYCHK",2,0)
 ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
"RTN","EDPYCHK",3,0)
 ;This routine will check to see if the user is in a production account
"RTN","EDPYCHK",4,0)
 ;if they are then the user will not be allowed to install this
"RTN","EDPYCHK",5,0)
 ;patch/build/bundle
"RTN","EDPYCHK",6,0)
 ;
"RTN","EDPYCHK",7,0)
 I $$PROD^XUPROD D
"RTN","EDPYCHK",8,0)
 .W !,"You are attempting to install this software into your production account."
"RTN","EDPYCHK",9,0)
 .W !,"At this time, this software is not ready for a production install."
"RTN","EDPYCHK",10,0)
 .W !!,"Please verify the account you're attempting to install into."
"RTN","EDPYCHK",11,0)
 .W !!,"INSTALLATION ABORTED!"
"RTN","EDPYCHK",12,0)
 .S XPDABORT=1
"RTN","EDPYCHK",13,0)
 Q
"RTN","EDPYPST")
0^^B469700
"RTN","EDPYPST",1,0)
EDPYPST ;SLC/KCM - Post-init for facility install
"RTN","EDPYPST",2,0)
 ;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 10
"RTN","EDPYPST",3,0)
 ;
"RTN","EDPYPST",4,0)
UPDSVR ; Update domain information on the central server after install
"RTN","EDPYPST",5,0)
 D EN^XPAR("SYS","EDPF SERVER",1,"EDIS-SQA.FO-SLC.MED.VA.GOV")
"RTN","EDPYPST",6,0)
 N MSG
"RTN","EDPYPST",7,0)
 S MSG(1)="command=sendDomain"
"RTN","EDPYPST",8,0)
 S MSG(2)="domain="_$$KSP^XUPARAM("WHERE")
"RTN","EDPYPST",9,0)
 S MSG(3)="station="_$$STA^XUAF4($$KSP^XUPARAM("INST"))
"RTN","EDPYPST",10,0)
 D SEND^EDPFMON(.MSG)
"RTN","EDPYPST",11,0)
 Q
"SEC","^DIC",232,232,0,"AUDIT")
@
"SEC","^DIC",232,232,0,"DD")
@
"SEC","^DIC",232,232,0,"DEL")
@
"SEC","^DIC",232,232,0,"LAYGO")
@
"SEC","^DIC",232,232,0,"RD")
@
"SEC","^DIC",232,232,0,"WR")
@
"VER")
8.0^22.0
"^DD",232,232,0)
FIELD^^.02^2
"^DD",232,232,0,"DT")
3071228
"^DD",232,232,0,"IX","B",232,.01)

"^DD",232,232,0,"IX","C",232,.02)

"^DD",232,232,0,"NM","ED ACTIVE LOG")

"^DD",232,232,.01,0)
LOG ENTRY^RNJ11,0^^0;1^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
"^DD",232,232,.01,1,0)
^.1
"^DD",232,232,.01,1,1,0)
232^B
"^DD",232,232,.01,1,1,1)
S ^EDP(232,"B",$E(X,1,30),DA)=""
"^DD",232,232,.01,1,1,2)
K ^EDP(232,"B",$E(X,1,30),DA)
"^DD",232,232,.01,3)
Type a Number between 1 and 99999999999, 0 Decimal Digits
"^DD",232,232,.01,"DT")
3071228
"^DD",232,232,.02,0)
PATIENT^P2'^DPT(^0;2^Q
"^DD",232,232,.02,1,0)
^.1
"^DD",232,232,.02,1,1,0)
232^C
"^DD",232,232,.02,1,1,1)
S ^EDP(232,"C",$E(X,1,30),DA)=""
"^DD",232,232,.02,1,1,2)
K ^EDP(232,"C",$E(X,1,30),DA)
"^DD",232,232,.02,1,1,"DT")
3071228
"^DD",232,232,.02,"DT")
3071228
"^DIC",232,232,0)
ED ACTIVE LOG^232
"^DIC",232,232,0,"GL")
^EDP(232,
"^DIC",232,"B","ED ACTIVE LOG",232)

**END**
**END**