TIUPS182 ; SLC/MAM - TIU*1*182 Post Install ; 05/25/2004
;;1.0;Text Integration Utilities;**182**;Jun 20, 1997
;
; -- Edit Print Form Header,delete PF Number of Class CP:
N FDA,TIUFPRIV,CPCLASS
S CPCLASS=$$CLASS^TIUCP,FDA(8925.1,CPCLASS_",",6.1)="Clinical Procedures"
S FDA(8925.1,CPCLASS_",",6.12)="@"
S TIUFPRIV=1
D FILE^DIE("TE","FDA")
I '$D(^TMP("DIERR",$J)) D BMES^XPDUTL("Class Clinical Procedures Print Form Header and Number updated successfully.") Q
D BMES^XPDUTL("Couldn't update Class CP Print Form Header or Number. See patch description or contact EVS.")
K ^TMP("DIERR",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPS182 614 printed Nov 22, 2024@17:54:08 Page 2
TIUPS182 ; SLC/MAM - TIU*1*182 Post Install ; 05/25/2004
+1 ;;1.0;Text Integration Utilities;**182**;Jun 20, 1997
+2 ;
+3 ; -- Edit Print Form Header,delete PF Number of Class CP:
+4 NEW FDA,TIUFPRIV,CPCLASS
+5 SET CPCLASS=$$CLASS^TIUCP
SET FDA(8925.1,CPCLASS_",",6.1)="Clinical Procedures"
+6 SET FDA(8925.1,CPCLASS_",",6.12)="@"
+7 SET TIUFPRIV=1
+8 DO FILE^DIE("TE","FDA")
+9 IF '$DATA(^TMP("DIERR",$JOB))
DO BMES^XPDUTL("Class Clinical Procedures Print Form Header and Number updated successfully.")
QUIT
+10 DO BMES^XPDUTL("Couldn't update Class CP Print Form Header or Number. See patch description or contact EVS.")
+11 KILL ^TMP("DIERR",$JOB)
+12 QUIT
