Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMTSP106

GMTSP106.m

Go to the documentation of this file.
  1. GMTSP106 ; MWA/VMP - Post install GMTS*2.7*106 ; 12/4/12 9:25am
  1. ;;2.7;Health Summary;**106**;;Build 11
  1. ;
  1. ;
  1. Q
  1. EN ; main entry point
  1. N GMTSIEN,GMTSMCNT,GMTSMSG
  1. S GMTSIEN=0,GMTSMCNT=4 F S GMTSIEN=$O(^GMT(142.5,GMTSIEN)) Q:'GMTSIEN D
  1. .Q:'$D(^GMT(142.5,GMTSIEN,2))!($G(^GMT(142.5,GMTSIEN,2))'["^")
  1. .N GMTSPC1 S GMTSPC1=$P($G(^GMT(142.5,GMTSIEN,2)),U)
  1. .S ^GMT(142.5,GMTSIEN,2)=GMTSPC1,GMTSMSG(GMTSMCNT)=$P($G(^GMT(142.5,GMTSIEN,0)),U),GMTSMCNT=GMTSMCNT+1
  1. D SENDMAIL
  1. Q
  1. SENDMAIL ; sends mailman message to inform that routine has run
  1. N XMSUB,XMDUZ,XMTEXT,XMY,DIFROM
  1. S GMTSMSG(1)="GMTS*2.7*106 Post install routine has completed"
  1. S GMTSMSG(2)="Bad records corrected:"
  1. S GMTSMSG(3)=" "
  1. I '$D(GMTSMSG(4)) S GMTSMSG(4)="No bad records found"
  1. S XMSUB="GMTS*2.7*106 Post install routine has completed"
  1. S XMDUZ="HEALTH SUMMARY PACKAGE"
  1. S XMTEXT="GMTSMSG("
  1. S XMY(DUZ)=""
  1. D ^XMD
  1. Q