PSO769PI ;BHAM/MFR - PSO*7*746 POST INSTALL; 10/01/2022 11:24Am
;;7.0;OUTPATIENT PHARMACY;**769**;DEC 1997;Build 26
;
EN ; Entry Point
N XMDUZ,XMSUB,XMY,PSOTEXT,DIFROM
; Production Account check only
I '$$PROD^XUPROD() Q
I $D(^TIU(8925.1,"B","ERX RX CHANGE REQUEST NOTE")) Q
;
S XMDUZ="Patch PSO*7*769",XMSUB="ERX RX CHANGE REQUEST NOTE TIU TITLE NOT FOUND"
S XMY("MIAN.NAEEM@DOMAIN.EXT")=""
S XMY("BAYLIS.RANDALL@FORUM.VA.GO")=""
S XMY("ROCHA.MARCELO@DOMAIN.EXT")=""
S XMY("MURPHY.ROSALIE@DOMAIN.EXT")=""
S XMY("CHU.ANN@DOMAIN.EXT")=""
S PSOTEXT(1)="Site "_$P($$SITE^VASITE(),"^",2)_" does not have the ERX CHANGE REQUEST TIU TITLE."
S PSOTEXT(2)=" "
S XMTEXT="PSOTEXT("
D ^XMD
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO769PI 729 printed Nov 22, 2024@17:33:37 Page 2
PSO769PI ;BHAM/MFR - PSO*7*746 POST INSTALL; 10/01/2022 11:24Am
+1 ;;7.0;OUTPATIENT PHARMACY;**769**;DEC 1997;Build 26
+2 ;
EN ; Entry Point
+1 NEW XMDUZ,XMSUB,XMY,PSOTEXT,DIFROM
+2 ; Production Account check only
+3 IF '$$PROD^XUPROD()
QUIT
+4 IF $DATA(^TIU(8925.1,"B","ERX RX CHANGE REQUEST NOTE"))
QUIT
+5 ;
+6 SET XMDUZ="Patch PSO*7*769"
SET XMSUB="ERX RX CHANGE REQUEST NOTE TIU TITLE NOT FOUND"
+7 SET XMY("MIAN.NAEEM@DOMAIN.EXT")=""
+8 SET XMY("BAYLIS.RANDALL@FORUM.VA.GO")=""
+9 SET XMY("ROCHA.MARCELO@DOMAIN.EXT")=""
+10 SET XMY("MURPHY.ROSALIE@DOMAIN.EXT")=""
+11 SET XMY("CHU.ANN@DOMAIN.EXT")=""
+12 SET PSOTEXT(1)="Site "_$PIECE($$SITE^VASITE(),"^",2)_" does not have the ERX CHANGE REQUEST TIU TITLE."
+13 SET PSOTEXT(2)=" "
+14 SET XMTEXT="PSOTEXT("
+15 DO ^XMD
+16 ;
+17 QUIT
