TIUPXAPS ; SLC/JER - Ask Service Connection Question(s) ;6/11/98@14:30:28
;;1.0;TEXT INTEGRATION UTILITIES;**20,107,126**;Jun 20, 1997
SCASK(TIUY,DFN,TIU) ; Ask Service Connection stuff
N TIUPRMT,TIUSC,TIUDFLT,TIUHLP
D SCCOND^PXUTLSCC(DFN,+$G(TIU("EDT")),+$G(TIU("LOC")),+$G(TIU("VISIT")),.TIUSC)
; Don't ask if none of the above
I '+$G(TIUSC("SC")),'+$G(TIUSC("AO")),'+$G(TIUSC("IR")),'+$G(TIUSC("EC")),'+$G(TIUSC("MST")),'+$G(TIUSC("HNC")) Q
W !!,"Was this encounter related to any of the following:",!
I +$G(TIUSC("SC")) D
. F D Q:TIUY("SC")]""!$D(DTOUT)
. . N DUOUT,DIROUT,DIRUT
. . S TIUDFLT=$P(TIUSC("SC"),U,2)
. . S TIUDFLT=$S(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
. . S TIUPRMT="Service Connected Condition"
. . S TIUY("SC")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT,"^D SC^SDCO23(DFN)")
. . I $S(TIUY("SC")="":1,TIUY("SC")="^":1,1:0) S TIUY("SC")="" W !,$C(7),"(Y)ES or (N)o Required." W:$D(DUOUT) " An '^' is not allowed."
I +$G(TIUY("SC"))>0 S (TIUY("AO"),TIUY("IR"),TIUY("EC"))=""
I +$G(TIUSC("AO")),+$G(TIUY("SC"))'>0 D
. F D Q:TIUY("AO")]""!$D(DTOUT)
. . N DUOUT,DIROUT,DIRUT
. . S TIUDFLT=$P(TIUSC("AO"),U,2)
. . S TIUDFLT=$S(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
. . S TIUPRMT=" Agent Orange Exposure"
. . S TIUY("AO")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT)
. . I +$P($G(TIUDPRM(0)),U,15)=0,(TIUY("AO")="") S TIUY("AO")="^NOT ANSWERED" Q
. . I $S(TIUY("AO")="":1,TIUY("AO")="^":1,1:0) S TIUY("AO")="" W !,$C(7),?7,"(Y)ES or (N)o Required." W:$D(DUOUT) " An '^' is not allowed."
I +$G(TIUSC("IR")),+$G(TIUY("SC"))'>0 D
. F D Q:TIUY("IR")]""!$D(DTOUT)
. . N DUOUT,DIROUT,DIRUT
. . S TIUDFLT=$P(TIUSC("IR"),U,2)
. . S TIUDFLT=$S(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
. . S TIUPRMT="Ionizing Radiation Exposure"
. . S TIUY("IR")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT)
. . I +$P($G(TIUDPRM(0)),U,15)=0,(TIUY("IR")="") S TIUY("IR")="^NOT ANSWERED" Q
. . I $S(TIUY("IR")="":1,TIUY("IR")="^":1,1:0) S TIUY("IR")="" W !,$C(7),"(Y)ES or (N)o Required." W:$D(DUOUT) " An '^' is not allowed."
I +$G(TIUSC("EC")),+$G(TIUY("SC"))'>0 D
. F D Q:TIUY("EC")]""!$D(DTOUT)
. . N DUOUT,DIROUT,DIRUT
. . S TIUDFLT=$P(TIUSC("EC"),U,2)
. . S TIUDFLT=$S(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
. . S TIUPRMT=" Environmental Contaminants"
. . S TIUY("EC")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT)
. . I +$P($G(TIUDPRM(0)),U,15)=0,(TIUY("EC")="") S TIUY("EC")="^NOT ANSWERED" Q
. . I $S(TIUY("EC")="":1,TIUY("EC")="^":1,1:0) S TIUY("EC")="" W !,$C(7),?2,"(Y)ES or (N)o Required." W:$D(DUOUT) " An '^' is not allowed."
I +$G(TIUSC("MST")) D
. F D Q:TIUY("MST")]""!$D(DTOUT)
. . N DUOUT,DIROUT,DIRUT
. . S TIUDFLT=$P(TIUSC("MST"),U,2)
. . S TIUDFLT=$S(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
. . S TIUPRMT=" MST"
. . S TIUHLP="Enter 'Y' or 'N' if treatment was related to Military Sexual Trauma."
. . S TIUY("MST")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT,TIUHLP)
. . I $S(TIUY("MST")="":1,TIUY("MST")="^":1,1:0) S TIUY("MST")="" W !,$C(7),?6,"(Y)ES or (N)o Required." W:$D(DUOUT) " An '^' is not allowed."
I +$G(TIUSC("HNC")) D
. F D Q:TIUY("HNC")]""!$D(DTOUT)
. . N DUOUT,DIROUT,DIRUT
. . S TIUDFLT=$P(TIUSC("HNC"),U,2)
. . S TIUDFLT=$S(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
. . S TIUPRMT=" Head and/or Neck Cancer"
. . S TIUHLP="Enter 'Y' or 'N' if treatment was related to Head and/or Neck Cancer."
. . S TIUY("HNC")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT,TIUHLP)
. . I $S(TIUY("HNC")="":1,TIUY("HNC")="^":1,1:0) S TIUY("HNC")="" W !,$C(7),?6,"(Y)ES or (N)o Required." W:$D(DUOUT) " An '^' is not allowed."
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPXAPS 3617 printed Dec 13, 2024@02:44:49 Page 2
TIUPXAPS ; SLC/JER - Ask Service Connection Question(s) ;6/11/98@14:30:28
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**20,107,126**;Jun 20, 1997
SCASK(TIUY,DFN,TIU) ; Ask Service Connection stuff
+1 NEW TIUPRMT,TIUSC,TIUDFLT,TIUHLP
+2 DO SCCOND^PXUTLSCC(DFN,+$GET(TIU("EDT")),+$GET(TIU("LOC")),+$GET(TIU("VISIT")),.TIUSC)
+3 ; Don't ask if none of the above
+4 IF '+$GET(TIUSC("SC"))
IF '+$GET(TIUSC("AO"))
IF '+$GET(TIUSC("IR"))
IF '+$GET(TIUSC("EC"))
IF '+$GET(TIUSC("MST"))
IF '+$GET(TIUSC("HNC"))
QUIT
+5 WRITE !!,"Was this encounter related to any of the following:",!
+6 IF +$GET(TIUSC("SC"))
Begin DoDot:1
+7 FOR
Begin DoDot:2
+8 NEW DUOUT,DIROUT,DIRUT
+9 SET TIUDFLT=$PIECE(TIUSC("SC"),U,2)
+10 SET TIUDFLT=$SELECT(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
+11 SET TIUPRMT="Service Connected Condition"
+12 SET TIUY("SC")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT,"^D SC^SDCO23(DFN)")
+13 IF $SELECT(TIUY("SC")="":1,TIUY("SC")="^":1,1:0)
SET TIUY("SC")=""
WRITE !,$CHAR(7),"(Y)ES or (N)o Required."
if $DATA(DUOUT)
WRITE " An '^' is not allowed."
End DoDot:2
if TIUY("SC")]""!$DATA(DTOUT)
QUIT
End DoDot:1
+14 IF +$GET(TIUY("SC"))>0
SET (TIUY("AO"),TIUY("IR"),TIUY("EC"))=""
+15 IF +$GET(TIUSC("AO"))
IF +$GET(TIUY("SC"))'>0
Begin DoDot:1
+16 FOR
Begin DoDot:2
+17 NEW DUOUT,DIROUT,DIRUT
+18 SET TIUDFLT=$PIECE(TIUSC("AO"),U,2)
+19 SET TIUDFLT=$SELECT(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
+20 SET TIUPRMT=" Agent Orange Exposure"
+21 SET TIUY("AO")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT)
+22 IF +$PIECE($GET(TIUDPRM(0)),U,15)=0
IF (TIUY("AO")="")
SET TIUY("AO")="^NOT ANSWERED"
QUIT
+23 IF $SELECT(TIUY("AO")="":1,TIUY("AO")="^":1,1:0)
SET TIUY("AO")=""
WRITE !,$CHAR(7),?7,"(Y)ES or (N)o Required."
if $DATA(DUOUT)
WRITE " An '^' is not allowed."
End DoDot:2
if TIUY("AO")]""!$DATA(DTOUT)
QUIT
End DoDot:1
+24 IF +$GET(TIUSC("IR"))
IF +$GET(TIUY("SC"))'>0
Begin DoDot:1
+25 FOR
Begin DoDot:2
+26 NEW DUOUT,DIROUT,DIRUT
+27 SET TIUDFLT=$PIECE(TIUSC("IR"),U,2)
+28 SET TIUDFLT=$SELECT(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
+29 SET TIUPRMT="Ionizing Radiation Exposure"
+30 SET TIUY("IR")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT)
+31 IF +$PIECE($GET(TIUDPRM(0)),U,15)=0
IF (TIUY("IR")="")
SET TIUY("IR")="^NOT ANSWERED"
QUIT
+32 IF $SELECT(TIUY("IR")="":1,TIUY("IR")="^":1,1:0)
SET TIUY("IR")=""
WRITE !,$CHAR(7),"(Y)ES or (N)o Required."
if $DATA(DUOUT)
WRITE " An '^' is not allowed."
End DoDot:2
if TIUY("IR")]""!$DATA(DTOUT)
QUIT
End DoDot:1
+33 IF +$GET(TIUSC("EC"))
IF +$GET(TIUY("SC"))'>0
Begin DoDot:1
+34 FOR
Begin DoDot:2
+35 NEW DUOUT,DIROUT,DIRUT
+36 SET TIUDFLT=$PIECE(TIUSC("EC"),U,2)
+37 SET TIUDFLT=$SELECT(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
+38 SET TIUPRMT=" Environmental Contaminants"
+39 SET TIUY("EC")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT)
+40 IF +$PIECE($GET(TIUDPRM(0)),U,15)=0
IF (TIUY("EC")="")
SET TIUY("EC")="^NOT ANSWERED"
QUIT
+41 IF $SELECT(TIUY("EC")="":1,TIUY("EC")="^":1,1:0)
SET TIUY("EC")=""
WRITE !,$CHAR(7),?2,"(Y)ES or (N)o Required."
if $DATA(DUOUT)
WRITE " An '^' is not allowed."
End DoDot:2
if TIUY("EC")]""!$DATA(DTOUT)
QUIT
End DoDot:1
+42 IF +$GET(TIUSC("MST"))
Begin DoDot:1
+43 FOR
Begin DoDot:2
+44 NEW DUOUT,DIROUT,DIRUT
+45 SET TIUDFLT=$PIECE(TIUSC("MST"),U,2)
+46 SET TIUDFLT=$SELECT(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
+47 SET TIUPRMT=" MST"
+48 SET TIUHLP="Enter 'Y' or 'N' if treatment was related to Military Sexual Trauma."
+49 SET TIUY("MST")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT,TIUHLP)
+50 IF $SELECT(TIUY("MST")="":1,TIUY("MST")="^":1,1:0)
SET TIUY("MST")=""
WRITE !,$CHAR(7),?6,"(Y)ES or (N)o Required."
if $DATA(DUOUT)
WRITE " An '^' is not allowed."
End DoDot:2
if TIUY("MST")]""!$DATA(DTOUT)
QUIT
End DoDot:1
+51 IF +$GET(TIUSC("HNC"))
Begin DoDot:1
+52 FOR
Begin DoDot:2
+53 NEW DUOUT,DIROUT,DIRUT
+54 SET TIUDFLT=$PIECE(TIUSC("HNC"),U,2)
+55 SET TIUDFLT=$SELECT(TIUDFLT=1:"YES",TIUDFLT=0:"NO",1:"")
+56 SET TIUPRMT=" Head and/or Neck Cancer"
+57 SET TIUHLP="Enter 'Y' or 'N' if treatment was related to Head and/or Neck Cancer."
+58 SET TIUY("HNC")=$$READ^TIUU("YO",TIUPRMT,TIUDFLT,TIUHLP)
+59 IF $SELECT(TIUY("HNC")="":1,TIUY("HNC")="^":1,1:0)
SET TIUY("HNC")=""
WRITE !,$CHAR(7),?6,"(Y)ES or (N)o Required."
if $DATA(DUOUT)
WRITE " An '^' is not allowed."
End DoDot:2
if TIUY("HNC")]""!$DATA(DTOUT)
QUIT
End DoDot:1
+60 QUIT
