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