- 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 Jan 18, 2025@02:59:51 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