GMTSP106 ; MWA/VMP - Post install GMTS*2.7*106 ; 12/4/12 9:25am
;;2.7;Health Summary;**106**;;Build 11
;
;
Q
EN ; main entry point
N GMTSIEN,GMTSMCNT,GMTSMSG
S GMTSIEN=0,GMTSMCNT=4 F S GMTSIEN=$O(^GMT(142.5,GMTSIEN)) Q:'GMTSIEN D
.Q:'$D(^GMT(142.5,GMTSIEN,2))!($G(^GMT(142.5,GMTSIEN,2))'["^")
.N GMTSPC1 S GMTSPC1=$P($G(^GMT(142.5,GMTSIEN,2)),U)
.S ^GMT(142.5,GMTSIEN,2)=GMTSPC1,GMTSMSG(GMTSMCNT)=$P($G(^GMT(142.5,GMTSIEN,0)),U),GMTSMCNT=GMTSMCNT+1
D SENDMAIL
Q
SENDMAIL ; sends mailman message to inform that routine has run
N XMSUB,XMDUZ,XMTEXT,XMY,DIFROM
S GMTSMSG(1)="GMTS*2.7*106 Post install routine has completed"
S GMTSMSG(2)="Bad records corrected:"
S GMTSMSG(3)=" "
I '$D(GMTSMSG(4)) S GMTSMSG(4)="No bad records found"
S XMSUB="GMTS*2.7*106 Post install routine has completed"
S XMDUZ="HEALTH SUMMARY PACKAGE"
S XMTEXT="GMTSMSG("
S XMY(DUZ)=""
D ^XMD
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSP106 913 printed Dec 13, 2024@01:58:39 Page 2
GMTSP106 ; MWA/VMP - Post install GMTS*2.7*106 ; 12/4/12 9:25am
+1 ;;2.7;Health Summary;**106**;;Build 11
+2 ;
+3 ;
+4 QUIT
EN ; main entry point
+1 NEW GMTSIEN,GMTSMCNT,GMTSMSG
+2 SET GMTSIEN=0
SET GMTSMCNT=4
FOR
SET GMTSIEN=$ORDER(^GMT(142.5,GMTSIEN))
if 'GMTSIEN
QUIT
Begin DoDot:1
+3 if '$DATA(^GMT(142.5,GMTSIEN,2))!($GET(^GMT(142.5,GMTSIEN,2))'["^")
QUIT
+4 NEW GMTSPC1
SET GMTSPC1=$PIECE($GET(^GMT(142.5,GMTSIEN,2)),U)
+5 SET ^GMT(142.5,GMTSIEN,2)=GMTSPC1
SET GMTSMSG(GMTSMCNT)=$PIECE($GET(^GMT(142.5,GMTSIEN,0)),U)
SET GMTSMCNT=GMTSMCNT+1
End DoDot:1
+6 DO SENDMAIL
+7 QUIT
SENDMAIL ; sends mailman message to inform that routine has run
+1 NEW XMSUB,XMDUZ,XMTEXT,XMY,DIFROM
+2 SET GMTSMSG(1)="GMTS*2.7*106 Post install routine has completed"
+3 SET GMTSMSG(2)="Bad records corrected:"
+4 SET GMTSMSG(3)=" "
+5 IF '$DATA(GMTSMSG(4))
SET GMTSMSG(4)="No bad records found"
+6 SET XMSUB="GMTS*2.7*106 Post install routine has completed"
+7 SET XMDUZ="HEALTH SUMMARY PACKAGE"
+8 SET XMTEXT="GMTSMSG("
+9 SET XMY(DUZ)=""
+10 DO ^XMD
+11 QUIT
