GMTS1002.m

GMTS1002 ;IHS/MSC/MGH - GMTS Package Update Utility ;18-Feb-2010 18:06;DU

 ;;2.7;Health Summary;**1002**;Oct 20,10995;Build 4

 ;;IHS/MSC/MGH Patch to upgrad the patch file with accurate information

 ;=================================================================

PRE ;

 N DLM,DDLM,QUIT,I,TEXT,DATA,PKGNM,VERSION,PATCH,PKGIEN,TAG,VSB,XREFREV

 S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0  ; Suppress the Disable options and Move routine prompts

 S DDLM=";;",DLM="|",QUIT=0

 S TAG="GMTS"

 S QUIT=0

 F I=1:1  D  Q:QUIT

 .S TEXT=$T(@TAG+I) I TEXT="Q" S QUIT=1 Q

 .S DATA=$P(TEXT,DDLM,2) I DATA="" S QUIT=1 Q

 .S PKGNM=$P(DATA,DLM),VERSION=$P(DATA,DLM,2),PATCH=$P(DATA,DLM,3)

 .I '$D(^DIC(9.4,"B",PKGNM)) Q

 .S PKGIEN=$O(^DIC(9.4,"B",PKGNM,0)) Q:PKGIEN=""

 .I '$D(^DIC(9.4,PKGIEN,22,"B",VERSION)) D

 ..K FDA

 ..S FDA(9.49,"+1,"_PKGIEN_",",.01)=VERSION

 ..D UPDATE^DIE(,"FDA")

 ..S FDA(9.49,"+1,"_PKGIEN_",",1)=$G(DT)

 ..S FDA(9.49,"+1,"_PKGIEN_",",2)=$G(DT)

 ..S FDA(9.49,"+1,"_PKGIEN_",",3)=$G(DUZ)

 ..D FILE^DIE(,"FDA")

 .Q:PATCH=""

 .S VSB=$O(^DIC(9.4,PKGIEN,22,"B",VERSION,0))

 .Q:'VSB

 .K FDA

 .; Do not update if the patch is already in the patch history

 .I $D(^DIC(9.4,PKGIEN,22,VSB,"PAH","B",PATCH)) Q

 .S FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.01)=$G(PATCH)

 .D UPDATE^DIE(,"FDA")

 Q

 ;;;;FORMAT - Package name|Version|Patch|Sequence

GMTS ;

 ;;HEALTH SUMMARY|2.7|1|

 ;;HEALTH SUMMARY|2.7|2|

 ;;HEALTH SUMMARY|2.7|3|

 ;;HEALTH SUMMARY|2.7|4|

 ;;HEALTH SUMMARY|2.7|5|

 ;;HEALTH SUMMARY|2.7|6|

 ;;HEALTH SUMMARY|2.7|7|

 ;;HEALTH SUMMARY|2.7|8|

 ;;HEALTH SUMMARY|2.7|9|

 ;;HEALTH SUMMARY|2.7|10|

 ;;HEALTH SUMMARY|2.7|11|

 ;;HEALTH SUMMARY|2.7|12|

 ;;HEALTH SUMMARY|2.7|13|

 ;;HEALTH SUMMARY|2.7|14

 ;;HEALTH SUMMARY|2.7|15|

 ;;HEALTH SUMMARY|2.7|16|

 ;;HEALTH SUMMARY|2.7|17|

 ;;HEALTH SUMMARY|2.7|18|

 ;;HEALTH SUMMARY|2.7|19|

 ;;HEALTH SUMMARY|2.7|20|

 ;;HEALTH SUMMARY|2.7|21|

 ;;HEALTH SUMMARY|2.7|22|

 ;;HEALTH SUMMARY|2.7|23|

 ;;HEALTH SUMMARY|2.7|24|

 ;;HEALTH SUMMARY|2.7|25|

 ;;HEALTH SUMMARY|2.7|26|

 ;;HEALTH SUMMARY|2.7|27|

 ;;HEALTH SUMMARY|2.7|28|

 ;;HEALTH SUMMARY|2.7|29|

 ;;HEALTH SUMMARY|2.7|30|

 ;;HEALTH SUMMARY|2.7|31|

 ;;HEALTH SUMMARY|2.7|32|

 ;;HEALTH SUMMARY|2.7|33|

 ;;HEALTH SUMMARY|2.7|34|

 ;;HEALTH SUMMARY|2.7|35|

 ;;HEALTH SUMMARY|2.7|37|

 ;;HEALTH SUMMARY|2.7|38|

 ;;HEALTH SUMMARY|2.7|40|

 ;;HEALTH SUMMARY|2.7|42|

 ;;HEALTH SUMMARY|2.7|44|

 ;;HEALTH SUMMARY|2.7|45|

 ;;HEALTH SUMMARY|2.7|46|

 ;;HEALTH SUMMARY|2.7|47|

 ;;HEALTH SUMMARY|2.7|49|

 ;;HEALTH SUMMARY|2.7|50|

 ;;HEALTH SUMMARY|2.7|51|

 ;;HEALTH SUMMARY|2.7|53|

 ;;HEALTH SUMMARY|2.7|54|

 ;;HEALTH SUMMARY|2.7|55|

 ;;HEALTH SUMMARY|2.7|56|

 ;;HEALTH SUMMARY|2.7|57|

 ;;HEALTH SUMMARY|2.7|58|

 ;;HEALTH SUMMARY|2.7|59|

 ;;HEALTH SUMMARY|2.7|61|

 Q

GMTS1002  ;IHS/MSC/MGH - GMTS Package Update Utility ;18-Feb-2010 18:06;DU

 +1       ;;2.7;Health Summary;**1002**;Oct 20,10995;Build 4

 +2       ;;IHS/MSC/MGH Patch to upgrad the patch file with accurate information

 +3       ;=================================================================

PRE       ;

 +1        NEW DLM,DDLM,QUIT,I,TEXT,DATA,PKGNM,VERSION,PATCH,PKGIEN,TAG,VSB,XREFREV

 +2       ; Suppress the Disable options and Move routine prompts

           SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0

 +3        SET DDLM=";;"

           SET DLM="|"

           SET QUIT=0

 +4        SET TAG="GMTS"

 +5        SET QUIT=0

 +6        FOR I=1:1

               Begin DoDot:1

 +7                SET TEXT=$TEXT(@TAG+I)

                   IF TEXT="Q"

                       SET QUIT=1

                       QUIT 

 +8                SET DATA=$PIECE(TEXT,DDLM,2)

                   IF DATA=""

                       SET QUIT=1

                       QUIT 

 +9                SET PKGNM=$PIECE(DATA,DLM)

                   SET VERSION=$PIECE(DATA,DLM,2)

                   SET PATCH=$PIECE(DATA,DLM,3)

 +10               IF '$DATA(^DIC(9.4,"B",PKGNM))

                       QUIT 

 +11               SET PKGIEN=$ORDER(^DIC(9.4,"B",PKGNM,0))

                   IF PKGIEN=""

                       QUIT 

 +12               IF '$DATA(^DIC(9.4,PKGIEN,22,"B",VERSION))

                       Begin DoDot:2

 +13                       KILL FDA

 +14                       SET FDA(9.49,"+1,"_PKGIEN_",",.01)=VERSION

 +15                       DO UPDATE^DIE(,"FDA")

 +16                       SET FDA(9.49,"+1,"_PKGIEN_",",1)=$GET(DT)

 +17                       SET FDA(9.49,"+1,"_PKGIEN_",",2)=$GET(DT)

 +18                       SET FDA(9.49,"+1,"_PKGIEN_",",3)=$GET(DUZ)

 +19                       DO FILE^DIE(,"FDA")

                       End DoDot:2

 +20               IF PATCH=""

                       QUIT 

 +21               SET VSB=$ORDER(^DIC(9.4,PKGIEN,22,"B",VERSION,0))

 +22               IF 'VSB

                       QUIT 

 +23               KILL FDA

 +24      ; Do not update if the patch is already in the patch history

 +25               IF $DATA(^DIC(9.4,PKGIEN,22,VSB,"PAH","B",PATCH))

                       QUIT 

 +26               SET FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.01)=$GET(PATCH)

 +27               DO UPDATE^DIE(,"FDA")

               End DoDot:1

               IF QUIT

                   QUIT 

 +28       QUIT 

 +29      ;;;;FORMAT - Package name|Version|Patch|Sequence

GMTS      ;

 +1       ;;HEALTH SUMMARY|2.7|1|

 +2       ;;HEALTH SUMMARY|2.7|2|

 +3       ;;HEALTH SUMMARY|2.7|3|

 +4       ;;HEALTH SUMMARY|2.7|4|

 +5       ;;HEALTH SUMMARY|2.7|5|

 +6       ;;HEALTH SUMMARY|2.7|6|

 +7       ;;HEALTH SUMMARY|2.7|7|

 +8       ;;HEALTH SUMMARY|2.7|8|

 +9       ;;HEALTH SUMMARY|2.7|9|

 +10      ;;HEALTH SUMMARY|2.7|10|

 +11      ;;HEALTH SUMMARY|2.7|11|

 +12      ;;HEALTH SUMMARY|2.7|12|

 +13      ;;HEALTH SUMMARY|2.7|13|

 +14      ;;HEALTH SUMMARY|2.7|14

 +15      ;;HEALTH SUMMARY|2.7|15|

 +16      ;;HEALTH SUMMARY|2.7|16|

 +17      ;;HEALTH SUMMARY|2.7|17|

 +18      ;;HEALTH SUMMARY|2.7|18|

 +19      ;;HEALTH SUMMARY|2.7|19|

 +20      ;;HEALTH SUMMARY|2.7|20|

 +21      ;;HEALTH SUMMARY|2.7|21|

 +22      ;;HEALTH SUMMARY|2.7|22|

 +23      ;;HEALTH SUMMARY|2.7|23|

 +24      ;;HEALTH SUMMARY|2.7|24|

 +25      ;;HEALTH SUMMARY|2.7|25|

 +26      ;;HEALTH SUMMARY|2.7|26|

 +27      ;;HEALTH SUMMARY|2.7|27|

 +28      ;;HEALTH SUMMARY|2.7|28|

 +29      ;;HEALTH SUMMARY|2.7|29|

 +30      ;;HEALTH SUMMARY|2.7|30|

 +31      ;;HEALTH SUMMARY|2.7|31|

 +32      ;;HEALTH SUMMARY|2.7|32|

 +33      ;;HEALTH SUMMARY|2.7|33|

 +34      ;;HEALTH SUMMARY|2.7|34|

 +35      ;;HEALTH SUMMARY|2.7|35|

 +36      ;;HEALTH SUMMARY|2.7|37|

 +37      ;;HEALTH SUMMARY|2.7|38|

 +38      ;;HEALTH SUMMARY|2.7|40|

 +39      ;;HEALTH SUMMARY|2.7|42|

 +40      ;;HEALTH SUMMARY|2.7|44|

 +41      ;;HEALTH SUMMARY|2.7|45|

 +42      ;;HEALTH SUMMARY|2.7|46|

 +43      ;;HEALTH SUMMARY|2.7|47|

 +44      ;;HEALTH SUMMARY|2.7|49|

 +45      ;;HEALTH SUMMARY|2.7|50|

 +46      ;;HEALTH SUMMARY|2.7|51|

 +47      ;;HEALTH SUMMARY|2.7|53|

 +48      ;;HEALTH SUMMARY|2.7|54|

 +49      ;;HEALTH SUMMARY|2.7|55|

 +50      ;;HEALTH SUMMARY|2.7|56|

 +51      ;;HEALTH SUMMARY|2.7|57|

 +52      ;;HEALTH SUMMARY|2.7|58|

 +53      ;;HEALTH SUMMARY|2.7|59|

 +54      ;;HEALTH SUMMARY|2.7|61|

 +55       QUIT