GMTSP82.m

GMTSP82 ;BP CHY20/RJT - GMTS*2.7*82 POST INIT: ; 2/22/07 1:56pm

 ;;2.7;HEALTH SUMMARY;**82**;Oct 20, 1995;Build 21

 Q

EN ;UPDATES DESCRIPTION OF HEALTH FACTOR COMPONENT IN ^GMT(142.1) AND CORRECTS A SPELLING MISTAKE IN THE CLINICAL REMINDERS SUMMARY DESCRIPTION

 N GMTSIEN,GMTSHS D BMES^XPDUTL("Updating the Health Summary component description file")

 S GMTSHS=$$FIND1^DIC(9.4,"","X","HEALTH SUMMARY","B","") I +GMTSHS=0 W !,"Health Summary package not found!  Aborting file updates...",! G END

 S GMTSIEN=$$FIND1^DIC(9.49,","_GMTSHS_",","X","2.7","B","") I +GMTSIEN=0 W !,"Health Summary version 2.7 not found!  Aborting file updates...",! G END

 K ^TMP($J,"WP")

 I $$PATCH^XPDUTL("GMTS*2.7*82")=0 D

 . S ^TMP($J,"WP",1,0)=""

 . S ^TMP($J,"WP",2,0)="Note: Health Factors have a DISPLAY ON HEALTH SUMMARY "

 . S ^TMP($J,"WP",3,0)="option that determines whether or not they will show on a Health Summary "

 . S ^TMP($J,"WP",4,0)="report."

 . S GMTSIEN=$$FIND1^DIC(142.1,"","X","PCE HEALTH FACTORS ALL","B","") G:+GMTSIEN=0 2

 . D WP^DIE(142.1,GMTSIEN_",",3.5,"AK","^TMP($J,""WP"")")

2 . S GMTSIEN=$$FIND1^DIC(142.1,"","X","PCE HEALTH FACTORS SELECTED","B","") G:+GMTSIEN=0 3

 . D WP^DIE(142.1,GMTSIEN_",",3.5,"AK","^TMP($J,""WP"")")

3 K ^TMP($J,"WP")

 S ^TMP($J,"WP",1,0)="This component is similar to PCE CLINICAL REMINDERS DUE except that it "

 S ^TMP($J,"WP",2,0)="shows all reminders, not just those that are due. The information will "

 S ^TMP($J,"WP",3,0)="include the NEXT due date, or N/A, and the LAST DATE. N/A reminders "

 S ^TMP($J,"WP",4,0)="will be displayed unless the IGNORE ON N/A field is set."

 S GMTSIEN=$$FIND1^DIC(142.1,"","X","CLINICAL REMINDERS SUMMARY","B","") G:+GMTSIEN=0 END

 D WP^DIE(142.1,GMTSIEN_",",3.5,"K","^TMP($J,""WP"")")

END K ^TMP($J,"WP")

 D BMES^XPDUTL("Update Complete")

 Q

GMTSP82   ;BP CHY20/RJT - GMTS*2.7*82 POST INIT: ; 2/22/07 1:56pm

 +1       ;;2.7;HEALTH SUMMARY;**82**;Oct 20, 1995;Build 21

 +2        QUIT 

EN        ;UPDATES DESCRIPTION OF HEALTH FACTOR COMPONENT IN ^GMT(142.1) AND CORRECTS A SPELLING MISTAKE IN THE CLINICAL REMINDERS SUMMARY DESCRIPTION

 +1        NEW GMTSIEN,GMTSHS

           DO BMES^XPDUTL("Updating the Health Summary component description file")

 +2        SET GMTSHS=$$FIND1^DIC(9.4,"","X","HEALTH SUMMARY","B","")

           IF +GMTSHS=0

               WRITE !,"Health Summary package not found!  Aborting file updates...",!

               GOTO END

 +3        SET GMTSIEN=$$FIND1^DIC(9.49,","_GMTSHS_",","X","2.7","B","")

           IF +GMTSIEN=0

               WRITE !,"Health Summary version 2.7 not found!  Aborting file updates...",!

               GOTO END

 +4        KILL ^TMP($JOB,"WP")

 +5        IF $$PATCH^XPDUTL("GMTS*2.7*82")=0

               Begin DoDot:1

 +6                SET ^TMP($JOB,"WP",1,0)=""

 +7                SET ^TMP($JOB,"WP",2,0)="Note: Health Factors have a DISPLAY ON HEALTH SUMMARY "

 +8                SET ^TMP($JOB,"WP",3,0)="option that determines whether or not they will show on a Health Summary "

 +9                SET ^TMP($JOB,"WP",4,0)="report."

 +10               SET GMTSIEN=$$FIND1^DIC(142.1,"","X","PCE HEALTH FACTORS ALL","B","")

                   IF +GMTSIEN=0

                       GOTO 2

 +11               DO WP^DIE(142.1,GMTSIEN_",",3.5,"AK","^TMP($J,""WP"")")

2                  SET GMTSIEN=$$FIND1^DIC(142.1,"","X","PCE HEALTH FACTORS SELECTED","B","")

                   IF +GMTSIEN=0

                       GOTO 3

 +1                DO WP^DIE(142.1,GMTSIEN_",",3.5,"AK","^TMP($J,""WP"")")

               End DoDot:1

3          KILL ^TMP($JOB,"WP")

 +1        SET ^TMP($JOB,"WP",1,0)="This component is similar to PCE CLINICAL REMINDERS DUE except that it "

 +2        SET ^TMP($JOB,"WP",2,0)="shows all reminders, not just those that are due. The information will "

 +3        SET ^TMP($JOB,"WP",3,0)="include the NEXT due date, or N/A, and the LAST DATE. N/A reminders "

 +4        SET ^TMP($JOB,"WP",4,0)="will be displayed unless the IGNORE ON N/A field is set."

 +5        SET GMTSIEN=$$FIND1^DIC(142.1,"","X","CLINICAL REMINDERS SUMMARY","B","")

           IF +GMTSIEN=0

               GOTO END

 +6        DO WP^DIE(142.1,GMTSIEN_",",3.5,"K","^TMP($J,""WP"")")

END        KILL ^TMP($JOB,"WP")

 +1        DO BMES^XPDUTL("Update Complete")

 +2        QUIT