YTSBSL23.m

YTSBSL23 ;SLC/BLD- MHAX ANSWERS SPECIAL HANDLING FOR: SHORT INVENTORY OF PROBLEMS - AD (SIP-AD-Start)

 ;;5.01;MENTAL HEALTH;**150**;DEC 30,1994;Build 210

 ;

 ;Public, Supported ICRs

 ; #2056 - Fileman API - $$GET1^DIQ

 ;

 ;

DLLSTR(YSDATA,YS,YSTRNG) ;

 ;  YSTRNG = 1 Score Instrument

 ;  YSTRNG = 2 get Report Answers and Text

 N DATA,YSSCALIEN,TOTSCORE,YSINSNAM,STRING,TOTSCORE,CNT

 ;

 ; returns a scale score which is calculated and stored, no special text in report

 I YSTRNG=1 D SCORESV Q

 I YSTRNG=2 Q  ; D

 ;

 Q

 ;

STRING ;

 ;

 ;

 Q

 ;

DATA1 ;

 ;

 N I,II,UNANS,MEAN

 S (TOTSCORE,CNT,UNANS)=0

 F I=3:1 Q:'$D(YSDATA(I))  I $P(YSDATA(I),"^",3)=1155 S UNANS=UNANS+1

 F I=3:1 Q:'$D(YSDATA(I))  S CNT=CNT+1,TOTSCORE=$G(TOTSCORE)+$$GET1^DIQ(601.75,$P(YSDATA(I),"^",3)_",",4,"I")

 S MEAN=TOTSCORE\(23-UNANS),MEAN=MEAN*UNANS

 S TOTSCORE=TOTSCORE+MEAN

 S CNT=CNT-UNANS

 Q

 ;

SCORESV ;

 N YSSCGROUP,I

 D DATA1

 I $D(^TMP($J,"YSG",1)),^TMP($J,"YSG",1)="[ERROR]" D  Q  ;-->out

 .K ^TMP($J,"YSCOR")

 .S ^TMP($J,"YSCOR",1)="[ERROR]"

 .S ^TMP($J,"YSCOR",2)=$G(YSINSNAM)_" Scale not found"

 ;

 K ^TMP($J,"YSCOR")

 ;

 S ^TMP($J,"YSCOR",1)="[DATA]"

 S YSSCALIEN=$P($P(^TMP($J,"YSG",3),"^",1),"=",2)

 S ^TMP($J,"YSCOR",2)=$$GET1^DIQ(601.87,YSSCALIEN_",",3,"I")_"="_TOTSCORE

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YTSBSL23   1314     printed  Apr 09, 2024@21:16:31                                                                                                                                                                                                    Page 2

YTSBSL23  ;SLC/BLD- MHAX ANSWERS SPECIAL HANDLING FOR: SHORT INVENTORY OF PROBLEMS - AD (SIP-AD-Start)

 +1       ;;5.01;MENTAL HEALTH;**150**;DEC 30,1994;Build 210

 +2       ;

 +3       ;Public, Supported ICRs

 +4       ; #2056 - Fileman API - $$GET1^DIQ

 +5       ;

 +6       ;

DLLSTR(YSDATA,YS,YSTRNG) ;

 +1       ;  YSTRNG = 1 Score Instrument

 +2       ;  YSTRNG = 2 get Report Answers and Text

 +3        NEW DATA,YSSCALIEN,TOTSCORE,YSINSNAM,STRING,TOTSCORE,CNT

 +4       ;

 +5       ; returns a scale score which is calculated and stored, no special text in report

 +6        IF YSTRNG=1

               DO SCORESV

               QUIT 

 +7       ; D

           IF YSTRNG=2

               QUIT 

 +8       ;

 +9        QUIT 

 +10      ;

STRING    ;

 +1       ;

 +2       ;

 +3        QUIT 

 +4       ;

DATA1     ;

 +1       ;

 +2        NEW I,II,UNANS,MEAN

 +3        SET (TOTSCORE,CNT,UNANS)=0

 +4        FOR I=3:1

               if '$DATA(YSDATA(I))

                   QUIT 

               IF $PIECE(YSDATA(I),"^",3)=1155

                   SET UNANS=UNANS+1

 +5        FOR I=3:1

               if '$DATA(YSDATA(I))

                   QUIT 

               SET CNT=CNT+1

               SET TOTSCORE=$GET(TOTSCORE)+$$GET1^DIQ(601.75,$PIECE(YSDATA(I),"^",3)_",",4,"I")

 +6        SET MEAN=TOTSCORE\(23-UNANS)

           SET MEAN=MEAN*UNANS

 +7        SET TOTSCORE=TOTSCORE+MEAN

 +8        SET CNT=CNT-UNANS

 +9        QUIT 

 +10      ;

SCORESV   ;

 +1        NEW YSSCGROUP,I

 +2        DO DATA1

 +3       ;-->out

           IF $DATA(^TMP($JOB,"YSG",1))

               IF ^TMP($JOB,"YSG",1)="[ERROR]"

                   Begin DoDot:1

 +4                    KILL ^TMP($JOB,"YSCOR")

 +5                    SET ^TMP($JOB,"YSCOR",1)="[ERROR]"

 +6                    SET ^TMP($JOB,"YSCOR",2)=$GET(YSINSNAM)_" Scale not found"

                   End DoDot:1

                   QUIT 

 +7       ;

 +8        KILL ^TMP($JOB,"YSCOR")

 +9       ;

 +10       SET ^TMP($JOB,"YSCOR",1)="[DATA]"

 +11       SET YSSCALIEN=$PIECE($PIECE(^TMP($JOB,"YSG",3),"^",1),"=",2)

 +12       SET ^TMP($JOB,"YSCOR",2)=$$GET1^DIQ(601.87,YSSCALIEN_",",3,"I")_"="_TOTSCORE

 +13       QUIT 

 +14      ;