- 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 Feb 19, 2025@00:05:23 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