PRPFMR2.m

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 ---PRPFMR2   809     printed  Apr 09, 2024@21:04:33                                                                                                                                                                                                      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