Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
790 bytes
|
Rev | Line | |
---|
[613] | 1 | PRPFMR2 ;BAYPINES/MJE VPFS APP PROXY CREATOR ;06/15/05
|
---|
| 2 | ;;3.0;PATIENT FUNDS - MIGRATION 5.0;**16**;JUNE 1, 1989
|
---|
| 3 | ;ENTRY AT LINETAG ONLY
|
---|
| 4 | Q
|
---|
| 5 | ADDPROXY ; add VPFS application proxy user account if not present
|
---|
| 6 | ; depends on XU*8*361
|
---|
| 7 | N XOBID
|
---|
| 8 | W !,""
|
---|
| 9 | W !," ****************** PROXY INSTALL RESULT ******************************"
|
---|
| 10 | S XOBID=$$CREATE^XUSAP("VPFS,APPLICATION PROXY","","DGRR PATIENT SERVICE QUERY","")
|
---|
| 11 | I (+XOBID)>0 D
|
---|
| 12 | .W !," THE VPFS APPLICATION PROXY USER ACCOUNT HAS BEEN SUCCESSFULLY CREATED!"
|
---|
| 13 | I (+XOBID)=0 D
|
---|
| 14 | .W !," WARNING: THE VPFS APPLICATION PROXY USER ACCOUNT ALREADY PRESENT!!"
|
---|
| 15 | I (+XOBID)<0 D
|
---|
| 16 | .W !," ERROR: THE VPFS APPLICATION PROXY USER ACCOUNT COULD NOT BE CREATED!!!"
|
---|
| 17 | W !," **********************************************************************"
|
---|
| 18 | W !,""
|
---|
| 19 | K XOBID
|
---|
Note:
See
TracBrowser
for help on using the repository browser.