MAGUPSE ;WOIFO/MLH - Imaging utility - return pt employee/sensitive status; 3 Feb 2012 06:00 AM
;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
;; | No permission to copy or redistribute this software is given. |
;; | Use of unreleased versions of this software requires the user |
;; | to execute a written test agreement with the VistA Imaging |
;; | Development Office of the Department of Veterans Affairs, |
;; | telephone (301) 734-0100. |
;; | The Food and Drug Administration classifies this software as |
;; | a medical device. As such, it may not be changed in any way. |
;; | Modifications to this software may result in an adulterated |
;; | medical device under 21CFR820, the use of which is considered |
;; | to be a violation of US Federal Statutes. |
;; +---------------------------------------------------------------+
;;
Q
;
SENSEMP(MAGDFN) ;FUNCTION - return pt employee/sensitive status
;input: MAGDFN pt's internal entry no. on PATIENT File (#2)
;function return: -1 if DFN is not a positive integer
; 0 if patient not employee or sensitive, or patient not found
; 1 if patient is employee
; 2 if patient is sensitive
; 3 if patient is both employee and sensitive
N SENSEMP
I (MAGDFN'>0)!(MAGDFN'?1.N) Q -2 ; improper format
S SENSEMP=0 ; assume neither employee nor sensitive
S SENSEMP=SENSEMP+($$EMPL^DGSEC4(MAGDFN)=1) ; employee (ICR #3646)
S SENSEMP=SENSEMP+(2*($P($G(^DGSL(38.1,MAGDFN,0)),"^",2)=1)) ; sensitive (IA #767)
Q SENSEMP
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGUPSE 1905 printed Dec 13, 2024@02:09 Page 2
MAGUPSE ;WOIFO/MLH - Imaging utility - return pt employee/sensitive status; 3 Feb 2012 06:00 AM
+1 ;;3.0;IMAGING;**118**;Mar 19, 2002;Build 4525;May 01, 2013
+2 ;; Per VHA Directive 2004-038, this routine should not be modified.
+3 ;; +---------------------------------------------------------------+
+4 ;; | Property of the US Government. |
+5 ;; | No permission to copy or redistribute this software is given. |
+6 ;; | Use of unreleased versions of this software requires the user |
+7 ;; | to execute a written test agreement with the VistA Imaging |
+8 ;; | Development Office of the Department of Veterans Affairs, |
+9 ;; | telephone (301) 734-0100. |
+10 ;; | The Food and Drug Administration classifies this software as |
+11 ;; | a medical device. As such, it may not be changed in any way. |
+12 ;; | Modifications to this software may result in an adulterated |
+13 ;; | medical device under 21CFR820, the use of which is considered |
+14 ;; | to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
+17 QUIT
+18 ;
SENSEMP(MAGDFN) ;FUNCTION - return pt employee/sensitive status
+1 ;input: MAGDFN pt's internal entry no. on PATIENT File (#2)
+2 ;function return: -1 if DFN is not a positive integer
+3 ; 0 if patient not employee or sensitive, or patient not found
+4 ; 1 if patient is employee
+5 ; 2 if patient is sensitive
+6 ; 3 if patient is both employee and sensitive
+7 NEW SENSEMP
+8 ; improper format
IF (MAGDFN'>0)!(MAGDFN'?1.N)
QUIT -2
+9 ; assume neither employee nor sensitive
SET SENSEMP=0
+10 ; employee (ICR #3646)
SET SENSEMP=SENSEMP+($$EMPL^DGSEC4(MAGDFN)=1)
+11 ; sensitive (IA #767)
SET SENSEMP=SENSEMP+(2*($PIECE($GET(^DGSL(38.1,MAGDFN,0)),"^",2)=1))
+12 QUIT SENSEMP
