|
Last change
on this file since 949 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.
