- VPRPI ;SLC/AGP -- VPR package post install
- ;;1.0;VIRTUAL PATIENT RECORD;;Sep 01, 2011;Build 12
- ;
- POST ;
- ; Create proxy user
- Q:$O(^VA(200,"B","VPR,APPLICATION PROXY",0))
- N X
- S X=$$CREATE^XUSAP("VPR,APPLICATION PROXY","","VPR APPLICATION PROXY")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVPRPI 262 printed Feb 19, 2025@00:12:10 Page 2
- VPRPI ;SLC/AGP -- VPR package post install
- +1 ;;1.0;VIRTUAL PATIENT RECORD;;Sep 01, 2011;Build 12
- +2 ;
- POST ;
- +1 ; Create proxy user
- +2 if $ORDER(^VA(200,"B","VPR,APPLICATION PROXY",0))
- QUIT
- +3 NEW X
- +4 SET X=$$CREATE^XUSAP("VPR,APPLICATION PROXY","","VPR APPLICATION PROXY")
- +5 QUIT