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

VAQUTL2.m

Go to the documentation of this file.
  1. VAQUTL2 ;ALB/JRP - UTILITY ROUTINES;30-APR-93
  1. ;;1.5;PATIENT DATA EXCHANGE;**5**;NOV 17, 1993
  1. NCRYPTON(RETMTHD) ;DETERMINE IF ENCRYPTION HAS BEEN TURNED ON
  1. ;INPUT : RETMTHD - Flag indicating what to return
  1. ; 0 = Return pointer to default encryption (default)
  1. ; Return 0 if encryption is off
  1. ; 1 = Return default encryption method
  1. ; Return NULL if encryption is off
  1. ; 2 = Return default encryption type
  1. ; Return NULL if encryption is off
  1. ;OUTPUT : See definition of RETMTHD
  1. ;NOTES : Existance of VAQIGNC will be checked. If it exists and is
  1. ; set to 1 encryption rules will be ignored.
  1. ; : Encryption off will be returned on error
  1. ;
  1. ;CHECK INPUT
  1. S RETMTHD=+$G(RETMTHD)
  1. ;IGNORE FLAG TURNED ON
  1. I (+$G(VAQIGNC)) Q $S(RETMTHD:"",1:0)
  1. ;DECLARE VARIABLES
  1. N X,Y
  1. ;GET ENTRY IN PARAMETER FILE
  1. S X=$O(^VAT(394.81,0))
  1. ;COULDN'T FIND ENTRY IN PARAMETER - ASSUME ENCRYPTION IS OFF
  1. Q:('X) $S(RETMTHD:"",1:0)
  1. ;CHECK ENCRYPTION FLAG
  1. S Y=$G(^VAT(394.81,X,"ECR"))
  1. ;COULDN'T FIND ENCRYPTION FLAG - ASSUME ENCRYPTION IS OFF
  1. Q:('Y) $S(RETMTHD:"",1:0)
  1. ;ENCRYPTION TURNED ON
  1. S X=+$P(Y,"^",2)
  1. ;RETURN POINTER
  1. Q:('RETMTHD) X
  1. ;RETURN METHOD
  1. Q:(RETMTHD=1) $$ENCMTHD(X,0)
  1. ;RETURN TYPE
  1. Q $P($G(^VAT(394.72,X,0)),"^",1)
  1. ;
  1. NCRPFLD(FILE,FIELD) ;DETERMINE IF A FILE/FIELD IS MARKED FOR ENCRYPTION
  1. ;INPUT : FILE - File number
  1. ; FIELD - Field number
  1. ; VAQIGNC - Indicates if encryption rules should be ignored
  1. ; If 1, ignore encryption rules (never encrypt)
  1. ; If 0 or doesn't exist, obey encryption rules (default)
  1. ;OUTPUT : 1 - File/field is marked for encryption
  1. ; 0 - File/field not marked for encryption
  1. ;
  1. ;CHECK INPUT (ASSUME NOT MARKED ON ERROR)
  1. S FILE=+$G(FILE)
  1. S FIELD=+$G(FIELD)
  1. Q:(('FILE)!('FIELD)) 0
  1. ;IGNORE FLAG TURNED ON
  1. Q:(+$G(VAQIGNC)) 0
  1. ;NOT MARKED FOR ENCRYPTION
  1. Q:('$D(^VAT(394.73,"A-NCRYPT",FILE,FIELD))) 0
  1. ;MARKED
  1. Q 1
  1. ;
  1. ENCMTHD(ENCPTR,DCRYPT) ;RETURN ENCRYPTION/DECRYPTION METHOD
  1. ;INPUT : ENCPTR - Pointer to VAQ - ENCRYPTION METHOD file
  1. ; DCRYPT - Indicates which method to return
  1. ; If 0, return encryption method (default)
  1. ; If 1, return decryption method
  1. ;OUTPUT : The encryption/decryption method
  1. ; NULL - Error
  1. ;
  1. ;CHECK INPUT
  1. S ENCPTR=+$G(ENCPTR)
  1. Q:('ENCPTR) ""
  1. S DCRYPT=+$G(DCRYPT)
  1. ;RETURN DECRYPTION METHOD
  1. Q:(DCRYPT) $G(^VAT(394.72,ENCPTR,"DCR"))
  1. ;RETURN ENCRYPTION METHOD
  1. Q $G(^VAT(394.72,ENCPTR,"ECR"))
  1. ;
  1. DEFENC(DCRYPT,POINT) ;RETURN DEFAULT ENCRYPTION/DECRYPTION METHOD
  1. ;INPUT : DCRYPT - Indicates which method to return
  1. ; If 0, return encryption method (default)
  1. ; If 1, return decryption method
  1. ; POINT - Indicates if a pointer to VAQ - ENCRYPTION METHOD
  1. ; file should be returned
  1. ; If 0, return method (default)
  1. ; If 1, return pointer to method
  1. ;OUTPUT : If method is requested
  1. ; The default encryption/decryption method
  1. ; NULL - Error
  1. ; If pointer is requested
  1. ; Pointer to VAQ - ENCRYPTION METHOD
  1. ; 0 - Error
  1. ;
  1. ;CHECK INPUT
  1. S DCRYPT=+$G(DCRYPT)
  1. S POINT=+$G(POINT)
  1. ;DECLARE VARIABLES
  1. N X,Y
  1. ;GET ENTRY IN PARAMTER FILE
  1. S X=$O(^VAT(394.81,0))
  1. ;COULDN'T FIND ENTRY IN PARAMETER
  1. Q:('X) ""
  1. ;GET POINTER TO METHOD
  1. S Y=$G(^VAT(394.81,X,"ECR"))
  1. S Y=+$P(Y,"^",2)
  1. ;POINTER TO METHOD DIDN'T EXIST
  1. Q:('Y) $S(POINT:0,1:"")
  1. ;RETURN POINTER
  1. Q:(POINT) Y
  1. ;RETURN METHOD
  1. Q $$ENCMTHD(Y,DCRYPT)