SR71UTL.m

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 ---SR71UTL   1059     printed  Apr 09, 2024@21:44:57                                                                                                                                                                                                     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