Routine: GMTSP102

GMTSP102 ; SLC/RFR - Pre/Post Install GMTS*2.7*102 ; 11/04/2011

 ;;2.7;Health Summary;**102**;;Build 25

PRE ;PRE-INSTALL

 N GMTSIEN,GMTSFDA,GMTSERR,GMTSMSG,GMTSX,INCLUDE

 S XPDIDTOT=2

 D UPDATE^XPDID(0)

 ;DEACTIVATE THE MENTAL HEALTH PHYSICAL EXAM COMPONENT

 S GMTSIEN=$$GETIEN

 Q:GMTSIEN=0

 D BMES^XPDUTL("Deactivating the MENTAL HEALTH PHYSICAL EXAM component...")

 S GMTSFDA(142.1,GMTSIEN_",",5)="P"

 S GMTSFDA(142.1,GMTSIEN_",",8)="DEACTIVATED BY HEALTH SUMMARY PATCH GMTS*2.7*102"

 L +^GMT(142.1,GMTSIEN):+$G(DILOCKTM)

 I '$T D  Q

 .S GMTSMSG(1)=" "

 .S GMTSMSG(2)="Unable to lock the MENTAL HEALTH PHYSICAL EXAM component for editing."

 .D MES^XPDUTL(.GMTSMSG)

 .S XPDABORT=1

 D FILE^DIE("","GMTSFDA","GMTSERR")

 L -^GMT(142.1,GMTSIEN):+$G(DILOCKTM)

 I $D(GMTSERR) D  Q

 .S GMTSLINE=1

 .S GMTSMSG(GMTSLINE)=" ",GMTSLINE=GMTSLINE+1

 .S GMTSMSG(GMTSLINE)="VA FileMan Error #"_GMTSERR("DIERR",1)_":",GMTSLINE=GMTSLINE+1

 .F GMTSX=1:1:+$O(GMTSERR("DIERR",1,"TEXT","A"),-1) D

 ..S GMTSMSG(GMTSLINE)=GMTSERR("DIERR",1,"TEXT",GMTSX),GMTSLINE=GMTSLINE+1

 .D MES^XPDUTL(.GMTSMSG)

 .S XPDABORT=1

 D MES^XPDUTL("DONE")

 D UPDATE^XPDID(1)

 ;REBUILD THE ADHOC HEALTH SUMMARY TYPE, EXCLUDING ALL DISABLED COMPONENTS BY DEFAULT

 S INCLUDE=$S($D(XPDQUES("PRE1"))>0:XPDQUES("PRE1"),1:0)

 D ENPOST^GMTSLOAD

 D UPDATE^XPDID(2)

POST ;POST-INSTALL

 N GMTSLINE,GMTSREP,GMTSIEN,GMTSTIEN,GMTSOIEN,GMTSMSG

 N XMMG,XMDUZ,XMY,XMSUB,XMTEXT,XMZ,XMERR,XPDIDTOT,DIFROM

 S XPDIDTOT=1

 D UPDATE^XPDID(0)

 S GMTSIEN=$$GETIEN

 Q:GMTSIEN=0

 D BMES^XPDUTL("Assembling usage report...")

 S GMTSLINE=1

 S GMTSREP(GMTSLINE)="The following health summary types contain a reference to the",GMTSLINE=GMTSLINE+1

 S GMTSREP(GMTSLINE)="MENTAL HEALTH PHYSICAL EXAM component. The health summary objects",GMTSLINE=GMTSLINE+1

 S GMTSREP(GMTSLINE)="listed below each type contain a reference to that type.",GMTSLINE=GMTSLINE+1

 S GMTSREP(GMTSLINE)="",GMTSLINE=GMTSLINE+1,GMTSREP(GMTSLINE)="TYPE",GMTSLINE=GMTSLINE+1

 S GMTSREP(GMTSLINE)=$$REPEAT^XLFSTR(" ",12)_"OBJECTS CONTAINING THAT TYPE",GMTSLINE=GMTSLINE+1

 S GMTSREP(GMTSLINE)=$$REPEAT^XLFSTR("-",72),GMTSLINE=GMTSLINE+1

 S GMTSTIEN=0

 F  S GMTSTIEN=$O(^GMT(142,"AE",GMTSIEN,GMTSTIEN)) Q:+$G(GMTSTIEN)=0  D

 .S GMTSREP(GMTSLINE)=$P($G(^GMT(142,GMTSTIEN,0)),U,1)

 .I $D(^GMT(142.5,"AC",GMTSTIEN))>9 D

 ..S GMTSOIEN=0

 ..F  S GMTSOIEN=$O(^GMT(142.5,"AC",GMTSTIEN,GMTSOIEN)) Q:+$G(GMTSOIEN)=0  D

 ...S GMTSLINE=GMTSLINE+1

 ...S GMTSREP(GMTSLINE)=$$REPEAT^XLFSTR(" ",12)_$P($G(^GMT(142.5,GMTSOIEN,0)),U,1)

 .S GMTSLINE=GMTSLINE+1

 S GMTSREP(GMTSLINE)="",GMTSLINE=GMTSLINE+1

 S GMTSREP(GMTSLINE)=$$REPEAT^XLFSTR(" ",32)_"[END OF REPORT]"

 S XMSUB="PATCH GMTS*2.7*102 REPORT"

 S XMTEXT="GMTSREP("

 I $D(ZTQUEUED)>0 D

 .S XMY(DUZ)=""

 E  D

 .S GMTSMSG(1)=" "

 .S GMTSMSG(2)="Select the recipient(s) of the report below."

 .D MES^XPDUTL(.GMTSMSG)

 D ^XMD

 I $D(XMMG)>0 D  Q

 .K GMTSMSG

 .S GMTSMSG(1)=" "

 .S GMTSMSG(2)="Unable to email the report:"

 .S GMTSMSG(3)=XMMG

 .D MES^XPDUTL(.GMTSMSG)

 K GMTSMSG

 S GMTSMSG(1)=" "

 S GMTSMSG(2)="Finished assembling the usage report."

 D MES^XPDUTL(.GMTSMSG)

 D UPDATE^XPDID(1)

GETIEN() ;FIND THE COMPONENT'S IEN

 N IEN

 S IEN=+$O(^GMT(142.1,"B","MENTAL HEALTH PHYSICAL EXAM",0))

 D:IEN=0 BMES^XPDUTL("MENTAL HEALTH PHYSICAL EXAM component was not found.")

 Q IEN

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSP102   3408     printed  Mar 13, 2025@21:03:25                                                                                                                                                                                                    Page 2

GMTSP102  ; SLC/RFR - Pre/Post Install GMTS*2.7*102 ; 11/04/2011

 +1       ;;2.7;Health Summary;**102**;;Build 25

 +2       ;

PRE       ;PRE-INSTALL

 +1        NEW GMTSIEN,GMTSFDA,GMTSERR,GMTSMSG,GMTSX,INCLUDE

 +2        SET XPDIDTOT=2

 +3        DO UPDATE^XPDID(0)

 +4       ;DEACTIVATE THE MENTAL HEALTH PHYSICAL EXAM COMPONENT

 +5        SET GMTSIEN=$$GETIEN

 +6        if GMTSIEN=0

               QUIT

 +7        DO BMES^XPDUTL("Deactivating the MENTAL HEALTH PHYSICAL EXAM component...")

 +8        SET GMTSFDA(142.1,GMTSIEN_",",5)="P"

 +9        SET GMTSFDA(142.1,GMTSIEN_",",8)="DEACTIVATED BY HEALTH SUMMARY PATCH GMTS*2.7*102"

 +10       LOCK +^GMT(142.1,GMTSIEN):+$GET(DILOCKTM)

 +11       IF '$TEST

               Begin DoDot:1

 +12               SET GMTSMSG(1)=" "

 +13               SET GMTSMSG(2)="Unable to lock the MENTAL HEALTH PHYSICAL EXAM component for editing."

 +14               DO MES^XPDUTL(.GMTSMSG)

 +15               SET XPDABORT=1

               End DoDot:1

               QUIT

 +16       DO FILE^DIE("","GMTSFDA","GMTSERR")

 +17       LOCK -^GMT(142.1,GMTSIEN):+$GET(DILOCKTM)

 +18       IF $DATA(GMTSERR)

               Begin DoDot:1

 +19               SET GMTSLINE=1

 +20               SET GMTSMSG(GMTSLINE)=" "

                   SET GMTSLINE=GMTSLINE+1

 +21               SET GMTSMSG(GMTSLINE)="VA FileMan Error #"_GMTSERR("DIERR",1)_":"

                   SET GMTSLINE=GMTSLINE+1

 +22               FOR GMTSX=1:1:+$ORDER(GMTSERR("DIERR",1,"TEXT","A"),-1)

                       Begin DoDot:2

 +23                       SET GMTSMSG(GMTSLINE)=GMTSERR("DIERR",1,"TEXT",GMTSX)

                           SET GMTSLINE=GMTSLINE+1

                       End DoDot:2

 +24               DO MES^XPDUTL(.GMTSMSG)

 +25               SET XPDABORT=1

               End DoDot:1

               QUIT

 +26       DO MES^XPDUTL("DONE")

 +27       DO UPDATE^XPDID(1)

 +28      ;REBUILD THE ADHOC HEALTH SUMMARY TYPE, EXCLUDING ALL DISABLED COMPONENTS BY DEFAULT

 +29       SET INCLUDE=$SELECT($DATA(XPDQUES("PRE1"))>0:XPDQUES("PRE1"),1:0)

 +30       DO ENPOST^GMTSLOAD

 +31       DO UPDATE^XPDID(2)

 +32       QUIT

POST      ;POST-INSTALL

 +1        NEW GMTSLINE,GMTSREP,GMTSIEN,GMTSTIEN,GMTSOIEN,GMTSMSG

 +2        NEW XMMG,XMDUZ,XMY,XMSUB,XMTEXT,XMZ,XMERR,XPDIDTOT,DIFROM

 +3        SET XPDIDTOT=1

 +4        DO UPDATE^XPDID(0)

 +5        SET GMTSIEN=$$GETIEN

 +6        if GMTSIEN=0

               QUIT

 +7        DO BMES^XPDUTL("Assembling usage report...")

 +8        SET GMTSLINE=1

 +9        SET GMTSREP(GMTSLINE)="The following health summary types contain a reference to the"

           SET GMTSLINE=GMTSLINE+1

 +10       SET GMTSREP(GMTSLINE)="MENTAL HEALTH PHYSICAL EXAM component. The health summary objects"

           SET GMTSLINE=GMTSLINE+1

 +11       SET GMTSREP(GMTSLINE)="listed below each type contain a reference to that type."

           SET GMTSLINE=GMTSLINE+1

 +12       SET GMTSREP(GMTSLINE)=""

           SET GMTSLINE=GMTSLINE+1

           SET GMTSREP(GMTSLINE)="TYPE"

           SET GMTSLINE=GMTSLINE+1

 +13       SET GMTSREP(GMTSLINE)=$$REPEAT^XLFSTR(" ",12)_"OBJECTS CONTAINING THAT TYPE"

           SET GMTSLINE=GMTSLINE+1

 +14       SET GMTSREP(GMTSLINE)=$$REPEAT^XLFSTR("-",72)

           SET GMTSLINE=GMTSLINE+1

 +15       SET GMTSTIEN=0

 +16       FOR

               SET GMTSTIEN=$ORDER(^GMT(142,"AE",GMTSIEN,GMTSTIEN))

               if +$GET(GMTSTIEN)=0

                   QUIT

               Begin DoDot:1

 +17               SET GMTSREP(GMTSLINE)=$PIECE($GET(^GMT(142,GMTSTIEN,0)),U,1)

 +18               IF $DATA(^GMT(142.5,"AC",GMTSTIEN))>9

                       Begin DoDot:2

 +19                       SET GMTSOIEN=0

 +20                       FOR

                               SET GMTSOIEN=$ORDER(^GMT(142.5,"AC",GMTSTIEN,GMTSOIEN))

                               if +$GET(GMTSOIEN)=0

                                   QUIT

                               Begin DoDot:3

 +21                               SET GMTSLINE=GMTSLINE+1

 +22                               SET GMTSREP(GMTSLINE)=$$REPEAT^XLFSTR(" ",12)_$PIECE($GET(^GMT(142.5,GMTSOIEN,0)),U,1)

                               End DoDot:3

                       End DoDot:2

 +23               SET GMTSLINE=GMTSLINE+1

               End DoDot:1

 +24       SET GMTSREP(GMTSLINE)=""

           SET GMTSLINE=GMTSLINE+1

 +25       SET GMTSREP(GMTSLINE)=$$REPEAT^XLFSTR(" ",32)_"[END OF REPORT]"

 +26       SET XMSUB="PATCH GMTS*2.7*102 REPORT"

 +27       SET XMTEXT="GMTSREP("

 +28       IF $DATA(ZTQUEUED)>0

               Begin DoDot:1

 +29               SET XMY(DUZ)=""

               End DoDot:1

 +30      IF '$TEST

               Begin DoDot:1

 +31               SET GMTSMSG(1)=" "

 +32               SET GMTSMSG(2)="Select the recipient(s) of the report below."

 +33               DO MES^XPDUTL(.GMTSMSG)

               End DoDot:1

 +34       DO ^XMD

 +35       IF $DATA(XMMG)>0

               Begin DoDot:1

 +36               KILL GMTSMSG

 +37               SET GMTSMSG(1)=" "

 +38               SET GMTSMSG(2)="Unable to email the report:"

 +39               SET GMTSMSG(3)=XMMG

 +40               DO MES^XPDUTL(.GMTSMSG)

               End DoDot:1

               QUIT

 +41       KILL GMTSMSG

 +42       SET GMTSMSG(1)=" "

 +43       SET GMTSMSG(2)="Finished assembling the usage report."

 +44       DO MES^XPDUTL(.GMTSMSG)

 +45       DO UPDATE^XPDID(1)

 +46       QUIT

GETIEN()  ;FIND THE COMPONENT'S IEN

 +1        NEW IEN

 +2        SET IEN=+$ORDER(^GMT(142.1,"B","MENTAL HEALTH PHYSICAL EXAM",0))

 +3        if IEN=0

               DO BMES^XPDUTL("MENTAL HEALTH PHYSICAL EXAM component was not found.")

 +4        QUIT IEN

GMTSP102.m