GMTSHCPR ;BP/WAT - Sensitive Data in HS Type Hard Copies ; 3/29/07
;;2.7; Health Summary; **85**; Oct 20, 1995;Build 24
;
;EXTERNAL REFERENCES
; ICR 2198 $$BROKER^XWBLIB
; ICR 10078 OP^XQCHK
; $$HF^GMTSU
; DEM^GMTSU
;
; DFN, GMTSSN, GMTSPNM, GMTSPHDR, GMTSTYP, OBJ and VADM variables are set elsewhere in GMTS* code and therefore are not Newed here
; DFN - of the current pt - will only be used here if VADM and GMTSSN/GMTSPNM are all null
; GMTSSN - SSN of current pt
; GMTSPNM - name of patient: LAST,FIRST
;GMTSPHDR - array that is expected to hold pt name, ssn, dob, etc for the report header. Values are set in DEM^GMTSU and should exist
;at the time this routine is called.
;GMTSTYP - IEN of health summary type and is set prior to this routine
;;OBJ - set when dealing with a HS object and should exist at the time this routine is called
;VADM - pt data array set in DEM^GMTSU - should exist at the time of execution.
;GMTSSN85 = SSN value from pt data array VADM(2)
;GMTSNM85 = pt name from pt data array VADM(1)
;GMTSUPRT - internal value of SUPPRESS SENSITIVE DATA PRINT field in file 142
;set of codes
;0 or null = do nothing
;1 = 4 digit ssn/no dob
;2 = no ssn/no dob
;GMTSGUI - result of $$BROKER^XWBLIB - 1 = Broker or VistALink GUI; 0 = not
;GMTSUHF - result of $$HF^GMTSU - 0=gui printing; 1=not
;GMTS4DIG - local variable for 4-digit ssn
EN ;;
N GMTSUPRT,GMTSGUI,GMTSUHF,GMTS4DIG,GMTSSN85,GMTSNM85
;abort if current option is Network Health Exchange-related
N XQOPT D OP^XQCHK Q:$P($G(XQOPT),U)["AFJX"
Q:$G(GMTSTYP)="" S GMTSUPRT=$G(^GMT(142,GMTSTYP,2))
S GMTSGUI=$$BROKER^XWBLIB
S GMTSUHF=$$HF^GMTSU
; store SSN and Name into local variables
S GMTSSN85=$S($L($G(VADM(2)))>0:$P($G(VADM(2)),U,2),1:$G(GMTSSN))
S GMTSNM85=$S($L($G(VADM(1)))>0:$G(VADM(1)),1:$G(GMTSPNM))
;VADM can be killed by processing some clinical reminder components so make sure we have SSN and Name values
;If GMTSSN or GMTSPNM are still undefined, refresh VADM
I $G(GMTSSN85)=""!($G(GMTSNM85)="") D
.Q:$G(DFN)="" D DEM^GMTSU ;if you get here and DFN is somehow null, there won't be any pt name or ssn in the report header
.I $L($G(VADM(2)))>0 S GMTSSN85=$P($G(VADM(2)),U,2)
.I $L($G(VADM(1)))>0 S GMTSNM85=$G(VADM(1))
;if either is null by here, artifically suppress DOB, put info message in Name/SSN variable, and QUIT
I $G(GMTSSN85)=""!($G(GMTSNM85)="") S GMTSPHDR("NMSSN")="SENSITIVE DATA SUPPRESSION FAILED, CONTACT IRM IF PERSISTENT",GMTSPHDR("DOB")=$JUSTIFY(" ",$L($G(GMTSPHDR("DOB")))) Q
D:$G(GMTSGUI)=1 GUISTRP
I $G(GMTSGUI)=0&($E(IOST,1,2)'="C-")&$G(GMTSUPRT)>0 D
.D:+$G(GMTSUPRT)=1 FOURDIG
.D:+$G(GMTSUPRT)=2 NOSSN
E D:$G(OBJ)'=""
.D:+$G(GMTSUPRT)=1 FOURDIG
.D:+$G(GMTSUPRT)=2 NOSSN
Q
GUISTRP ;if GUI is printing remove dob and adjust ssn as needed
I '$D(GMTSUHF)!(+$G(GMTSUHF)'=0) Q
D:+$G(GMTSUPRT)=1 FOURDIG
D:+$G(GMTSUPRT)=2 NOSSN
Q
FOURDIG ;create 4 digit ssn
S GMTSPHDR("DOB")=$JUSTIFY(" ",$L($G(GMTSPHDR("DOB")))) ;replace data w/15 spaces to maintain formatting
D GT4SSN
S GMTSPHDR("NMSSN")=$G(GMTSNM85)_$JUSTIFY(" ",$L($G(GMTSSN85))-5)_$G(GMTS4DIG) ;concat name, 4 dig ssn, and spaces for formatting
Q
NOSSN ;remove ssn
S GMTSPHDR("DOB")=$JUSTIFY(" ",$L($G(GMTSPHDR("DOB")))) ;replace data w/15 spaces to maintain formatting
S GMTSPHDR("NMSSN")=$G(GMTSNM85)
Q
GT4SSN ;; get 4 digit ssn
I $G(GMTSSN85)'["P" D
.S GMTS4DIG=$E($G(GMTSSN85),($L($G(GMTSSN85))-3),$L($G(GMTSSN85))) ;create 4 dig ssn
E S GMTS4DIG=$E($G(GMTSSN85),($L($G(GMTSSN85))-4),$L($G(GMTSSN85))) ;create 4 dig pseudo ssn
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSHCPR 3642 printed Nov 22, 2024@17:07:45 Page 2
GMTSHCPR ;BP/WAT - Sensitive Data in HS Type Hard Copies ; 3/29/07
+1 ;;2.7; Health Summary; **85**; Oct 20, 1995;Build 24
+2 ;
+3 ;EXTERNAL REFERENCES
+4 ; ICR 2198 $$BROKER^XWBLIB
+5 ; ICR 10078 OP^XQCHK
+6 ; $$HF^GMTSU
+7 ; DEM^GMTSU
+8 ;
+9 ; DFN, GMTSSN, GMTSPNM, GMTSPHDR, GMTSTYP, OBJ and VADM variables are set elsewhere in GMTS* code and therefore are not Newed here
+10 ; DFN - of the current pt - will only be used here if VADM and GMTSSN/GMTSPNM are all null
+11 ; GMTSSN - SSN of current pt
+12 ; GMTSPNM - name of patient: LAST,FIRST
+13 ;GMTSPHDR - array that is expected to hold pt name, ssn, dob, etc for the report header. Values are set in DEM^GMTSU and should exist
+14 ;at the time this routine is called.
+15 ;GMTSTYP - IEN of health summary type and is set prior to this routine
+16 ;;OBJ - set when dealing with a HS object and should exist at the time this routine is called
+17 ;VADM - pt data array set in DEM^GMTSU - should exist at the time of execution.
+18 ;GMTSSN85 = SSN value from pt data array VADM(2)
+19 ;GMTSNM85 = pt name from pt data array VADM(1)
+20 ;GMTSUPRT - internal value of SUPPRESS SENSITIVE DATA PRINT field in file 142
+21 ;set of codes
+22 ;0 or null = do nothing
+23 ;1 = 4 digit ssn/no dob
+24 ;2 = no ssn/no dob
+25 ;GMTSGUI - result of $$BROKER^XWBLIB - 1 = Broker or VistALink GUI; 0 = not
+26 ;GMTSUHF - result of $$HF^GMTSU - 0=gui printing; 1=not
+27 ;GMTS4DIG - local variable for 4-digit ssn
EN ;;
+1 NEW GMTSUPRT,GMTSGUI,GMTSUHF,GMTS4DIG,GMTSSN85,GMTSNM85
+2 ;abort if current option is Network Health Exchange-related
+3 NEW XQOPT
DO OP^XQCHK
if $PIECE($GET(XQOPT),U)["AFJX"
QUIT
+4 if $GET(GMTSTYP)=""
QUIT
SET GMTSUPRT=$GET(^GMT(142,GMTSTYP,2))
+5 SET GMTSGUI=$$BROKER^XWBLIB
+6 SET GMTSUHF=$$HF^GMTSU
+7 ; store SSN and Name into local variables
+8 SET GMTSSN85=$SELECT($LENGTH($GET(VADM(2)))>0:$PIECE($GET(VADM(2)),U,2),1:$GET(GMTSSN))
+9 SET GMTSNM85=$SELECT($LENGTH($GET(VADM(1)))>0:$GET(VADM(1)),1:$GET(GMTSPNM))
+10 ;VADM can be killed by processing some clinical reminder components so make sure we have SSN and Name values
+11 ;If GMTSSN or GMTSPNM are still undefined, refresh VADM
+12 IF $GET(GMTSSN85)=""!($GET(GMTSNM85)="")
Begin DoDot:1
+13 ;if you get here and DFN is somehow null, there won't be any pt name or ssn in the report header
if $GET(DFN)=""
QUIT
DO DEM^GMTSU
+14 IF $LENGTH($GET(VADM(2)))>0
SET GMTSSN85=$PIECE($GET(VADM(2)),U,2)
+15 IF $LENGTH($GET(VADM(1)))>0
SET GMTSNM85=$GET(VADM(1))
End DoDot:1
+16 ;if either is null by here, artifically suppress DOB, put info message in Name/SSN variable, and QUIT
+17 IF $GET(GMTSSN85)=""!($GET(GMTSNM85)="")
SET GMTSPHDR("NMSSN")="SENSITIVE DATA SUPPRESSION FAILED, CONTACT IRM IF PERSISTENT"
SET GMTSPHDR("DOB")=$JUSTIFY(" ",$LENGTH($GET(GMTSPHDR("DOB"))))
QUIT
+18 if $GET(GMTSGUI)=1
DO GUISTRP
+19 IF $GET(GMTSGUI)=0&($EXTRACT(IOST,1,2)'="C-")&$GET(GMTSUPRT)>0
Begin DoDot:1
+20 if +$GET(GMTSUPRT)=1
DO FOURDIG
+21 if +$GET(GMTSUPRT)=2
DO NOSSN
End DoDot:1
+22 IF '$TEST
if $GET(OBJ)'=""
Begin DoDot:1
+23 if +$GET(GMTSUPRT)=1
DO FOURDIG
+24 if +$GET(GMTSUPRT)=2
DO NOSSN
End DoDot:1
+25 QUIT
GUISTRP ;if GUI is printing remove dob and adjust ssn as needed
+1 IF '$DATA(GMTSUHF)!(+$GET(GMTSUHF)'=0)
QUIT
+2 if +$GET(GMTSUPRT)=1
DO FOURDIG
+3 if +$GET(GMTSUPRT)=2
DO NOSSN
+4 QUIT
FOURDIG ;create 4 digit ssn
+1 ;replace data w/15 spaces to maintain formatting
SET GMTSPHDR("DOB")=$JUSTIFY(" ",$LENGTH($GET(GMTSPHDR("DOB"))))
+2 DO GT4SSN
+3 ;concat name, 4 dig ssn, and spaces for formatting
SET GMTSPHDR("NMSSN")=$GET(GMTSNM85)_$JUSTIFY(" ",$LENGTH($GET(GMTSSN85))-5)_$GET(GMTS4DIG)
+4 QUIT
NOSSN ;remove ssn
+1 ;replace data w/15 spaces to maintain formatting
SET GMTSPHDR("DOB")=$JUSTIFY(" ",$LENGTH($GET(GMTSPHDR("DOB"))))
+2 SET GMTSPHDR("NMSSN")=$GET(GMTSNM85)
+3 QUIT
GT4SSN ;; get 4 digit ssn
+1 IF $GET(GMTSSN85)'["P"
Begin DoDot:1
+2 ;create 4 dig ssn
SET GMTS4DIG=$EXTRACT($GET(GMTSSN85),($LENGTH($GET(GMTSSN85))-3),$LENGTH($GET(GMTSSN85)))
End DoDot:1
+3 ;create 4 dig pseudo ssn
IF '$TEST
SET GMTS4DIG=$EXTRACT($GET(GMTSSN85),($LENGTH($GET(GMTSSN85))-4),$LENGTH($GET(GMTSSN85)))
+4 QUIT
