YTSMCMIE.m

YTSMCMIE ;BAL/KTL- MCMI4 ANSWERS SPECIAL HANDLING - INI ; 9/14/18 3:19pm

 ;;5.01;MENTAL HEALTH;**151**;Dec 30, 1994;Build 92

 ;

 ; MCMI4 Scoring

 ;

 ; Initialize arrays for scoring MCMI4

 ; Percentile Ranking (INIPRS)

 ; Part 2 - This is an extension of YTSMCMID

INIPRS ;

 ;Initialize arrays and variables to calculate Percentile Ranking Scores

 ;Piece Number indexed by Raw Score

 S SCALCOD="1.1 Interpersonally Unengaged"

 S YPRS(SCALCOD,"STR")="8^23^38^53^66^77^86^93^97^99"

 S SCALCOD="1.2 Meager Content"

 S YPRS(SCALCOD,"STR")="7^20^33^46^57^67^76^85^92^98"

 S SCALCOD="1.3 Temperamentally Apathetic"

 S YPRS(SCALCOD,"STR")="10^29^44^56^66^74^82^89^95^99"

 S SCALCOD="2A.1 Interpersonally Aversive"

 S YPRS(SCALCOD,"STR")="4^14^27^41^53^64^74^85^96"

 S SCALCOD="2A.2 Alienated Self-Image"

 S YPRS(SCALCOD,"STR")="8^24^38^50^61^70^78^87^94^98"

 S SCALCOD="2A.3 Vexatious Content"

 S YPRS(SCALCOD,"STR")="12^33^47^59^69^76^83^89^95^98"

 S SCALCOD="2B.1 Cognitively Fatalistic"

 S YPRS(SCALCOD,"STR")="6^17^28^39^50^60^70^80^89^97"

 S SCALCOD="2B.2 Worthless Self-Image"

 S YPRS(SCALCOD,"STR")="16^41^55^65^73^79^85^90^95^99"

 S SCALCOD="2B.3 Temperamentally Woeful"

 S YPRS(SCALCOD,"STR")="9^30^48^57^65^71^76^83^90^97"

 S SCALCOD="3.1 Expressively Puerile"

 S YPRS(SCALCOD,"STR")="8^21^34^47^59^69^79^87^94^98"

 S SCALCOD="3.2 Interpersonally Submissive"

 S YPRS(SCALCOD,"STR")="11^33^55^70^81^90^96^99"

 S SCALCOD="3.3 Inept Self-Image"

 S YPRS(SCALCOD,"STR")="7^22^38^54^66^76^84^91^96^99"

 S SCALCOD="4A.1 Expressively Dramatic"

 S YPRS(SCALCOD,"STR")="12^35^55^70^83^92^97^99"

 S SCALCOD="4A.2 Interpersonally Attention-Seeking"

 S YPRS(SCALCOD,"STR")="2^7^14^22^32^41^52^64^76^88^97"

 S SCALCOD="4A.3 Temperamentally Fickle"

 S YPRS(SCALCOD,"STR")="2^8^17^26^35^44^53^61^69^77^86^93^98"

 S SCALCOD="4B.1 Expressively Impetuous"

 S YPRS(SCALCOD,"STR")="7^22^35^48^59^69^80^89^97"

 S SCALCOD="4B.2 Interpersonally High-Spirited"

 S YPRS(SCALCOD,"STR")="3^11^22^34^45^57^71^84^95^99"

 S SCALCOD="4B.3 Exalted Self-Image"

 S YPRS(SCALCOD,"STR")="3^10^20^30^41^53^68^84^96"

 S SCALCOD="5.1 Interpersonally Exploitive"

 S YPRS(SCALCOD,"STR")="10^31^50^64^76^84^91^96^98^99"

 S SCALCOD="5.2 Cognitively Expansive"

 S YPRS(SCALCOD,"STR")="3^10^20^30^40^50^61^71^82^92^98"

 S SCALCOD="5.3 Admirable Self-Image"

 S YPRS(SCALCOD,"STR")="18^50^71^83^92^96^98^99^99"

 S SCALCOD="6A.1 Interpersonally Irresponsible"

 S YPRS(SCALCOD,"STR")="7^26^48^65^77^87^94^98^99"

 S SCALCOD="6A.2 Autonomous Self-Image"

 S YPRS(SCALCOD,"STR")="8^27^48^66^79^87^93^97^99^99^99"

 S SCALCOD="6A.3 Acting-Out Dynamics"

 S YPRS(SCALCOD,"STR")="13^40^61^75^83^88^92^95^97^99^99"

 S SCALCOD="6B.1 Expressively Precipitate"

 S YPRS(SCALCOD,"STR")="10^29^46^61^74^84^90^94^97^98^99^99"

 S SCALCOD="6B.2 Interpersonally Abrasive"

 S YPRS(SCALCOD,"STR")="13^35^55^72^85^93^98^99"

 S SCALCOD="6B.3 Eruptive Architecture"

 S YPRS(SCALCOD,"STR")="19^49^66^76^84^90^95^99"

 S SCALCOD="7.1 Expressively Disciplined"

 S YPRS(SCALCOD,"STR")="1^6^15^28^42^57^72^86^96"

 S SCALCOD="7.2 Cognitively Constricted"

 S YPRS(SCALCOD,"STR")="2^7^14^23^34^44^55^66^76^84^91^97^99"

 S SCALCOD="7.3 Reliable Self-Image"

 S YPRS(SCALCOD,"STR")="1^1^3^7^14^23^36^52^72^92"

 S SCALCOD="8A.1 Expressively Embittered"

 S YPRS(SCALCOD,"STR")="12^34^51^64^75^83^89^94^97^99"

 S SCALCOD="8A.2 Discontented Self-Image"

 S YPRS(SCALCOD,"STR")="7^21^34^44^54^64^73^79^85^92^96^99"

 S SCALCOD="8A.3 Temperamentally Irritable"

 S YPRS(SCALCOD,"STR")="13^36^51^62^71^78^84^88^93^97^99"

 S SCALCOD="8B.1 Undeserving Self-Image"

 S YPRS(SCALCOD,"STR")="9^26^40^50^60^67^73^79^84^88^93^96^99"

 S SCALCOD="8B.2 Inverted Architecture"

 S YPRS(SCALCOD,"STR")="13^35^49^61^70^79^87^93^97^99"

 S SCALCOD="8B.3 Temperamentally Dysphoric"

 S YPRS(SCALCOD,"STR")="3^12^22^32^44^55^67^79^89^97"

 S SCALCOD="S.1 Cognitively Circumstantial"

 S YPRS(SCALCOD,"STR")="9^24^37^49^60^71^80^87^93^98"

 S SCALCOD="S.2 Estranged Self-Image"

 S YPRS(SCALCOD,"STR")="10^29^43^53^62^70^76^82^87^92^97^99"

 S SCALCOD="S.3 Chaotic Content"

 S YPRS(SCALCOD,"STR")="17^43^60^71^79^86^90^94^96^98^99^99"

 S SCALCOD="C.1 Uncertain Self-Image"

 S YPRS(SCALCOD,"STR")="14^34^47^56^63^71^78^87^95"

 S SCALCOD="C.2 Split Architecture"

 S YPRS(SCALCOD,"STR")="13^34^48^58^66^73^79^84^90^94^98^9"

 S SCALCOD="C.3 Temperamentally Labile"

 S YPRS(SCALCOD,"STR")="13^33^47^59^69^76^82^89^94^98^99"

 S SCALCOD="P.1 Expressively Defensive"

 S YPRS(SCALCOD,"STR")="9^28^44^57^68^78^86^93^97^99"

 S SCALCOD="P.2 Cognitively Mistrustful"

 S YPRS(SCALCOD,"STR")="14^39^58^73^85^92^97^99"

 S SCALCOD="P.3 Projection Dynamics"

 S YPRS(SCALCOD,"STR")="17^43^60^72^81^87^92^95^97^98^99"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YTSMCMIE   4781     printed  Dec 13, 2024@02:20:02                                                                                                                                                                                                    Page 2

YTSMCMIE  ;BAL/KTL- MCMI4 ANSWERS SPECIAL HANDLING - INI ; 9/14/18 3:19pm

 +1       ;;5.01;MENTAL HEALTH;**151**;Dec 30, 1994;Build 92

 +2       ;

 +3       ; MCMI4 Scoring

 +4       ;

 +5       ; Initialize arrays for scoring MCMI4

 +6       ; Percentile Ranking (INIPRS)

 +7       ; Part 2 - This is an extension of YTSMCMID

INIPRS    ;

 +1       ;Initialize arrays and variables to calculate Percentile Ranking Scores

 +2       ;Piece Number indexed by Raw Score

 +3        SET SCALCOD="1.1 Interpersonally Unengaged"

 +4        SET YPRS(SCALCOD,"STR")="8^23^38^53^66^77^86^93^97^99"

 +5        SET SCALCOD="1.2 Meager Content"

 +6        SET YPRS(SCALCOD,"STR")="7^20^33^46^57^67^76^85^92^98"

 +7        SET SCALCOD="1.3 Temperamentally Apathetic"

 +8        SET YPRS(SCALCOD,"STR")="10^29^44^56^66^74^82^89^95^99"

 +9        SET SCALCOD="2A.1 Interpersonally Aversive"

 +10       SET YPRS(SCALCOD,"STR")="4^14^27^41^53^64^74^85^96"

 +11       SET SCALCOD="2A.2 Alienated Self-Image"

 +12       SET YPRS(SCALCOD,"STR")="8^24^38^50^61^70^78^87^94^98"

 +13       SET SCALCOD="2A.3 Vexatious Content"

 +14       SET YPRS(SCALCOD,"STR")="12^33^47^59^69^76^83^89^95^98"

 +15       SET SCALCOD="2B.1 Cognitively Fatalistic"

 +16       SET YPRS(SCALCOD,"STR")="6^17^28^39^50^60^70^80^89^97"

 +17       SET SCALCOD="2B.2 Worthless Self-Image"

 +18       SET YPRS(SCALCOD,"STR")="16^41^55^65^73^79^85^90^95^99"

 +19       SET SCALCOD="2B.3 Temperamentally Woeful"

 +20       SET YPRS(SCALCOD,"STR")="9^30^48^57^65^71^76^83^90^97"

 +21       SET SCALCOD="3.1 Expressively Puerile"

 +22       SET YPRS(SCALCOD,"STR")="8^21^34^47^59^69^79^87^94^98"

 +23       SET SCALCOD="3.2 Interpersonally Submissive"

 +24       SET YPRS(SCALCOD,"STR")="11^33^55^70^81^90^96^99"

 +25       SET SCALCOD="3.3 Inept Self-Image"

 +26       SET YPRS(SCALCOD,"STR")="7^22^38^54^66^76^84^91^96^99"

 +27       SET SCALCOD="4A.1 Expressively Dramatic"

 +28       SET YPRS(SCALCOD,"STR")="12^35^55^70^83^92^97^99"

 +29       SET SCALCOD="4A.2 Interpersonally Attention-Seeking"

 +30       SET YPRS(SCALCOD,"STR")="2^7^14^22^32^41^52^64^76^88^97"

 +31       SET SCALCOD="4A.3 Temperamentally Fickle"

 +32       SET YPRS(SCALCOD,"STR")="2^8^17^26^35^44^53^61^69^77^86^93^98"

 +33       SET SCALCOD="4B.1 Expressively Impetuous"

 +34       SET YPRS(SCALCOD,"STR")="7^22^35^48^59^69^80^89^97"

 +35       SET SCALCOD="4B.2 Interpersonally High-Spirited"

 +36       SET YPRS(SCALCOD,"STR")="3^11^22^34^45^57^71^84^95^99"

 +37       SET SCALCOD="4B.3 Exalted Self-Image"

 +38       SET YPRS(SCALCOD,"STR")="3^10^20^30^41^53^68^84^96"

 +39       SET SCALCOD="5.1 Interpersonally Exploitive"

 +40       SET YPRS(SCALCOD,"STR")="10^31^50^64^76^84^91^96^98^99"

 +41       SET SCALCOD="5.2 Cognitively Expansive"

 +42       SET YPRS(SCALCOD,"STR")="3^10^20^30^40^50^61^71^82^92^98"

 +43       SET SCALCOD="5.3 Admirable Self-Image"

 +44       SET YPRS(SCALCOD,"STR")="18^50^71^83^92^96^98^99^99"

 +45       SET SCALCOD="6A.1 Interpersonally Irresponsible"

 +46       SET YPRS(SCALCOD,"STR")="7^26^48^65^77^87^94^98^99"

 +47       SET SCALCOD="6A.2 Autonomous Self-Image"

 +48       SET YPRS(SCALCOD,"STR")="8^27^48^66^79^87^93^97^99^99^99"

 +49       SET SCALCOD="6A.3 Acting-Out Dynamics"

 +50       SET YPRS(SCALCOD,"STR")="13^40^61^75^83^88^92^95^97^99^99"

 +51       SET SCALCOD="6B.1 Expressively Precipitate"

 +52       SET YPRS(SCALCOD,"STR")="10^29^46^61^74^84^90^94^97^98^99^99"

 +53       SET SCALCOD="6B.2 Interpersonally Abrasive"

 +54       SET YPRS(SCALCOD,"STR")="13^35^55^72^85^93^98^99"

 +55       SET SCALCOD="6B.3 Eruptive Architecture"

 +56       SET YPRS(SCALCOD,"STR")="19^49^66^76^84^90^95^99"

 +57       SET SCALCOD="7.1 Expressively Disciplined"

 +58       SET YPRS(SCALCOD,"STR")="1^6^15^28^42^57^72^86^96"

 +59       SET SCALCOD="7.2 Cognitively Constricted"

 +60       SET YPRS(SCALCOD,"STR")="2^7^14^23^34^44^55^66^76^84^91^97^99"

 +61       SET SCALCOD="7.3 Reliable Self-Image"

 +62       SET YPRS(SCALCOD,"STR")="1^1^3^7^14^23^36^52^72^92"

 +63       SET SCALCOD="8A.1 Expressively Embittered"

 +64       SET YPRS(SCALCOD,"STR")="12^34^51^64^75^83^89^94^97^99"

 +65       SET SCALCOD="8A.2 Discontented Self-Image"

 +66       SET YPRS(SCALCOD,"STR")="7^21^34^44^54^64^73^79^85^92^96^99"

 +67       SET SCALCOD="8A.3 Temperamentally Irritable"

 +68       SET YPRS(SCALCOD,"STR")="13^36^51^62^71^78^84^88^93^97^99"

 +69       SET SCALCOD="8B.1 Undeserving Self-Image"

 +70       SET YPRS(SCALCOD,"STR")="9^26^40^50^60^67^73^79^84^88^93^96^99"

 +71       SET SCALCOD="8B.2 Inverted Architecture"

 +72       SET YPRS(SCALCOD,"STR")="13^35^49^61^70^79^87^93^97^99"

 +73       SET SCALCOD="8B.3 Temperamentally Dysphoric"

 +74       SET YPRS(SCALCOD,"STR")="3^12^22^32^44^55^67^79^89^97"

 +75       SET SCALCOD="S.1 Cognitively Circumstantial"

 +76       SET YPRS(SCALCOD,"STR")="9^24^37^49^60^71^80^87^93^98"

 +77       SET SCALCOD="S.2 Estranged Self-Image"

 +78       SET YPRS(SCALCOD,"STR")="10^29^43^53^62^70^76^82^87^92^97^99"

 +79       SET SCALCOD="S.3 Chaotic Content"

 +80       SET YPRS(SCALCOD,"STR")="17^43^60^71^79^86^90^94^96^98^99^99"

 +81       SET SCALCOD="C.1 Uncertain Self-Image"

 +82       SET YPRS(SCALCOD,"STR")="14^34^47^56^63^71^78^87^95"

 +83       SET SCALCOD="C.2 Split Architecture"

 +84       SET YPRS(SCALCOD,"STR")="13^34^48^58^66^73^79^84^90^94^98^9"

 +85       SET SCALCOD="C.3 Temperamentally Labile"

 +86       SET YPRS(SCALCOD,"STR")="13^33^47^59^69^76^82^89^94^98^99"

 +87       SET SCALCOD="P.1 Expressively Defensive"

 +88       SET YPRS(SCALCOD,"STR")="9^28^44^57^68^78^86^93^97^99"

 +89       SET SCALCOD="P.2 Cognitively Mistrustful"

 +90       SET YPRS(SCALCOD,"STR")="14^39^58^73^85^92^97^99"

 +91       SET SCALCOD="P.3 Projection Dynamics"

 +92       SET YPRS(SCALCOD,"STR")="17^43^60^72^81^87^92^95^97^98^99"

 +93       QUIT