PSO642P ;BIR/JLC - VCC BUILD VCC PROXY USER ; July 13, 2021@21:00
;;7.0;OUTPATIENT PHARMACY;**642**;DEC 1997;Build 9
;
Q
POST ;;
N PSOA
S PSOA=$$CREATE^XUSAP("PSOVCC,APPLICATION PROXY","","PSO VCC REFILL")
I PSOA>0 D BMES^XPDUTL("Proxy user created successfully.") Q
I PSOA="0^Name in Use" D BMES^XPDUTL("Proxy user name already in use.")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO642P 359 printed Sep 23, 2025@19:59:36 Page 2
PSO642P ;BIR/JLC - VCC BUILD VCC PROXY USER ; July 13, 2021@21:00
+1 ;;7.0;OUTPATIENT PHARMACY;**642**;DEC 1997;Build 9
+2 ;
+3 QUIT
POST ;;
+1 NEW PSOA
+2 SET PSOA=$$CREATE^XUSAP("PSOVCC,APPLICATION PROXY","","PSO VCC REFILL")
+3 IF PSOA>0
DO BMES^XPDUTL("Proxy user created successfully.")
QUIT
+4 IF PSOA="0^Name in Use"
DO BMES^XPDUTL("Proxy user name already in use.")
+5 QUIT
