PSO642P.m

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 ---PSO642P   359     printed  Apr 09, 2024@21:30:33                                                                                                                                                                                                      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