SR71UTL ;BIR/ADM - Post-install for SR*3*71 ; [ 08/06/97 11:16 AM ]
;;3.0; Surgery ;**71**;24 Jun 93
Q
PRE ; pre-install action for SR*3*71
I $G(^SRO(139.2,1,0))'="HEMOGLOBIN" D
.S DA=1,DIK="^SRO(139.2," D ^DIK
.S ^SRO(139.2,1,0)="HEMOGLOBIN"
.S ^SRO(139.2,1,2)="70"
.S DIK="^SRO(139.2,",DIK(1)=".01" D ENALL^DIK K DIK
Q
POST ; post-install action for SR*3*71
; task install notification message
N SRD,SRNOW X ^%ZOSF("UCI") I $P(Y,",")'=$P(^%ZOSF("PROD"),",") Q
S SRD=^XMB("NETNAME") I $E(SRD,1,3)="ISC"!(SRD["ISC-")!(SRD["ISC.")!(SRD["FORUM")!(SRD["TST.")!(SRD["TEST")!(SRD["UTL.") Q
QUEUE ; queue install message
D NOW^%DTC S (SRNOW,ZTDTH)=$E(%,1,12),ZTRTN="MSG^SR71UTL",ZTDESC="Patch SR*3*71 Install Message",ZTIO="",ZTSAVE("SRNOW")=SRNOW D ^%ZTLOAD
Q
MSG ; send mail message to national database
S SRD=^XMB("NETNAME")
K SRMSG S SRMSG(1)="Patch SR*3*71 has been installed at "_SRD_"."
S XMSUB="SR*3*71 Installed",XMDUZ=DUZ
S XMY("G.SR-INSTALL@ISC-BIRM.DOMAIN.EXT")=""
S XMTEXT="SRMSG(" D ^XMD
END S ZTREQ="@"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR71UTL 1059 printed Dec 13, 2024@02:38:53 Page 2
SR71UTL ;BIR/ADM - Post-install for SR*3*71 ; [ 08/06/97 11:16 AM ]
+1 ;;3.0; Surgery ;**71**;24 Jun 93
+2 QUIT
PRE ; pre-install action for SR*3*71
+1 IF $GET(^SRO(139.2,1,0))'="HEMOGLOBIN"
Begin DoDot:1
+2 SET DA=1
SET DIK="^SRO(139.2,"
DO ^DIK
+3 SET ^SRO(139.2,1,0)="HEMOGLOBIN"
+4 SET ^SRO(139.2,1,2)="70"
+5 SET DIK="^SRO(139.2,"
SET DIK(1)=".01"
DO ENALL^DIK
KILL DIK
End DoDot:1
+6 QUIT
POST ; post-install action for SR*3*71
+1 ; task install notification message
+2 NEW SRD,SRNOW
XECUTE ^%ZOSF("UCI")
IF $PIECE(Y,",")'=$PIECE(^%ZOSF("PROD"),",")
QUIT
+3 SET SRD=^XMB("NETNAME")
IF $EXTRACT(SRD,1,3)="ISC"!(SRD["ISC-")!(SRD["ISC.")!(SRD["FORUM")!(SRD["TST.")!(SRD["TEST")!(SRD["UTL.")
QUIT
QUEUE ; queue install message
+1 DO NOW^%DTC
SET (SRNOW,ZTDTH)=$EXTRACT(%,1,12)
SET ZTRTN="MSG^SR71UTL"
SET ZTDESC="Patch SR*3*71 Install Message"
SET ZTIO=""
SET ZTSAVE("SRNOW")=SRNOW
DO ^%ZTLOAD
+2 QUIT
MSG ; send mail message to national database
+1 SET SRD=^XMB("NETNAME")
+2 KILL SRMSG
SET SRMSG(1)="Patch SR*3*71 has been installed at "_SRD_"."
+3 SET XMSUB="SR*3*71 Installed"
SET XMDUZ=DUZ
+4 SET XMY("G.SR-INSTALL@ISC-BIRM.DOMAIN.EXT")=""
+5 SET XMTEXT="SRMSG("
DO ^XMD
END SET ZTREQ="@"
+1 QUIT
