ORECS01 ;SLC/JDL-CPRS utility for Event Capture System; 2/10/03 13:04P
;;3.0;ORDER ENTRY/RESULTS REPORTING;**141,149**;Dec 17, 1997
;
CHKESSO(ORY,CHK) ;--1=ESSO installed on site 0=not installed
S ORY=$$PATCH^XPDUTL("XWB*1.1*26")
Q
;
VSITID(ORY,VSTSTR) ;--Return Visit IEN ptr to #9000010
;VSTSTR=HospLoc;DateTime;Category;PtIEN
N DTREF,PTID
S ORY=0
S DTREF=9999999-$P($P(VSTSTR,";",2),".")_"."_$P($P(VSTSTR,";",2),".",2)
S PTID=+$P(VSTSTR,";",4)
S:$D(^AUPNVSIT("AA",PTID,DTREF)) ORY=$O(^(DTREF,0))
Q
;
ECRPT(ORY,ORECARY) ;--EC report
Q:'$D(ORECARY)
D RPTEN^ECRRPC(.ORY,.ORECARY)
Q
;
ECPRINT(ORY,ORECARY) ;--Print ECS report to Device
Q:'$D(ORECARY)
D RPTEN^ECRRPC(.ORY,.ORECARY)
Q
;
GETDIV(ORY,USR) ;--Get user's division
S ORY=0
S:$G(DUZ(2)) ORY=DUZ(2)
Q
SAVPATH(ORY,ECPATH) ;--Save user's ECS path
N IX,VAL,NM,HADIT,LST,INST,LAST
S (IX,HADIT,INST,LAST)=0,(VAL,NM)=""
D GETLST^XPAR(.LST,DUZ_";VA(200,","ORWT TOOLS MENU")
S LAST=+$G(LST(LST))
F S IX=$O(LST(IX)) Q:('IX)!HADIT D
. S NM=$P($P(LST(IX),U,2),"=",1)
. I $$UP^XLFSTR(NM)="EVENT CAPTURE INTERFACE" S HADIT=$P(LST(IX),U)
S $P(ECPATH,"=",2)=$C(34)_$P(ECPATH,"=",2)_$C(34)
S ORY=$P(ECPATH,"=",2)
D:HADIT CHG^XPAR(DUZ_";VA(200,","ORWT TOOLS MENU",HADIT,ECPATH)
D:'HADIT ADD^XPAR(DUZ_";VA(200,","ORWT TOOLS MENU",LAST+1,ECPATH)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORECS01 1367 printed Oct 16, 2024@18:31 Page 2
ORECS01 ;SLC/JDL-CPRS utility for Event Capture System; 2/10/03 13:04P
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**141,149**;Dec 17, 1997
+2 ;
CHKESSO(ORY,CHK) ;--1=ESSO installed on site 0=not installed
+1 SET ORY=$$PATCH^XPDUTL("XWB*1.1*26")
+2 QUIT
+3 ;
VSITID(ORY,VSTSTR) ;--Return Visit IEN ptr to #9000010
+1 ;VSTSTR=HospLoc;DateTime;Category;PtIEN
+2 NEW DTREF,PTID
+3 SET ORY=0
+4 SET DTREF=9999999-$PIECE($PIECE(VSTSTR,";",2),".")_"."_$PIECE($PIECE(VSTSTR,";",2),".",2)
+5 SET PTID=+$PIECE(VSTSTR,";",4)
+6 if $DATA(^AUPNVSIT("AA",PTID,DTREF))
SET ORY=$ORDER(^(DTREF,0))
+7 QUIT
+8 ;
ECRPT(ORY,ORECARY) ;--EC report
+1 if '$DATA(ORECARY)
QUIT
+2 DO RPTEN^ECRRPC(.ORY,.ORECARY)
+3 QUIT
+4 ;
ECPRINT(ORY,ORECARY) ;--Print ECS report to Device
+1 if '$DATA(ORECARY)
QUIT
+2 DO RPTEN^ECRRPC(.ORY,.ORECARY)
+3 QUIT
+4 ;
GETDIV(ORY,USR) ;--Get user's division
+1 SET ORY=0
+2 if $GET(DUZ(2))
SET ORY=DUZ(2)
+3 QUIT
SAVPATH(ORY,ECPATH) ;--Save user's ECS path
+1 NEW IX,VAL,NM,HADIT,LST,INST,LAST
+2 SET (IX,HADIT,INST,LAST)=0
SET (VAL,NM)=""
+3 DO GETLST^XPAR(.LST,DUZ_";VA(200,","ORWT TOOLS MENU")
+4 SET LAST=+$GET(LST(LST))
+5 FOR
SET IX=$ORDER(LST(IX))
if ('IX)!HADIT
QUIT
Begin DoDot:1
+6 SET NM=$PIECE($PIECE(LST(IX),U,2),"=",1)
+7 IF $$UP^XLFSTR(NM)="EVENT CAPTURE INTERFACE"
SET HADIT=$PIECE(LST(IX),U)
End DoDot:1
+8 SET $PIECE(ECPATH,"=",2)=$CHAR(34)_$PIECE(ECPATH,"=",2)_$CHAR(34)
+9 SET ORY=$PIECE(ECPATH,"=",2)
+10 if HADIT
DO CHG^XPAR(DUZ_";VA(200,","ORWT TOOLS MENU",HADIT,ECPATH)
+11 if 'HADIT
DO ADD^XPAR(DUZ_";VA(200,","ORWT TOOLS MENU",LAST+1,ECPATH)
+12 QUIT
