Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
790 bytes
|
Line | |
---|
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.