Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: VPRPI

VPRPI.m

Go to the documentation of this file.

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")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVPRPI   262     printed  Apr 09, 2024@21:47:35                                                                                                                                                                                                        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