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
Q
;
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)
Q
;
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...")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSP112 1527 printed Dec 13, 2024@01:58:41 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
