PRPFMR2 ;BAYPINES/MJE VPFS APP PROXY CREATOR ;06/15/05
;;3.0;PATIENT FUNDS - MIGRATION 5.0;**16**;JUNE 1, 1989
;ENTRY AT LINETAG ONLY
Q
ADDPROXY ; add VPFS application proxy user account if not present
; depends on XU*8*361
N XOBID
W !,""
W !," ****************** PROXY INSTALL RESULT ******************************"
S XOBID=$$CREATE^XUSAP("VPFS,APPLICATION PROXY","","DGRR PATIENT SERVICE QUERY","")
I (+XOBID)>0 D
.W !," THE VPFS APPLICATION PROXY USER ACCOUNT HAS BEEN SUCCESSFULLY CREATED!"
I (+XOBID)=0 D
.W !," WARNING: THE VPFS APPLICATION PROXY USER ACCOUNT ALREADY PRESENT!!"
I (+XOBID)<0 D
.W !," ERROR: THE VPFS APPLICATION PROXY USER ACCOUNT COULD NOT BE CREATED!!!"
W !," **********************************************************************"
W !,""
K XOBID
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRPFMR2 809 printed Dec 13, 2024@02:01:47 Page 2
PRPFMR2 ;BAYPINES/MJE VPFS APP PROXY CREATOR ;06/15/05
+1 ;;3.0;PATIENT FUNDS - MIGRATION 5.0;**16**;JUNE 1, 1989
+2 ;ENTRY AT LINETAG ONLY
+3 QUIT
ADDPROXY ; add VPFS application proxy user account if not present
+1 ; depends on XU*8*361
+2 NEW XOBID
+3 WRITE !,""
+4 WRITE !," ****************** PROXY INSTALL RESULT ******************************"
+5 SET XOBID=$$CREATE^XUSAP("VPFS,APPLICATION PROXY","","DGRR PATIENT SERVICE QUERY","")
+6 IF (+XOBID)>0
Begin DoDot:1
+7 WRITE !," THE VPFS APPLICATION PROXY USER ACCOUNT HAS BEEN SUCCESSFULLY CREATED!"
End DoDot:1
+8 IF (+XOBID)=0
Begin DoDot:1
+9 WRITE !," WARNING: THE VPFS APPLICATION PROXY USER ACCOUNT ALREADY PRESENT!!"
End DoDot:1
+10 IF (+XOBID)<0
Begin DoDot:1
+11 WRITE !," ERROR: THE VPFS APPLICATION PROXY USER ACCOUNT COULD NOT BE CREATED!!!"
End DoDot:1
+12 WRITE !," **********************************************************************"
+13 WRITE !,""
+14 KILL XOBID
