- 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 Feb 19, 2025@00:11:18 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