Routine: IBDFN

IBDFN ;ALB/CJM - ENCOUNTER FORM - INTERFACE ROUTINES ;NOV 16,1992

 ;;3.0;AUTOMATED INFO COLLECTION SYS;**11,36**;APR 24, 1997

VADPT ;returns patient demographic data

 ;input variables - DFN

 N ARY

 S ARY="^TMP(""IB"",$J,""INTERFACES"",+$G(DFN))"

 D DEM^VADPT

 I VAERR S (@ARY@("DPT PATIENT'S NAME"),@ARY@("DPT PATIENT'S DOB/AGE"),@ARY@("DPT PATIENT'S SEX"),@ARY@("DPT PATIENT'S PID"),@ARY@("DPT PATIENT'S MARITAL STATUS"))=""  Q

 S @ARY@("DPT PATIENT'S NAME")=VADM(1),@ARY@("DPT PATIENT'S SEX")=$P(VADM(5),"^",2)_"^"_$E($P(VADM(5),"^",2)),@ARY@("DPT PATIENT'S DOB/AGE")=$P(VADM(3),"^",2)_"^"_VADM(4),@ARY@("DPT PATIENT'S PID")=VA("PID")

 S @ARY@("DPT PATIENT'S MARITAL STATUS")=$P(VADM(10),"^",2)

 S @ARY@("DPT PATIENT'S RACE")=$P(VADM(8),"^",2)

 S @ARY@("DPT PATIENT'S REMARKS")=$P($G(^DPT(+$G(DFN),0)),"^",10)

 K VADM,VA,VAERR,VAEL

EMPLMNT ;returns patient's employment status

 ;input variables - DFN

 D OPD^VADPT

 I VAERR S @IBARY=""  Q

 S @IBARY=$P(VAPD(7),"^",2)

 K VAPD,VA,VAERR,VAEL

DATE(Y) ; Y=date in FM form, this function translates the date to its

 ;external form

 D DD^%DT

Q Y

ELIG ;for output of eligibility information & service connected conditions

 N COUNT,ARY,VAEL,VAERR,NODE0,COND,DESCR,PERC,EC,VASV,DATA,I,SARY

 S ARY="^TMP(""IB"",$J,""INTERFACES"",+$G(DFN))"

 S SARY="^TMP(""IB"",$J,""INTERFACES"")"

 D ELIG^VADPT

 I VAERR F I=1:1:6 S VAEL(I)=""

 S PERC=$P(VAEL(3),"^",2),PERC=$S(PERC="":"",1:$J(PERC,3,0))

 S @ARY@("DPT PATIENT ELIGIBILITY DATA")=$P(VAEL(1),"^",2)_"^"_$P(VAEL(2),"^",2)_"^"_$S(VAEL(3):"YES",VAEL(3)=0:"NO",1:"")_"^"_$S(VAEL(4):"YES",VAEL(4)=0:"NO",1:"")_"^"_$S(VAEL(5):"YES",VAEL(5)=0:"NO",1:"")_"^"_$P(VAEL(6),"^",2)_"^"_PERC

 S @ARY@("DPT SC HIDDEN LABELS")=$S(((+VAEL(3))!($O(^DPT(DFN,.372,0)))):"%^% - SERVICE CONNECTED^SERVICE CONNECTED:^SC CONDITIONS:^S/C",1:"  ^  ^  ^  ^  ")

 I $O(^DPT(DFN,.372,0)),VAEL(4)!$$GET1^DIQ(391,+VAEL(6),.02) S (COUNT,COND)=0 F  S COND=$O(^DPT(DFN,.372,COND)) Q:COND=""  D

 .S NODE0=$G(^DPT(DFN,.372,COND,0)) Q:'$P(NODE0,"^",3)  S DESCR=$G(^DIC(31,+NODE0,0)),COUNT=COUNT+1

 .S PERC=$P(NODE0,"^",2),PERC=$S(PERC="":"",1:$J(PERC,3,0))

 .S @SARY@("DPT PATIENT'S SC CONDITIONS",COUNT)=$S($P(DESCR,"^",4)'="":$P(DESCR,"^",4),1:$P(DESCR,"^",1))_"^"_PERC_"^"_PERC_"%"_"^"_PERC_"%SC"_"^"_PERC_"% - SERVICE CONNECTED"

 ;get service data

 D SVC^VADPT

 I VAERR S DATA="^^^^"

 E  S DATA=$S(VASV(1):"YES",1:"NO")_"^"_$S(VASV(2):"YES",1:"NO")_"^"_$S(VASV(3):"YES",1:"NO")_"^"_$S(VASV(4):"YES",1:"NO")_"^"_$S(VASV(5):"YES",1:"NO")

 ;get the persian gulf indicator - not returned by VADPT

 S EC=$$EC^SDCO22(DFN,0)

 ;S EC=$P($G(^DPT(DFN,.322)),"^",13)

 S @ARY@("DPT SERVICE HISTORY RELATED DATA")=DATA_"^"_$S(EC=1:"YES",1:"NO")

 ;displays questions concerning treatment related to service only

 ;if they apply

 S DATA=$S(VAEL(3):"Was treatment for a SC condition? __ YES __ NO",1:"")_"^"

 S DATA=DATA_$S(VASV(2):"Was treatment related to exposure to Agent Orange? __ YES __ NO",1:"")_"^"

 S DATA=DATA_$S(VASV(3):"Was treatment related to exposure to Ionization Radiation? __ YES __ NO",1:"")

 S @ARY@("DPT SC TREATMENT QUESTIONS")=DATA

 ;note: must store the 4th question in an annex node

 S DATA="^^^"_$S(EC=1:"Was treatment related to exposure to Environmental Contaminants? __ YES __ NO",1:"")_"^"

 I VASV(2)!VASV(3)!(EC=1) D

 .S DATA=DATA_"Was treatment related to: "_$S(VASV(2):"AO __ ",1:"")_$S(VASV(3):"IR __ ",1:"")_$S(EC=1:"EC __ ",1:"")

 S @ARY@("DPT SC TREATMENT QUESTIONS",1)=DATA

BLANKS ;returns NOTHING for printing blank lines

 S @IBARY=""

LABELS ;returns NOTHING for printing labels only, ie, no data

 S @IBARY=""

ELIG1 ;for output of hidden service connected conditions

 N COUNT,ARY,VAEL,VAERR,VASV,EC

 S ARY="^TMP(""IB"",$J,""INTERFACES"")",COUNT=0

 D ELIG^VADPT

 I 'VAERR,(VAEL(3)) S COUNT=COUNT+1,@ARY@("DPT SC HIDDEN TREATMENT QUESTIONS",COUNT)="SC^Was treatment for an SC condition?"

 ;get service data

 D SVC^VADPT

 I 'VAERR D

 .I VASV(2) S COUNT=COUNT+1,@ARY@("DPT SC HIDDEN TREATMENT QUESTIONS",COUNT)="AO^Was treatment related to exposure to Agent Orange?"

 .I VASV(3) S COUNT=COUNT+1,@ARY@("DPT SC HIDDEN TREATMENT QUESTIONS",COUNT)="IR^Was treatment related to exposure to Ionization Radiation?"

 ;get the persian gulf indicator - not returned by VADPT

 ;S EC=$P($G(^DPT(DFN,.322)),"^",13)

 I $$EC^SDCO22(DFN,0) S COUNT=COUNT+1,@ARY@("DPT SC HIDDEN TREATMENT QUESTIONS",COUNT)="EC^Was treatment related to exposure to Environmental Contaminants?"

ELIG2 ; -- for output of hidden classification questions

 N COUNT,ARY

 I $G(IBCLINIC) I '$$REQ^IBDFDE0(DFN,IBAPPT,IBCLINIC,0) Q

 S ARY="^TMP(""IB"",$J,""INTERFACES"")",COUNT=0

 I $$SC^SDCO22(DFN,0) D SETARY(ARY,.COUNT,"SC^Was treatment for an SC condition?")

 I $$AO^SDCO22(DFN,0) D SETARY(ARY,.COUNT,"AO^Was treatment related to exposure to Agent Orange?")

 I $$IR^SDCO22(DFN,0) D SETARY(ARY,.COUNT,"IR^Was treatment related to exposure to Ionization Radiation?")

 I $$EC^SDCO22(DFN,0) D SETARY(ARY,.COUNT,"EC^Was treatment related to exposure to Environmental Contaminants?")

ELIG2Q Q

SETARY(ARY,CNT,TEXT) ; -- build array

 S CNT=CNT+1

 S @ARY@("DPT SC HIDDEN TREATMENT QUESTIONS",CNT)=TEXT

ELIGMST ;-- Adds the MST indicator to existing hidden classification questions

 ;   (patch IBD*3*36)

 N ARY,DATA,MST,MSTSTAT

 D ELIG

 S ARY="^TMP(""IB"",$J,""INTERFACES"",+$G(DFN))"

 S MST=$$MST^SDCO22(DFN,0)

 S MSTSTAT=$P($$GETSTAT^DGMSTAPI(DFN),"^",2),MSTSTAT=$S(MSTSTAT="Y":"YES",MSTSTAT="N":"NO",MSTSTAT="U":"UNKNOWN",MSTSTAT="D":"DECLINED",1:"")

 I $D(@ARY@("DPT SERVICE HISTORY RELATED DATA")) S @ARY@("DPT SERVICE HISTORY RELATED DATA (MST)")=$G(@ARY@("DPT SERVICE HISTORY RELATED DATA"))_"^"_MSTSTAT

 I $D(@ARY@("DPT SC TREATMENT QUESTIONS")) S @ARY@("DPT SC TREATMENT QUESTIONS (MST)")=$G(@ARY@("DPT SC TREATMENT QUESTIONS"))

 I $D(@ARY@("DPT SC TREATMENT QUESTIONS",1)) D

 . S DATA=$G(@ARY@("DPT SC TREATMENT QUESTIONS",1))

 . I MST D

 .. S DATA=DATA_$S($L($P(DATA,"^",5))>1:"MST __",1:"Was treatment related to: MST __")

 .. S $P(DATA,"^",6)=$S(MST:"Was treatment related to MST? __ YES __ NO",1:"")

 . S @ARY@("DPT SC TREATMENT QUESTIONS (MST)",1)=DATA

ELIG1MST ;-- Similar to ELIG1 but adds MST indicator (if applicable) to hidden classification questions array

 K ^TMP("IB",$J,"INTERFACES","DPT SC HIDDEN TREATMENT QUESTIONS")

 K ^TMP("IB",$J,"INTERFACES","DPT SC HIDDEN TREATMENT QUESTIONS (MST)")

 D ELIG1

 D ELIGSET

ELIG2MST ;-- Similar to ELIG2 but adds MST indicator (if applicable) to hidden classification questions array

 K ^TMP("IB",$J,"INTERFACES","DPT SC HIDDEN TREATMENT QUESTIONS")

 K ^TMP("IB",$J,"INTERFACES","DPT SC HIDDEN TREATMENT QUESTIONS (MST)")

 D ELIG2

 D ELIGSET

ELIGSET ;-- Checks for MST and adds MST question to hidden classification array

 N ARY,COUNT,I

 S ARY="^TMP(""IB"",$J,""INTERFACES"")"

 S (COUNT,I)=0

 M @ARY@("DPT SC HIDDEN TREATMENT QUESTIONS (MST)")=@ARY@("DPT SC HIDDEN TREATMENT QUESTIONS")

 I $$MST^SDCO22(DFN,0) D

 . F  S I=$O(@ARY@("DPT SC HIDDEN TREATMENT QUESTIONS (MST)",I)) Q:'I  S COUNT=I

 . S COUNT=COUNT+1,@ARY@("DPT SC HIDDEN TREATMENT QUESTIONS (MST)",COUNT)="MST^Was treatment related to MST?  (Ask provider only)"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDFN   7371     printed  Mar 13, 2025@21:57:48                                                                                                                                                                                                       Page 2

IBDFN     ;ALB/CJM - ENCOUNTER FORM - INTERFACE ROUTINES ;NOV 16,1992

 +1       ;;3.0;AUTOMATED INFO COLLECTION SYS;**11,36**;APR 24, 1997

VADPT     ;returns patient demographic data

 +1       ;input variables - DFN

 +2        NEW ARY

 +3        SET ARY="^TMP(""IB"",$J,""INTERFACES"",+$G(DFN))"

 +4        DO DEM^VADPT

 +5        IF VAERR

               SET (@ARY@("DPT PATIENT'S NAME"),@ARY@("DPT PATIENT'S DOB/AGE"),@ARY@("DPT PATIENT'S SEX"),@ARY@("DPT PATIENT'S PID"),@ARY@("DPT PATIENT'S MARITAL STATUS"))=""

               QUIT

 +6        SET @ARY@("DPT PATIENT'S NAME")=VADM(1)

           SET @ARY@("DPT PATIENT'S SEX")=$PIECE(VADM(5),"^",2)_"^"_$EXTRACT($PIECE(VADM(5),"^",2))

           SET @ARY@("DPT PATIENT'S DOB/AGE")=$PIECE(VADM(3),"^",2)_"^"_VADM(4)

           SET @ARY@("DPT PATIENT'S PID")=VA("PID")

 +7        SET @ARY@("DPT PATIENT'S MARITAL STATUS")=$PIECE(VADM(10),"^",2)

 +8        SET @ARY@("DPT PATIENT'S RACE")=$PIECE(VADM(8),"^",2)

 +9        SET @ARY@("DPT PATIENT'S REMARKS")=$PIECE($GET(^DPT(+$GET(DFN),0)),"^",10)

 +10       KILL VADM,VA,VAERR,VAEL

 +11       QUIT

EMPLMNT   ;returns patient's employment status

 +1       ;input variables - DFN

 +2        DO OPD^VADPT

 +3        IF VAERR

               SET @IBARY=""

               QUIT

 +4        SET @IBARY=$PIECE(VAPD(7),"^",2)

 +5        KILL VAPD,VA,VAERR,VAEL

 +6        QUIT

 +7       ;

DATE(Y)   ; Y=date in FM form, this function translates the date to its

 +1       ;external form

 +2        DO DD^%DT

 +3        QUIT Y

 +4        QUIT

 +5       ;

ELIG      ;for output of eligibility information & service connected conditions

 +1        NEW COUNT,ARY,VAEL,VAERR,NODE0,COND,DESCR,PERC,EC,VASV,DATA,I,SARY

 +2        SET ARY="^TMP(""IB"",$J,""INTERFACES"",+$G(DFN))"

 +3        SET SARY="^TMP(""IB"",$J,""INTERFACES"")"

 +4        DO ELIG^VADPT

 +5        IF VAERR

               FOR I=1:1:6

                   SET VAEL(I)=""

 +6        SET PERC=$PIECE(VAEL(3),"^",2)

           SET PERC=$SELECT(PERC="":"",1:$JUSTIFY(PERC,3,0))

 +7       SET @ARY@("DPT PATIENT ELIGIBILITY DATA")=$PIECE(VAEL(1),"^",2)_"^"_$PIECE(VAEL(2),"^",2)_"^"_$SELECT(VAEL(3):"YES",VAEL(3)=0:"NO",1:"")_"^"_...

           ... $SELECT(VAEL(4):"YES",VAEL(4)=0:"NO",1:"")_"^"_$SELECT(VAEL(5):"YES",VAEL(5)=0:"NO",1:"")_"^"_$PIECE(VAEL(6),"^",2)_"^"_PERC

 +8        SET @ARY@("DPT SC HIDDEN LABELS")=$SELECT(((+VAEL(3))!($ORDER(^DPT(DFN,.372,0)))):"%^% - SERVICE CONNECTED^SERVICE CONNECTED:^SC CONDITIONS:^S/C",1:"  ^  ^  ^  ^  ")

 +9        IF $ORDER(^DPT(DFN,.372,0))

               IF VAEL(4)!$$GET1^DIQ(391,+VAEL(6),.02)

                   SET (COUNT,COND)=0

FOR

                       SET COND=$ORDER(^DPT(DFN,.372,COND))

                       if COND=""

                           QUIT

                       Begin DoDot:1

 +10                       SET NODE0=$GET(^DPT(DFN,.372,COND,0))

                           if '$PIECE(NODE0,"^",3)

                               QUIT

                           SET DESCR=$GET(^DIC(31,+NODE0,0))

                           SET COUNT=COUNT+1

 +11                       SET PERC=$PIECE(NODE0,"^",2)

                           SET PERC=$SELECT(PERC="":"",1:$JUSTIFY(PERC,3,0))

 +12                       SET @SARY@("DPT PATIENT'S SC CONDITIONS",COUNT)=$SELECT($PIECE(DESCR,"^",4)'="":$PIECE(DESCR,"^",4),1:$PIECE(DESCR,"^",1))_"^"_PERC_"^"_PERC_"%"_"^"_PERC_"%SC"_"^"_PERC_"% - SERVICE CONNECTED"

                       End DoDot:1

 +13      ;

 +14      ;get service data

 +15       DO SVC^VADPT

 +16       IF VAERR

               SET DATA="^^^^"

 +17      IF '$TEST

               SET DATA=$SELECT(VASV(1):"YES",1:"NO")_"^"_$SELECT(VASV(2):"YES",1:"NO")_"^"_$SELECT(VASV(3):"YES",1:"NO")_"^"_$SELECT(VASV(4):"YES",1:"NO")_"^"_$SELECT(VASV(5):"YES",1:"NO")

 +18      ;

 +19      ;get the persian gulf indicator - not returned by VADPT

 +20       SET EC=$$EC^SDCO22(DFN,0)

 +21      ;S EC=$P($G(^DPT(DFN,.322)),"^",13)

 +22       SET @ARY@("DPT SERVICE HISTORY RELATED DATA")=DATA_"^"_$SELECT(EC=1:"YES",1:"NO")

 +23      ;

 +24      ;displays questions concerning treatment related to service only

 +25      ;if they apply

 +26      ;

 +27       SET DATA=$SELECT(VAEL(3):"Was treatment for a SC condition? __ YES __ NO",1:"")_"^"

 +28       SET DATA=DATA_$SELECT(VASV(2):"Was treatment related to exposure to Agent Orange? __ YES __ NO",1:"")_"^"

 +29       SET DATA=DATA_$SELECT(VASV(3):"Was treatment related to exposure to Ionization Radiation? __ YES __ NO",1:"")

 +30       SET @ARY@("DPT SC TREATMENT QUESTIONS")=DATA

 +31      ;

 +32      ;note: must store the 4th question in an annex node

 +33       SET DATA="^^^"_$SELECT(EC=1:"Was treatment related to exposure to Environmental Contaminants? __ YES __ NO",1:"")_"^"

 +34       IF VASV(2)!VASV(3)!(EC=1)

               Begin DoDot:1

 +35               SET DATA=DATA_"Was treatment related to: "_$SELECT(VASV(2):"AO __ ",1:"")_$SELECT(VASV(3):"IR __ ",1:"")_$SELECT(EC=1:"EC __ ",1:"")

               End DoDot:1

 +36       SET @ARY@("DPT SC TREATMENT QUESTIONS",1)=DATA

 +37       QUIT

 +38      ;

BLANKS    ;returns NOTHING for printing blank lines

 +1        SET @IBARY=""

 +2        QUIT

LABELS    ;returns NOTHING for printing labels only, ie, no data

 +1        SET @IBARY=""

 +2        QUIT

ELIG1     ;for output of hidden service connected conditions

 +1        NEW COUNT,ARY,VAEL,VAERR,VASV,EC

 +2        SET ARY="^TMP(""IB"",$J,""INTERFACES"")"

           SET COUNT=0

 +3        DO ELIG^VADPT

 +4        IF 'VAERR

               IF (VAEL(3))

                   SET COUNT=COUNT+1

                   SET @ARY@("DPT SC HIDDEN TREATMENT QUESTIONS",COUNT)="SC^Was treatment for an SC condition?"

 +5       ;

 +6       ;get service data

 +7        DO SVC^VADPT

 +8        IF 'VAERR

               Begin DoDot:1

 +9                IF VASV(2)

                       SET COUNT=COUNT+1

                       SET @ARY@("DPT SC HIDDEN TREATMENT QUESTIONS",COUNT)="AO^Was treatment related to exposure to Agent Orange?"

 +10               IF VASV(3)

                       SET COUNT=COUNT+1

                       SET @ARY@("DPT SC HIDDEN TREATMENT QUESTIONS",COUNT)="IR^Was treatment related to exposure to Ionization Radiation?"

               End DoDot:1

 +11      ;

 +12      ;get the persian gulf indicator - not returned by VADPT

 +13      ;S EC=$P($G(^DPT(DFN,.322)),"^",13)

 +14       IF $$EC^SDCO22(DFN,0)

               SET COUNT=COUNT+1

               SET @ARY@("DPT SC HIDDEN TREATMENT QUESTIONS",COUNT)="EC^Was treatment related to exposure to Environmental Contaminants?"

 +15       QUIT

 +16      ;

ELIG2     ; -- for output of hidden classification questions

 +1        NEW COUNT,ARY

 +2        IF $GET(IBCLINIC)

               IF '$$REQ^IBDFDE0(DFN,IBAPPT,IBCLINIC,0)

                   QUIT

 +3       ;

 +4        SET ARY="^TMP(""IB"",$J,""INTERFACES"")"

           SET COUNT=0

 +5       ;

 +6        IF $$SC^SDCO22(DFN,0)

               DO SETARY(ARY,.COUNT,"SC^Was treatment for an SC condition?")

 +7        IF $$AO^SDCO22(DFN,0)

               DO SETARY(ARY,.COUNT,"AO^Was treatment related to exposure to Agent Orange?")

 +8        IF $$IR^SDCO22(DFN,0)

               DO SETARY(ARY,.COUNT,"IR^Was treatment related to exposure to Ionization Radiation?")

 +9        IF $$EC^SDCO22(DFN,0)

               DO SETARY(ARY,.COUNT,"EC^Was treatment related to exposure to Environmental Contaminants?")

 +10      ;

ELIG2Q     QUIT

 +1       ;

SETARY(ARY,CNT,TEXT) ; -- build array

 +1        SET CNT=CNT+1

 +2        SET @ARY@("DPT SC HIDDEN TREATMENT QUESTIONS",CNT)=TEXT

 +3        QUIT

 +4       ;

ELIGMST   ;-- Adds the MST indicator to existing hidden classification questions

 +1       ;   (patch IBD*3*36)

 +2       ;

 +3        NEW ARY,DATA,MST,MSTSTAT

 +4        DO ELIG

 +5        SET ARY="^TMP(""IB"",$J,""INTERFACES"",+$G(DFN))"

 +6        SET MST=$$MST^SDCO22(DFN,0)

 +7        SET MSTSTAT=$PIECE($$GETSTAT^DGMSTAPI(DFN),"^",2)

           SET MSTSTAT=$SELECT(MSTSTAT="Y":"YES",MSTSTAT="N":"NO",MSTSTAT="U":"UNKNOWN",MSTSTAT="D":"DECLINED",1:"")

 +8        IF $DATA(@ARY@("DPT SERVICE HISTORY RELATED DATA"))

               SET @ARY@("DPT SERVICE HISTORY RELATED DATA (MST)")=$GET(@ARY@("DPT SERVICE HISTORY RELATED DATA"))_"^"_MSTSTAT

 +9       ;

 +10       IF $DATA(@ARY@("DPT SC TREATMENT QUESTIONS"))

               SET @ARY@("DPT SC TREATMENT QUESTIONS (MST)")=$GET(@ARY@("DPT SC TREATMENT QUESTIONS"))

 +11       IF $DATA(@ARY@("DPT SC TREATMENT QUESTIONS",1))

               Begin DoDot:1

 +12               SET DATA=$GET(@ARY@("DPT SC TREATMENT QUESTIONS",1))

 +13               IF MST

                       Begin DoDot:2

 +14                       SET DATA=DATA_$SELECT($LENGTH($PIECE(DATA,"^",5))>1:"MST __",1:"Was treatment related to: MST __")

 +15                       SET $PIECE(DATA,"^",6)=$SELECT(MST:"Was treatment related to MST? __ YES __ NO",1:"")

                       End DoDot:2

 +16               SET @ARY@("DPT SC TREATMENT QUESTIONS (MST)",1)=DATA

               End DoDot:1

 +17       QUIT

 +18      ;

ELIG1MST  ;-- Similar to ELIG1 but adds MST indicator (if applicable) to hidden classification questions array

 +1       ;

 +2        KILL ^TMP("IB",$JOB,"INTERFACES","DPT SC HIDDEN TREATMENT QUESTIONS")

 +3        KILL ^TMP("IB",$JOB,"INTERFACES","DPT SC HIDDEN TREATMENT QUESTIONS (MST)")

 +4        DO ELIG1

 +5        DO ELIGSET

 +6        QUIT

 +7       ;

ELIG2MST  ;-- Similar to ELIG2 but adds MST indicator (if applicable) to hidden classification questions array

 +1       ;

 +2        KILL ^TMP("IB",$JOB,"INTERFACES","DPT SC HIDDEN TREATMENT QUESTIONS")

 +3        KILL ^TMP("IB",$JOB,"INTERFACES","DPT SC HIDDEN TREATMENT QUESTIONS (MST)")

 +4        DO ELIG2

 +5        DO ELIGSET

 +6        QUIT

 +7       ;

ELIGSET   ;-- Checks for MST and adds MST question to hidden classification array

 +1       ;

 +2        NEW ARY,COUNT,I

 +3        SET ARY="^TMP(""IB"",$J,""INTERFACES"")"

 +4        SET (COUNT,I)=0

 +5        MERGE @ARY@("DPT SC HIDDEN TREATMENT QUESTIONS (MST)")=@ARY@("DPT SC HIDDEN TREATMENT QUESTIONS")

 +6        IF $$MST^SDCO22(DFN,0)

               Begin DoDot:1

 +7                FOR

                       SET I=$ORDER(@ARY@("DPT SC HIDDEN TREATMENT QUESTIONS (MST)",I))

                       if 'I

                           QUIT

                       SET COUNT=I

 +8                SET COUNT=COUNT+1

                   SET @ARY@("DPT SC HIDDEN TREATMENT QUESTIONS (MST)",COUNT)="MST^Was treatment related to MST?  (Ask provider only)"

               End DoDot:1

 +9        QUIT

IBDFN.m