DGYPSDE3.m

DGYPSDE3 ;ALB/RMO - Classification Cont. - Check Out ;31 MAR 1993 3:10 pm

 ;;5.2;REGISTRATION;**27**;JUL 29,1992

 ;; ;

 ;

BLD(DFN,DGYPY) ; -- build class array

 I $$AO(DFN) S DGYPCL(1)=""

 I $$IR(DFN) S DGYPCL(2)=""

 I $$SC(DFN) S DGYPCL(3)=""

 I $$EC(DFN) S DGYPCL(4)=""

 Q

 ;

AO(DFN) ;Agent Orange Exposure Screen

 ; Input  -- DFN      Patient file IEN  

 ; Output -- Ask Agent Orange Exposure Classification

 ;   1=Yes and 0=No

 N DGYPELG,Y

 I $P($G(^DPT(DFN,.321)),"^",2)'="Y" G AOQ

 S DGYPELG=$P($G(^DIC(8,+$G(^DPT(DFN,.36)),0)),"^",9)

 I DGYPELG=5!(DGYPELG=3) S Y=1

AOQ Q +$G(Y)

 ;

IR(DFN) ;Ionizing Radiation Exposure Screen

 ; Input  -- DFN      Patient file IEN  

 ; Output -- Ask Ionizing Radiation Exposure Classification

 ;   1=Yes and 0=No

 N DGYPELG,Y

 I $P($G(^DPT(DFN,.321)),"^",3)'="Y" G IRQ

 S DGYPELG=$P($G(^DIC(8,+$G(^DPT(DFN,.36)),0)),"^",9)

 I DGYPELG=5!(DGYPELG=3) S Y=1

IRQ Q +$G(Y)

 ;

SC(DFN) ;Service Connected Condition Screen

 ; Input  -- DFN      Patient file IEN  

 ; Output -- Ask Service Connected Condition Classification

 ;   1=Yes and 0=No

 N Y

 I "^1^3^"[("^"_$P($G(^DIC(8,+$G(^DPT(DFN,.36)),0)),"^",9)_"^") S Y=1

SCQ Q +$G(Y)

 ;

EC(DFN) ;Environmental Contaminant Exposure Screen

 ; Input  -- DFN      Patient file IEN  

 ; Output -- Ask Environmental Contaminant Exposure Classification

 ;   1=Yes and 0=No

 N Y

 I $P($G(^DPT(DFN,.322)),"^",10)="Y" S Y=1

ECQ Q +$G(Y)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGYPSDE3   1452     printed  Apr 09, 2024@21:59:10                                                                                                                                                                                                    Page 2

DGYPSDE3  ;ALB/RMO - Classification Cont. - Check Out ;31 MAR 1993 3:10 pm

 +1       ;;5.2;REGISTRATION;**27**;JUL 29,1992

 +2       ;; ;

 +3       ;

BLD(DFN,DGYPY) ; -- build class array

 +1        IF $$AO(DFN)

               SET DGYPCL(1)=""

 +2        IF $$IR(DFN)

               SET DGYPCL(2)=""

 +3        IF $$SC(DFN)

               SET DGYPCL(3)=""

 +4        IF $$EC(DFN)

               SET DGYPCL(4)=""

 +5        QUIT 

 +6       ;

AO(DFN)   ;Agent Orange Exposure Screen

 +1       ; Input  -- DFN      Patient file IEN  

 +2       ; Output -- Ask Agent Orange Exposure Classification

 +3       ;   1=Yes and 0=No

 +4        NEW DGYPELG,Y

 +5        IF $PIECE($GET(^DPT(DFN,.321)),"^",2)'="Y"

               GOTO AOQ

 +6        SET DGYPELG=$PIECE($GET(^DIC(8,+$GET(^DPT(DFN,.36)),0)),"^",9)

 +7        IF DGYPELG=5!(DGYPELG=3)

               SET Y=1

AOQ        QUIT +$GET(Y)

 +1       ;

IR(DFN)   ;Ionizing Radiation Exposure Screen

 +1       ; Input  -- DFN      Patient file IEN  

 +2       ; Output -- Ask Ionizing Radiation Exposure Classification

 +3       ;   1=Yes and 0=No

 +4        NEW DGYPELG,Y

 +5        IF $PIECE($GET(^DPT(DFN,.321)),"^",3)'="Y"

               GOTO IRQ

 +6        SET DGYPELG=$PIECE($GET(^DIC(8,+$GET(^DPT(DFN,.36)),0)),"^",9)

 +7        IF DGYPELG=5!(DGYPELG=3)

               SET Y=1

IRQ        QUIT +$GET(Y)

 +1       ;

SC(DFN)   ;Service Connected Condition Screen

 +1       ; Input  -- DFN      Patient file IEN  

 +2       ; Output -- Ask Service Connected Condition Classification

 +3       ;   1=Yes and 0=No

 +4        NEW Y

 +5        IF "^1^3^"[("^"_$PIECE($GET(^DIC(8,+$GET(^DPT(DFN,.36)),0)),"^",9)_"^")

               SET Y=1

SCQ        QUIT +$GET(Y)

 +1       ;

EC(DFN)   ;Environmental Contaminant Exposure Screen

 +1       ; Input  -- DFN      Patient file IEN  

 +2       ; Output -- Ask Environmental Contaminant Exposure Classification

 +3       ;   1=Yes and 0=No

 +4        NEW Y

 +5        IF $PIECE($GET(^DPT(DFN,.322)),"^",10)="Y"

               SET Y=1

ECQ        QUIT +$GET(Y)