- 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
