Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
601 bytes
|
Rev | Line | |
---|
[613] | 1 | TIUPS182 ; 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.