KIDS Distribution saved on Apr 03, 2008@00:34:13
Emergency Department 1.0T8
**KIDS**:EMERGENCY DEPARTMENT 1.0^
**INSTALL NAME**
EMERGENCY DEPARTMENT 1.0
"BLD",6764,0)
EMERGENCY DEPARTMENT 1.0^EMERGENCY DEPARTMENT^0^3080403^y
"BLD",6764,1,0)
^^4^4^3080305^
"BLD",6764,1,1,0)
This is the initial installation of the Emergency Department Information
"BLD",6764,1,2,0)
System (EDIS). This is the module that handles tracking of a patient
"BLD",6764,1,3,0)
through an emergency department visit. The user interface for this
"BLD",6764,1,4,0)
application is a web application.
"BLD",6764,4,0)
^9.64PA^233.2^7
"BLD",6764,4,230,0)
230
"BLD",6764,4,230,222)
y^y^f^^^^n
"BLD",6764,4,230.1,0)
230.1
"BLD",6764,4,230.1,222)
y^y^f^^^^n
"BLD",6764,4,231.7,0)
231.7
"BLD",6764,4,231.7,222)
y^y^f^^^^n
"BLD",6764,4,231.8,0)
231.8
"BLD",6764,4,231.8,222)
y^y^f^^^^n
"BLD",6764,4,231.9,0)
231.9
"BLD",6764,4,231.9,222)
y^y^f^^^^n
"BLD",6764,4,233.1,0)
233.1
"BLD",6764,4,233.1,222)
y^y^f^^y^^y^r^n
"BLD",6764,4,233.1,224)
I $E(^(0),1,4)="edp."
"BLD",6764,4,233.2,0)
233.2
"BLD",6764,4,233.2,222)
y^y^f^^y^^y^r^n
"BLD",6764,4,233.2,224)
I $E(^(0),1,4)="edp."
"BLD",6764,4,"B",230,230)
"BLD",6764,4,"B",230.1,230.1)
"BLD",6764,4,"B",231.7,231.7)
"BLD",6764,4,"B",231.8,231.8)
"BLD",6764,4,"B",231.9,231.9)
"BLD",6764,4,"B",233.1,233.1)
"BLD",6764,4,"B",233.2,233.2)
"BLD",6764,6.3)
26
"BLD",6764,"ABPKG")
n
"BLD",6764,"INI")
EDPYPRE
"BLD",6764,"INIT")
EDPYPST
"BLD",6764,"KRN",0)
^9.67PA^8989.52^19
"BLD",6764,"KRN",.4,0)
.4
"BLD",6764,"KRN",.401,0)
.401
"BLD",6764,"KRN",.402,0)
.402
"BLD",6764,"KRN",.403,0)
.403
"BLD",6764,"KRN",.5,0)
.5
"BLD",6764,"KRN",.84,0)
.84
"BLD",6764,"KRN",3.6,0)
3.6
"BLD",6764,"KRN",3.8,0)
3.8
"BLD",6764,"KRN",9.2,0)
9.2
"BLD",6764,"KRN",9.8,0)
9.8
"BLD",6764,"KRN",9.8,"NM",0)
^9.68A^49^45
"BLD",6764,"KRN",9.8,"NM",1,0)
EDPFAA^^0^B4736966
"BLD",6764,"KRN",9.8,"NM",2,0)
EDPFLEX^^0^B1745474
"BLD",6764,"KRN",9.8,"NM",3,0)
EDPFMON^^0^B17338011
"BLD",6764,"KRN",9.8,"NM",5,0)
EDPFPER^^0^B2953018
"BLD",6764,"KRN",9.8,"NM",6,0)
EDPFPTL^^0^B3299385
"BLD",6764,"KRN",9.8,"NM",9,0)
EDPX^^0^B8367733
"BLD",6764,"KRN",9.8,"NM",10,0)
EDPRPT^^0^B7993997
"BLD",6764,"KRN",9.8,"NM",11,0)
EDPRPT1^^0^B33201845
"BLD",6764,"KRN",9.8,"NM",12,0)
EDPRPT10^^0^B18747692
"BLD",6764,"KRN",9.8,"NM",13,0)
EDPRPT11^^0^B8284389
"BLD",6764,"KRN",9.8,"NM",14,0)
EDPRPT2^^0^B15693212
"BLD",6764,"KRN",9.8,"NM",15,0)
EDPRPT3^^0^B8551745
"BLD",6764,"KRN",9.8,"NM",16,0)
EDPRPT4^^0^B21886528
"BLD",6764,"KRN",9.8,"NM",17,0)
EDPRPT5^^0^B33868084
"BLD",6764,"KRN",9.8,"NM",18,0)
EDPRPT6^^0^B9637359
"BLD",6764,"KRN",9.8,"NM",19,0)
EDPRPT7^^0^B22243761
"BLD",6764,"KRN",9.8,"NM",20,0)
EDPRPT7C^^0^B22375057
"BLD",6764,"KRN",9.8,"NM",21,0)
EDPRPT8^^0^B14729048
"BLD",6764,"KRN",9.8,"NM",22,0)
EDPRPT9^^0^B1592058
"BLD",6764,"KRN",9.8,"NM",23,0)
EDPFMOVE^^0^B25998709
"BLD",6764,"KRN",9.8,"NM",24,0)
EDPCONV^^0^B69324317
"BLD",6764,"KRN",9.8,"NM",25,0)
EDPBCF^^0^B6148648
"BLD",6764,"KRN",9.8,"NM",26,0)
EDPBCM^^0^B11803353
"BLD",6764,"KRN",9.8,"NM",27,0)
EDPBPM^^0^B2766869
"BLD",6764,"KRN",9.8,"NM",28,0)
EDPBRM^^0^B8445684
"BLD",6764,"KRN",9.8,"NM",29,0)
EDPBRS^^0^B17301676
"BLD",6764,"KRN",9.8,"NM",30,0)
EDPBSL^^0^B10687935
"BLD",6764,"KRN",9.8,"NM",31,0)
EDPBST^^0^B5475516
"BLD",6764,"KRN",9.8,"NM",32,0)
EDPCBRD^^0^B2212606
"BLD",6764,"KRN",9.8,"NM",34,0)
EDPCTRL^^0^B29824391
"BLD",6764,"KRN",9.8,"NM",35,0)
EDPDD^^0^B107293
"BLD",6764,"KRN",9.8,"NM",36,0)
EDPFPTC^^0^B14650211
"BLD",6764,"KRN",9.8,"NM",37,0)
EDPLOG^^0^B22496356
"BLD",6764,"KRN",9.8,"NM",38,0)
EDPLOG1^^0^B2523379
"BLD",6764,"KRN",9.8,"NM",39,0)
EDPLOGA^^0^B6686415
"BLD",6764,"KRN",9.8,"NM",40,0)
EDPLOGH^^0^B269228
"BLD",6764,"KRN",9.8,"NM",41,0)
EDPMAIL^^0^B5650063
"BLD",6764,"KRN",9.8,"NM",42,0)
EDPQAR^^0^B2509873
"BLD",6764,"KRN",9.8,"NM",43,0)
EDPQDB^^0^B27455627
"BLD",6764,"KRN",9.8,"NM",44,0)
EDPQDBS^^0^B2920790
"BLD",6764,"KRN",9.8,"NM",45,0)
EDPQLE^^0^B19401035
"BLD",6764,"KRN",9.8,"NM",46,0)
EDPQLE1^^0^B4668105
"BLD",6764,"KRN",9.8,"NM",47,0)
EDPQLP^^0^B5911520
"BLD",6764,"KRN",9.8,"NM",48,0)
EDPCSV^^0^B959295
"BLD",6764,"KRN",9.8,"NM",49,0)
EDPLPCE^^0^B8566272
"BLD",6764,"KRN",9.8,"NM","B","EDPBCF",25)
"BLD",6764,"KRN",9.8,"NM","B","EDPBCM",26)
"BLD",6764,"KRN",9.8,"NM","B","EDPBPM",27)
"BLD",6764,"KRN",9.8,"NM","B","EDPBRM",28)
"BLD",6764,"KRN",9.8,"NM","B","EDPBRS",29)
"BLD",6764,"KRN",9.8,"NM","B","EDPBSL",30)
"BLD",6764,"KRN",9.8,"NM","B","EDPBST",31)
"BLD",6764,"KRN",9.8,"NM","B","EDPCBRD",32)
"BLD",6764,"KRN",9.8,"NM","B","EDPCONV",24)
"BLD",6764,"KRN",9.8,"NM","B","EDPCSV",48)
"BLD",6764,"KRN",9.8,"NM","B","EDPCTRL",34)
"BLD",6764,"KRN",9.8,"NM","B","EDPDD",35)
"BLD",6764,"KRN",9.8,"NM","B","EDPFAA",1)
"BLD",6764,"KRN",9.8,"NM","B","EDPFLEX",2)
"BLD",6764,"KRN",9.8,"NM","B","EDPFMON",3)
"BLD",6764,"KRN",9.8,"NM","B","EDPFMOVE",23)
"BLD",6764,"KRN",9.8,"NM","B","EDPFPER",5)
"BLD",6764,"KRN",9.8,"NM","B","EDPFPTC",36)
"BLD",6764,"KRN",9.8,"NM","B","EDPFPTL",6)
"BLD",6764,"KRN",9.8,"NM","B","EDPLOG",37)
"BLD",6764,"KRN",9.8,"NM","B","EDPLOG1",38)
"BLD",6764,"KRN",9.8,"NM","B","EDPLOGA",39)
"BLD",6764,"KRN",9.8,"NM","B","EDPLOGH",40)
"BLD",6764,"KRN",9.8,"NM","B","EDPLPCE",49)
"BLD",6764,"KRN",9.8,"NM","B","EDPMAIL",41)
"BLD",6764,"KRN",9.8,"NM","B","EDPQAR",42)
"BLD",6764,"KRN",9.8,"NM","B","EDPQDB",43)
"BLD",6764,"KRN",9.8,"NM","B","EDPQDBS",44)
"BLD",6764,"KRN",9.8,"NM","B","EDPQLE",45)
"BLD",6764,"KRN",9.8,"NM","B","EDPQLE1",46)
"BLD",6764,"KRN",9.8,"NM","B","EDPQLP",47)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT",10)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT1",11)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT10",12)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT11",13)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT2",14)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT3",15)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT4",16)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT5",17)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT6",18)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT7",19)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT7C",20)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT8",21)
"BLD",6764,"KRN",9.8,"NM","B","EDPRPT9",22)
"BLD",6764,"KRN",9.8,"NM","B","EDPX",9)
"BLD",6764,"KRN",19,0)
19
"BLD",6764,"KRN",19,"NM",0)
^9.68A^17^16
"BLD",6764,"KRN",19,"NM",1,0)
EDPF TRACKING MENU ALL^^0
"BLD",6764,"KRN",19,"NM",2,0)
EDPF TRACKING MENU CLINICIAN^^0
"BLD",6764,"KRN",19,"NM",3,0)
EDPF TRACKING MENU SIGNIN^^0
"BLD",6764,"KRN",19,"NM",4,0)
EDPF TRACKING MENU TRIAGE^^0
"BLD",6764,"KRN",19,"NM",5,0)
EDPF TRACKING SYSTEM^^0
"BLD",6764,"KRN",19,"NM",6,0)
EDPF TRACKING VIEW BOARD^^0
"BLD",6764,"KRN",19,"NM",7,0)
EDPF TRACKING VIEW CONFIGURE^^0
"BLD",6764,"KRN",19,"NM",8,0)
EDPF TRACKING VIEW DISPOSITION^^0
"BLD",6764,"KRN",19,"NM",9,0)
EDPF TRACKING VIEW EDIT CLOSED^^0
"BLD",6764,"KRN",19,"NM",10,0)
EDPF TRACKING VIEW REPORTS^^0
"BLD",6764,"KRN",19,"NM",11,0)
EDPF TRACKING VIEW SIGNIN^^0
"BLD",6764,"KRN",19,"NM",12,0)
EDPF TRACKING VIEW STAFF^^0
"BLD",6764,"KRN",19,"NM",13,0)
EDPF TRACKING VIEW TRIAGE^^0
"BLD",6764,"KRN",19,"NM",14,0)
EDPF TRACKING VIEW UPDATE^^0
"BLD",6764,"KRN",19,"NM",16,0)
EDP CONVERSION^^0
"BLD",6764,"KRN",19,"NM",17,0)
EDPS BOARD CONTEXT^^0
"BLD",6764,"KRN",19,"NM","B","EDP CONVERSION",16)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING MENU ALL",1)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING MENU CLINICIAN",2)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING MENU SIGNIN",3)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING MENU TRIAGE",4)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING SYSTEM",5)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING VIEW BOARD",6)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING VIEW CONFIGURE",7)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING VIEW DISPOSITION",8)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING VIEW EDIT CLOSED",9)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING VIEW REPORTS",10)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING VIEW SIGNIN",11)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING VIEW STAFF",12)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING VIEW TRIAGE",13)
"BLD",6764,"KRN",19,"NM","B","EDPF TRACKING VIEW UPDATE",14)
"BLD",6764,"KRN",19,"NM","B","EDPS BOARD CONTEXT",17)
"BLD",6764,"KRN",19.1,0)
19.1
"BLD",6764,"KRN",19.1,"NM",0)
^9.68A^3^3
"BLD",6764,"KRN",19.1,"NM",1,0)
EDPR EXPORT^^0
"BLD",6764,"KRN",19.1,"NM",2,0)
EDPR PROVIDER^^0
"BLD",6764,"KRN",19.1,"NM",3,0)
EDPR XREF^^0
"BLD",6764,"KRN",19.1,"NM","B","EDPR EXPORT",1)
"BLD",6764,"KRN",19.1,"NM","B","EDPR PROVIDER",2)
"BLD",6764,"KRN",19.1,"NM","B","EDPR XREF",3)
"BLD",6764,"KRN",101,0)
101
"BLD",6764,"KRN",101,"NM",0)
^9.68A^9^9
"BLD",6764,"KRN",101,"NM",1,0)
EDP CHECK-IN^^0
"BLD",6764,"KRN",101,"NM",2,0)
EDP MONITOR^^0
"BLD",6764,"KRN",101,"NM",3,0)
FH EVSEND OR^^2
"BLD",6764,"KRN",101,"NM",4,0)
GMRC EVSEND OR^^2
"BLD",6764,"KRN",101,"NM",5,0)
LR7O CH EVSEND OR^^2
"BLD",6764,"KRN",101,"NM",6,0)
OR EVSEND ORG^^2
"BLD",6764,"KRN",101,"NM",7,0)
PS EVSEND OR^^2
"BLD",6764,"KRN",101,"NM",8,0)
RA EVSEND OR^^2
"BLD",6764,"KRN",101,"NM",9,0)
SDAM APPOINTMENT EVENTS^^2
"BLD",6764,"KRN",101,"NM","B","EDP CHECK-IN",1)
"BLD",6764,"KRN",101,"NM","B","EDP MONITOR",2)
"BLD",6764,"KRN",101,"NM","B","FH EVSEND OR",3)
"BLD",6764,"KRN",101,"NM","B","GMRC EVSEND OR",4)
"BLD",6764,"KRN",101,"NM","B","LR7O CH EVSEND OR",5)
"BLD",6764,"KRN",101,"NM","B","OR EVSEND ORG",6)
"BLD",6764,"KRN",101,"NM","B","PS EVSEND OR",7)
"BLD",6764,"KRN",101,"NM","B","RA EVSEND OR",8)
"BLD",6764,"KRN",101,"NM","B","SDAM APPOINTMENT EVENTS",9)
"BLD",6764,"KRN",409.61,0)
409.61
"BLD",6764,"KRN",771,0)
771
"BLD",6764,"KRN",870,0)
870
"BLD",6764,"KRN",8989.51,0)
8989.51
"BLD",6764,"KRN",8989.51,"NM",0)
^9.68A^1^1
"BLD",6764,"KRN",8989.51,"NM",1,0)
EDPF LOCATION^^0
"BLD",6764,"KRN",8989.51,"NM","B","EDPF LOCATION",1)
"BLD",6764,"KRN",8989.52,0)
8989.52
"BLD",6764,"KRN",8994,0)
8994
"BLD",6764,"KRN",8994,"NM",0)
^9.68A^2^2
"BLD",6764,"KRN",8994,"NM",1,0)
EDPCBRD RPC^^0
"BLD",6764,"KRN",8994,"NM",2,0)
EDPCTRL RPC^^0
"BLD",6764,"KRN",8994,"NM","B","EDPCBRD RPC",1)
"BLD",6764,"KRN",8994,"NM","B","EDPCTRL RPC",2)
"BLD",6764,"KRN","B",.4,.4)
"BLD",6764,"KRN","B",.401,.401)
"BLD",6764,"KRN","B",.402,.402)
"BLD",6764,"KRN","B",.403,.403)
"BLD",6764,"KRN","B",.5,.5)
"BLD",6764,"KRN","B",.84,.84)
"BLD",6764,"KRN","B",3.6,3.6)
"BLD",6764,"KRN","B",3.8,3.8)
"BLD",6764,"KRN","B",9.2,9.2)
"BLD",6764,"KRN","B",9.8,9.8)
"BLD",6764,"KRN","B",19,19)
"BLD",6764,"KRN","B",19.1,19.1)
"BLD",6764,"KRN","B",101,101)
"BLD",6764,"KRN","B",409.61,409.61)
"BLD",6764,"KRN","B",771,771)
"BLD",6764,"KRN","B",870,870)
"BLD",6764,"KRN","B",8989.51,8989.51)
"BLD",6764,"KRN","B",8989.52,8989.52)
"BLD",6764,"KRN","B",8994,8994)
"BLD",6764,"PRE")
EDPYCHK
"BLD",6764,"QUES",0)
^9.62^^
"BLD",6764,"REQB",0)
^9.611^^
"DATA",233.1,1,0)
edp.acuity.esi1^1^1
"DATA",233.1,1,2,0)
^^1^1^3070720^
"DATA",233.1,1,2,1,0)
Most critical
"DATA",233.1,2,0)
edp.acuity.esi2^2^2
"DATA",233.1,3,0)
edp.acuity.esi3^3^3
"DATA",233.1,4,0)
edp.acuity.esi4^4^4
"DATA",233.1,5,0)
edp.acuity.esi5^5^5
"DATA",233.1,8,0)
edp.status.admitted^Admitted - Still in ED^Admit^^A
"DATA",233.1,9,0)
edp.status.edobs^ED Observation^EDObs^^AO
"DATA",233.1,11,0)
edp.status.gone^No Longer in ED^Gone
"DATA",233.1,12,0)
edp.status.observation^Observation^Obs^^AO
"DATA",233.1,13,0)
edp.status.overflow^Overflow^Ovf
"DATA",233.1,15,0)
edp.delay.inptbed^Obtain Inpatient Bed^13k
"DATA",233.1,16,0)
edp.delay.overcrowd^Overcrowding of ED^13a
"DATA",233.1,17,0)
edp.delay.admiteval^Admitting Physician Evaluation^13c
"DATA",233.1,18,0)
edp.delay.admitorders^Admit MD Writing Admit Orders^13h
"DATA",233.1,19,0)
edp.delay.admitobs^Patient Admitted to Observation^OBS
"DATA",233.1,20,0)
edp.delay.stafflimit^ED Staff Limits^13b
"DATA",233.1,21,0)
edp.delay.interfacility^Interfacility Transfer^13m
"DATA",233.1,22,0)
edp.delay.ambulance^Obtain Ambulance Services^13n
"DATA",233.1,23,0)
edp.delay.imageresult^Obtain Imaging Results^13g
"DATA",233.1,24,0)
edp.delay.imagestudy^Obtain Imaging Studies^13f
"DATA",233.1,25,0)
edp.delay.pharm^Obtain Drugs/Pharmacology^13j
"DATA",233.1,26,0)
edp.delay.labresult^Obtain Lab Results^13e
"DATA",233.1,27,0)
edp.delay.labstudy^Obtain Lab Studies^13d
"DATA",233.1,28,0)
edp.delay.supplies^Obtain Medical Supplies^13i
"DATA",233.1,29,0)
edp.delay.surgery^Arrange Emergency Surgery^13l
"DATA",233.1,30,0)
edp.delay.home^Patient Transport Home^13p
"DATA",233.1,31,0)
edp.delay.transport^Patient Transport Other^13o
"DATA",233.1,32,0)
edp.source.ambulance^Ambulance
"DATA",233.1,33,0)
edp.source.walk-in^Walk-in
"DATA",233.1,35,0)
edp.disposition.home^Home^H
"DATA",233.1,36,0)
edp.disposition.admitva^Admitted to VA Ward^VA^^VA
"DATA",233.1,37,0)
edp.disposition.left^Left Without Being Treated/Seen^L^^M
"DATA",233.1,38,0)
edp.disposition.xferva^Transferred to VA Facility^O^^A
"DATA",233.1,39,0)
edp.disposition.ama^AMA^AMA^^M
"DATA",233.1,40,0)
edp.disposition.clinic^Sent to Urgent Care Clinic^CL
"DATA",233.1,41,0)
edp.disposition.deceased^Deceased^D
"DATA",233.1,42,0)
edp.disposition.telemetry^Admitted to Telemetry^T^^VA
"DATA",233.1,43,0)
edp.disposition.icu^Admitted to ICU^ICU^^VA
"DATA",233.1,44,0)
edp.disposition.nec^Sent to Nurse Eval / Drop In Clinic^NEC
"DATA",233.1,45,0)
edp.disposition.eloped^Eloped^E^^M
"DATA",233.1,46,0)
edp.reserved.novalue^
"DATA",233.1,53,0)
edp.source.clinic^Clinic
"DATA",233.1,54,0)
edp.source.cboc^CBOC
"DATA",233.1,55,0)
edp.source.nhcu^NHCU
"DATA",233.1,56,0)
edp.source.code^Emergency Code
"DATA",233.1,57,0)
edp.disposition.xfernon^Transfer to non-VA Facility^NVA
"DATA",233.1,58,0)
edp.disposition.psych^Admitted to Psychiatry^PSY^^VA
"DATA",233.1,59,0)
edp.delay.consult^Obtain Consultation^CSLT
"DATA",233.1,60,0)
edp.disposition.error^Patient Name Entered in Error^ERR
"DATA",233.2,1,0)
edp.acuity
"DATA",233.2,1,1,0)
^233.21A^5^5
"DATA",233.2,1,1,1,0)
1^1
"DATA",233.2,1,1,2,0)
2^2
"DATA",233.2,1,1,3,0)
3^3
"DATA",233.2,1,1,4,0)
4^4
"DATA",233.2,1,1,5,0)
5^5
"DATA",233.2,3,0)
edp.status
"DATA",233.2,3,1,0)
^233.21A^8^4
"DATA",233.2,3,1,1,0)
10^8
"DATA",233.2,3,1,2,0)
20^9
"DATA",233.2,3,1,7,0)
30^12
"DATA",233.2,3,1,8,0)
40^13
"DATA",233.2,4,0)
edp.delay
"DATA",233.2,4,1,0)
^233.21A^18^18
"DATA",233.2,4,1,1,0)
3^15
"DATA",233.2,4,1,2,0)
5^16
"DATA",233.2,4,1,3,0)
10^17
"DATA",233.2,4,1,4,0)
15^18
"DATA",233.2,4,1,5,0)
20^19
"DATA",233.2,4,1,6,0)
25^20
"DATA",233.2,4,1,7,0)
30^21
"DATA",233.2,4,1,8,0)
35^22
"DATA",233.2,4,1,9,0)
40^23
"DATA",233.2,4,1,10,0)
45^24
"DATA",233.2,4,1,11,0)
50^25
"DATA",233.2,4,1,12,0)
55^26
"DATA",233.2,4,1,13,0)
60^27
"DATA",233.2,4,1,14,0)
65^28
"DATA",233.2,4,1,15,0)
70^29
"DATA",233.2,4,1,16,0)
75^30
"DATA",233.2,4,1,17,0)
80^31
"DATA",233.2,4,1,18,0)
85^59
"DATA",233.2,5,0)
edp.arrival
"DATA",233.2,5,1,0)
^233.21A^6^6
"DATA",233.2,5,1,1,0)
10^53
"DATA",233.2,5,1,2,0)
20^54
"DATA",233.2,5,1,3,0)
30^32
"DATA",233.2,5,1,4,0)
40^33
"DATA",233.2,5,1,5,0)
50^55
"DATA",233.2,5,1,6,0)
60^56
"DATA",233.2,6,0)
edp.disposition
"DATA",233.2,6,1,0)
^233.21A^14^14
"DATA",233.2,6,1,1,0)
10^36
"DATA",233.2,6,1,2,0)
60^39
"DATA",233.2,6,1,3,0)
130^40
"DATA",233.2,6,1,4,0)
110^41
"DATA",233.2,6,1,5,0)
80^45
"DATA",233.2,6,1,6,0)
50^35
"DATA",233.2,6,1,7,0)
30^43
"DATA",233.2,6,1,8,0)
70^37
"DATA",233.2,6,1,9,0)
120^44
"DATA",233.2,6,1,10,0)
20^42
"DATA",233.2,6,1,11,0)
90^38
"DATA",233.2,6,1,12,0)
100^57
"DATA",233.2,6,1,13,0)
40^58
"DATA",233.2,6,1,14,0)
300^60
"FIA",230)
ED LOG
"FIA",230,0)
^EDP(230,
"FIA",230,0,0)
230D
"FIA",230,0,1)
y^y^f^^^^n
"FIA",230,0,10)
"FIA",230,0,11)
"FIA",230,0,"RLRO")
"FIA",230,0,"VR")
1.0^EMERGENCY DEPARTMENT
"FIA",230,230)
0
"FIA",230,230.04)
0
"FIA",230,230.08)
0
"FIA",230.1)
ED LOG HISTORY
"FIA",230.1,0)
^EDP(230.1,
"FIA",230.1,0,0)
230.1P
"FIA",230.1,0,1)
y^y^f^^^^n
"FIA",230.1,0,10)
"FIA",230.1,0,11)
"FIA",230.1,0,"RLRO")
"FIA",230.1,0,"VR")
1.0^EMERGENCY DEPARTMENT
"FIA",230.1,230.1)
0
"FIA",231.7)
TRACKING STAFF
"FIA",231.7,0)
^EDPB(231.7,
"FIA",231.7,0,0)
231.7P
"FIA",231.7,0,1)
y^y^f^^^^n
"FIA",231.7,0,10)
"FIA",231.7,0,11)
"FIA",231.7,0,"RLRO")
"FIA",231.7,0,"VR")
1.0^EMERGENCY DEPARTMENT
"FIA",231.7,231.7)
0
"FIA",231.8)
TRACKING ROOM-BED
"FIA",231.8,0)
^EDPB(231.8,
"FIA",231.8,0,0)
231.8
"FIA",231.8,0,1)
y^y^f^^^^n
"FIA",231.8,0,10)
"FIA",231.8,0,11)
"FIA",231.8,0,"RLRO")
"FIA",231.8,0,"VR")
1.0^EMERGENCY DEPARTMENT
"FIA",231.8,231.8)
0
"FIA",231.9)
TRACKING AREA
"FIA",231.9,0)
^EDPB(231.9,
"FIA",231.9,0,0)
231.9
"FIA",231.9,0,1)
y^y^f^^^^n
"FIA",231.9,0,10)
"FIA",231.9,0,11)
"FIA",231.9,0,"RLRO")
"FIA",231.9,0,"VR")
1.0^EMERGENCY DEPARTMENT
"FIA",231.9,231.9)
0
"FIA",231.9,231.92)
0
"FIA",231.9,231.93)
0
"FIA",233.1)
TRACKING CODE
"FIA",233.1,0)
^EDPB(233.1,
"FIA",233.1,0,0)
233.1
"FIA",233.1,0,1)
y^y^f^^y^^y^r^n
"FIA",233.1,0,10)
"FIA",233.1,0,11)
I $E(^(0),1,4)="edp."
"FIA",233.1,0,"RLRO")
"FIA",233.1,0,"VR")
1.0^EMERGENCY DEPARTMENT
"FIA",233.1,233.1)
0
"FIA",233.1,233.12)
0
"FIA",233.2)
TRACKING CODE SET
"FIA",233.2,0)
^EDPB(233.2,
"FIA",233.2,0,0)
233.2
"FIA",233.2,0,1)
y^y^f^^y^^y^r^n
"FIA",233.2,0,10)
"FIA",233.2,0,11)
I $E(^(0),1,4)="edp."
"FIA",233.2,0,"RLRO")
"FIA",233.2,0,"VR")
1.0^EMERGENCY DEPARTMENT
"FIA",233.2,233.2)
0
"FIA",233.2,233.21)
0
"FRV1",233.2,"1,1,1,0",2)
edp.acuity.esi1
"FRV1",233.2,"1,1,1,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"1,1,2,0",2)
edp.acuity.esi2
"FRV1",233.2,"1,1,2,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"1,1,3,0",2)
edp.acuity.esi3
"FRV1",233.2,"1,1,3,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"1,1,4,0",2)
edp.acuity.esi4
"FRV1",233.2,"1,1,4,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"1,1,5,0",2)
edp.acuity.esi5
"FRV1",233.2,"1,1,5,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"3,1,1,0",2)
edp.status.admitted
"FRV1",233.2,"3,1,1,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"3,1,2,0",2)
edp.status.edobs
"FRV1",233.2,"3,1,2,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"3,1,7,0",2)
edp.status.observation
"FRV1",233.2,"3,1,7,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"3,1,8,0",2)
edp.status.overflow
"FRV1",233.2,"3,1,8,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,1,0",2)
edp.delay.inptbed
"FRV1",233.2,"4,1,1,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,10,0",2)
edp.delay.imagestudy
"FRV1",233.2,"4,1,10,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,11,0",2)
edp.delay.pharm
"FRV1",233.2,"4,1,11,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,12,0",2)
edp.delay.labresult
"FRV1",233.2,"4,1,12,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,13,0",2)
edp.delay.labstudy
"FRV1",233.2,"4,1,13,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,14,0",2)
edp.delay.supplies
"FRV1",233.2,"4,1,14,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,15,0",2)
edp.delay.surgery
"FRV1",233.2,"4,1,15,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,16,0",2)
edp.delay.home
"FRV1",233.2,"4,1,16,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,17,0",2)
edp.delay.transport
"FRV1",233.2,"4,1,17,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,18,0",2)
edp.delay.consult
"FRV1",233.2,"4,1,18,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,2,0",2)
edp.delay.overcrowd
"FRV1",233.2,"4,1,2,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,3,0",2)
edp.delay.admiteval
"FRV1",233.2,"4,1,3,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,4,0",2)
edp.delay.admitorders
"FRV1",233.2,"4,1,4,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,5,0",2)
edp.delay.admitobs
"FRV1",233.2,"4,1,5,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,6,0",2)
edp.delay.stafflimit
"FRV1",233.2,"4,1,6,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,7,0",2)
edp.delay.interfacility
"FRV1",233.2,"4,1,7,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,8,0",2)
edp.delay.ambulance
"FRV1",233.2,"4,1,8,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"4,1,9,0",2)
edp.delay.imageresult
"FRV1",233.2,"4,1,9,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"5,1,1,0",2)
edp.source.clinic
"FRV1",233.2,"5,1,1,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"5,1,2,0",2)
edp.source.cboc
"FRV1",233.2,"5,1,2,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"5,1,3,0",2)
edp.source.ambulance
"FRV1",233.2,"5,1,3,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"5,1,4,0",2)
edp.source.walk-in
"FRV1",233.2,"5,1,4,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"5,1,5,0",2)
edp.source.nhcu
"FRV1",233.2,"5,1,5,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"5,1,6,0",2)
edp.source.code
"FRV1",233.2,"5,1,6,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,1,0",2)
edp.disposition.admitva
"FRV1",233.2,"6,1,1,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,10,0",2)
edp.disposition.telemetry
"FRV1",233.2,"6,1,10,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,11,0",2)
edp.disposition.xferva
"FRV1",233.2,"6,1,11,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,12,0",2)
edp.disposition.xfernon
"FRV1",233.2,"6,1,12,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,13,0",2)
edp.disposition.psych
"FRV1",233.2,"6,1,13,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,14,0",2)
edp.disposition.error
"FRV1",233.2,"6,1,14,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,2,0",2)
edp.disposition.ama
"FRV1",233.2,"6,1,2,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,3,0",2)
edp.disposition.clinic
"FRV1",233.2,"6,1,3,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,4,0",2)
edp.disposition.deceased
"FRV1",233.2,"6,1,4,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,5,0",2)
edp.disposition.eloped
"FRV1",233.2,"6,1,5,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,6,0",2)
edp.disposition.home
"FRV1",233.2,"6,1,6,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,7,0",2)
edp.disposition.icu
"FRV1",233.2,"6,1,7,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,8,0",2)
edp.disposition.left
"FRV1",233.2,"6,1,8,0",2,"F")
;EDPB(233.1,
"FRV1",233.2,"6,1,9,0",2)
edp.disposition.nec
"FRV1",233.2,"6,1,9,0",2,"F")
;EDPB(233.1,
"INI")
EDPYPRE
"INIT")
EDPYPST
"IX",230,230,"AC",0)
230^AC^SITE,AREA,IEN when entry is active (not closed)^R^^R^IR^I^230^^^^^S
"IX",230,230,"AC",1)
S ^EDP(230,"AC",$E(X(1),1,30),$E(X(2),1,30),DA)=""
"IX",230,230,"AC",1.4)
S X='X2(3)
"IX",230,230,"AC",2)
K ^EDP(230,"AC",$E(X(1),1,30),$E(X(2),1,30),DA)
"IX",230,230,"AC",2.5)
K ^EDP(230,"AC")
"IX",230,230,"AC",11.1,0)
^.114IA^3^3
"IX",230,230,"AC",11.1,1,0)
1^F^230^.02^30^1^F
"IX",230,230,"AC",11.1,1,3)
"IX",230,230,"AC",11.1,2,0)
2^F^230^.03^30^2^F
"IX",230,230,"AC",11.1,2,3)
"IX",230,230,"AC",11.1,3,0)
3^F^230^.07^2^^F
"IX",230,230,"AC",11.1,3,3)
"IX",230,230,"ADUP1",0)
230^ADUP1^SITE,AREA,LASTNAME,IEN^MU^^R^IR^I^230^^^^^S
"IX",230,230,"ADUP1",1)
S ^EDP(230,"ADUP",X(1),X(2),X(3),DA)=""
"IX",230,230,"ADUP1",1.4)
S X='X2(4)
"IX",230,230,"ADUP1",2)
K ^EDP(230,"ADUP",X(1),X(2),X(3),DA)
"IX",230,230,"ADUP1",2.5)
"IX",230,230,"ADUP1",11.1,0)
^.114IA^4^4
"IX",230,230,"ADUP1",11.1,1,0)
1^F^230^.02^^1^F
"IX",230,230,"ADUP1",11.1,2,0)
2^F^230^.03^^2^F
"IX",230,230,"ADUP1",11.1,3,0)
3^F^230^.04^^3^F
"IX",230,230,"ADUP1",11.1,3,2)
S X=$P(X,",")
"IX",230,230,"ADUP1",11.1,4,0)
4^F^230^.07^^^F
"IX",230,230,"ADUP2",0)
230^ADUP2^SITE,AREA,LAST4,IEN for active patients^MU^^R^IR^I^230^^^^^S
"IX",230,230,"ADUP2",1)
S ^EDP(230,"ADUP",X(1),X(2),X(3),DA)=""
"IX",230,230,"ADUP2",1.4)
S X='X2(4)
"IX",230,230,"ADUP2",2)
K ^EDP(230,"ADUP",X(1),X(2),X(3),DA)
"IX",230,230,"ADUP2",2.5)
"IX",230,230,"ADUP2",11.1,0)
^.114IA^4^4
"IX",230,230,"ADUP2",11.1,1,0)
1^F^230^.02^^1^F
"IX",230,230,"ADUP2",11.1,1,3)
"IX",230,230,"ADUP2",11.1,2,0)
2^F^230^.03^^2^F
"IX",230,230,"ADUP2",11.1,2,3)
"IX",230,230,"ADUP2",11.1,3,0)
3^F^230^.11^^3^F
"IX",230,230,"ADUP2",11.1,3,3)
"IX",230,230,"ADUP2",11.1,4,0)
4^F^230^.07^^^F
"IX",230,230,"ADUP2",11.1,4,3)
"IX",230,230,"AL",0)
230^AL^SITE, AREA, LOC, IEN when entry is active^R^^R^IR^I^230^^^^^S
"IX",230,230,"AL",1)
S ^EDP(230,"AL",X(1),X(2),X(3),DA)=""
"IX",230,230,"AL",1.4)
S X='X2(4)
"IX",230,230,"AL",2)
K ^EDP(230,"AL",X(1),X(2),X(3),DA)
"IX",230,230,"AL",2.5)
K ^EDP(230,"AL")
"IX",230,230,"AL",11.1,0)
^.114IA^4^4
"IX",230,230,"AL",11.1,1,0)
1^F^230^.02^^1^F
"IX",230,230,"AL",11.1,1,3)
"IX",230,230,"AL",11.1,2,0)
2^F^230^.03^^2^F
"IX",230,230,"AL",11.1,2,3)
"IX",230,230,"AL",11.1,3,0)
3^F^230^3.4^^3^F
"IX",230,230,"AL",11.1,3,3)
"IX",230,230,"AL",11.1,4,0)
4^F^230^.07^^^F
"IX",230,230,"AL",11.1,4,3)
"IX",230,230,"AN",0)
230^AN^SITE,AREA,PTNAME,IEN for active patients^R^^R^IR^I^230^^^^^S
"IX",230,230,"AN",1)
S ^EDP(230,"AN",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,50),DA)=""
"IX",230,230,"AN",1.4)
S X='X2(4)
"IX",230,230,"AN",2)
K ^EDP(230,"AN",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,50),DA)
"IX",230,230,"AN",2.5)
K ^EDP(230,"AN")
"IX",230,230,"AN",11.1,0)
^.114IA^4^4
"IX",230,230,"AN",11.1,1,0)
1^F^230^.02^30^1^F
"IX",230,230,"AN",11.1,1,3)
"IX",230,230,"AN",11.1,2,0)
2^F^230^.03^30^2^F
"IX",230,230,"AN",11.1,2,3)
"IX",230,230,"AN",11.1,3,0)
3^F^230^.04^50^3^F
"IX",230,230,"AN",11.1,3,3)
"IX",230,230,"AN",11.1,4,0)
4^F^230^.07^2^^F
"IX",230,230,"AN",11.1,4,3)
"IX",230,230,"AP",0)
230^AP^SITE,DFN,IEN for active patients at site (not closed)^R^^R^IR^I^230^^^^^S
"IX",230,230,"AP",1)
S ^EDP(230,"AP",X(1),X(2),DA)=""
"IX",230,230,"AP",1.4)
S X='X2(4)
"IX",230,230,"AP",2)
K ^EDP(230,"AP",X(1),X(2),DA)
"IX",230,230,"AP",2.5)
K ^EDP(230,"AP")
"IX",230,230,"AP",11.1,0)
^.114IA^4^3
"IX",230,230,"AP",11.1,1,0)
1^F^230^.02^^1^F
"IX",230,230,"AP",11.1,1,3)
"IX",230,230,"AP",11.1,3,0)
2^F^230^.06^^2^F
"IX",230,230,"AP",11.1,3,3)
"IX",230,230,"AP",11.1,4,0)
4^F^230^.07^^^F
"IX",230,230,"AP",11.1,4,3)
"IX",230,230,"APA",0)
230^APA^DFN,IEN for currently active patients^R^^R^IR^I^230^^^^^S
"IX",230,230,"APA",1)
S ^EDP(230,"APA",X(1),DA)=""
"IX",230,230,"APA",1.4)
S X='X2(2)
"IX",230,230,"APA",2)
K ^EDP(230,"APA",X(1),DA)
"IX",230,230,"APA",2.5)
K ^EDP(230,"APA")
"IX",230,230,"APA",11.1,0)
^.114IA^2^2
"IX",230,230,"APA",11.1,1,0)
1^F^230^.06^^1^F
"IX",230,230,"APA",11.1,1,3)
"IX",230,230,"APA",11.1,2,0)
2^F^230^.07^^^F
"IX",230,230,"APA",11.1,2,3)
"IX",230,230,"AS",0)
230^AS^SITE,AREA,SSN,IEN for active patients^R^^R^IR^I^230^^^^^S
"IX",230,230,"AS",1)
S ^EDP(230,"AS",X(1),X(2),X(3),DA)=""
"IX",230,230,"AS",1.4)
S X='X2(4)
"IX",230,230,"AS",2)
K ^EDP(230,"AS",X(1),X(2),X(3),DA)
"IX",230,230,"AS",2.5)
K ^EDP(230,"AS")
"IX",230,230,"AS",11.1,0)
^.114IA^4^4
"IX",230,230,"AS",11.1,1,0)
1^F^230^.02^^1^F
"IX",230,230,"AS",11.1,1,3)
"IX",230,230,"AS",11.1,2,0)
2^F^230^.03^^2^F
"IX",230,230,"AS",11.1,2,3)
"IX",230,230,"AS",11.1,3,0)
3^F^230^.05^^3^F
"IX",230,230,"AS",11.1,3,3)
"IX",230,230,"AS",11.1,4,0)
4^F^230^.07^^^F
"IX",230,230,"AS",11.1,4,3)
"IX",230,230,"ATI",0)
230^ATI^SITE,TIME IN for reports^MU^^R^IR^I^230^^^^^S
"IX",230,230,"ATI",1)
S ^EDP(230,"ATI",X(1),+X(2),DA)=""
"IX",230,230,"ATI",2)
K ^EDP(230,"ATI",X(1),+X(2),DA)
"IX",230,230,"ATI",2.5)
K ^EDP(230,"ATI")
"IX",230,230,"ATI",11.1,0)
^.114IA^2^2
"IX",230,230,"ATI",11.1,1,0)
1^F^230^.02^^1^F
"IX",230,230,"ATI",11.1,2,0)
2^F^230^.08^^2^F
"IX",230,230,"ATO",0)
230^ATO^SITE,TIME OUT for reports^R^^R^IR^I^230^^^^^S
"IX",230,230,"ATO",1)
S ^EDP(230,"ATO",X(1),X(2),DA)=""
"IX",230,230,"ATO",2)
K ^EDP(230,"ATO",X(1),X(2),DA)
"IX",230,230,"ATO",2.5)
K ^EDP(230,"ATO")
"IX",230,230,"ATO",11.1,0)
^.114IA^2^2
"IX",230,230,"ATO",11.1,1,0)
1^F^230^.02^^1^F
"IX",230,230,"ATO",11.1,1,3)
"IX",230,230,"ATO",11.1,2,0)
2^F^230^.09^^2^F
"IX",230,230,"ATO",11.1,2,3)
"IX",230,230,"PN",0)
230^PN^SITE,AREA,PTNAME,IEN for all patients^R^^R^IR^I^230^^^^^LS
"IX",230,230,"PN",1)
S ^EDP(230,"PN",X(1),X(2),$E(X(3),1,40),DA)=""
"IX",230,230,"PN",2)
K ^EDP(230,"PN",X(1),X(2),$E(X(3),1,40),DA)
"IX",230,230,"PN",2.5)
K ^EDP(230,"PN")
"IX",230,230,"PN",11.1,0)
^.114IA^3^3
"IX",230,230,"PN",11.1,1,0)
1^F^230^.02^^1^F
"IX",230,230,"PN",11.1,1,3)
"IX",230,230,"PN",11.1,2,0)
2^F^230^.03^^2^F
"IX",230,230,"PN",11.1,2,3)
"IX",230,230,"PN",11.1,3,0)
3^F^230^.04^40^3^F
"IX",230,230,"PN",11.1,3,3)
"IX",230.1,230.1,"ADF",0)
230.1^ADF^Log History by time (LOG, TIME, IEN)^R^^R^IR^I^230.1^^^^^S
"IX",230.1,230.1,"ADF",1)
S ^EDP(230.1,"ADF",X(1),X(2),DA)=""
"IX",230.1,230.1,"ADF",2)
K ^EDP(230.1,"ADF",X(1),X(2),DA)
"IX",230.1,230.1,"ADF",2.5)
K ^EDP(230.1,"ADF")
"IX",230.1,230.1,"ADF",11.1,0)
^.114IA^2^2
"IX",230.1,230.1,"ADF",11.1,1,0)
1^F^230.1^.01^^1^F
"IX",230.1,230.1,"ADF",11.1,1,3)
"IX",230.1,230.1,"ADF",11.1,2,0)
2^F^230.1^.02^^2^F
"IX",230.1,230.1,"ADF",11.1,2,3)
"IX",230.1,230.1,"ADR",0)
230.1^ADR^Log History by inverse time (LOG, INVTIME, IEN)^R^^R^IR^I^230.1^^^^^S
"IX",230.1,230.1,"ADR",1)
S ^EDP(230.1,"ADR",X(1),X(2),DA)=""
"IX",230.1,230.1,"ADR",2)
K ^EDP(230.1,"ADR",X(1),X(2),DA)
"IX",230.1,230.1,"ADR",2.5)
K ^EDP(230.1,"ADR")
"IX",230.1,230.1,"ADR",11.1,0)
^.114IA^2^2
"IX",230.1,230.1,"ADR",11.1,1,0)
1^F^230.1^.01^^1^F
"IX",230.1,230.1,"ADR",11.1,1,3)
"IX",230.1,230.1,"ADR",11.1,2,0)
2^F^230.1^.02^^2^F
"IX",230.1,230.1,"ADR",11.1,2,2)
S X=9999999-X
"IX",230.1,230.1,"ADR",11.1,2,3)
"IX",230.1,230.1,"C",0)
230.1^C^Indexes changes for a log entry by inverse time.^R^^R^IR^I^230.1^^^^^LS
"IX",230.1,230.1,"C",1)
S ^EDP(230.1,"C",X(1),X(2),DA)=""
"IX",230.1,230.1,"C",2)
K ^EDP(230.1,"C",X(1),X(2),DA)
"IX",230.1,230.1,"C",2.5)
K ^EDP(230.1,"C")
"IX",230.1,230.1,"C",11.1,0)
^.114IA^2^2
"IX",230.1,230.1,"C",11.1,1,0)
1^F^230.1^.01^^1^F
"IX",230.1,230.1,"C",11.1,1,3)
"IX",230.1,230.1,"C",11.1,2,0)
2^F^230.1^.02^^2^F
"IX",230.1,230.1,"C",11.1,2,2)
S X=9999999-X
"IX",230.1,230.1,"C",11.1,2,3)
"IX",231.7,231.7,"AC",0)
231.7^AC^SITE,AREA,ROLE,IEN if the entry is active^R^^R^IR^I^231.7^^^^^S
"IX",231.7,231.7,"AC",1)
S ^EDPB(231.7,"AC",X(1),X(2),X(3),DA)=""
"IX",231.7,231.7,"AC",1.4)
S X='X2(4)
"IX",231.7,231.7,"AC",2)
K ^EDPB(231.7,"AC",X(1),X(2),X(3),DA)
"IX",231.7,231.7,"AC",2.5)
K ^EDPB(231.7,"AC")
"IX",231.7,231.7,"AC",11.1,0)
^.114IA^4^4
"IX",231.7,231.7,"AC",11.1,1,0)
1^F^231.7^.02^^1^F
"IX",231.7,231.7,"AC",11.1,1,3)
"IX",231.7,231.7,"AC",11.1,2,0)
2^F^231.7^.03^^2^F
"IX",231.7,231.7,"AC",11.1,2,3)
"IX",231.7,231.7,"AC",11.1,3,0)
3^F^231.7^.06^^3^F
"IX",231.7,231.7,"AC",11.1,3,3)
"IX",231.7,231.7,"AC",11.1,4,0)
4^F^231.7^.04^^^F
"IX",231.7,231.7,"AC",11.1,4,3)
"IX",231.7,231.7,"AD",0)
231.7^AD^SITE,AREA,DUZ,IEN^R^^R^IR^I^231.7^^^^^S
"IX",231.7,231.7,"AD",1)
S ^EDPB(231.7,"AD",X(1),X(2),X(3),DA)=""
"IX",231.7,231.7,"AD",2)
K ^EDPB(231.7,"AD",X(1),X(2),X(3),DA)
"IX",231.7,231.7,"AD",2.5)
K ^EDPB(231.7,"AD")
"IX",231.7,231.7,"AD",11.1,0)
^.114IA^3^3
"IX",231.7,231.7,"AD",11.1,1,0)
1^F^231.7^.02^^1^F
"IX",231.7,231.7,"AD",11.1,2,0)
2^F^231.7^.03^^2^F
"IX",231.7,231.7,"AD",11.1,3,0)
3^F^231.7^.01^^3^F
"IX",231.8,231.8,"AC",0)
231.8^AC^SITE,AREA,DISPLAYNAME,IEN^R^^R^IR^I^231.8^^^^^S
"IX",231.8,231.8,"AC",1)
S ^EDPB(231.8,"AC",X(1),X(2),X(3),DA)=""
"IX",231.8,231.8,"AC",2)
K ^EDPB(231.8,"AC",X(1),X(2),X(3),DA)
"IX",231.8,231.8,"AC",2.5)
K ^EDPB(231.8,"AC")
"IX",231.8,231.8,"AC",11.1,0)
^.114IA^3^3
"IX",231.8,231.8,"AC",11.1,1,0)
1^F^231.8^.02^^1^F
"IX",231.8,231.8,"AC",11.1,1,3)
"IX",231.8,231.8,"AC",11.1,2,0)
2^F^231.8^.03^^2^F
"IX",231.8,231.8,"AC",11.1,2,3)
"IX",231.8,231.8,"AC",11.1,3,0)
3^F^231.8^.06^^3^F
"IX",231.8,231.8,"AC",11.1,3,3)
"IX",231.8,231.8,"C",0)
231.8^C^Index by site and area.^R^^R^IR^I^231.8^^^^^LS
"IX",231.8,231.8,"C",1)
S ^EDPB(231.8,"C",X(1),X(2),DA)=""
"IX",231.8,231.8,"C",2)
K ^EDPB(231.8,"C",X(1),X(2),DA)
"IX",231.8,231.8,"C",2.5)
K ^EDPB(231.8,"C")
"IX",231.8,231.8,"C",11.1,0)
^.114IA^2^2
"IX",231.8,231.8,"C",11.1,1,0)
1^F^231.8^.02^^1^F
"IX",231.8,231.8,"C",11.1,1,3)
"IX",231.8,231.8,"C",11.1,2,0)
2^F^231.8^.03^^2^F
"IX",231.8,231.8,"C",11.1,2,3)
"IX",233.1,233.1,"AB",0)
233.1^AB^Allows finding items by type and abbreviation^R^^R^IR^I^233.1^^^^^S
"IX",233.1,233.1,"AB",1)
S ^EDPB(233.1,"AB",$E(X(1),1,30),$E(X(2),1,30),DA)=""
"IX",233.1,233.1,"AB",2)
K ^EDPB(233.1,"AB",$E(X(1),1,30),$E(X(2),1,30),DA)
"IX",233.1,233.1,"AB",2.5)
K ^EDPB(233.1,"AB")
"IX",233.1,233.1,"AB",11.1,0)
^.114IA^2^2
"IX",233.1,233.1,"AB",11.1,1,0)
1^F^233.1^.01^30^1^F
"IX",233.1,233.1,"AB",11.1,1,2)
S X=$P(X,".",2)
"IX",233.1,233.1,"AB",11.1,1,3)
"IX",233.1,233.1,"AB",11.1,2,0)
2^F^233.1^.03^30^2^F
"IX",233.1,233.1,"AB",11.1,2,2)
S X=$$UP^XLFSTR(X)
"IX",233.1,233.1,"AB",11.1,2,3)
"IX",233.1,233.1,"AC",0)
233.1^AC^Allows finding items by type and display name^R^^R^IR^I^233.1^^^^^S
"IX",233.1,233.1,"AC",1)
S ^EDPB(233.1,"AC",$E(X(1),1,30),$E(X(2),1,60),DA)=""
"IX",233.1,233.1,"AC",2)
K ^EDPB(233.1,"AC",$E(X(1),1,30),$E(X(2),1,60),DA)
"IX",233.1,233.1,"AC",2.5)
K ^EDPB(233.1,"AC")
"IX",233.1,233.1,"AC",11.1,0)
^.114IA^2^2
"IX",233.1,233.1,"AC",11.1,1,0)
1^F^233.1^.01^30^1^F
"IX",233.1,233.1,"AC",11.1,1,2)
S X=$P(X,".",2)
"IX",233.1,233.1,"AC",11.1,1,3)
"IX",233.1,233.1,"AC",11.1,2,0)
2^F^233.1^.02^60^2^F
"IX",233.1,233.1,"AC",11.1,2,2)
S X=$$UP^XLFSTR(X)
"IX",233.1,233.1,"AC",11.1,2,3)
"KRN",19,13496,-1)
0^5
"KRN",19,13496,0)
EDPF TRACKING SYSTEM^ED Tracking System - Facility^^B^^^^^^^^
"KRN",19,13496,1,0)
^^1^1^3071207^
"KRN",19,13496,1,1,0)
Context option for ED Tracking System RPC calls at local facility.
"KRN",19,13496,99.1)
61001,51187
"KRN",19,13496,"RPC",0)
^19.05P^8^2
"KRN",19,13496,"RPC",7,0)
EDPCTRL RPC
"KRN",19,13496,"RPC",8,0)
EDPCBRD RPC
"KRN",19,13496,"U")
ED TRACKING SYSTEM - FACILITY
"KRN",19,13497,-1)
0^11
"KRN",19,13497,0)
EDPF TRACKING VIEW SIGNIN^Sign In Patient^^M^^^^^^^^
"KRN",19,13497,10,0)
^19.01IP^1^1
"KRN",19,13497,10,1,0)
13496
"KRN",19,13497,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13497,99)
61055,41714
"KRN",19,13497,"U")
SIGN IN PATIENT
"KRN",19,13498,-1)
0^13
"KRN",19,13498,0)
EDPF TRACKING VIEW TRIAGE^Triage Patient^^M^^^^^^^^
"KRN",19,13498,10,0)
^19.01IP^1^1
"KRN",19,13498,10,1,0)
13496
"KRN",19,13498,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13498,99)
61055,41714
"KRN",19,13498,"U")
TRIAGE PATIENT
"KRN",19,13499,-1)
0^14
"KRN",19,13499,0)
EDPF TRACKING VIEW UPDATE^Update Tracking Board^^M^^^^^^^^
"KRN",19,13499,10,0)
^19.01IP^1^1
"KRN",19,13499,10,1,0)
13496
"KRN",19,13499,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13499,99)
61055,41714
"KRN",19,13499,"U")
UPDATE TRACKING BOARD
"KRN",19,13500,-1)
0^8
"KRN",19,13500,0)
EDPF TRACKING VIEW DISPOSITION^Disposition Patient^^M^^^^^^^^
"KRN",19,13500,10,0)
^19.01IP^1^1
"KRN",19,13500,10,1,0)
13496
"KRN",19,13500,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13500,99)
61055,41714
"KRN",19,13500,"U")
DISPOSITION PATIENT
"KRN",19,13501,-1)
0^9
"KRN",19,13501,0)
EDPF TRACKING VIEW EDIT CLOSED^Edit Closed Patient^^M^^^^^^^^
"KRN",19,13501,10,0)
^19.01IP^1^1
"KRN",19,13501,10,1,0)
13496
"KRN",19,13501,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13501,99)
61055,41714
"KRN",19,13501,"U")
EDIT CLOSED PATIENT
"KRN",19,13502,-1)
0^6
"KRN",19,13502,0)
EDPF TRACKING VIEW BOARD^Display Board^^M^^^^^^^^
"KRN",19,13502,10,0)
^19.01IP^1^1
"KRN",19,13502,10,1,0)
13496
"KRN",19,13502,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13502,99)
61055,41714
"KRN",19,13502,99.1)
61079,62253
"KRN",19,13502,"U")
DISPLAY BOARD
"KRN",19,13503,-1)
0^10
"KRN",19,13503,0)
EDPF TRACKING VIEW REPORTS^Tracking Reports^^M^^^^^^^^
"KRN",19,13503,10,0)
^19.01IP^1^1
"KRN",19,13503,10,1,0)
13496
"KRN",19,13503,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13503,99)
61055,41714
"KRN",19,13503,"U")
TRACKING REPORTS
"KRN",19,13504,-1)
0^7
"KRN",19,13504,0)
EDPF TRACKING VIEW CONFIGURE^Configure Tracking Board^^M^^^^^^^^
"KRN",19,13504,10,0)
^19.01IP^1^1
"KRN",19,13504,10,1,0)
13496
"KRN",19,13504,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13504,99)
61055,41714
"KRN",19,13504,"U")
CONFIGURE TRACKING BOARD
"KRN",19,13505,-1)
0^12
"KRN",19,13505,0)
EDPF TRACKING VIEW STAFF^Assign Staff^^M^^^^^^^^
"KRN",19,13505,10,0)
^19.01IP^1^1
"KRN",19,13505,10,1,0)
13496
"KRN",19,13505,10,1,"^")
EDPF TRACKING SYSTEM
"KRN",19,13505,99)
61055,41714
"KRN",19,13505,99.1)
61079,62253
"KRN",19,13505,"U")
ASSIGN STAFF
"KRN",19,13506,-1)
0^1
"KRN",19,13506,0)
EDPF TRACKING MENU ALL^All Tracking Views^^M^^^^^^^^
"KRN",19,13506,10,0)
^19.01IP^9^9
"KRN",19,13506,10,1,0)
13497^^10
"KRN",19,13506,10,1,"^")
EDPF TRACKING VIEW SIGNIN
"KRN",19,13506,10,2,0)
13498^^20
"KRN",19,13506,10,2,"^")
EDPF TRACKING VIEW TRIAGE
"KRN",19,13506,10,3,0)
13499^^30
"KRN",19,13506,10,3,"^")
EDPF TRACKING VIEW UPDATE
"KRN",19,13506,10,4,0)
13500^^40
"KRN",19,13506,10,4,"^")
EDPF TRACKING VIEW DISPOSITION
"KRN",19,13506,10,5,0)
13501^^50
"KRN",19,13506,10,5,"^")
EDPF TRACKING VIEW EDIT CLOSED
"KRN",19,13506,10,6,0)
13502^^60
"KRN",19,13506,10,6,"^")
EDPF TRACKING VIEW BOARD
"KRN",19,13506,10,7,0)
13505^^70
"KRN",19,13506,10,7,"^")
EDPF TRACKING VIEW STAFF
"KRN",19,13506,10,8,0)
13503^^80
"KRN",19,13506,10,8,"^")
EDPF TRACKING VIEW REPORTS
"KRN",19,13506,10,9,0)
13504^^90
"KRN",19,13506,10,9,"^")
EDPF TRACKING VIEW CONFIGURE
"KRN",19,13506,99)
61055,41714
"KRN",19,13506,99.1)
61079,62253
"KRN",19,13506,"U")
ALL TRACKING VIEWS
"KRN",19,13508,-1)
0^3
"KRN",19,13508,0)
EDPF TRACKING MENU SIGNIN^Sign-in Tracking Views^^M^^^^^^^^
"KRN",19,13508,10,0)
^19.01IP^2^2
"KRN",19,13508,10,1,0)
13497^^10
"KRN",19,13508,10,1,"^")
EDPF TRACKING VIEW SIGNIN
"KRN",19,13508,10,2,0)
13502^^20
"KRN",19,13508,10,2,"^")
EDPF TRACKING VIEW BOARD
"KRN",19,13508,99)
61055,41714
"KRN",19,13508,99.1)
61079,62253
"KRN",19,13508,"U")
SIGN-IN TRACKING VIEWS
"KRN",19,13509,-1)
0^4
"KRN",19,13509,0)
EDPF TRACKING MENU TRIAGE^Triage Tracking Views^^M^^^^^^^^
"KRN",19,13509,10,0)
^19.01IP^2^2
"KRN",19,13509,10,1,0)
13498^^10
"KRN",19,13509,10,1,"^")
EDPF TRACKING VIEW TRIAGE
"KRN",19,13509,10,2,0)
13502^^20
"KRN",19,13509,10,2,"^")
EDPF TRACKING VIEW BOARD
"KRN",19,13509,99)
61055,41714
"KRN",19,13509,99.1)
61079,62253
"KRN",19,13509,"U")
TRIAGE TRACKING VIEWS
"KRN",19,13510,-1)
0^2
"KRN",19,13510,0)
EDPF TRACKING MENU CLINICIAN^Clinician Tracking Views^^M^^^^^^^^
"KRN",19,13510,10,0)
^19.01IP^3^3
"KRN",19,13510,10,1,0)
13499^^10
"KRN",19,13510,10,1,"^")
EDPF TRACKING VIEW UPDATE
"KRN",19,13510,10,2,0)
13500^^20
"KRN",19,13510,10,2,"^")
EDPF TRACKING VIEW DISPOSITION
"KRN",19,13510,10,3,0)
13502^^30
"KRN",19,13510,10,3,"^")
EDPF TRACKING VIEW BOARD
"KRN",19,13510,99)
61055,41714
"KRN",19,13510,99.1)
61079,62253
"KRN",19,13510,"U")
CLINICIAN TRACKING VIEWS
"KRN",19,13512,-1)
0^17
"KRN",19,13512,0)
EDPS BOARD CONTEXT^ED Tracking Board Context^^B^^^^^^^^
"KRN",19,13512,"RPC",0)
^19.05P^1^1
"KRN",19,13512,"RPC",1,0)
EDPCBRD RPC
"KRN",19,13512,"U")
ED TRACKING BOARD CONTEXT
"KRN",19,13514,-1)
0^16
"KRN",19,13514,0)
EDP CONVERSION^Convert local ER data to EDIS files^^R^^^^^^^^EMERGENCY DEPARTMENT
"KRN",19,13514,1,0)
^^6^6^3080305^
"KRN",19,13514,1,1,0)
This option allows a site to trigger the conversion of its local data in
"KRN",19,13514,1,2,0)
^DIZ(1720xx) files to the new Emergency Department Information System
"KRN",19,13514,1,3,0)
files. Local configuration data will be transferred first, followed by
"KRN",19,13514,1,4,0)
all currently open visits; a task will also be queued to copy closed
"KRN",19,13514,1,5,0)
visits as well, to permit the reporting features to continue functioning
"KRN",19,13514,1,6,0)
normally.
"KRN",19,13514,25)
EDPFMOVE
"KRN",19,13514,"U")
CONVERT LOCAL ER DATA TO EDIS
"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^10000000179^^^^^^^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^^2^
"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,1,0)
^101.06^4^4^3080321^^
"KRN",101,5600,1,1,0)
This protocol monitors ordering events for the Emergency Department
"KRN",101,5600,1,2,0)
tracking board. It is placed on the * EVSEND OR protocols to check for
"KRN",101,5600,1,3,0)
updates being sent from ancillary packages to order entry. In monitors
"KRN",101,5600,1,4,0)
when orders are transmitted and when orders are completed.
"KRN",101,5600,20)
D EN^EDPFMON(.XQORMSG)
"KRN",101,5600,99)
61055,41714
"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^3^3^3080321^^
"KRN",101,5601,1,1,0)
This protocol will monitor Scheduling events for patients being checked-in
"KRN",101,5601,1,2,0)
to the Emergency Department. It is placed on the SDAM APPOINTMENT EVENTS
"KRN",101,5601,1,3,0)
protocol.
"KRN",101,5601,20)
D SDAM^EDPFMON
"KRN",101,5601,99)
61055,41714
"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^3080307^^^
"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^2^1
"KRN",8989.51,510,30,2,0)
2^4
"KRN",8994,2523,-1)
0^2
"KRN",8994,2523,0)
EDPCTRL RPC^RPC^EDPCTRL^2^R^^^^1^^0
"KRN",8994,2523,1,0)
^^5^5^3080307^
"KRN",8994,2523,1,1,0)
This RPC acts as the "front controller" for the EDIS Tracking Application.
"KRN",8994,2523,1,2,0)
It accepts requests that are initially passed into a web server. The RPC
"KRN",8994,2523,1,3,0)
uses the parameters that are passed in to determine which command to
"KRN",8994,2523,1,4,0)
execute. The returned data is formatted as XML. The XML structure varies
"KRN",8994,2523,1,5,0)
based a what data were requested.
"KRN",8994,2523,2,0)
^8994.02A^1^1
"KRN",8994,2523,2,1,0)
PARAMS^2^^1^1
"KRN",8994,2523,2,1,1,0)
^^2^2^3080307^
"KRN",8994,2523,2,1,1,1,0)
This is a list of parameters that were passed to the Java middle tier via
"KRN",8994,2523,2,1,1,2,0)
an HTTP Post message.
"KRN",8994,2523,2,"B","PARAMS",1)
"KRN",8994,2523,2,"PARAMSEQ",1,1)
"KRN",8994,2523,3,0)
^^1^1^3080307^
"KRN",8994,2523,3,1,0)
The return results are formatted as an XML document.
"KRN",8994,2524,-1)
0^1
"KRN",8994,2524,0)
EDPCBRD RPC^RPC^EDPCBRD^2^R^^^^^^1
"KRN",8994,2524,1,0)
^^8^8^3080307^
"KRN",8994,2524,1,1,0)
This RPC acts as the "front controller" for the EDIS Display Board. It
"KRN",8994,2524,1,2,0)
accepts requests that are initially passed into a web server. The RPC
"KRN",8994,2524,1,3,0)
uses the parameters that are passed in to determine which command to
"KRN",8994,2524,1,4,0)
execute. The returned data is formatted as XML. The XML structure
"KRN",8994,2524,1,5,0)
varies based a what data were requested.
"KRN",8994,2524,1,6,0)
"KRN",8994,2524,1,7,0)
Since the Display Board runs in a "kiosk" mode, this RPC allows proxy
"KRN",8994,2524,1,8,0)
user access.
"KRN",8994,2524,2,0)
^8994.02A^2^2
"KRN",8994,2524,2,1,0)
SESS^1^^1^1
"KRN",8994,2524,2,1,1,0)
^^3^3^3080307^
"KRN",8994,2524,2,1,1,1,0)
This identifies the user and site that are passed in from the Java middle
"KRN",8994,2524,2,1,1,2,0)
tier. In cases when the display board is running with a proxy user (in
"KRN",8994,2524,2,1,1,3,0)
kiosk mode), the SSL configuration will determine the user and site.
"KRN",8994,2524,2,2,0)
PARAMS^2^^^2
"KRN",8994,2524,2,2,1,0)
^^2^2^3080307^
"KRN",8994,2524,2,2,1,1,0)
This is a list of parameters that were passed to the Java middle tier via
"KRN",8994,2524,2,2,1,2,0)
an HTTP Post message.
"KRN",8994,2524,2,"B","PARAMS",2)
"KRN",8994,2524,2,"B","SESS",1)
"KRN",8994,2524,2,"PARAMSEQ",1,1)
"KRN",8994,2524,2,"PARAMSEQ",2,2)
"KRN",8994,2524,3,0)
^^1^1^3080307^
"KRN",8994,2524,3,1,0)
The return results are formatted as an XML document.
"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
"PGL",233.1,0,4,.04)
NATIONAL CODE^P233.1'^EDPB(233.1,^0;4^Q
"PGL",233.21,0,2,.02)
CODE^P233.1'^EDPB(233.1,^0;2^Q
"PKG",562,-1)
1^1
"PKG",562,0)
EMERGENCY DEPARTMENT^EDP^Emergency Department Information System
"PKG",562,1,0)
^^1^1^3080111^
"PKG",562,1,1,0)
This is the Emergency Department Information System (EDIS).
"PKG",562,20,0)
^9.402P^^
"PKG",562,22,0)
^9.49I^1^1
"PKG",562,22,1,0)
1.0^3080403^3080229^10000000179
"PKG",562,22,1,1,0)
^^4^4^3080403
"PKG",562,22,1,1,1,0)
This is the initial installation of the Emergency Department Information
"PKG",562,22,1,1,2,0)
System (EDIS). This is the module that handles tracking of a patient
"PKG",562,22,1,1,3,0)
through an emergency department visit. The user interface for this
"PKG",562,22,1,1,4,0)
application is a web application.
"PKG",562,"VERSION")
1.0
"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")
48
"RTN","EDPBCF")
0^25^B6148648
"RTN","EDPBCF",1,0)
EDPBCF ;SLC/KCM - Display Board Configuration
"RTN","EDPBCF",2,0)
;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 26
"RTN","EDPBCF",3,0)
;
"RTN","EDPBCF",4,0)
LOADBRD(AREA) ; Load Board Configuration for an Area
"RTN","EDPBCF",5,0)
N I
"RTN","EDPBCF",6,0)
S I=0 F S I=$O(^EDPB(231.9,AREA,2,I)) Q:'I D
"RTN","EDPBCF",7,0)
. D XML^EDPX(^EDPB(231.9,AREA,2,I,0))
"RTN","EDPBCF",8,0)
;
"RTN","EDPBCF",9,0)
D XML^EDPX("")
"RTN","EDPBCF",10,0)
S I=0 F S I=$O(^EDPB(231.9,AREA,3,I)) Q:'I D
"RTN","EDPBCF",11,0)
. D XML^EDPX(^EDPB(231.9,AREA,3,I,0))
"RTN","EDPBCF",12,0)
D XML^EDPX("")
"RTN","EDPBCF",13,0)
;
"RTN","EDPBCF",14,0)
D XML^EDPX("")
"RTN","EDPBCF",15,0)
F I=1:1 S NODE=$P($T(COLUMNS+I),";",3,99) Q:$E(NODE,1,5)="zzzzz" D
"RTN","EDPBCF",16,0)
. N X
"RTN","EDPBCF",17,0)
. S X("label")=$P(NODE,U)
"RTN","EDPBCF",18,0)
. S X("att")=$P(NODE,U,2)
"RTN","EDPBCF",19,0)
. S X("header")=$P(NODE,U,3)
"RTN","EDPBCF",20,0)
. S X("width")=50
"RTN","EDPBCF",21,0)
. D XML^EDPX($$XMLA^EDPX("col",.X))
"RTN","EDPBCF",22,0)
D XML^EDPX("")
"RTN","EDPBCF",23,0)
;
"RTN","EDPBCF",24,0)
D XML^EDPX("")
"RTN","EDPBCF",25,0)
D COLORS^EDPBCM
"RTN","EDPBCF",26,0)
D XML^EDPX("")
"RTN","EDPBCF",27,0)
;
"RTN","EDPBCF",28,0)
D LOAD^EDPBRM(AREA) ; also load rooms/beds
"RTN","EDPBCF",29,0)
D LOAD^EDPBPM(AREA) ; also load parameters
"RTN","EDPBCF",30,0)
;
"RTN","EDPBCF",31,0)
Q
"RTN","EDPBCF",32,0)
SAVEBRD(REQ) ; Save Configuration
"RTN","EDPBCF",33,0)
N X,WP,AREA
"RTN","EDPBCF",34,0)
S X="col-",AREA=$G(REQ("area",1))
"RTN","EDPBCF",35,0)
I 'AREA D XML^EDPX("Missing area") Q
"RTN","EDPBCF",36,0)
F S X=$O(REQ(X)) Q:$E(X,1,4)'="col-" S WP(+$P(X,"-",2))=REQ(X,1)
"RTN","EDPBCF",37,0)
S WP(.1)="",WP(9999)=""
"RTN","EDPBCF",38,0)
D WP^DIE(231.9,AREA_",",2,"","WP")
"RTN","EDPBCF",39,0)
I $D(DIERR) D XML^EDPX("save failed") Q
"RTN","EDPBCF",40,0)
D XML^EDPX("")
"RTN","EDPBCF",41,0)
Q
"RTN","EDPBCF",42,0)
COLUMNS ;; Available columns
"RTN","EDPBCF",43,0)
;;Room / Bed^@bedNm^Room
"RTN","EDPBCF",44,0)
;;Patient Name^@ptNm^Patient
"RTN","EDPBCF",45,0)
;;Patient X9999^@last4^Patient
"RTN","EDPBCF",46,0)
;;Complaint^@complaint^Complaint
"RTN","EDPBCF",47,0)
;;Comment^@comment^Comment
"RTN","EDPBCF",48,0)
;;Provider Initials^@mdNm^Prv
"RTN","EDPBCF",49,0)
;;Resident Initials^@resNm^Res
"RTN","EDPBCF",50,0)
;;Nurse Initials^@rnNm^RN
"RTN","EDPBCF",51,0)
;;Acuity^@acuityNm^Acuity
"RTN","EDPBCF",52,0)
;;Status^@statusNm^Status
"RTN","EDPBCF",53,0)
;;Lab Active/Complete^@lab^L
"RTN","EDPBCF",54,0)
;;Imaging Active/Complete^@rad^I
"RTN","EDPBCF",55,0)
;;New (Unverified) Orders^@ordNew^New
"RTN","EDPBCF",56,0)
;;Total Minutes^@emins^E Mins
"RTN","EDPBCF",57,0)
;;Minutes at Location^@lmins^Mins
"RTN","EDPBCF",58,0)
;;zzzzz
"RTN","EDPBCM")
0^26^B11803353
"RTN","EDPBCM",1,0)
EDPBCM ;SLC/KCM - Available color maps
"RTN","EDPBCM",2,0)
;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 26
"RTN","EDPBCM",3,0)
;
"RTN","EDPBCM",4,0)
SAVE(REQ) ; Save Configuration
"RTN","EDPBCM",5,0)
N X,WP,AREA
"RTN","EDPBCM",6,0)
S X="xml-",AREA=$G(REQ("area",1))
"RTN","EDPBCM",7,0)
I 'AREA D XML^EDPX("Missing area") Q
"RTN","EDPBCM",8,0)
F S X=$O(REQ(X)) Q:$E(X,1,4)'="xml-" S WP(+$P(X,"-",2))=REQ(X,1)
"RTN","EDPBCM",9,0)
D WP^DIE(231.9,AREA_",",3,"","WP")
"RTN","EDPBCM",10,0)
I $D(DIERR) D XML^EDPX("save failed") Q
"RTN","EDPBCM",11,0)
D XML^EDPX("")
"RTN","EDPBCM",12,0)
Q
"RTN","EDPBCM",13,0)
COLORS ;; Available Color Maps
"RTN","EDPBCM",14,0)
D ENMAP("none"," ","none") ; for no selection
"RTN","EDPBCM",15,0)
;
"RTN","EDPBCM",16,0)
D ENMAP("stsAcuity","Status / Acuity","val")
"RTN","EDPBCM",17,0)
D CODES("status"),CODES("acuity"),EXMAP
"RTN","EDPBCM",18,0)
;
"RTN","EDPBCM",19,0)
D ENMAP("status","Status","val")
"RTN","EDPBCM",20,0)
D CODES("status"),EXMAP
"RTN","EDPBCM",21,0)
;
"RTN","EDPBCM",22,0)
D ENMAP("acuity","Acuity","val")
"RTN","EDPBCM",23,0)
D CODES("acuity"),EXMAP
"RTN","EDPBCM",24,0)
;
"RTN","EDPBCM",25,0)
D ENMAP("bed","Room / Bed","bed")
"RTN","EDPBCM",26,0)
D ENMAP("md","Provider","staff")
"RTN","EDPBCM",27,0)
D ENMAP("res","Resident","staff")
"RTN","EDPBCM",28,0)
D ENMAP("rn","Nurse","staff")
"RTN","EDPBCM",29,0)
;
"RTN","EDPBCM",30,0)
D ENMAP("labUrg","Urgency - Lab","val")
"RTN","EDPBCM",31,0)
D URG("labUrg"),EXMAP
"RTN","EDPBCM",32,0)
;D ENMAP("medUrg","Urgency - Medications","val")
"RTN","EDPBCM",33,0)
;D URG("medUrg"),EXMAP
"RTN","EDPBCM",34,0)
D ENMAP("radUrg","Urgency - Radiology","val")
"RTN","EDPBCM",35,0)
D URG("radUrg"),EXMAP
"RTN","EDPBCM",36,0)
;
"RTN","EDPBCM",37,0)
D ENMAP("emins","Total Elapsed Minutes","rng")
"RTN","EDPBCM",38,0)
D ENMAP("lmins","Minutes at Location","rng")
"RTN","EDPBCM",39,0)
D ENMAP("minLab","Minutes for Lab Order","rng")
"RTN","EDPBCM",40,0)
;D ENMAP("minMed","Minutes for Medication Order","rng")
"RTN","EDPBCM",41,0)
D ENMAP("minRad","Minutes for Imaging Order","rng")
"RTN","EDPBCM",42,0)
D ENMAP("minVer","Minutes for Unverified Order","rng")
"RTN","EDPBCM",43,0)
Q
"RTN","EDPBCM",44,0)
ENMAP(ID,NM,TYP) ; create element for colormap
"RTN","EDPBCM",45,0)
N X,END
"RTN","EDPBCM",46,0)
S END="/" S:TYP="val" END=""
"RTN","EDPBCM",47,0)
S X("id")=ID
"RTN","EDPBCM",48,0)
S X("nm")=NM
"RTN","EDPBCM",49,0)
S X("type")=TYP
"RTN","EDPBCM",50,0)
D XML^EDPX($$XMLA^EDPX("colors",.X,END))
"RTN","EDPBCM",51,0)
Q
"RTN","EDPBCM",52,0)
EXMAP ; create closing tag
"RTN","EDPBCM",53,0)
D XML^EDPX("")
"RTN","EDPBCM",54,0)
Q
"RTN","EDPBCM",55,0)
CODES(NM) ; create map elements for a set of codes
"RTN","EDPBCM",56,0)
N CODESET,IEN
"RTN","EDPBCM",57,0)
S CODESET=EDPSITE_"."_NM
"RTN","EDPBCM",58,0)
I '$D(^EDPB(233.2,"B",CODESET)) S CODESET="edp."_NM
"RTN","EDPBCM",59,0)
S IEN=$O(^EDPB(233.2,"B",CODESET,0))
"RTN","EDPBCM",60,0)
Q:'IEN
"RTN","EDPBCM",61,0)
;
"RTN","EDPBCM",62,0)
N SEQ,CODE,DA
"RTN","EDPBCM",63,0)
S SEQ=0 F S SEQ=$O(^EDPB(233.2,IEN,1,"B",SEQ)) Q:'SEQ D
"RTN","EDPBCM",64,0)
. S DA=0 F S DA=$O(^EDPB(233.2,IEN,1,"B",SEQ,DA)) Q:'DA D
"RTN","EDPBCM",65,0)
. . S CODE=$P(^EDPB(233.2,IEN,1,DA,0),U,2)
"RTN","EDPBCM",66,0)
. . Q:'CODE
"RTN","EDPBCM",67,0)
. . D MAP(NM,CODE,$P(^EDPB(233.1,CODE,0),U,2))
"RTN","EDPBCM",68,0)
Q
"RTN","EDPBCM",69,0)
URG(ATT) ; create map elements for standard urgencies
"RTN","EDPBCM",70,0)
D MAP(ATT,0,"No Orders")
"RTN","EDPBCM",71,0)
D MAP(ATT,1,"Active Orders")
"RTN","EDPBCM",72,0)
D MAP(ATT,2,"STAT Orders")
"RTN","EDPBCM",73,0)
Q
"RTN","EDPBCM",74,0)
MAP(ATT,VAL,NM) ; create a single map element
"RTN","EDPBCM",75,0)
N X
"RTN","EDPBCM",76,0)
S X("att")="@"_ATT
"RTN","EDPBCM",77,0)
S X("val")=VAL
"RTN","EDPBCM",78,0)
S X("nm")=NM
"RTN","EDPBCM",79,0)
S X("clr")=0
"RTN","EDPBCM",80,0)
D XML^EDPX($$XMLA^EDPX("map",.X))
"RTN","EDPBCM",81,0)
Q
"RTN","EDPBCM",82,0)
LIST ; Build selection list for color maps -- OBSOLETE?
"RTN","EDPBCM",83,0)
N I,X
"RTN","EDPBCM",84,0)
F I=1:1 S X=$P($T(MAPLST+I),";",3,99) Q:$E(X,1,5)="zzzzz" D
"RTN","EDPBCM",85,0)
. S X("data")=$P(X,U,1),X("label")=$P(X,U,2)
"RTN","EDPBCM",86,0)
. D XML^EDPX($$XMLA^EDPX("colors",.X))
"RTN","EDPBCM",87,0)
Q
"RTN","EDPBCM",88,0)
MAPLST ; list of available color maps
"RTN","EDPBCM",89,0)
;;^ ^
"RTN","EDPBCM",90,0)
;;stsAcuity^Status / Acuity
"RTN","EDPBCM",91,0)
;;status^Status
"RTN","EDPBCM",92,0)
;;acuity^Acuity
"RTN","EDPBCM",93,0)
;;bed^Room / Bed
"RTN","EDPBCM",94,0)
;;staff^Staff
"RTN","EDPBCM",95,0)
;;labUrg^Urgency - Lab
"RTN","EDPBCM",96,0)
;;radUrg^Urgency - Imaging
"RTN","EDPBCM",97,0)
;;emins^Total Minutes
"RTN","EDPBCM",98,0)
;;lmins^Minutes at Location
"RTN","EDPBCM",99,0)
;;minLab^Minutes for Lab Order
"RTN","EDPBCM",100,0)
;;minRad^Minutes for Imaging Order
"RTN","EDPBCM",101,0)
;;minVer^Minutes for Unverified Order
"RTN","EDPBCM",102,0)
;;zzzzz
"RTN","EDPBPM")
0^27^B2766869
"RTN","EDPBPM",1,0)
EDPBPM ;SLC/KCM - Parameters for Tracking Area
"RTN","EDPBPM",2,0)
;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 26
"RTN","EDPBPM",3,0)
;
"RTN","EDPBPM",4,0)
LOAD(AREA) ; load parameters for area
"RTN","EDPBPM",5,0)
N X,X1
"RTN","EDPBPM",6,0)
S X1=$G(^EDPB(231.9,AREA,1))
"RTN","EDPBPM",7,0)
S X("reqDiag")=+$P(X1,U,1)
"RTN","EDPBPM",8,0)
S X("codedDiag")=+$P(X1,U,2)
"RTN","EDPBPM",9,0)
S X("reqDisp")=+$P(X1,U,3)
"RTN","EDPBPM",10,0)
S X("reqDelay")=+$P(X1,U,4)
"RTN","EDPBPM",11,0)
S X("minDelay")=+$P(X1,U,5)
"RTN","EDPBPM",12,0)
S X("shiftOne")=$P(X1,U,6)
"RTN","EDPBPM",13,0)
S X("shiftLen")=$P(X1,U,7)
"RTN","EDPBPM",14,0)
S X("residents")=$P(X1,U,8)
"RTN","EDPBPM",15,0)
D XML^EDPX($$XMLA^EDPX("params",.X))
"RTN","EDPBPM",16,0)
Q
"RTN","EDPBPM",17,0)
SAVE(AREA,PARAM) ; save updated parameters
"RTN","EDPBPM",18,0)
I '$D(^EDPB(231.9,AREA,0)) D XML^EDPX("Area not set up") Q
"RTN","EDPBPM",19,0)
N FLD D NVPARSE^EDPX(.FLD,PARAM)
"RTN","EDPBPM",20,0)
N FDA,FDAIEN,DIERR
"RTN","EDPBPM",21,0)
S AREA=AREA_","
"RTN","EDPBPM",22,0)
S FDA(231.9,AREA,1.1)=FLD("reqDiag")
"RTN","EDPBPM",23,0)
S FDA(231.9,AREA,1.2)=FLD("codedDiag")
"RTN","EDPBPM",24,0)
S FDA(231.9,AREA,1.3)=FLD("reqDisp")
"RTN","EDPBPM",25,0)
S FDA(231.9,AREA,1.4)=FLD("reqDelay")
"RTN","EDPBPM",26,0)
S FDA(231.9,AREA,1.5)=FLD("minDelay")
"RTN","EDPBPM",27,0)
S FDA(231.9,AREA,1.6)=FLD("shiftOne")
"RTN","EDPBPM",28,0)
S FDA(231.9,AREA,1.7)=FLD("shiftLen")
"RTN","EDPBPM",29,0)
S FDA(231.9,AREA,1.8)=FLD("residents")
"RTN","EDPBPM",30,0)
D FILE^DIE("","FDA","ERR")
"RTN","EDPBPM",31,0)
I $D(DIERR) D FAIL($G(ERR("DIERR",1,"TEXT",1))) Q
"RTN","EDPBPM",32,0)
D XML^EDPX("")
"RTN","EDPBPM",33,0)
Q
"RTN","EDPBPM",34,0)
TZSAVE(AREA,TZDIFF) ; save time zone difference in minutes
"RTN","EDPBPM",35,0)
N FDA,FDAIEN,DIERR
"RTN","EDPBPM",36,0)
S AREA=AREA_","
"RTN","EDPBPM",37,0)
S FDA(231.9,AREA,.03)=TZDIFF
"RTN","EDPBPM",38,0)
D FILE^DIE("","FDA","ERR")
"RTN","EDPBPM",39,0)
Q
"RTN","EDPBPM",40,0)
FAIL(ERR) ; set fail node
"RTN","EDPBPM",41,0)
D XML^EDPX(""_ERR_"")
"RTN","EDPBPM",42,0)
Q
"RTN","EDPBRM")
0^28^B8445684
"RTN","EDPBRM",1,0)
EDPBRM ;SLC/KCM - Room/Bed Configuration
"RTN","EDPBRM",2,0)
;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 26
"RTN","EDPBRM",3,0)
;
"RTN","EDPBRM",4,0)
LOAD(AREA) ; Load the list of rooms/beds for this area
"RTN","EDPBRM",5,0)
N BED,SEQ,BEDS,X0
"RTN","EDPBRM",6,0)
;
"RTN","EDPBRM",7,0)
; Get a list of all the beds in sequence for this area
"RTN","EDPBRM",8,0)
S BED=0 F S BED=$O(^EDPB(231.8,"C",EDPSITE,AREA,BED)) Q:'BED D
"RTN","EDPBRM",9,0)
. S SEQ=$P(^EDPB(231.8,BED,0),U,5) S:'SEQ SEQ=99999
"RTN","EDPBRM",10,0)
. S BEDS(SEQ,BED)=""
"RTN","EDPBRM",11,0)
;
"RTN","EDPBRM",12,0)
; Build the XML for each bed in sequence
"RTN","EDPBRM",13,0)
D XML^EDPX("")
"RTN","EDPBRM",14,0)
S SEQ=0 F S SEQ=$O(BEDS(SEQ)) Q:'SEQ D
"RTN","EDPBRM",15,0)
. S BED=0 F S BED=$O(BEDS(SEQ,BED)) Q:'BED D
"RTN","EDPBRM",16,0)
. . S X0=^EDPB(231.8,BED,0)
"RTN","EDPBRM",17,0)
. . N X
"RTN","EDPBRM",18,0)
. . S X("id")=BED
"RTN","EDPBRM",19,0)
. . S X("name")=$P(X0,U)
"RTN","EDPBRM",20,0)
. . S X("site")=$P(X0,U,2)
"RTN","EDPBRM",21,0)
. . S X("area")=$P(X0,U,3)
"RTN","EDPBRM",22,0)
. . S X("inactive")=$P(X0,U,4)
"RTN","EDPBRM",23,0)
. . S X("seq")=$P(X0,U,5)
"RTN","EDPBRM",24,0)
. . S X("display")=$P(X0,U,6)
"RTN","EDPBRM",25,0)
. . S X("when")=$P(X0,U,7)
"RTN","EDPBRM",26,0)
. . S X("status")=$P(X0,U,8)
"RTN","EDPBRM",27,0)
. . S X("multi")=$P(X0,U,9)
"RTN","EDPBRM",28,0)
. . S X("shared")=$P(X0,U,10)
"RTN","EDPBRM",29,0)
. . S X("board")=$P(X0,U,11)
"RTN","EDPBRM",30,0)
. . S X("color")=$P(X0,U,12)
"RTN","EDPBRM",31,0)
. . D XML^EDPX($$XMLA^EDPX("bed",.X))
"RTN","EDPBRM",32,0)
D XML^EDPX("")
"RTN","EDPBRM",33,0)
D CHOICES
"RTN","EDPBRM",34,0)
Q
"RTN","EDPBRM",35,0)
SAVE(REQ) ; Save the updated bed list
"RTN","EDPBRM",36,0)
; loop thru the records and update where changed
"RTN","EDPBRM",37,0)
N X,BED,ERR
"RTN","EDPBRM",38,0)
S X="bed-",ERR=""
"RTN","EDPBRM",39,0)
F S X=$O(REQ(X)) Q:$E(X,1,4)'="bed-" D
"RTN","EDPBRM",40,0)
. K BED S BED=""
"RTN","EDPBRM",41,0)
. D NVPARSE^EDPX(.BED,REQ(X,1))
"RTN","EDPBRM",42,0)
. I BED("changed") D UPD(.BED,.ERR)
"RTN","EDPBRM",43,0)
I $L(ERR) D XML^EDPX(""_ERR_"") Q
"RTN","EDPBRM",44,0)
D XML^EDPX("")
"RTN","EDPBRM",45,0)
Q
"RTN","EDPBRM",46,0)
UPD(FLD,ERRMSG) ; Add/Update Record
"RTN","EDPBRM",47,0)
N EDPIEN
"RTN","EDPBRM",48,0)
S EDPIEN=FLD("id")_","
"RTN","EDPBRM",49,0)
I FLD("id")=0 S EDPIEN="+1,"
"RTN","EDPBRM",50,0)
;
"RTN","EDPBRM",51,0)
N FDA,FDAIEN,DIERR,ERR
"RTN","EDPBRM",52,0)
S FDA(231.8,EDPIEN,.01)=FLD("name")
"RTN","EDPBRM",53,0)
S FDA(231.8,EDPIEN,.02)=EDPSITE
"RTN","EDPBRM",54,0)
S FDA(231.8,EDPIEN,.03)=FLD("area")
"RTN","EDPBRM",55,0)
S FDA(231.8,EDPIEN,.04)=FLD("inactive")
"RTN","EDPBRM",56,0)
S FDA(231.8,EDPIEN,.05)=FLD("seq")
"RTN","EDPBRM",57,0)
S FDA(231.8,EDPIEN,.06)=FLD("display")
"RTN","EDPBRM",58,0)
S FDA(231.8,EDPIEN,.07)=FLD("when")
"RTN","EDPBRM",59,0)
S FDA(231.8,EDPIEN,.08)=FLD("status")
"RTN","EDPBRM",60,0)
S FDA(231.8,EDPIEN,.09)=FLD("multi")
"RTN","EDPBRM",61,0)
S FDA(231.8,EDPIEN,.1)=FLD("shared")
"RTN","EDPBRM",62,0)
S FDA(231.8,EDPIEN,.11)=FLD("board")
"RTN","EDPBRM",63,0)
S FDA(231.8,EDPIEN,.12)=FLD("color")
"RTN","EDPBRM",64,0)
I EDPIEN="+1," D
"RTN","EDPBRM",65,0)
. D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPBRM",66,0)
. I $D(DIERR) S ERRMSG=ERRMSG_"Adding "_FLD("name")_" failed. "
"RTN","EDPBRM",67,0)
E D
"RTN","EDPBRM",68,0)
. D FILE^DIE("","FDA","ERR")
"RTN","EDPBRM",69,0)
. I $D(DIERR) S ERRMSG=ERRMSG_"Updating "_FLD("name")_" failed. "
"RTN","EDPBRM",70,0)
Q
"RTN","EDPBRM",71,0)
CHOICES ; Load the choice lists
"RTN","EDPBRM",72,0)
N I,X
"RTN","EDPBRM",73,0)
F I=1:1 S X=$P($T(WHEN+I),";",3,99) Q:X="ZZZZZ" D XML^EDPX(X)
"RTN","EDPBRM",74,0)
D CODES^EDPQLE1("status","status")
"RTN","EDPBRM",75,0)
Q
"RTN","EDPBRM",76,0)
WHEN ; Display When Choices
"RTN","EDPBRM",77,0)
;;
"RTN","EDPBRM",78,0)
;;
"RTN","EDPBRM",79,0)
;;
"RTN","EDPBRM",80,0)
;;
"RTN","EDPBRM",81,0)
;;
"RTN","EDPBRM",82,0)
;;ZZZZZ
"RTN","EDPBRS")
0^29^B17301676
"RTN","EDPBRS",1,0)
EDPBRS ;SLC/KCM - Reset Board Configuration
"RTN","EDPBRS",2,0)
;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 26
"RTN","EDPBRS",3,0)
;
"RTN","EDPBRS",4,0)
RESET(AREA) ; Set initial configuration for site & area
"RTN","EDPBRS",5,0)
D SPEC(AREA),COLOR(AREA),ROOMS(AREA),PARAMS(AREA)
"RTN","EDPBRS",6,0)
Q
"RTN","EDPBRS",7,0)
SPEC(AREA) ; Set up default board spec
"RTN","EDPBRS",8,0)
; assumes site, area passed in
"RTN","EDPBRS",9,0)
N I,X,WP
"RTN","EDPBRS",10,0)
F I=1:1 S X=$P($T(BRDXML+I),";",3,99) Q:$E(X,1,5)="zzzzz" S WP(I)=X
"RTN","EDPBRS",11,0)
D WP^DIE(231.9,AREA_",",2,"","WP")
"RTN","EDPBRS",12,0)
I $D(DIERR) W !,"spec update failed" Q
"RTN","EDPBRS",13,0)
Q
"RTN","EDPBRS",14,0)
BRDXML ; XML for the board spec
"RTN","EDPBRS",15,0)
;;
"RTN","EDPBRS",16,0)
;;|
"RTN","EDPBRS",17,0)
;;
"RTN","EDPBRS",18,0)
;;
"RTN","EDPBRS",19,0)
;;
"RTN","EDPBRS",20,0)
;;
"RTN","EDPBRS",21,0)
;;
"RTN","EDPBRS",22,0)
;;
"RTN","EDPBRS",23,0)
;;
"RTN","EDPBRS",24,0)
;;
"RTN","EDPBRS",25,0)
;;
"RTN","EDPBRS",26,0)
;;
"RTN","EDPBRS",27,0)
;;
"RTN","EDPBRS",28,0)
;;zzzzz
"RTN","EDPBRS",29,0)
;;
"RTN","EDPBRS",30,0)
COLOR(AREA) ; Set up default colors
"RTN","EDPBRS",31,0)
N I,X,WP
"RTN","EDPBRS",32,0)
F I=1:1 S X=$P($T(CLRXML+I),";",3,99) Q:$E(X,1,5)="zzzzz" S WP(I)=X
"RTN","EDPBRS",33,0)
D WP^DIE(231.9,AREA_",",3,"","WP")
"RTN","EDPBRS",34,0)
I $D(DIERR) W !,"spec update failed" Q
"RTN","EDPBRS",35,0)
Q
"RTN","EDPBRS",36,0)
CLRXML ; XML for the color spec
"RTN","EDPBRS",37,0)
;;
"RTN","EDPBRS",38,0)
;;
"RTN","EDPBRS",39,0)
;;
"RTN","EDPBRS",40,0)
;;
"RTN","EDPBRS",41,0)
;;
"RTN","EDPBRS",42,0)
;;
"RTN","EDPBRS",43,0)
;;
"RTN","EDPBRS",44,0)
;;
"RTN","EDPBRS",45,0)
;;
"RTN","EDPBRS",46,0)
;;
"RTN","EDPBRS",47,0)
;;
"RTN","EDPBRS",48,0)
;;
"RTN","EDPBRS",49,0)
;;
"RTN","EDPBRS",50,0)
;;
"RTN","EDPBRS",51,0)
;;
"RTN","EDPBRS",52,0)
;;
"RTN","EDPBRS",53,0)
;;
"RTN","EDPBRS",54,0)
;;
"RTN","EDPBRS",55,0)
;;
"RTN","EDPBRS",56,0)
;;
"RTN","EDPBRS",57,0)
;;
"RTN","EDPBRS",58,0)
;;
"RTN","EDPBRS",59,0)
;;
"RTN","EDPBRS",60,0)
;;
"RTN","EDPBRS",61,0)
;;zzzzz
"RTN","EDPBRS",62,0)
;;
"RTN","EDPBRS",63,0)
ROOMS(AREA) ; baseline rooms
"RTN","EDPBRS",64,0)
N I,X
"RTN","EDPBRS",65,0)
F I=1:1 S X=$P($T(ROOMLST+I),";",3,99) Q:$E(X,1,5)="zzzzz" D
"RTN","EDPBRS",66,0)
. N FDA,FDAIEN,DIERR,ERR
"RTN","EDPBRS",67,0)
. S FDA(231.8,"+1,",.01)=$P(X,U)
"RTN","EDPBRS",68,0)
. S FDA(231.8,"+1,",.02)=EDPSITE
"RTN","EDPBRS",69,0)
. S FDA(231.8,"+1,",.03)=AREA
"RTN","EDPBRS",70,0)
. S FDA(231.8,"+1,",.05)=$P(X,U,3)
"RTN","EDPBRS",71,0)
. S FDA(231.8,"+1,",.06)=$P(X,U,2)
"RTN","EDPBRS",72,0)
. S FDA(231.8,"+1,",.07)=$P(X,U,4)
"RTN","EDPBRS",73,0)
. S FDA(231.8,"+1,",.09)=$P(X,U,5)
"RTN","EDPBRS",74,0)
. D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPBRS",75,0)
Q
"RTN","EDPBRS",76,0)
ROOMLST ; Name^Display Name^Seq^When^Multi
"RTN","EDPBRS",77,0)
;;Waiting^WAIT^1^0^1
"RTN","EDPBRS",78,0)
;;Ambulance^AMBU^5^0^1
"RTN","EDPBRS",79,0)
;;Hallway^HALL^10^0^1
"RTN","EDPBRS",80,0)
;;General Radiology^RAD^110^0^1
"RTN","EDPBRS",81,0)
;;CT^CT^120^0^1
"RTN","EDPBRS",82,0)
;;MRI^MRI^130^0^1
"RTN","EDPBRS",83,0)
;;Cardiac Cath^CATH^140^0^1
"RTN","EDPBRS",84,0)
;;Cardiac Stress Test^STEST^150^0^1
"RTN","EDPBRS",85,0)
;;Dialysis^DIAL^160^0^1
"RTN","EDPBRS",86,0)
;;Subspecialty Clinic^SCLIN^170^0^1
"RTN","EDPBRS",87,0)
;;zzzzz
"RTN","EDPBRS",88,0)
PARAMS(AREA) ; baseline parameters
"RTN","EDPBRS",89,0)
N FDA,DIERR
"RTN","EDPBRS",90,0)
S AREA=AREA_","
"RTN","EDPBRS",91,0)
S FDA(231.9,AREA,1.1)=1
"RTN","EDPBRS",92,0)
S FDA(231.9,AREA,1.2)=1
"RTN","EDPBRS",93,0)
S FDA(231.9,AREA,1.3)=1
"RTN","EDPBRS",94,0)
S FDA(231.9,AREA,1.4)=1
"RTN","EDPBRS",95,0)
S FDA(231.9,AREA,1.5)=300
"RTN","EDPBRS",96,0)
S FDA(231.9,AREA,1.6)=420
"RTN","EDPBRS",97,0)
S FDA(231.9,AREA,1.7)=480
"RTN","EDPBRS",98,0)
S FDA(231.9,AREA,1.8)=1
"RTN","EDPBRS",99,0)
D FILE^DIE("","FDA","ERR")
"RTN","EDPBRS",100,0)
Q
"RTN","EDPBSL")
0^30^B10687935
"RTN","EDPBSL",1,0)
EDPBSL ;SLC/KCM - Selection List Configuration
"RTN","EDPBSL",2,0)
;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 26
"RTN","EDPBSL",3,0)
;
"RTN","EDPBSL",4,0)
LOAD(AREA) ; Load selection lists for area
"RTN","EDPBSL",5,0)
;D LIST("acuity","Acuity")
"RTN","EDPBSL",6,0)
D LIST("status","Status")
"RTN","EDPBSL",7,0)
D LIST("arrival","Mode of Arrival")
"RTN","EDPBSL",8,0)
D LIST("disposition","Disposition")
"RTN","EDPBSL",9,0)
D LIST("delay","Delay Reason")
"RTN","EDPBSL",10,0)
Q
"RTN","EDPBSL",11,0)
LIST(NM,TITLE) ; build XML for selection list
"RTN","EDPBSL",12,0)
N SETNM S SETNM=EDPSITE_"."_NM
"RTN","EDPBSL",13,0)
I '$D(^EDPB(233.2,"B",SETNM)) S SETNM="edp."_NM
"RTN","EDPBSL",14,0)
D XML^EDPX("<"_NM_" title='"_TITLE_"'>")
"RTN","EDPBSL",15,0)
N IEN,SEQ,DA,X0
"RTN","EDPBSL",16,0)
S IEN=$O(^EDPB(233.2,"B",SETNM,0))
"RTN","EDPBSL",17,0)
S SEQ=0 F S SEQ=$O(^EDPB(233.2,IEN,1,"B",SEQ)) Q:'SEQ D
"RTN","EDPBSL",18,0)
. S DA=0 F S DA=$O(^EDPB(233.2,IEN,1,"B",SEQ,DA)) Q:'DA D
"RTN","EDPBSL",19,0)
. . S X0=^EDPB(233.2,IEN,1,DA,0)
"RTN","EDPBSL",20,0)
. . N X
"RTN","EDPBSL",21,0)
. . S X("seq")=SEQ
"RTN","EDPBSL",22,0)
. . S X("id")=$P(X0,U,2)
"RTN","EDPBSL",23,0)
. . S X("inact")=$P(X0,U,3)
"RTN","EDPBSL",24,0)
. . S X("show")=$P(X0,U,4)
"RTN","EDPBSL",25,0)
. . S X("abbr")=$P(X0,U,5)
"RTN","EDPBSL",26,0)
. . ; switch to entry in 233.1 now
"RTN","EDPBSL",27,0)
. . S X0=^EDPB(233.1,X("id"),0)
"RTN","EDPBSL",28,0)
. . I X("show")="" S X("show")=$P(X0,U,2)
"RTN","EDPBSL",29,0)
. . I X("abbr")="" S X("abbr")=$P(X0,U,3)
"RTN","EDPBSL",30,0)
. . S X("flag")=$P(X0,U,5)
"RTN","EDPBSL",31,0)
. . D XML^EDPX($$XMLA^EDPX("code",.X))
"RTN","EDPBSL",32,0)
D XML^EDPX("")
"RTN","EDPBSL",33,0)
Q
"RTN","EDPBSL",34,0)
SAVE(REQ) ; save the selection changes
"RTN","EDPBSL",35,0)
N CTYP,SET,SETNM,CODE,X,EDPERR
"RTN","EDPBSL",36,0)
S EDPERR=""
"RTN","EDPBSL",37,0)
F CTYP="status","disposition","delay","arrival" D
"RTN","EDPBSL",38,0)
. I $E($O(REQ(CTYP)),1,$L(CTYP))'=CTYP Q
"RTN","EDPBSL",39,0)
. S SETNM=EDPSITE_"."_CTYP,SET=$O(^EDPB(233.2,"B",SETNM,0))
"RTN","EDPBSL",40,0)
. I 'SET D NEWSET(SETNM) S SET=$O(^EDPB(233.2,"B",SETNM,0))
"RTN","EDPBSL",41,0)
. D CLEARSET(SET)
"RTN","EDPBSL",42,0)
. S X=CTYP F S X=$O(REQ(X)) Q:$E(X,1,$L(CTYP))'=CTYP D
"RTN","EDPBSL",43,0)
. . K CODE S CODE="" D NVPARSE^EDPX(.CODE,REQ(X,1))
"RTN","EDPBSL",44,0)
. . I CODE("id")<1 D ADDCODE(CTYP,.CODE)
"RTN","EDPBSL",45,0)
. . D ADD2SET(SET,.CODE)
"RTN","EDPBSL",46,0)
I $L(EDPERR) D XML^EDPX(""_EDPERR_"") Q
"RTN","EDPBSL",47,0)
D XML^EDPX("")
"RTN","EDPBSL",48,0)
Q
"RTN","EDPBSL",49,0)
NEWSET(SETNM) ; Create a new code set for a site
"RTN","EDPBSL",50,0)
N FDA,FDAIEN,DIERR,ERR
"RTN","EDPBSL",51,0)
S FDA(233.2,"+1,",.01)=SETNM
"RTN","EDPBSL",52,0)
D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPBSL",53,0)
I $D(DIERR) S EDPERR=EDPERR_"new code set failed;"
"RTN","EDPBSL",54,0)
Q
"RTN","EDPBSL",55,0)
CLEARSET(SET) ; Clear the CODES mulitple
"RTN","EDPBSL",56,0)
I '$O(^EDPB(233.2,SET,1,0)) Q ; no child nodes
"RTN","EDPBSL",57,0)
N DA,DIK S DA=0,DA(1)=SET,DIK="^EDPB(233.2,"_DA(1)_",1,"
"RTN","EDPBSL",58,0)
F S DA=$O(^EDPB(233.2,SET,1,DA)) Q:'DA D ^DIK
"RTN","EDPBSL",59,0)
Q
"RTN","EDPBSL",60,0)
ADDCODE(CTYP,X) ; Add a new code to the TRACKING CODE file
"RTN","EDPBSL",61,0)
Q:X("id")'=0
"RTN","EDPBSL",62,0)
N NAME,DNAME,I
"RTN","EDPBSL",63,0)
S NAME=EDPSITE_"."_CTYP_"."_$TR(X("show")," ","")
"RTN","EDPBSL",64,0)
I $O(^EDPB(233.1,"B",NAME,0)) D
"RTN","EDPBSL",65,0)
. F I=1:1:99 Q:'$O(^EDPB(233.1,"B",NAME_I,0))
"RTN","EDPBSL",66,0)
. S NAME=NAME_I
"RTN","EDPBSL",67,0)
N FDA,FDAIEN,DIERR,ERR
"RTN","EDPBSL",68,0)
S FDA(233.1,"+1,",.01)=NAME
"RTN","EDPBSL",69,0)
S FDA(233.1,"+1,",.02)=X("show")
"RTN","EDPBSL",70,0)
S FDA(233.1,"+1,",.03)=X("abbr")
"RTN","EDPBSL",71,0)
S FDA(233.1,"+1,",.05)=X("flag")
"RTN","EDPBSL",72,0)
D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPBSL",73,0)
I $D(DIERR) S EDPERR=EDPERR_"add code "_NAME_"failed;"
"RTN","EDPBSL",74,0)
S X("id")=FDAIEN(1),X("nm")=NAME
"RTN","EDPBSL",75,0)
Q
"RTN","EDPBSL",76,0)
ADD2SET(SET,X) ; Add a new code to the CODES multiple
"RTN","EDPBSL",77,0)
N FDA,FDAIEN,DIERR,ERR
"RTN","EDPBSL",78,0)
S FDA(233.21,"+1,"_SET_",",.01)=X("seq")
"RTN","EDPBSL",79,0)
S FDA(233.21,"+1,"_SET_",",.02)=X("id")
"RTN","EDPBSL",80,0)
S FDA(233.21,"+1,"_SET_",",.03)=X("inact")
"RTN","EDPBSL",81,0)
S FDA(233.21,"+1,"_SET_",",.04)=X("show")
"RTN","EDPBSL",82,0)
S FDA(233.21,"+1,"_SET_",",.05)=X("abbr")
"RTN","EDPBSL",83,0)
D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPBSL",84,0)
I $D(DIERR) S EDPERR=EDPERR_"add to set "_X("show")_" failed;"
"RTN","EDPBSL",85,0)
Q
"RTN","EDPBST")
0^31^B5475516
"RTN","EDPBST",1,0)
EDPBST ;SLC/KCM - Staff Configuration
"RTN","EDPBST",2,0)
;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 26
"RTN","EDPBST",3,0)
;
"RTN","EDPBST",4,0)
MATCH(X) ; Return matching providers
"RTN","EDPBST",5,0)
Q
"RTN","EDPBST",6,0)
LOAD(AREA) ; Return nurse and provider sources, staff config
"RTN","EDPBST",7,0)
D XML^EDPX(""),ACTIVE(AREA,"P"),XML^EDPX("")
"RTN","EDPBST",8,0)
D XML^EDPX(""),ACTIVE(AREA,"R"),XML^EDPX("")
"RTN","EDPBST",9,0)
D XML^EDPX(""),ACTIVE(AREA,"N"),XML^EDPX("")
"RTN","EDPBST",10,0)
Q
"RTN","EDPBST",11,0)
ACTIVE(AREA,ROLE) ; build list of active for a role
"RTN","EDPBST",12,0)
N IEN,X0,X
"RTN","EDPBST",13,0)
S IEN=0 F S IEN=$O(^EDPB(231.7,"AC",EDPSITE,AREA,ROLE,IEN)) Q:'IEN D
"RTN","EDPBST",14,0)
. S X0=^EDPB(231.7,IEN,0)
"RTN","EDPBST",15,0)
. S X("duz")=$P(X0,U)
"RTN","EDPBST",16,0)
. S X("nm")=$P(^VA(200,X("duz"),0),U)
"RTN","EDPBST",17,0)
. S X("role")=$P(X0,U,6)
"RTN","EDPBST",18,0)
. S X("itl")=$P(^VA(200,X("duz"),0),U,2)
"RTN","EDPBST",19,0)
. S X("clr")=$P(X0,U,8)
"RTN","EDPBST",20,0)
. D XML^EDPX($$XMLA^EDPX("staff",.X))
"RTN","EDPBST",21,0)
Q
"RTN","EDPBST",22,0)
SAVE(REQ) ; save updated staff members
"RTN","EDPBST",23,0)
N X,STAFF,ERR,EDPAREA
"RTN","EDPBST",24,0)
S EDPAREA=$G(REQ("area",1))
"RTN","EDPBST",25,0)
I EDPAREA="" D XML^EDPX("Missing Area") Q
"RTN","EDPBST",26,0)
;
"RTN","EDPBST",27,0)
S X="staff-",ERR=""
"RTN","EDPBST",28,0)
F S X=$O(REQ(X)) Q:$E(X,1,6)'="staff-" D
"RTN","EDPBST",29,0)
. K STAFF S STAFF=""
"RTN","EDPBST",30,0)
. D NVPARSE^EDPX(.STAFF,REQ(X,1))
"RTN","EDPBST",31,0)
. I STAFF("chg") D UPD(.STAFF,.ERR)
"RTN","EDPBST",32,0)
;
"RTN","EDPBST",33,0)
I $L(ERR) D XML^EDPX(""_ERR_"") Q
"RTN","EDPBST",34,0)
D XML^EDPX("")
"RTN","EDPBST",35,0)
Q
"RTN","EDPBST",36,0)
UPD(FLD,ERRMSG) ; Add/Update Record (expects EDPAREA, EDPSITE to be defined)
"RTN","EDPBST",37,0)
N EDPIEN
"RTN","EDPBST",38,0)
S EDPIEN=$O(^EDPB(231.7,"AD",EDPSITE,EDPAREA,+FLD("duz"),0))_","
"RTN","EDPBST",39,0)
I 'EDPIEN,FLD("inact") Q ; don't add inactive selection
"RTN","EDPBST",40,0)
I 'EDPIEN S EDPIEN="+1,"
"RTN","EDPBST",41,0)
;
"RTN","EDPBST",42,0)
N FDA,FDAIEN,DIERR,ERR
"RTN","EDPBST",43,0)
S FDA(231.7,EDPIEN,.01)=FLD("duz")
"RTN","EDPBST",44,0)
S FDA(231.7,EDPIEN,.02)=EDPSITE
"RTN","EDPBST",45,0)
S FDA(231.7,EDPIEN,.03)=EDPAREA
"RTN","EDPBST",46,0)
S FDA(231.7,EDPIEN,.04)=FLD("inact")
"RTN","EDPBST",47,0)
S FDA(231.7,EDPIEN,.06)=FLD("role")
"RTN","EDPBST",48,0)
;S FDA(231.7,EDPIEN,.07)=FLD("itl") --NtoL
"RTN","EDPBST",49,0)
S FDA(231.7,EDPIEN,.08)=FLD("clr")
"RTN","EDPBST",50,0)
I EDPIEN="+1," D
"RTN","EDPBST",51,0)
. D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPBST",52,0)
. I $D(DIERR) S ERRMSG=ERRMSG_"Adding "_FLD("name")_" failed. "
"RTN","EDPBST",53,0)
E D
"RTN","EDPBST",54,0)
. D FILE^DIE("","FDA","ERR")
"RTN","EDPBST",55,0)
. I $D(DIERR) S ERRMSG=ERRMSG_"Updating "_FLD("name")_" failed. "
"RTN","EDPBST",56,0)
Q
"RTN","EDPCBRD")
0^32^B2212606
"RTN","EDPCBRD",1,0)
EDPCBRD ;SLC/KCM - Controller for ED Tracking Board
"RTN","EDPCBRD",2,0)
;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 26
"RTN","EDPCBRD",3,0)
;
"RTN","EDPCBRD",4,0)
RPC(EDPXML,SESS,PARAMS) ; Process request via RPC instead of CSP
"RTN","EDPCBRD",5,0)
N X,REQ,EDPSITE,EDPUSER
"RTN","EDPCBRD",6,0)
K EDPXML
"RTN","EDPCBRD",7,0)
S EDPUSER=$P($G(SESS),U),EDPSITE=$P($G(SESS),U,2)
"RTN","EDPCBRD",8,0)
S X="" F S X=$O(PARAMS(X)) Q:X="" S REQ(X,1)=PARAMS(X)
"RTN","EDPCBRD",9,0)
;
"RTN","EDPCBRD",10,0)
COMMON ; Come here for both CSP and RPC Mode
"RTN","EDPCBRD",11,0)
;
"RTN","EDPCBRD",12,0)
N EDPFAIL,CMD
"RTN","EDPCBRD",13,0)
S CMD=$G(REQ("command",1))
"RTN","EDPCBRD",14,0)
;
"RTN","EDPCBRD",15,0)
; switch on command
"RTN","EDPCBRD",16,0)
;
"RTN","EDPCBRD",17,0)
; ---------------------------------
"RTN","EDPCBRD",18,0)
;
"RTN","EDPCBRD",19,0)
; initTracking
"RTN","EDPCBRD",20,0)
; return ...
"RTN","EDPCBRD",21,0)
I CMD="initTracking" D DFLTAREA^EDPQAR G OUT
"RTN","EDPCBRD",22,0)
;
"RTN","EDPCBRD",23,0)
; ---------------------------------
"RTN","EDPCBRD",24,0)
;
"RTN","EDPCBRD",25,0)
; initDisplayBoard
"RTN","EDPCBRD",26,0)
; return
"RTN","EDPCBRD",27,0)
; ......
"RTN","EDPCBRD",28,0)
; |
...
"RTN","EDPCBRD",29,0)
I CMD="initDisplayBoard" D G OUT
"RTN","EDPCBRD",30,0)
. D GET^EDPQDBS($$VAL("area"))
"RTN","EDPCBRD",31,0)
. D GET^EDPQDB($$VAL("area"),$$VAL("board"),-1)
"RTN","EDPCBRD",32,0)
;
"RTN","EDPCBRD",33,0)
; ---------------------------------
"RTN","EDPCBRD",34,0)
;
"RTN","EDPCBRD",35,0)
; refreshDisplayBoard
"RTN","EDPCBRD",36,0)
; return |
...
"RTN","EDPCBRD",37,0)
I CMD="refreshDisplayBoard" D G OUT
"RTN","EDPCBRD",38,0)
. D GET^EDPQDB($$VAL("area"),$$VAL("board"),-1)
"RTN","EDPCBRD",39,0)
;
"RTN","EDPCBRD",40,0)
; ---------------------------------
"RTN","EDPCBRD",41,0)
; else
"RTN","EDPCBRD",42,0)
D XML^EDPX("")
"RTN","EDPCBRD",43,0)
; end switch
"RTN","EDPCBRD",44,0)
;
"RTN","EDPCBRD",45,0)
OUT ; output the XML
"RTN","EDPCBRD",46,0)
I $L($G(EDPHTTP)) D ; if in CSP mode
"RTN","EDPCBRD",47,0)
. U EDPHTTP
"RTN","EDPCBRD",48,0)
. W "",!
"RTN","EDPCBRD",49,0)
. N I S I=0 F S I=$O(EDPXML(I)) Q:'I W EDPXML(I),!
"RTN","EDPCBRD",50,0)
. W "",!
"RTN","EDPCBRD",51,0)
END Q
"RTN","EDPCBRD",52,0)
;
"RTN","EDPCBRD",53,0)
VAL(X) ; return value from request
"RTN","EDPCBRD",54,0)
Q $G(REQ(X,1))
"RTN","EDPCONV")
0^24^B69324317
"RTN","EDPCONV",1,0)
EDPCONV ;SLC/MKB - Process incoming mail to convert local ED Visits
"RTN","EDPCONV",2,0)
;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 26
"RTN","EDPCONV",3,0)
;
"RTN","EDPCONV",4,0)
ENC(DIZ) ; -- Update the local DIZ(NODE) site configuration into ^EDPB(231.9)
"RTN","EDPCONV",5,0)
N EDPSITE,TZDIFF,EDPAREA,X,X2,X3,X5,Y,NODE
"RTN","EDPCONV",6,0)
S EDPSITE=$G(DIZ("SITE")),X=$G(DIZ("TZ")),TZDIFF=0 ;$$TZONE(X)
"RTN","EDPCONV",7,0)
S EDPAREA=+$O(^EDPB(231.9,"C",EDPSITE,0)) Q:EDPAREA<1
"RTN","EDPCONV",8,0)
S X2=$G(DIZ(2)),X3=$G(DIZ(3)),X5=$G(DIZ(5))
"RTN","EDPCONV",9,0)
; update entry
"RTN","EDPCONV",10,0)
S:$L(TZDIFF) $P(^EDPB(231.9,EDPAREA,0),U,3)=TZDIFF
"RTN","EDPCONV",11,0)
S NODE=$G(^EDPB(231.9,EDPAREA,1))
"RTN","EDPCONV",12,0)
S X=$P(X5,U,1) S:$L(X) $P(NODE,U,1)=X ;Dx Reqd
"RTN","EDPCONV",13,0)
S X=$P(X5,U,4) S:$L(X) $P(NODE,U,3)=X ;Disp Reqd
"RTN","EDPCONV",14,0)
S X=$P(X5,U,5) S:$L(X) $P(NODE,U,4)=X ;Delay Reqd
"RTN","EDPCONV",15,0)
S X=$P(X5,U,6) S:$L(X) $P(NODE,U,5)=X ;Delay Minutes
"RTN","EDPCONV",16,0)
S X=$P(X2,U,4) I $L(X) D
"RTN","EDPCONV",17,0)
. S Y=(+$P(X,":")*60)+$P(X,":",2) ;HH:MM -> minutes since Midnight
"RTN","EDPCONV",18,0)
. S $P(NODE,U,6)=Y ;First Shift Start
"RTN","EDPCONV",19,0)
S X=$P(X2,U,5) I X D
"RTN","EDPCONV",20,0)
. S Y=X*60 ;hours -> minutes
"RTN","EDPCONV",21,0)
. S $P(NODE,U,7)=Y ;Shift Duration
"RTN","EDPCONV",22,0)
S ^EDPB(231.9,EDPAREA,1)=NODE
"RTN","EDPCONV",23,0)
ENC1 ; Color Spec
"RTN","EDPCONV",24,0)
N CSPEC,N,I,BACK,FONT
"RTN","EDPCONV",25,0)
S CSPEC(1,0)="",N=1
"RTN","EDPCONV",26,0)
S I="STS" F S I=$O(DIZ(I)) Q:I'?1"STS"1.N D
"RTN","EDPCONV",27,0)
. S NODE=$G(DIZ(I)),FONT=$P(NODE,U,2),BACK=$P(NODE,U,3)
"RTN","EDPCONV",28,0)
. S X=""
"RTN","EDPCONV",30,0)
. E S X=X_"1,"_$$CLR(BACK)_","_$$CLR(FONT)_""" val="""_Y_""" />"
"RTN","EDPCONV",31,0)
. S N=N+1,CSPEC(N,0)=X
"RTN","EDPCONV",32,0)
S I="ACU" F S I=$O(DIZ(I)) Q:I'?1"ACU"1.N D
"RTN","EDPCONV",33,0)
. S NODE=$G(DIZ(I)),FONT=$$CLR($P(NODE,U,3)),BACK=$$CLR($P(NODE,U,4))
"RTN","EDPCONV",34,0)
. S X=""
"RTN","EDPCONV",36,0)
. E S X=X_"1,"_BACK_","_FONT_""" val="""_Y_""" />"
"RTN","EDPCONV",37,0)
. S N=N+1,CSPEC(N,0)=X
"RTN","EDPCONV",38,0)
S N=N+1,CSPEC(N,0)=""
"RTN","EDPCONV",39,0)
F I=1:1 S X=$P($T(ORDCLR+I),";",3) Q:X="ZZZZ" S N=N+1,CSPEC(N,0)=X
"RTN","EDPCONV",40,0)
S CSPEC(0)="^^"_N_U_N_U_DT
"RTN","EDPCONV",41,0)
K ^EDPB(231.9,EDPAREA,3) M ^(3)=CSPEC
"RTN","EDPCONV",42,0)
Q
"RTN","EDPCONV",43,0)
;
"RTN","EDPCONV",44,0)
AREA(STA) ; -- Return #231.9 ien for STAtion number
"RTN","EDPCONV",45,0)
Q +$O(^EDPB(231.9,"C",STA,0))
"RTN","EDPCONV",46,0)
;
"RTN","EDPCONV",47,0)
EN1(DIZ) ; -- Save the local DIZ(node) ER visit entry into ^EDP(230)
"RTN","EDPCONV",48,0)
N X,I,EDPY,EDPSITE,EDPDIFF,EDPAREA,EDPLOG,EDPI,PNM,SSN
"RTN","EDPCONV",49,0)
S EDPSITE=$G(DIZ("SITE")),X=$G(DIZ("TZ")),EDPDIFF=0 ;$$TZONE(X)
"RTN","EDPCONV",50,0)
S EDPAREA=$$AREA(EDPSITE) Q:EDPAREA<1
"RTN","EDPCONV",51,0)
F I=0,1,2,3,4,6,9 S DIZ(I)=$G(DIZ(I)) ;defined
"RTN","EDPCONV",52,0)
S X=$P(DIZ(0),U,5),EDPY=$$NEW(230,X) Q:EDPY<1
"RTN","EDPCONV",53,0)
S PNM=$P(DIZ(0),U),SSN=$P(DIZ(0),U,3) ;patient name, ssn
"RTN","EDPCONV",54,0)
S EDPLOG(0)=X_U_EDPSITE_U_EDPAREA_U_PNM_U_SSN_U_$P(DIZ(6),U,2)_U_$G(DIZ("CLOSED"))_U_$P(DIZ(4),U,4,5)_U_$$ARR($P(DIZ(0),U,6))_U_$$PID(PNM,SSN) ;_U_EDPDIFF
"RTN","EDPCONV",55,0)
S X=$P(DIZ(9),U,3) S:'X X=$P(DIZ(6),U,3) ;disposition
"RTN","EDPCONV",56,0)
S EDPLOG(1)=$P(DIZ(1),U)_U_$$DISP(X)_U_$P(DIZ(9),U,2)_U_$P(DIZ(9),U)_U_$$DEL($P(DIZ(4),U,7))
"RTN","EDPCONV",57,0)
S X=$P(DIZ(2),U) S:$L(X) EDPLOG(2)=X
"RTN","EDPCONV",58,0)
S EDPLOG(3)=U_$$STS($P(DIZ(0),U,4))_U_$$ACU($P(DIZ(4),U,3))_U_$$LOC($P(DIZ(3),U,2))_U_$P(DIZ(4),U)_U_$P(DIZ(4),U,2)_U_$P(DIZ(4),U,6)_U_$P(DIZ(6),U)
"RTN","EDPCONV",59,0)
I $D(DIZ(8)) M EDPLOG(4)=DIZ(8) S EDPLOG(8,0)="^230.04A^"_DIZ(8)_U_DIZ(8)
"RTN","EDPCONV",60,0)
; Save/Xref log entry
"RTN","EDPCONV",61,0)
M ^EDP(230,EDPY)=EDPLOG
"RTN","EDPCONV",62,0)
D XREF(230,EDPY)
"RTN","EDPCONV",63,0)
; Set History from Movement nodes
"RTN","EDPCONV",64,0)
S EDPI="MVT" F S EDPI=$O(DIZ(EDPI)) Q:EDPI'?1"MVT"1.N D HIST(EDPI,EDPY)
"RTN","EDPCONV",65,0)
Q
"RTN","EDPCONV",66,0)
;
"RTN","EDPCONV",67,0)
HIST(MVTI,LOG) ; -- Save the DIZ(MVTI) into ^EDP(230.1)
"RTN","EDPCONV",68,0)
N EDPY,MVT,ACT
"RTN","EDPCONV",69,0)
S EDPY=$$NEW(230.1,LOG) Q:EDPY<1
"RTN","EDPCONV",70,0)
S MVT=DIZ(MVTI)
"RTN","EDPCONV",71,0)
S ACT(0)=LOG_U_$P(MVT,U,2)_U_U_$P($G(^EDP(230,LOG,0)),U,4,6)
"RTN","EDPCONV",72,0)
S ACT(3)=U_$$STS($P(MVT,U,3))_U_$$ACU($P(MVT,U,4))_U_$$LOC($P(MVT,U,5))_U_$P(MVT,U,6,8)
"RTN","EDPCONV",73,0)
; Save/Xref history
"RTN","EDPCONV",74,0)
M ^EDP(230.1,EDPY)=ACT
"RTN","EDPCONV",75,0)
D XREF(230.1,EDPY)
"RTN","EDPCONV",76,0)
Q
"RTN","EDPCONV",77,0)
;
"RTN","EDPCONV",78,0)
NEW(FILE,X) ; -- Return ien of new entry in FILE
"RTN","EDPCONV",79,0)
N DO,DIC,DA,Y
"RTN","EDPCONV",80,0)
S DIC="^EDP("_FILE_",",DIC(0)="LF" D FILE^DICN
"RTN","EDPCONV",81,0)
Q +Y
"RTN","EDPCONV",82,0)
;
"RTN","EDPCONV",83,0)
XREF(FILE,DA) ; -- Set all xrefs for DA in FILE
"RTN","EDPCONV",84,0)
N DIK
"RTN","EDPCONV",85,0)
S DIK="^EDP("_FILE_"," D IX1^DIK
"RTN","EDPCONV",86,0)
Q
"RTN","EDPCONV",87,0)
;
"RTN","EDPCONV",88,0)
PID(NM,ID) ; -- Return brief id (L0000) for patient
"RTN","EDPCONV",89,0)
N Y S Y=$E(NM)_$E(ID,6,9)
"RTN","EDPCONV",90,0)
Q Y
"RTN","EDPCONV",91,0)
;
"RTN","EDPCONV",92,0)
TZONE(X) ; -- Return #minutes local offset for time zone
"RTN","EDPCONV",93,0)
N Y S Y=$E(X)_(60*$E(X,2,3)+$E(X,4,5))
"RTN","EDPCONV",94,0)
Q Y
"RTN","EDPCONV",95,0)
;
"RTN","EDPCONV",96,0)
ACU(X) ; -- Return[/add] #233.1 ien for Acuity X
"RTN","EDPCONV",97,0)
I $G(X)="" Q ""
"RTN","EDPCONV",98,0)
N Y,NODE S NODE=$G(DIZ("ACU"_+X)),X=$P(NODE,U,2)
"RTN","EDPCONV",99,0)
S Y=+$O(^EDPB(233.1,"AB","acuity",X,0)) Q:Y Y
"RTN","EDPCONV",100,0)
; add local item
"RTN","EDPCONV",101,0)
N FDA,FDAIEN,DIERR,ERR,NM
"RTN","EDPCONV",102,0)
S NM=$P(NODE,U),NM=$S(NM["-":$P(NM,"-",2),1:NM)
"RTN","EDPCONV",103,0)
S FDA(233.1,"+1,",.01)=EDPSITE_".acuity."_$$LOW^XLFSTR(NM)
"RTN","EDPCONV",104,0)
S FDA(233.1,"+1,",.02)=X
"RTN","EDPCONV",105,0)
S FDA(233.1,"+1,",.03)=X
"RTN","EDPCONV",106,0)
D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPCONV",107,0)
S Y=$S('$D(DIERR):+$G(FDAIEN(1)),1:"")
"RTN","EDPCONV",108,0)
Q Y
"RTN","EDPCONV",109,0)
;
"RTN","EDPCONV",110,0)
STS(X) ; -- Return[/add] #233.1 ien for Status X
"RTN","EDPCONV",111,0)
I $G(X)="" Q ""
"RTN","EDPCONV",112,0)
N Y,NODE S NODE=$G(DIZ("STS"_+X))
"RTN","EDPCONV",113,0)
S X=$P(NODE,U,1),Y=+$O(^EDPB(233.1,"AC","status",X,0)) Q:Y Y
"RTN","EDPCONV",114,0)
S X=$P(NODE,U,4),Y=+$O(^EDPB(233.1,"AB","status",X,0)) Q:Y Y
"RTN","EDPCONV",115,0)
; add local item
"RTN","EDPCONV",116,0)
N FDA,FDAIEN,DIERR,ERR
"RTN","EDPCONV",117,0)
S FDA(233.1,"+1,",.01)=EDPSITE_".status."_$$LOW^XLFSTR(X)
"RTN","EDPCONV",118,0)
S FDA(233.1,"+1,",.02)=$P(NODE,U) ;text
"RTN","EDPCONV",119,0)
S FDA(233.1,"+1,",.03)=X ;display/abbreviation
"RTN","EDPCONV",120,0)
S:$P(NODE,U,6)="Y" FDA(233.1,"+1,",.05)="A" ;admission flag
"RTN","EDPCONV",121,0)
D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPCONV",122,0)
S Y=$S('$D(DIERR):+$G(FDAIEN(1)),1:"")
"RTN","EDPCONV",123,0)
Q Y
"RTN","EDPCONV",124,0)
;
"RTN","EDPCONV",125,0)
DEL(X) ; -- Return[/add] #233.1 ien for Delay Reason X
"RTN","EDPCONV",126,0)
I $G(X)="" Q ""
"RTN","EDPCONV",127,0)
N Y,NODE S NODE=$G(DIZ("DEL"_+X))
"RTN","EDPCONV",128,0)
S X=$P(NODE,U,1),Y=+$O(^EDPB(233.1,"AC","delay",X,0)) Q:Y Y
"RTN","EDPCONV",129,0)
S X=$P(NODE,U,3),Y=+$O(^EDPB(233.1,"AB","delay",X,0)) Q:Y Y
"RTN","EDPCONV",130,0)
; add local item
"RTN","EDPCONV",131,0)
N FDA,FDAIEN,DIERR,ERR
"RTN","EDPCONV",132,0)
S FDA(233.1,"+1,",.01)=EDPSITE_".delay."_$$LOW^XLFSTR(X)
"RTN","EDPCONV",133,0)
S FDA(233.1,"+1,",.02)=$P(NODE,U) ;name
"RTN","EDPCONV",134,0)
S FDA(233.1,"+1,",.03)=$P(NODE,U,3) ;abbreviation
"RTN","EDPCONV",135,0)
S FDA(233.1,"+1,",.05)=$P(NODE,U,5) ;report flag
"RTN","EDPCONV",136,0)
D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPCONV",137,0)
S Y=$S('$D(DIERR):+$G(FDAIEN(1)),1:"")
"RTN","EDPCONV",138,0)
Q Y
"RTN","EDPCONV",139,0)
;
"RTN","EDPCONV",140,0)
ARR(X) ; -- Return[/add] #233.1 ien for Arrival Mode X
"RTN","EDPCONV",141,0)
I $G(X)="" Q ""
"RTN","EDPCONV",142,0)
N Y,NODE S NODE=$G(DIZ("ARR"_+X)),X=$P($P(NODE,U)," ")
"RTN","EDPCONV",143,0)
S Y=+$O(^EDPB(233.1,"AC","source",X,0)) Q:Y Y
"RTN","EDPCONV",144,0)
; add local item
"RTN","EDPCONV",145,0)
N FDA,FDAIEN,DIERR,ERR
"RTN","EDPCONV",146,0)
S FDA(233.1,"+1,",.01)=EDPSITE_".source."_$$LOW^XLFSTR(X)
"RTN","EDPCONV",147,0)
S FDA(233.1,"+1,",.02)=X
"RTN","EDPCONV",148,0)
D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPCONV",149,0)
S Y=$S('$D(DIERR):+$G(FDAIEN(1)),1:"")
"RTN","EDPCONV",150,0)
Q Y
"RTN","EDPCONV",151,0)
;
"RTN","EDPCONV",152,0)
DISP(X) ; -- Return[/add] #233.1 ien for Disposition code X
"RTN","EDPCONV",153,0)
I $G(X)="" Q ""
"RTN","EDPCONV",154,0)
N Y,NODE
"RTN","EDPCONV",155,0)
S NODE=$G(DIZ("DIS"_X)),Y="" Q:NODE="" ""
"RTN","EDPCONV",156,0)
S:X X=$P(NODE,U,5) ;ien -> abbreviation
"RTN","EDPCONV",157,0)
I $L(X) S Y=+$O(^EDPB(233.1,"AB","disposition",X,0)) Q:Y Y
"RTN","EDPCONV",158,0)
E S X=$P(NODE,U) S:$L(X) Y=+$O(^EDPB(233.1,"AC","disposition",X,0)) Q:Y Y
"RTN","EDPCONV",159,0)
; add local item
"RTN","EDPCONV",160,0)
N FDA,FDAIEN,DIERR,ERR
"RTN","EDPCONV",161,0)
S X=$P($P(NODE,U)," ") ;1st word, for name
"RTN","EDPCONV",162,0)
S FDA(233.1,"+1,",.01)=EDPSITE_".disposition."_$$LOW^XLFSTR(X)
"RTN","EDPCONV",163,0)
S FDA(233.1,"+1,",.02)=$P(NODE,U) ;Display Name
"RTN","EDPCONV",164,0)
S FDA(233.1,"+1,",.03)=$P(NODE,U,5) ;Abbreviation
"RTN","EDPCONV",165,0)
S:$P(NODE,U,7) FDA(233.1,"+1,",.05)="M" ;Missed Opportunity
"RTN","EDPCONV",166,0)
S:$P(NODE,U,6) FDA(233.1,"+1,",.05)="A" ;Admission
"RTN","EDPCONV",167,0)
S:$P(NODE,U,8) FDA(233.1,"+1,",.05)="VA" ;VA Admission
"RTN","EDPCONV",168,0)
D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPCONV",169,0)
S Y=$S('$D(DIERR):+$G(FDAIEN(1)),1:"")
"RTN","EDPCONV",170,0)
Q Y
"RTN","EDPCONV",171,0)
;
"RTN","EDPCONV",172,0)
LOC(X) ; -- Return[/add] #231.8 ien for Location X
"RTN","EDPCONV",173,0)
I $G(X)="" Q ""
"RTN","EDPCONV",174,0)
N Y,NODE S NODE=$G(DIZ("LOC"_+X)),X=$P(NODE,U,2)
"RTN","EDPCONV",175,0)
S Y=+$O(^EDPB(231.8,"AC",EDPSITE,EDPAREA,X,0)) Q:Y Y
"RTN","EDPCONV",176,0)
; add local item
"RTN","EDPCONV",177,0)
N FDA,FDAIEN,DIERR,ERR,X
"RTN","EDPCONV",178,0)
S FDA(231.8,"+1,",.01)=$TR($P(NODE,U),"-") ;Name
"RTN","EDPCONV",179,0)
S FDA(231.8,"+1,",.02)=EDPSITE ;Station#
"RTN","EDPCONV",180,0)
S FDA(231.8,"+1,",.03)=EDPAREA ;Area ien
"RTN","EDPCONV",181,0)
S FDA(231.8,"+1,",.04)='$P(NODE,U,4) ;Inactive
"RTN","EDPCONV",182,0)
S FDA(231.8,"+1,",.05)=$P(NODE,U,6) ;Sequence
"RTN","EDPCONV",183,0)
S FDA(231.8,"+1,",.06)=$P(NODE,U,2) ;Display Name
"RTN","EDPCONV",184,0)
S X=$P(NODE,U,7),X=$S(X=2:0,X=0:2,1:1)
"RTN","EDPCONV",185,0)
S FDA(231.8,"+1,",.07)=X ;Display When
"RTN","EDPCONV",186,0)
S FDA(231.8,"+1,",.08)=$$STS($P(NODE,U,8)) ;Default Status ien
"RTN","EDPCONV",187,0)
S FDA(231.8,"+1,",.1)=$P(NODE,U,9) ;Shared Name [Room]
"RTN","EDPCONV",188,0)
D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPCONV",189,0)
S Y=$S('$D(DIERR):+$G(FDAIEN(1)),1:"")
"RTN","EDPCONV",190,0)
LCQ ;exit
"RTN","EDPCONV",191,0)
Q Y
"RTN","EDPCONV",192,0)
;
"RTN","EDPCONV",193,0)
STAFF(X,ROLE) ; -- Return[/add] Staff ien for local user X
"RTN","EDPCONV",194,0)
I $G(X)="" Q ""
"RTN","EDPCONV",195,0)
N Y S Y=+$O(^EDPB(231.7,"AD",EDPSITE,EDPAREA,+X,0)) G:Y SQ
"RTN","EDPCONV",196,0)
; add local user
"RTN","EDPCONV",197,0)
N FDA,FDAIEN,DIERR,ERR,NODE
"RTN","EDPCONV",198,0)
S NODE=$G(DIZ("PER"_+X))
"RTN","EDPCONV",199,0)
S FDA(231.7,"+1,",.01)=$P(NODE,U) ;name
"RTN","EDPCONV",200,0)
S FDA(231.7,"+1,",.02)=EDPSITE
"RTN","EDPCONV",201,0)
S FDA(231.7,"+1,",.03)=EDPAREA
"RTN","EDPCONV",202,0)
S FDA(231.7,"+1,",.04)=0 ;inactive
"RTN","EDPCONV",203,0)
S FDA(231.7,"+1,",.05)=+X ;local ID
"RTN","EDPCONV",204,0)
S FDA(231.7,"+1,",.06)=ROLE
"RTN","EDPCONV",205,0)
S FDA(231.7,"+1,",.07)=$P(NODE,U,2) ;initials
"RTN","EDPCONV",206,0)
D UPDATE^DIE("","FDA","FDAIEN","ERR")
"RTN","EDPCONV",207,0)
S Y=$S('$D(DIERR):+$G(FDAIEN(1)),1:"")
"RTN","EDPCONV",208,0)
SQ ;exit
"RTN","EDPCONV",209,0)
Q Y
"RTN","EDPCONV",210,0)
;
"RTN","EDPCONV",211,0)
CLR(X) ; -- Return code for color X
"RTN","EDPCONV",212,0)
I X="CLRED" Q "0xff0000"
"RTN","EDPCONV",213,0)
I X="CLBLUE" Q "0x0000ff"
"RTN","EDPCONV",214,0)
I X="CLGREEN" Q "0x00ff00"
"RTN","EDPCONV",215,0)
I X="CLYELLOW" Q "0xffff00"
"RTN","EDPCONV",216,0)
I X="CLWHITE" Q "0xffffff"
"RTN","EDPCONV",217,0)
I X="CLBLACK" Q "0x000000"
"RTN","EDPCONV",218,0)
I X="CLNAVY" Q "0x000088"
"RTN","EDPCONV",219,0)
I X="CLFUCHSIA" Q "0xff00ff"
"RTN","EDPCONV",220,0)
I X="CLMONEYGREEN" Q "0xc0dcc0"
"RTN","EDPCONV",221,0)
I X="CLSKYBLUE" Q "0xa6caf0"
"RTN","EDPCONV",222,0)
I X="CLCREAM" Q "0xfffbf0"
"RTN","EDPCONV",223,0)
I X="CLMAROON" Q "0x880000"
"RTN","EDPCONV",224,0)
I X="CLTEAL" Q "0x008888"
"RTN","EDPCONV",225,0)
I X="CLOLIVE" Q "0x888800"
"RTN","EDPCONV",226,0)
Q ""
"RTN","EDPCONV",227,0)
;
"RTN","EDPCONV",228,0)
ORDCLR ; -- default color scheme for order urgencies
"RTN","EDPCONV",229,0)
;;
"RTN","EDPCONV",230,0)
;;
"RTN","EDPCONV",231,0)
;;
"RTN","EDPCONV",232,0)
;;
"RTN","EDPCONV",233,0)
;;
"RTN","EDPCONV",234,0)
;;
"RTN","EDPCONV",235,0)
;;
"RTN","EDPCONV",236,0)
;;
"RTN","EDPCONV",237,0)
;;
"RTN","EDPCONV",238,0)
;;
"RTN","EDPCONV",239,0)
;;ZZZZ
"RTN","EDPCONV",240,0)
Q
"RTN","EDPCSV")
0^48^B959295
"RTN","EDPCSV",1,0)
EDPCSV ;SLC/MKB - CSV format utilities
"RTN","EDPCSV",2,0)
;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 26
"RTN","EDPCSV",3,0)
;
"RTN","EDPCSV",4,0)
EN(REQ) ; Controller for HTTP request
"RTN","EDPCSV",5,0)
;
"RTN","EDPCSV",6,0)
S:'$G(EDPTEST) $ETRAP="D ^%ZTER H"
"RTN","EDPCSV",7,0)
;
"RTN","EDPCSV",8,0)
N EDPSITE,EDPHTTP,EDPNULL,EDPFAIL,EDPCSV,I
"RTN","EDPCSV",9,0)
D UESREQ^EDPX(.REQ) ; unescape the posted data
"RTN","EDPCSV",10,0)
;
"RTN","EDPCSV",11,0)
;D SET^EDPZCTRL ; set up the environment, use null device
"RTN","EDPCSV",12,0)
;
"RTN","EDPCSV",13,0)
D EN^EDPRPT($$VAL("start"),$$VAL("stop"),$$VAL("report"),$$VAL("id"),1)
"RTN","EDPCSV",14,0)
;
"RTN","EDPCSV",15,0)
U EDPHTTP
"RTN","EDPCSV",16,0)
;W "",!
"RTN","EDPCSV",17,0)
S I=0 F S I=$O(EDPCSV(I)) Q:'I W EDPCSV(I),!
"RTN","EDPCSV",18,0)
;W "",!
"RTN","EDPCSV",19,0)
Q
"RTN","EDPCSV",20,0)
;
"RTN","EDPCSV",21,0)
VAL(X) ; return value from request
"RTN","EDPCSV",22,0)
Q $G(REQ(X,1))
"RTN","EDPCSV",23,0)
;
"RTN","EDPCSV",24,0)
ADD(X) ; -- add line X
"RTN","EDPCSV",25,0)
S EDPCSV=+$G(EDPCSV)+1,EDPCSV(EDPCSV)=X
"RTN","EDPCSV",26,0)
Q
"RTN","EDPCSV",27,0)
;
"RTN","EDPCSV",28,0)
BLANK ; -- add blank line
"RTN","EDPCSV",29,0)
S EDPCSV=+$G(EDPCSV)+1,EDPCSV(EDPCSV)=""
"RTN","EDPCSV",30,0)
Q
"RTN","EDPCTRL")
0^34^B29824391
"RTN","EDPCTRL",1,0)
EDPCTRL ;SLC/KCM - Controller for ED Tracking
"RTN","EDPCTRL",2,0)
;;1.0;EMERGENCY DEPARTMENT;;Dec 31, 2007;Build 26
"RTN","EDPCTRL",3,0)
;
"RTN","EDPCTRL",4,0)
RPC(EDPXML,PARAMS) ; Process request via RPC instead of CSP
"RTN","EDPCTRL",5,0)
N X,REQ,EDPSITE,EDPUSER
"RTN","EDPCTRL",6,0)
K EDPXML
"RTN","EDPCTRL",7,0)
S EDPUSER=DUZ,EDPSITE=$$STA^XUAF4(DUZ(2))
"RTN","EDPCTRL",8,0)
S X="" F S X=$O(PARAMS(X)) Q:X="" S REQ(X,1)=PARAMS(X)
"RTN","EDPCTRL",9,0)
;
"RTN","EDPCTRL",10,0)
COMMON ; Come here for both CSP and RPC Mode
"RTN","EDPCTRL",11,0)
;
"RTN","EDPCTRL",12,0)
N EDPFAIL,CMD
"RTN","EDPCTRL",13,0)
S CMD=$G(REQ("command",1))
"RTN","EDPCTRL",14,0)
;
"RTN","EDPCTRL",15,0)
; switch on command
"RTN","EDPCTRL",16,0)
;
"RTN","EDPCTRL",17,0)
; ---------------------------------
"RTN","EDPCTRL",18,0)
;
"RTN","EDPCTRL",19,0)
; initUser
"RTN","EDPCTRL",20,0)
; return
"RTN","EDPCTRL",21,0)
; ...
"RTN","EDPCTRL",22,0)
I CMD="initUser" D G OUT
"RTN","EDPCTRL",23,0)
. D SESS^EDPFAA,VIEWS^EDPFAA
"RTN","EDPCTRL",24,0)
;
"RTN","EDPCTRL",25,0)
; ---------------------------------
"RTN","EDPCTRL",26,0)
;
"RTN","EDPCTRL",27,0)
; matchPatients
"RTN","EDPCTRL",28,0)
; return ...
"RTN","EDPCTRL",29,0)
I CMD="matchPatients" D G OUT
"RTN","EDPCTRL",30,0)
. D MATCH^EDPFPTL($$VAL("partial"))
"RTN","EDPCTRL",31,0)
;
"RTN","EDPCTRL",32,0)
; ---------------------------------
"RTN","EDPCTRL",33,0)
;
"RTN","EDPCTRL",34,0)
; getPatientChecks
"RTN","EDPCTRL",35,0)
; return
"RTN","EDPCTRL",36,0)
;
"RTN","EDPCTRL",37,0)
;
"RTN","EDPCTRL",38,0)
; ...
"RTN","EDPCTRL",39,0)
I CMD="getPatientChecks" D G OUT
"RTN","EDPCTRL",40,0)
. D CHK^EDPFPTC($$VAL("area"),$$VAL("patient"),$$VAL("name"))
"RTN","EDPCTRL",41,0)
;
"RTN","EDPCTRL",42,0)
; ---------------------------------
"RTN","EDPCTRL",43,0)
;
"RTN","EDPCTRL",44,0)
; saveSecurityLog
"RTN","EDPCTRL",45,0)
; return
"RTN","EDPCTRL",46,0)
I CMD="saveSecurityLog" D G OUT
"RTN","EDPCTRL",47,0)
. D LOG^EDPFPTC($$VAL("patient"))
"RTN","EDPCTRL",48,0)
;
"RTN","EDPCTRL",49,0)
; ---------------------------------
"RTN","EDPCTRL",50,0)
;
"RTN","EDPCTRL",51,0)
; getLexiconMatches
"RTN","EDPCTRL",52,0)
; return |
...
"RTN","EDPCTRL",137,0)
; ......
"RTN","EDPCTRL",138,0)
; ...
"RTN","EDPCTRL",139,0)
; ...
"RTN","EDPCTRL",140,0)
; ...
"RTN","EDPCTRL",141,0)
; ...
"RTN","EDPCTRL",142,0)
; ...
"RTN","EDPCTRL",143,0)
I CMD="loadConfiguration" D G OUT
"RTN","EDPCTRL",144,0)
. D LOADBRD^EDPBCF($$VAL("area"))
"RTN","EDPCTRL",145,0)
;
"RTN","EDPCTRL",146,0)
; ---------------------------------
"RTN","EDPCTRL",147,0)
;
"RTN","EDPCTRL",148,0)
; saveConfigBoard
"RTN","EDPCTRL",149,0)
; return
"RTN","EDPCTRL",150,0)
I CMD="saveConfigBoard" D G OUT
"RTN","EDPCTRL",151,0)
. D SAVEBRD^EDPBCF(.REQ) ; pass whole request for parsing
"RTN","EDPCTRL",152,0)
;
"RTN","EDPCTRL",153,0)
; ---------------------------------
"RTN","EDPCTRL",154,0)
;
"RTN","EDPCTRL",155,0)
; saveBedConfig
"RTN","EDPCTRL",156,0)
; return
"RTN","EDPCTRL",157,0)
I CMD="saveBedConfig" D G OUT
"RTN","EDPCTRL",158,0)
. D SAVE^EDPBRM(.REQ) ; pass whole request for parsing
"RTN","EDPCTRL",159,0)
;
"RTN","EDPCTRL",160,0)
; ---------------------------------
"RTN","EDPCTRL",161,0)
;
"RTN","EDPCTRL",162,0)
; saveColorConfig
"RTN","EDPCTRL",163,0)
; return
"RTN","EDPCTRL",164,0)
I CMD="saveColorConfig" D G OUT
"RTN","EDPCTRL",165,0)
. D SAVE^EDPBCM(.REQ) ; pass whole request for parsing
"RTN","EDPCTRL",166,0)
;
"RTN","EDPCTRL",167,0)
; ---------------------------------
"RTN","EDPCTRL",168,0)
;
"RTN","EDPCTRL",169,0)
; loadSelectionConfig
"RTN","EDPCTRL",170,0)
; return