ORUTL5.m

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 ---ORUTL5   977     printed  Apr 09, 2024@21:35:16                                                                                                                                                                                                       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