TIUPS182.m

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 ---TIUPS182   614     printed  Apr 09, 2024@21:45:41                                                                                                                                                                                                     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