Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGJUTL3.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• IMAGING-MAG-ZMAG/MAGJUTL3.m (modified) (6 diffs)

FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGJUTL3.m

@@ -1 +1 @@
 MAGJUTL3 ;WIRMFO/JHC VistARad subrtns & RPCs ; 29 Jul 2003  10:03 AM
- ;;3.0;IMAGING;**16,9,22,18,65,76**;Jun 22, 2007;Build 19
+ ;;3.0;IMAGING;**16,9,22,18,65**;Jul 27, 2006;Build 28
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  ;; +---------------------------------------------------------------+
@@ -137 +137 @@
  I $G(MAGJOB("VRVERSION")) S X=MAGJOB("VRVERSION")
  E  S X="" ; non-client processes assume post-P32 logic
- S MAGJOB("P32")=(X="3.0.41.17") ; P32 Client?
- I MAGJOB("P32") D P32STOP^MAGJUTL5(.X) S MAGJOB("P32STOP")=X  ; STOP support when P76 releases
+ S MAGJOB("P32")=(X="3.0.41.17") ; support back-compatible P32 Client
  D USERKEYS
  S MAGJOB("CONSOLIDATED")=($G(^MAG(2006.1,"CONSOLIDATED"))="YES")
@@ -171 +170 @@
  Q RSL
  ;
-USERKEYS ; Store Security Keys in MagJob
+USERKEYS ; Store VRad Security Keys in MagJob
+ ;
  N I,X,Y
- N MAGKS ; keys to send to XUS KEY CHECK
- N MAGKG ; returned
+ N MAGKS ; list of keys to send to XUS KEY CHECK
+ N MAGKG ; list returned
  K MAGJOB("KEYS")
  S X="MAGJ",I=0
@@ -184 +184 @@
  Q
  ;
+ Q
 PINF1(MAGGRY,MAGDFN) ;RPC Call MAGJ PT INFO -- Get pt info
  S X="ERR3^MAGJUTL3",@^%ZOSF("TRAP")
@@ -189 +190 @@
  Q
  ;
-USERINF2(MAGGRY,DATA) ; rpc: MAGJ USER2--get user info
- ; Input= unused ^ Client Vs ^ Client O/S Vs
- ; Reply=
- ; 0) = 1/0^code~Msg |  DUZ ^ NAME ^ INITIALS ^ REQFLAG
- ; 1)= Net UserName ^ PSW ^ UserType ^ SYSADMIN
- ;     1/0=Success/Fail flag for vs chk
- ;     code=4 if fail
- ;     Msg=Disp msg if fail
- ;     REQFLAG = 1/0 (Ena/Disa Requisition for non-rad staff)
- ;     UserType = 3: Staff R'ist; 2: Resident R'ist; 1: Rad Tech; 0: Non-Rad
- ;     SYSADMIN = 1/0 1=user has System User privileges
- ; 2:N)=Sec Keys
- ;  
+USERINF2(MAGGRY,DATA) ; rpc: MAGJ USER2 -- Return user info
+ ;  Input = unused ^ Client Vrad Vs ^ Client O/S Vs
+ ;  Reply = 
+ ;  (0) = 1/0^code~Msg |  DUZ ^ NAME ^ INITIALS ^ REQ_FLAG
+ ;  (1)= Net UserName ^ PSW ^ UserType ^ SYSADMIN
+ ;      1/0=Success/Failure flag for vs compatibility
+ ;      code=4 if failure condition
+ ;      Msg=Display msg if failure condition
+ ;      REQ_FLAG = 1/0 (Enable/Disable Requisition for non-rad staff)
+ ;      UserType = 3: Staff R'ist; 2: Resident R'ist; 1: Rad Tech; 0: Non-Rad
+ ;      SYSADMIN = 1/0 1=user has Vrad System User privileges
+ ;
  S X="ERR2^MAGJUTL3",@^%ZOSF("TRAP")
  K MAGGRY S MAGGRY(0)="",MAGGRY(1)=""
@@ -225 +225 @@
  S X=+MAGJOB("USER",1),X=$S(X=15:3,X=12:2,+RADTECH:1,1:0)
  S MAGGRY(1)=MAGGRY(1)_U_X_U_$D(MAGJOB("KEYS","MAGJ SYSTEM USER"))
- S MAGGRY(2)="*KEYS",X="" F I=3:1 S X=$O(MAGJOB("KEYS",X)) Q:X=""  S MAGGRY(I)=X
- S MAGGRY(I)="*END"
 USERIN2Z Q
  ;