SR70UTL.m

SR70UTL ;BIR/ADM - POST-INSTALL FOR SR*3*70 ; [ 10/15/97  8:45 AM ]

 ;;3.0; Surgery ;**70**;24 Jun 93

 Q

POST ; post-install action for SR*3*70

 ; task install notification message

 N SRD S SRD=^XMB("NETNAME") I $E(SRD,1,3)="ISC"!(SRD["ISC-")!(SRD["ISC.")!(SRD["FORUM")!(SRD["TST.")!(SRD["TEST")!(SRD["UTL.")!(SRD["TRAIN") Q

QUEUE ; queue install message

 D NOW^%DTC S ZTDTH=$E(%,1,12),ZTRTN="MSG^SR70UTL",ZTDESC="Patch SR*3*70 Install Message",ZTIO="" D ^%ZTLOAD

 Q

MSG ; send mail message to national database

 S SRD=^XMB("NETNAME")

 K SRMSG S SRMSG(1)="Patch SR*3*70 has been installed at "_SRD_"."

 S XMSUB="SR*3*70 Installed",XMDUZ=DUZ

 S XMY("G.SR-INSTALL@ISC-BIRM.DOMAIN.EXT")=""

 S XMTEXT="SRMSG(" D ^XMD

QR S (SRFLG,SRT)=1 D NOW^%DTC S SRNOW=$E(%,1,12)

 ; queue quarterly report for 1st quarter of FY97

 S SRSTART=2961001,SREND=2961231 D TSK

 ; queue quarterly report for 2nd quarter of FY97

 S SRSTART=2970101,SREND=2970331 D TSK

 ; queue quarterly report for 3rd quarter of FY97

 S SRSTART=2970401,SREND=2970630 D TSK

 ; queue quarterly report for 4th quarter of FY97 if already transmitted

 I $P(^SRO(133,$O(^SRO(133,0)),0),"^",18)>19973 S SRSTART=2970701,SREND=2970930 D TSK

END S ZTREQ="@"

 Q

TSK S ZTDTH=SRNOW,ZTIO="",ZTDESC="Surgery Quarterly Report",(ZTSAVE("SRSTART"),ZTSAVE("SREND"),ZTSAVE("SRFLG"),ZTSAVE("SRT"))="",ZTRTN="EN^SROQT" D ^%ZTLOAD

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SR70UTL   1395     printed  Apr 09, 2024@21:51:28                                                                                                                                                                                                     Page 2

SR70UTL   ;BIR/ADM - POST-INSTALL FOR SR*3*70 ; [ 10/15/97  8:45 AM ]

 +1       ;;3.0; Surgery ;**70**;24 Jun 93

 +2        QUIT 

POST      ; post-install action for SR*3*70

 +1       ; task install notification message

 +2        NEW SRD

           SET SRD=^XMB("NETNAME")

           IF $EXTRACT(SRD,1,3)="ISC"!(SRD["ISC-")!(SRD["ISC.")!(SRD["FORUM")!(SRD["TST.")!(SRD["TEST")!(SRD["UTL.")!(SRD["TRAIN")

               QUIT 

QUEUE     ; queue install message

 +1        DO NOW^%DTC

           SET ZTDTH=$EXTRACT(%,1,12)

           SET ZTRTN="MSG^SR70UTL"

           SET ZTDESC="Patch SR*3*70 Install Message"

           SET ZTIO=""

           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*70 has been installed at "_SRD_"."

 +3        SET XMSUB="SR*3*70 Installed"

           SET XMDUZ=DUZ

 +4        SET XMY("G.SR-INSTALL@ISC-BIRM.DOMAIN.EXT")=""

 +5        SET XMTEXT="SRMSG("

           DO ^XMD

QR         SET (SRFLG,SRT)=1

           DO NOW^%DTC

           SET SRNOW=$EXTRACT(%,1,12)

 +1       ; queue quarterly report for 1st quarter of FY97

 +2        SET SRSTART=2961001

           SET SREND=2961231

           DO TSK

 +3       ; queue quarterly report for 2nd quarter of FY97

 +4        SET SRSTART=2970101

           SET SREND=2970331

           DO TSK

 +5       ; queue quarterly report for 3rd quarter of FY97

 +6        SET SRSTART=2970401

           SET SREND=2970630

           DO TSK

 +7       ; queue quarterly report for 4th quarter of FY97 if already transmitted

 +8        IF $PIECE(^SRO(133,$ORDER(^SRO(133,0)),0),"^",18)>19973

               SET SRSTART=2970701

               SET SREND=2970930

               DO TSK

END        SET ZTREQ="@"

 +1        QUIT 

TSK        SET ZTDTH=SRNOW

           SET ZTIO=""

           SET ZTDESC="Surgery Quarterly Report"

           SET (ZTSAVE("SRSTART"),ZTSAVE("SREND"),ZTSAVE("SRFLG"),ZTSAVE("SRT"))=""

           SET ZTRTN="EN^SROQT"

           DO ^%ZTLOAD

 +1        QUIT