Routine: GMTSP112

GMTSP112 ;BP/WAT - Pre/Post Init GMTS*2.7*112 ;03/26/15  05:27

 ;;2.7;Health Summary;**112**;Oct 20, 1995;Build 3

 ;post-install routine to add HS Components released in GMTS*2.7*99 to the PDX exchange process

 ;ICR reference

 ;2053, WP^DIE

 ;10141 B/MES^XPDUTL

POST ; do post

 D DOPDX

 D WPDIE

DOPDX ;add to PDX

 N GMTSNAME,GMTSTIML,GMTSOCCL,GMTSLIST,GMTSCNTR

 S GMTSLIST="MAS CONTACTS^MAS MH CLINIC VISITS FUTURE^MH HIGH RISK PRF HX^MH TREATMENT COORDINATOR^"

 F GMTSCNTR=1:1:4 D

 .S GMTSNAME=$P(GMTSLIST,U,GMTSCNTR),GMTSTIML="",GMTSOCCL="" D PDX^GMTSXPD5(GMTSNAME,GMTSTIML,GMTSOCCL)

WPDIE ;udpate CNB description field

 ;OLD DESCRIPTION:   This component displays Consults in a brief format, to include

 ;the consult number, request date, requesting service, last action, last action

 ;date, and the consult "TO" service.

 D BMES^XPDUTL("Updating the DESCRIPTION for the CNB component...")

 N FILE,IENS,FIELD,GMTSERR

 S FILE="142.1",IENS="240,",FIELD="3.5"

 K ^TMP($J,"CNB")

 S ^TMP($J,"CNB",1)="This component displays Consults in a brief format, to include the consult "

 S ^TMP($J,"CNB",2)="number, request date, requesting service, last action, clinically indicated "

 S ^TMP($J,"CNB",3)="date, last action date, and the consult ""TO"" service."

 D WP^DIE(FILE,IENS,FIELD,,"^TMP($J,""CNB"")")

 I $D(^TMP("DIERR",$J,1,"TEXT"))=10 D  Q

 .D BMES^XPDUTL("Recording an error has ocurred")

 .D MES^XPDUTL(^TMP("DIERR",$J,1,"TEXT",1))

 D BMES^XPDUTL("Update completed...")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSP112   1527     printed  Apr 23, 2025@18:13:08                                                                                                                                                                                                    Page 2

GMTSP112  ;BP/WAT - Pre/Post Init GMTS*2.7*112 ;03/26/15  05:27

 +1       ;;2.7;Health Summary;**112**;Oct 20, 1995;Build 3

 +2       ;post-install routine to add HS Components released in GMTS*2.7*99 to the PDX exchange process

 +3       ;ICR reference

 +4       ;2053, WP^DIE

 +5       ;10141 B/MES^XPDUTL

 +6       ;

POST      ; do post

 +1        DO DOPDX

 +2        DO WPDIE

 +3        QUIT

 +4       ;

DOPDX     ;add to PDX

 +1        NEW GMTSNAME,GMTSTIML,GMTSOCCL,GMTSLIST,GMTSCNTR

 +2        SET GMTSLIST="MAS CONTACTS^MAS MH CLINIC VISITS FUTURE^MH HIGH RISK PRF HX^MH TREATMENT COORDINATOR^"

 +3        FOR GMTSCNTR=1:1:4

               Begin DoDot:1

 +4                SET GMTSNAME=$PIECE(GMTSLIST,U,GMTSCNTR)

                   SET GMTSTIML=""

                   SET GMTSOCCL=""

                   DO PDX^GMTSXPD5(GMTSNAME,GMTSTIML,GMTSOCCL)

               End DoDot:1

 +5        QUIT

 +6       ;

WPDIE     ;udpate CNB description field

 +1       ;OLD DESCRIPTION:   This component displays Consults in a brief format, to include

 +2       ;the consult number, request date, requesting service, last action, last action

 +3       ;date, and the consult "TO" service.

 +4        DO BMES^XPDUTL("Updating the DESCRIPTION for the CNB component...")

 +5        NEW FILE,IENS,FIELD,GMTSERR

 +6        SET FILE="142.1"

           SET IENS="240,"

           SET FIELD="3.5"

 +7        KILL ^TMP($JOB,"CNB")

 +8        SET ^TMP($JOB,"CNB",1)="This component displays Consults in a brief format, to include the consult "

 +9        SET ^TMP($JOB,"CNB",2)="number, request date, requesting service, last action, clinically indicated "

 +10       SET ^TMP($JOB,"CNB",3)="date, last action date, and the consult ""TO"" service."

 +11       DO WP^DIE(FILE,IENS,FIELD,,"^TMP($J,""CNB"")")

 +12       IF $DATA(^TMP("DIERR",$JOB,1,"TEXT"))=10

               Begin DoDot:1

 +13               DO BMES^XPDUTL("Recording an error has ocurred")

 +14               DO MES^XPDUTL(^TMP("DIERR",$JOB,1,"TEXT",1))

               End DoDot:1

               QUIT

 +15       DO BMES^XPDUTL("Update completed...")

 +16       QUIT

GMTSP112.m