ORUTL5 ; SLC/JLC - OE/RR Utilities ;12/18/2019
;;3.0;ORDER ENTRY/RESULTS REPORTING;**461,397,501**;Dec 17, 1997;Build 134
;
;
;
MSG(ORREC,ORMSGT) ;
N XMSUB,XMY,XMTEXT,XMDUZ,ORTEXT,SITE,I,A
S ORTEXT(1)="Attempt to save order with INPATIENT MEDICATIONS Display Group",SITE=$$SITE^VASITE()
S ORTEXT(2)=" "
S A="ORMSGT("""")" F I=3:1 S A=$Q(@A) Q:A="" S ORTEXT(I)=$P(A,"(",2,99)_" = "_@A
S XMDUZ=DUZ
S XMSUB="NEW PROBLEM ORDER SUBMITTED FROM "_$P(SITE,"^",2)
S XMY("G.HPS CLIN2@DOMAIN.EXT")="",XMY("G.CPRS DEV TEAM@DOMAIN.EXT")=""
S XMTEXT="ORTEXT("
D ^XMD
Q
COMPLETE(ORID) ;
N ORDN,ORD,ORDIALOG,ORINFO
S ORINFO("OR0")=$G(^OR(100,+ORID,0)),ORINFO("OR3")=$G(^(3)),ORINFO("OR4")=$G(^(4)),ORINFO("OR6")=$G(^(6)),ORINFO("OR7")=$G(^(7))
S ORDN=$P(ORINFO("OR0"),"^",5) Q:ORDN'["101.41" S ORDN=+ORDN
D GETDLG^ORCD(ORDN),GETORDER^ORCD(+ORID,"ORD")
S ORINFO("DIALOG")=ORDN
M ORINFO("RESPONSES")=ORD
D MSG^XQOR("OR COMPLETE ORDER",.ORINFO)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORUTL5 977 printed Sep 23, 2025@20:11 Page 2
ORUTL5 ; SLC/JLC - OE/RR Utilities ;12/18/2019
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**461,397,501**;Dec 17, 1997;Build 134
+2 ;
+3 ;
+4 ;
MSG(ORREC,ORMSGT) ;
+1 NEW XMSUB,XMY,XMTEXT,XMDUZ,ORTEXT,SITE,I,A
+2 SET ORTEXT(1)="Attempt to save order with INPATIENT MEDICATIONS Display Group"
SET SITE=$$SITE^VASITE()
+3 SET ORTEXT(2)=" "
+4 SET A="ORMSGT("""")"
FOR I=3:1
SET A=$QUERY(@A)
if A=""
QUIT
SET ORTEXT(I)=$PIECE(A,"(",2,99)_" = "_@A
+5 SET XMDUZ=DUZ
+6 SET XMSUB="NEW PROBLEM ORDER SUBMITTED FROM "_$PIECE(SITE,"^",2)
+7 SET XMY("G.HPS CLIN2@DOMAIN.EXT")=""
SET XMY("G.CPRS DEV TEAM@DOMAIN.EXT")=""
+8 SET XMTEXT="ORTEXT("
+9 DO ^XMD
+10 QUIT
COMPLETE(ORID) ;
+1 NEW ORDN,ORD,ORDIALOG,ORINFO
+2 SET ORINFO("OR0")=$GET(^OR(100,+ORID,0))
SET ORINFO("OR3")=$GET(^(3))
SET ORINFO("OR4")=$GET(^(4))
SET ORINFO("OR6")=$GET(^(6))
SET ORINFO("OR7")=$GET(^(7))
+3 SET ORDN=$PIECE(ORINFO("OR0"),"^",5)
if ORDN'["101.41"
QUIT
SET ORDN=+ORDN
+4 DO GETDLG^ORCD(ORDN)
DO GETORDER^ORCD(+ORID,"ORD")
+5 SET ORINFO("DIALOG")=ORDN
+6 MERGE ORINFO("RESPONSES")=ORD
+7 DO MSG^XQOR("OR COMPLETE ORDER",.ORINFO)
+8 QUIT
