source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPS182.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 601 bytes
Line 
1TIUPS182 ; SLC/MAM - TIU*1*182 Post Install ; 05/25/2004
2 ;;1.0;Text Integration Utilities;**182**;Jun 20, 1997
3 ;
4 ; -- Edit Print Form Header,delete PF Number of Class CP:
5 N FDA,TIUFPRIV,CPCLASS
6 S CPCLASS=$$CLASS^TIUCP,FDA(8925.1,CPCLASS_",",6.1)="Clinical Procedures"
7 S FDA(8925.1,CPCLASS_",",6.12)="@"
8 S TIUFPRIV=1
9 D FILE^DIE("TE","FDA")
10 I '$D(^TMP("DIERR",$J)) D BMES^XPDUTL("Class Clinical Procedures Print Form Header and Number updated successfully.") Q
11 D BMES^XPDUTL("Couldn't update Class CP Print Form Header or Number. See patch description or contact EVS.")
12 K ^TMP("DIERR",$J)
13 Q
Note: See TracBrowser for help on using the repository browser.