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

VAQUTL3.m

Go to the documentation of this file.
  1. VAQUTL3 ;ALB/JRP - UTILITY ROUTINES;30-APR-93
  1. ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
  1. TRANENC(TRAN,RET) ;DETERMINE IF ENCRYPTION FOR A TRANSACTION IS TURNED ON
  1. ;INPUT : TRAN - Pointer to VAQ - TRANSACTION file
  1. ; RET - Flag indicating what to return
  1. ; 0 = Return 1 if encryption is on (default flag)
  1. ; Return 0 if encryption is off
  1. ; 1 = Return pointer to VAQ - ENCRYPTION METHOD file
  1. ; Return 0 if encryption is off
  1. ; 2 = Return encryption method
  1. ; Return NULL if encryption is off
  1. ; 3 = Return type of encryption
  1. ; Return NULL if encryption is off
  1. ;OUTPUT : See definition of RET
  1. ;NOTES : Existance of VAQIGNC will be checked. If it exists and is
  1. ; set to 1 encryption will be ignored for this transaction.
  1. ; : If encryption is on and the transaction does not include
  1. ; an encryption method, the default encryption method will
  1. ; be used.
  1. ; : Encryption off will be returned on error.
  1. ;
  1. ;CHECK INPUT
  1. S RET=+$G(RET)
  1. Q:('(+$G(TRAN))) $S((RET>1):"",1:0)
  1. Q:('$D(^VAT(394.61,TRAN))) $S((RET>1):"",1:0)
  1. ;CHECK VAQIGNC
  1. Q:($G(VAQIGNC)) $S((RET>1):"",1:0)
  1. ;DECLARE VARIABLES
  1. N TMP,MTHD
  1. ;CHECK ENCRYPTION FIELD
  1. S TMP=$G(^VAT(394.61,TRAN,"NCRPT"))
  1. S MTHD=+$P(TMP,"^",2)
  1. S TMP=+TMP
  1. ;ENCRYPTION OFF
  1. Q:('TMP) $S((RET>1):"",1:0)
  1. ;RETURN ENCRYPTION ON
  1. Q:('RET) 1
  1. ;ENCRYPTION METHOD NOT THERE
  1. I ('MTHD) D Q MTHD
  1. .S TMP=$S((RET=2):0,1:1)
  1. .S MTHD=$$DEFENC^VAQUTL2(0,TMP)
  1. .Q:(RET'=3)
  1. .I ('MTHD) S MTHD="" Q
  1. .S MTHD=$P($G(^VAT(394.72,MTHD,0)),"^",1)
  1. ;RETURN POINTER
  1. Q:(RET=1) MTHD
  1. ;RETURN METHOD
  1. Q:(RET=2) $$ENCMTHD^VAQUTL2(MTHD,0)
  1. ;RETURN TYPE
  1. Q:(RET=3) $P($G(^VAT(394.72,MTHD,0)),"^",1)
  1. ;
  1. DUZKEY(USER,PRIME) ;DETERMINE PRIMARY/SECONDARY KEY VALUES
  1. ;INPUT : USER - Pointer to NEW PERSON file (defaults to DUZ)
  1. ; PRIME - Indicates which key to return
  1. ; If 1, returns primary key
  1. ; If 0, returns secondary key (default)
  1. ;OUTPUT : The primary/secondary key value
  1. ; NULL - Error
  1. ;
  1. ;CHECK INPUT
  1. S:('(+$G(USER))) USER=+$G(DUZ)
  1. S PRIME=+$G(PRIME)
  1. ;DECLARE VARIABLES
  1. N X,Y
  1. ;DETERMINE KEYS
  1. S X=$P($G(^VA(200,USER,0)),"^",1)
  1. Q:(X="") ""
  1. S:((USER=.5)!(X="POSTMASTER")) X="PDX Server"
  1. D:('PRIME) HASH^XUSHSHP
  1. X ^%ZOSF("LPC")
  1. Q Y
  1. ;
  1. NAMEKEY(USER,PRIME) ;DETERMINE PRIMARY/SECONDARY KEY VALUES
  1. ;INPUT : USER - Name of user (defaults to current user)
  1. ; PRIME - Indicates which key to return
  1. ; If 1, returns primary key
  1. ; If 0, returns secondary key (default)
  1. ;OUTPUT : The primary/secondary key value
  1. ; NULL - Error
  1. ;
  1. ;CHECK INPUT
  1. I ($G(USER)="") S USER=+$G(DUZ) Q:(USER="") S USER=$P($G(^VA(200,USER,0)),"^",1)
  1. Q:(USER="") ""
  1. S PRIME=+$G(PRIME)
  1. ;DECLARE VARIABLES
  1. N X,Y
  1. ;DETERMINE KEYS
  1. S X=USER
  1. S:(X="POSTMASTER") X="PDX Server"
  1. Q:(X="") ""
  1. D:('PRIME) HASH^XUSHSHP
  1. X ^%ZOSF("LPC")
  1. Q Y