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 ---[H[J[2J[HSR70UTL 1395 printed Oct 16, 2024@18:39:32 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
