Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: YTSMCMIE

YTSMCMIE.m

Go to the documentation of this file.
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