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
Q
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
Q
;
DATE(Y) ; Y=date in FM form, this function translates the date to its
;external form
D DD^%DT
Q Y
Q
;
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
Q
;
BLANKS ;returns NOTHING for printing blank lines
S @IBARY=""
Q
LABELS ;returns NOTHING for printing labels only, ie, no data
S @IBARY=""
Q
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?"
Q
;
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
Q
;
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
Q
;
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
Q
;
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
Q
;
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)"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDFN 7371 printed Nov 22, 2024@18:02:56 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
