source: WorldVistAEHR/trunk/r/INTEGRATED_PATIENT_FUNDS-PRPF-PFXIP/PRPFMR2.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 790 bytes
RevLine 
[613]1PRPFMR2 ;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
5ADDPROXY ; 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.