YTSQOLI1.m

YTSQOLI1 ;SLC/PIJ - Score QOLI ; 01/08/2016

 ;;5.01;MENTAL HEALTH;**123**;DEC 30,1994;Build 73

 ;

 ;Public, Supported ICRs

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

 ;

 Q

 ;

GETTSCOR(RAW,WGHTSAT0,WGHTSAT99) ; GetTScore

 ; T-score range 0-77

 N RESULT

 S RESULT="-1"

 I (WGHTSAT0=16) S RESULT="-99" Q RESULT

 I (WGHTSAT0=15),(WGHTSAT99=1) S RESULT="-99" Q RESULT

 I (RAW<"-3.8") S RESULT=0

 I (RAW="-3.7") S RESULT=1

 I (RAW="-3.6") S RESULT=2

 I (RAW="-3.5") S RESULT=3

 I (RAW="-3.4") S RESULT=4

 I (RAW="-3.3") S RESULT=4

 I (RAW="-3.2") S RESULT=5

 I (RAW="-3.1") S RESULT=6

 I (RAW="-3.0") S RESULT=7

 I (RAW="-2.9") S RESULT=1

 I (RAW="-2.8") S RESULT=2

 I (RAW="-2.7") S RESULT=3

 I (RAW="-2.6") S RESULT=4

 I (RAW="-2.5") S RESULT=4

 I (RAW="-2.4") S RESULT=5

 I (RAW="-2.3") S RESULT=6

 I (RAW="-2.2") S RESULT=7

 I (RAW="-2.9") S RESULT=8

 I (RAW="-2.8") S RESULT=8

 I (RAW="-2.7") S RESULT=9

 I (RAW="-2.6") S RESULT=10

 I (RAW="-2.5") S RESULT=11

 I (RAW="-2.4") S RESULT=11

 I (RAW="-2.3") S RESULT=12

 I (RAW="-2.2") S RESULT=13

 I (RAW="-2.1") S RESULT=14

 I (RAW="-2.0") S RESULT=15

 I (RAW="-1.9") S RESULT=15

 I (RAW="-1.8") S RESULT=16

 I (RAW="-1.7") S RESULT=17

 I (RAW="-1.6") S RESULT=18

 I (RAW="-1.5") S RESULT=18

 I (RAW="-1.4") S RESULT=19

 I (RAW="-1.3") S RESULT=20

 I (RAW="-1.2") S RESULT=21

 I (RAW="-1.1") S RESULT=22

 I (RAW="-1.0") S RESULT=22

 I (RAW="-0.9") S RESULT=23

 I (RAW="-0.8") S RESULT=24

 I (RAW="-0.7") S RESULT=25

 I (RAW="-0.6") S RESULT=25

 I (RAW="-0.5") S RESULT=26

 I (RAW="-0.4") S RESULT=27

 I (RAW="-0.3") S RESULT=28

 I (RAW="-0.2") S RESULT=29

 I (RAW="-0.1") S RESULT=29

 I (RAW="0") S RESULT=30

 I (RAW="0.1") S RESULT=31

 I (RAW="0.2") S RESULT=32

 I (RAW="0.3") S RESULT=32

 I (RAW="0.4") S RESULT=33

 I (RAW="0.5") S RESULT=34

 I (RAW="0.6") S RESULT=35

 I (RAW="0.7") S RESULT=36

 I (RAW="0.8") S RESULT=36

 I (RAW="0.9") S RESULT=37

 I (RAW="1.0") S RESULT=38

 I (RAW="1.1") S RESULT=39

 I (RAW="1.2") S RESULT=39

 I (RAW="1.3") S RESULT=40

 I (RAW="1.4") S RESULT=41

 I (RAW="1.5") S RESULT=42

 I (RAW="1.6") S RESULT=43

 I (RAW="1.7") S RESULT=43

 I (RAW="1.8") S RESULT=44

 I (RAW="1.9") S RESULT=45

 I (RAW="2.0") S RESULT=46

 I (RAW="2.1") S RESULT=46

 I (RAW="2.2") S RESULT=47

 I (RAW="2.3") S RESULT=48

 I (RAW="2.4") S RESULT=49

 I (RAW="2.5") S RESULT=50

 I (RAW="2.6") S RESULT=50

 I (RAW="2.7") S RESULT=51

 I (RAW="2.8") S RESULT=52

 I (RAW="2.9") S RESULT=53

 I (RAW="3.0") S RESULT=53

 I (RAW="3.1") S RESULT=54

 I (RAW="3.2") S RESULT=55

 I (RAW="3.3") S RESULT=56

 I (RAW="3.4") S RESULT=57

 I (RAW="3.5") S RESULT=57

 I (RAW="3.6") S RESULT=58

 I (RAW="3.7") S RESULT=59

 I (RAW="3.8") S RESULT=60

 I (RAW="3.9") S RESULT=61

 I (RAW="4.0") S RESULT=61

 I (RAW="4.1") S RESULT=62

 I (RAW="4.2") S RESULT=63

 I (RAW="4.3") S RESULT=64

 I (RAW="4.4") S RESULT=64

 I (RAW="4.5") S RESULT=65

 I (RAW="4.6") S RESULT=66

 I (RAW="4.7") S RESULT=67

 I (RAW="4.8") S RESULT=68

 I (RAW="4.9") S RESULT=68

 I (RAW="5.0") S RESULT=69

 I (RAW="5.1") S RESULT=70

 I (RAW="5.2") S RESULT=71

 I (RAW="5.3") S RESULT=71

 I (RAW="5.4") S RESULT=72

 I (RAW="5.5") S RESULT=73

 I (RAW="5.6") S RESULT=74

 I (RAW="5.7") S RESULT=75

 I (RAW="5.8") S RESULT=75

 I (RAW="5.9") S RESULT=76

 I (RAW>"5.9") S RESULT=77

 Q RESULT

 ;

GETPSCOR(RAW,WGHTSAT0,WGHTSAT99) ; GetPScore (Percentile Score)

 ; P-Score range 1-99

 ; Invalid Score = -99

 N RESULT

 S RESULT=-1

 ;

 I (WGHTSAT0=16) S RESULT="-99" Q RESULT

 I (WGHTSAT0=15),(WGHTSAT99=1) S RESULT="-99" Q RESULT

 ;

 I (RAW<"-1.2") S RESULT=1

 I (RAW="-1.1") S RESULT=2

 I (RAW="-1.0") S RESULT=2

 I (RAW="-0.9") S RESULT=2

 I (RAW="-0.8") S RESULT=2

 I (RAW="-0.7") S RESULT=2

 I (RAW="-0.6") S RESULT=2

 I (RAW="-0.5") S RESULT=2

 I (RAW="-0.4") S RESULT=3

 I (RAW="-0.3") S RESULT=3

 I (RAW="-0.2") S RESULT=3

 I (RAW="-0.1") S RESULT=4

 I (RAW="-0.0") S RESULT=4

 I (RAW="0") S RESULT=4

 I (RAW="0.1") S RESULT=5

 I (RAW="0.2") S RESULT=5

 I (RAW="0.3") S RESULT=5

 I (RAW="0.4") S RESULT=6

 I (RAW="0.5") S RESULT=6

 I (RAW="0.6") S RESULT=7

 I (RAW="0.7") S RESULT=9

 I (RAW="0.8") S RESULT=10

 I (RAW="0.9") S RESULT=11

 I (RAW="1.0") S RESULT=12

 I (RAW="1.1") S RESULT=15

 I (RAW="1.2") S RESULT=16

 I (RAW="1.3") S RESULT=17

 I (RAW="1.4") S RESULT=18

 I (RAW="1.5") S RESULT=19

 I (RAW="1.6") S RESULT=21

 I (RAW="1.7") S RESULT=23

 I (RAW="1.8") S RESULT=26

 I (RAW="1.9") S RESULT=28

 I (RAW="2.0") S RESULT=30

 I (RAW="2.1") S RESULT=34

 I (RAW="2.2") S RESULT=36

 I (RAW="2.3") S RESULT=39

 I (RAW="2.4") S RESULT=42

 I (RAW="2.5") S RESULT=46

 I (RAW="2.6") S RESULT=49

 I (RAW="2.7") S RESULT=51

 I (RAW="2.8") S RESULT=55

 I (RAW="2.9") S RESULT=59

 I (RAW="3.0") S RESULT=61

 I (RAW="3.1") S RESULT=66

 I (RAW="3.2") S RESULT=67

 I (RAW="3.3") S RESULT=71

 I (RAW="3.4") S RESULT=75

 I (RAW="3.5") S RESULT=78

 I (RAW="3.6") S RESULT=81

 I (RAW="3.7") S RESULT=84

 I (RAW="3.8") S RESULT=86

 I (RAW="3.9") S RESULT=89

 I (RAW="4.0") S RESULT=90

 I (RAW="4.1") S RESULT=92

 I (RAW="4.2") S RESULT=93

 I (RAW="4.3") S RESULT=95

 I (RAW="4.4") S RESULT=96

 I (RAW="4.5") S RESULT=97

 I (RAW="4.6") S RESULT=97

 I (RAW="4.7") S RESULT=98

 I (RAW="4.8") S RESULT=98

 I (RAW>"4.8") S RESULT=99

 Q RESULT

 ;

SORTSAT ; Sort Satisfaction

 N I,J,K,ARR

 S RESULT=""

 S ARR(1)="|Health                    "_SCALE(1)

 S ARR(2)="|Self-Esteem               "_SCALE(2)

 S ARR(3)="|Goals-and-Values          "_SCALE(3)

 S ARR(4)="|Money                     "_SCALE(4)

 S ARR(5)="|Work                      "_SCALE(5)

 S ARR(6)="|Play                      "_SCALE(6)

 S ARR(7)="|Learning                  "_SCALE(7)

 S ARR(8)="|Creativity                "_SCALE(8)

 S ARR(9)="|Helping                   "_SCALE(9)

 S ARR(10)="|Love                      "_SCALE(10)

 S ARR(11)="|Friends                   "_SCALE(11)

 S ARR(12)="|Children                  "_SCALE(12)

 S ARR(13)="|Relatives                 "_SCALE(13)

 S ARR(14)="|Home                      "_SCALE(14)

 S ARR(15)="|Neighborhood              "_SCALE(15)

 S ARR(16)="|Community                 "_SCALE(16)

 ;

 S K="-6^-4^-3^-2^-1"

 F J=1:1:5 D

 .F I=1:1:16 D

 ..I SCALE(I)=$P(K,"^",J) D

 ...S RESULT=RESULT_ARR(I)

 S STRING=STRING_RESULT

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YTSQOLI1   6431     printed  Apr 09, 2024@21:20:53                                                                                                                                                                                                    Page 2

YTSQOLI1  ;SLC/PIJ - Score QOLI ; 01/08/2016

 +1       ;;5.01;MENTAL HEALTH;**123**;DEC 30,1994;Build 73

 +2       ;

 +3       ;Public, Supported ICRs

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

 +5       ;

 +6        QUIT 

 +7       ;

GETTSCOR(RAW,WGHTSAT0,WGHTSAT99) ; GetTScore

 +1       ; T-score range 0-77

 +2        NEW RESULT

 +3        SET RESULT="-1"

 +4        IF (WGHTSAT0=16)

               SET RESULT="-99"

               QUIT RESULT

 +5        IF (WGHTSAT0=15)

               IF (WGHTSAT99=1)

                   SET RESULT="-99"

                   QUIT RESULT

 +6        IF (RAW<"-3.8")

               SET RESULT=0

 +7        IF (RAW="-3.7")

               SET RESULT=1

 +8        IF (RAW="-3.6")

               SET RESULT=2

 +9        IF (RAW="-3.5")

               SET RESULT=3

 +10       IF (RAW="-3.4")

               SET RESULT=4

 +11       IF (RAW="-3.3")

               SET RESULT=4

 +12       IF (RAW="-3.2")

               SET RESULT=5

 +13       IF (RAW="-3.1")

               SET RESULT=6

 +14       IF (RAW="-3.0")

               SET RESULT=7

 +15       IF (RAW="-2.9")

               SET RESULT=1

 +16       IF (RAW="-2.8")

               SET RESULT=2

 +17       IF (RAW="-2.7")

               SET RESULT=3

 +18       IF (RAW="-2.6")

               SET RESULT=4

 +19       IF (RAW="-2.5")

               SET RESULT=4

 +20       IF (RAW="-2.4")

               SET RESULT=5

 +21       IF (RAW="-2.3")

               SET RESULT=6

 +22       IF (RAW="-2.2")

               SET RESULT=7

 +23       IF (RAW="-2.9")

               SET RESULT=8

 +24       IF (RAW="-2.8")

               SET RESULT=8

 +25       IF (RAW="-2.7")

               SET RESULT=9

 +26       IF (RAW="-2.6")

               SET RESULT=10

 +27       IF (RAW="-2.5")

               SET RESULT=11

 +28       IF (RAW="-2.4")

               SET RESULT=11

 +29       IF (RAW="-2.3")

               SET RESULT=12

 +30       IF (RAW="-2.2")

               SET RESULT=13

 +31       IF (RAW="-2.1")

               SET RESULT=14

 +32       IF (RAW="-2.0")

               SET RESULT=15

 +33       IF (RAW="-1.9")

               SET RESULT=15

 +34       IF (RAW="-1.8")

               SET RESULT=16

 +35       IF (RAW="-1.7")

               SET RESULT=17

 +36       IF (RAW="-1.6")

               SET RESULT=18

 +37       IF (RAW="-1.5")

               SET RESULT=18

 +38       IF (RAW="-1.4")

               SET RESULT=19

 +39       IF (RAW="-1.3")

               SET RESULT=20

 +40       IF (RAW="-1.2")

               SET RESULT=21

 +41       IF (RAW="-1.1")

               SET RESULT=22

 +42       IF (RAW="-1.0")

               SET RESULT=22

 +43       IF (RAW="-0.9")

               SET RESULT=23

 +44       IF (RAW="-0.8")

               SET RESULT=24

 +45       IF (RAW="-0.7")

               SET RESULT=25

 +46       IF (RAW="-0.6")

               SET RESULT=25

 +47       IF (RAW="-0.5")

               SET RESULT=26

 +48       IF (RAW="-0.4")

               SET RESULT=27

 +49       IF (RAW="-0.3")

               SET RESULT=28

 +50       IF (RAW="-0.2")

               SET RESULT=29

 +51       IF (RAW="-0.1")

               SET RESULT=29

 +52       IF (RAW="0")

               SET RESULT=30

 +53       IF (RAW="0.1")

               SET RESULT=31

 +54       IF (RAW="0.2")

               SET RESULT=32

 +55       IF (RAW="0.3")

               SET RESULT=32

 +56       IF (RAW="0.4")

               SET RESULT=33

 +57       IF (RAW="0.5")

               SET RESULT=34

 +58       IF (RAW="0.6")

               SET RESULT=35

 +59       IF (RAW="0.7")

               SET RESULT=36

 +60       IF (RAW="0.8")

               SET RESULT=36

 +61       IF (RAW="0.9")

               SET RESULT=37

 +62       IF (RAW="1.0")

               SET RESULT=38

 +63       IF (RAW="1.1")

               SET RESULT=39

 +64       IF (RAW="1.2")

               SET RESULT=39

 +65       IF (RAW="1.3")

               SET RESULT=40

 +66       IF (RAW="1.4")

               SET RESULT=41

 +67       IF (RAW="1.5")

               SET RESULT=42

 +68       IF (RAW="1.6")

               SET RESULT=43

 +69       IF (RAW="1.7")

               SET RESULT=43

 +70       IF (RAW="1.8")

               SET RESULT=44

 +71       IF (RAW="1.9")

               SET RESULT=45

 +72       IF (RAW="2.0")

               SET RESULT=46

 +73       IF (RAW="2.1")

               SET RESULT=46

 +74       IF (RAW="2.2")

               SET RESULT=47

 +75       IF (RAW="2.3")

               SET RESULT=48

 +76       IF (RAW="2.4")

               SET RESULT=49

 +77       IF (RAW="2.5")

               SET RESULT=50

 +78       IF (RAW="2.6")

               SET RESULT=50

 +79       IF (RAW="2.7")

               SET RESULT=51

 +80       IF (RAW="2.8")

               SET RESULT=52

 +81       IF (RAW="2.9")

               SET RESULT=53

 +82       IF (RAW="3.0")

               SET RESULT=53

 +83       IF (RAW="3.1")

               SET RESULT=54

 +84       IF (RAW="3.2")

               SET RESULT=55

 +85       IF (RAW="3.3")

               SET RESULT=56

 +86       IF (RAW="3.4")

               SET RESULT=57

 +87       IF (RAW="3.5")

               SET RESULT=57

 +88       IF (RAW="3.6")

               SET RESULT=58

 +89       IF (RAW="3.7")

               SET RESULT=59

 +90       IF (RAW="3.8")

               SET RESULT=60

 +91       IF (RAW="3.9")

               SET RESULT=61

 +92       IF (RAW="4.0")

               SET RESULT=61

 +93       IF (RAW="4.1")

               SET RESULT=62

 +94       IF (RAW="4.2")

               SET RESULT=63

 +95       IF (RAW="4.3")

               SET RESULT=64

 +96       IF (RAW="4.4")

               SET RESULT=64

 +97       IF (RAW="4.5")

               SET RESULT=65

 +98       IF (RAW="4.6")

               SET RESULT=66

 +99       IF (RAW="4.7")

               SET RESULT=67

 +100      IF (RAW="4.8")

               SET RESULT=68

 +101      IF (RAW="4.9")

               SET RESULT=68

 +102      IF (RAW="5.0")

               SET RESULT=69

 +103      IF (RAW="5.1")

               SET RESULT=70

 +104      IF (RAW="5.2")

               SET RESULT=71

 +105      IF (RAW="5.3")

               SET RESULT=71

 +106      IF (RAW="5.4")

               SET RESULT=72

 +107      IF (RAW="5.5")

               SET RESULT=73

 +108      IF (RAW="5.6")

               SET RESULT=74

 +109      IF (RAW="5.7")

               SET RESULT=75

 +110      IF (RAW="5.8")

               SET RESULT=75

 +111      IF (RAW="5.9")

               SET RESULT=76

 +112      IF (RAW>"5.9")

               SET RESULT=77

 +113      QUIT RESULT

 +114     ;

GETPSCOR(RAW,WGHTSAT0,WGHTSAT99) ; GetPScore (Percentile Score)

 +1       ; P-Score range 1-99

 +2       ; Invalid Score = -99

 +3        NEW RESULT

 +4        SET RESULT=-1

 +5       ;

 +6        IF (WGHTSAT0=16)

               SET RESULT="-99"

               QUIT RESULT

 +7        IF (WGHTSAT0=15)

               IF (WGHTSAT99=1)

                   SET RESULT="-99"

                   QUIT RESULT

 +8       ;

 +9        IF (RAW<"-1.2")

               SET RESULT=1

 +10       IF (RAW="-1.1")

               SET RESULT=2

 +11       IF (RAW="-1.0")

               SET RESULT=2

 +12       IF (RAW="-0.9")

               SET RESULT=2

 +13       IF (RAW="-0.8")

               SET RESULT=2

 +14       IF (RAW="-0.7")

               SET RESULT=2

 +15       IF (RAW="-0.6")

               SET RESULT=2

 +16       IF (RAW="-0.5")

               SET RESULT=2

 +17       IF (RAW="-0.4")

               SET RESULT=3

 +18       IF (RAW="-0.3")

               SET RESULT=3

 +19       IF (RAW="-0.2")

               SET RESULT=3

 +20       IF (RAW="-0.1")

               SET RESULT=4

 +21       IF (RAW="-0.0")

               SET RESULT=4

 +22       IF (RAW="0")

               SET RESULT=4

 +23       IF (RAW="0.1")

               SET RESULT=5

 +24       IF (RAW="0.2")

               SET RESULT=5

 +25       IF (RAW="0.3")

               SET RESULT=5

 +26       IF (RAW="0.4")

               SET RESULT=6

 +27       IF (RAW="0.5")

               SET RESULT=6

 +28       IF (RAW="0.6")

               SET RESULT=7

 +29       IF (RAW="0.7")

               SET RESULT=9

 +30       IF (RAW="0.8")

               SET RESULT=10

 +31       IF (RAW="0.9")

               SET RESULT=11

 +32       IF (RAW="1.0")

               SET RESULT=12

 +33       IF (RAW="1.1")

               SET RESULT=15

 +34       IF (RAW="1.2")

               SET RESULT=16

 +35       IF (RAW="1.3")

               SET RESULT=17

 +36       IF (RAW="1.4")

               SET RESULT=18

 +37       IF (RAW="1.5")

               SET RESULT=19

 +38       IF (RAW="1.6")

               SET RESULT=21

 +39       IF (RAW="1.7")

               SET RESULT=23

 +40       IF (RAW="1.8")

               SET RESULT=26

 +41       IF (RAW="1.9")

               SET RESULT=28

 +42       IF (RAW="2.0")

               SET RESULT=30

 +43       IF (RAW="2.1")

               SET RESULT=34

 +44       IF (RAW="2.2")

               SET RESULT=36

 +45       IF (RAW="2.3")

               SET RESULT=39

 +46       IF (RAW="2.4")

               SET RESULT=42

 +47       IF (RAW="2.5")

               SET RESULT=46

 +48       IF (RAW="2.6")

               SET RESULT=49

 +49       IF (RAW="2.7")

               SET RESULT=51

 +50       IF (RAW="2.8")

               SET RESULT=55

 +51       IF (RAW="2.9")

               SET RESULT=59

 +52       IF (RAW="3.0")

               SET RESULT=61

 +53       IF (RAW="3.1")

               SET RESULT=66

 +54       IF (RAW="3.2")

               SET RESULT=67

 +55       IF (RAW="3.3")

               SET RESULT=71

 +56       IF (RAW="3.4")

               SET RESULT=75

 +57       IF (RAW="3.5")

               SET RESULT=78

 +58       IF (RAW="3.6")

               SET RESULT=81

 +59       IF (RAW="3.7")

               SET RESULT=84

 +60       IF (RAW="3.8")

               SET RESULT=86

 +61       IF (RAW="3.9")

               SET RESULT=89

 +62       IF (RAW="4.0")

               SET RESULT=90

 +63       IF (RAW="4.1")

               SET RESULT=92

 +64       IF (RAW="4.2")

               SET RESULT=93

 +65       IF (RAW="4.3")

               SET RESULT=95

 +66       IF (RAW="4.4")

               SET RESULT=96

 +67       IF (RAW="4.5")

               SET RESULT=97

 +68       IF (RAW="4.6")

               SET RESULT=97

 +69       IF (RAW="4.7")

               SET RESULT=98

 +70       IF (RAW="4.8")

               SET RESULT=98

 +71       IF (RAW>"4.8")

               SET RESULT=99

 +72       QUIT RESULT

 +73      ;

SORTSAT   ; Sort Satisfaction

 +1        NEW I,J,K,ARR

 +2        SET RESULT=""

 +3        SET ARR(1)="|Health                    "_SCALE(1)

 +4        SET ARR(2)="|Self-Esteem               "_SCALE(2)

 +5        SET ARR(3)="|Goals-and-Values          "_SCALE(3)

 +6        SET ARR(4)="|Money                     "_SCALE(4)

 +7        SET ARR(5)="|Work                      "_SCALE(5)

 +8        SET ARR(6)="|Play                      "_SCALE(6)

 +9        SET ARR(7)="|Learning                  "_SCALE(7)

 +10       SET ARR(8)="|Creativity                "_SCALE(8)

 +11       SET ARR(9)="|Helping                   "_SCALE(9)

 +12       SET ARR(10)="|Love                      "_SCALE(10)

 +13       SET ARR(11)="|Friends                   "_SCALE(11)

 +14       SET ARR(12)="|Children                  "_SCALE(12)

 +15       SET ARR(13)="|Relatives                 "_SCALE(13)

 +16       SET ARR(14)="|Home                      "_SCALE(14)

 +17       SET ARR(15)="|Neighborhood              "_SCALE(15)

 +18       SET ARR(16)="|Community                 "_SCALE(16)

 +19      ;

 +20       SET K="-6^-4^-3^-2^-1"

 +21       FOR J=1:1:5

               Begin DoDot:1

 +22               FOR I=1:1:16

                       Begin DoDot:2

 +23                       IF SCALE(I)=$PIECE(K,"^",J)

                               Begin DoDot:3

 +24                               SET RESULT=RESULT_ARR(I)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +25       SET STRING=STRING_RESULT

 +26       QUIT