YTSMCMIC.m

YTSMCMIC ;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

 ; Base Rate Score value (INIBRS)

 ; 

INIBRS ;

 ;Initialize arrays and variables to calculate Base Rate Scores

 ;

 N SCALCOD,STR

 S SCALCOD="X Disclosure"

 S YBRS(SCALCOD,"STR")="^^^^^^^0^2^5^7^10^12^15^17^19^21^23^25^28^30^33^35^37^39^41^43^45^46^47^48^49^50^52^54^56^58^60^61^62^63^64^65^66^67^68"

 S YBRS(SCALCOD,"STR")=YBRS(SCALCOD,"STR")_"^68^69^70^71^72^73^74^75^76^77^78^79^79^80^80^81^81^82^83^84^85^86^86^86^87^87^87^88^88"

 S YBRS(SCALCOD,"STR")=YBRS(SCALCOD,"STR")_"^88^89^89^89^90^90^90^91^91^91^92^92^93^93^94^94^95^95^96^96^96^97^97^98^98^99^99^100"

 S YBRS(SCALCOD,"STR")=YBRS(SCALCOD,"STR")_"^100^100^100^100^100^100^100^100^100^100^100^100"

 S SCALCOD="Y Desirability"

 S YBRS(SCALCOD,"STR")="0^5^10^15^20^25^30^35^40^45^50^55^60^63^66^69^72^75^78^81^85^89^93^97^100"

 S SCALCOD="Z Debasement"

 S YBRS(SCALCOD,"STR")="0^35^38^41^44^47^50^53^56^60^62^64^66^68^70^72^74^75^77^79^80^81^83^85^88^91^93^95^97^100^100"

 S SCALCOD="1 Schizoid"

 S YBRS(SCALCOD,"STR")="0^9^17^25^34^43^52^60^62^64^66^69^71^73^75^76^78^79^81^82^84^85^100^115"

 S SCALCOD="2A Avoidant"

 S YBRS(SCALCOD,"STR")="0^9^17^25^34^43^52^60^65^70^75^76^77^78^79^81^82^83^84^85^91^97^103^109^115"

 S SCALCOD="2B Melancholic"

 S YBRS(SCALCOD,"STR")="0^8^15^22^29^37^45^53^60^65^70^75^76^77^78^79^79^80^80^81^82^83^84^85^91^97^103^109^115"

 S SCALCOD="3 Dependent"

 S YBRS(SCALCOD,"STR")="0^10^20^30^40^50^60^64^68^72^75^76^78^79^81^82^84^85^90^95^100^105^110^115"

 S SCALCOD="4A Histrionic"

 S YBRS(SCALCOD,"STR")="0^6^11^16^21^26^31^37^43^49^54^60^62^65^67^69^72^75^77^80^83^85^90^95^100"

 S SCALCOD="4B Turbulent"

 S YBRS(SCALCOD,"STR")="0^6^12^18^24^30^36^42^48^54^60^61^63^65^67^68^69^71^73^74^75^78^82^85^93^100"

 S SCALCOD="5 Narcissistic"

 S YBRS(SCALCOD,"STR")="0^12^24^36^48^60^62^65^67^69^72^75^77^79^81^83^85^88^92^95^99^102^106^109^111^113^115"

 S SCALCOD="6A Antisocial"

 S YBRS(SCALCOD,"STR")="0^20^40^60^62^64^66^69^71^73^75^77^79^81^83^85^90^95^100^105^110^115"

 S SCALCOD="6B Sadistic"

 S YBRS(SCALCOD,"STR")="0^15^30^45^60^61^63^65^67^69^71^73^74^75^77^79^81^83^85^92^99^106^115"

 S SCALCOD="7 Compulsive"

 S YBRS(SCALCOD,"STR")="0^4^8^13^17^21^26^30^34^39^43^47^52^56^60^62^65^67^69^72^75^80^85^100"

 S SCALCOD="8A Negativistic"

 S YBRS(SCALCOD,"STR")="0^10^20^30^40^50^60^62^65^67^69^72^75^76^77^78^79^80^81^82^83^84^85^92^99^106^115"

 S SCALCOD="8B Masochistic"

 S YBRS(SCALCOD,"STR")="0^12^24^36^48^60^62^65^67^69^72^75^76^77^78^79^80^80^81^82^83^84^85^95^105^115"

 S SCALCOD="S Schizotypal"

 S YBRS(SCALCOD,"STR")="0^12^24^36^48^60^61^63^65^66^67^68^69^71^73^74^75^76^77^78^79^81^82^83^84^85^92^99^106^115"

 S SCALCOD="C Borderline"

 S YBRS(SCALCOD,"STR")="0^10^20^30^40^50^60^63^66^69^72^75^76^77^78^79^81^82^83^84^85^89^94^98^102^106^111^115"

 S SCALCOD="P Paranoid"

 S YBRS(SCALCOD,"STR")="0^15^30^45^60^62^64^66^69^71^73^75^76^78^79^80^81^82^84^85^91^97^103^109^115"

 S SCALCOD="A Generalized Anxiety"

 S YBRS(SCALCOD,"STR")="0^15^30^45^60^75^77^80^83^85^88^91^94^97^100^103^106^109^112^115"

 S SCALCOD="H Somatic Symptom"

 S YBRS(SCALCOD,"STR")="0^10^20^30^40^50^60^64^68^72^75^78^82^85^100^115"

 S SCALCOD="N Bipolar Spectrum"

 S YBRS(SCALCOD,"STR")="0^12^24^36^48^60^63^66^69^72^75^78^82^85^90^95^100^105^110^115"

 S SCALCOD="D Persistent Depression"

 S YBRS(SCALCOD,"STR")="0^7^14^20^26^33^40^47^54^60^61^63^65^67^69^71^73^74^75^77^80^83^85^91^97^103^109^115"

 S SCALCOD="B Alcohol Use"

 S YBRS(SCALCOD,"STR")="0^60^68^75^78^82^85^89^94^98^102^106^111^115"

 S SCALCOD="T Drug Use"

 S YBRS(SCALCOD,"STR")="0^60^62^65^67^69^72^75^77^80^83^85^89^94^98^102^106^111^115"

 S SCALCOD="R Post-Traumatic Stress"

 S YBRS(SCALCOD,"STR")="0^20^40^60^62^64^66^69^71^73^75^78^82^85^90^95^100^105^110^115"

 S SCALCOD="SS Schizophrenic Spectrum"

 S YBRS(SCALCOD,"STR")="0^9^17^25^34^43^52^60^61^63^64^65^66^67^68^69^71^73^74^75^77^80^83^85^92^99^106^115"

 S SCALCOD="CC Major Depression"

 S YBRS(SCALCOD,"STR")="0^12^24^36^48^60^64^68^72^75^77^79^80^81^83^85^88^92^95^99^102^106^109^112^115"

 S SCALCOD="PP Delusional"

 S YBRS(SCALCOD,"STR")="0^60^62^64^66^68^70^72^74^75^76^78^79^81^82^84^85^95^105^115"

 S SCALCOD="1.1 Interpersonally Unengaged"

 S YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^80^85^100"

 S SCALCOD="1.2 Meager Content"

 S YBRS(SCALCOD,"STR")="0^20^40^60^64^68^72^75^85^100"

 S SCALCOD="1.3 Temperamentally Apathetic"

 S YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^80^85^100"

 S SCALCOD="2A.1 Interpersonally Aversive"

 S YBRS(SCALCOD,"STR")="0^20^40^60^68^75^78^82^85"

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

 S YBRS(SCALCOD,"STR")="0^30^60^65^70^75^78^82^85^100"

 S SCALCOD="2A.3 Vexatious Content"

 S YBRS(SCALCOD,"STR")="0^30^60^68^75^77^80^83^85^100"

 S SCALCOD="2B.1 Cognitively Fatalistic"

 S YBRS(SCALCOD,"STR")="0^20^40^60^65^70^75^80^85^100"

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

 S YBRS(SCALCOD,"STR")="0^60^65^70^75^78^82^85^92^100"

 S SCALCOD="2B.3 Temperamentally Woeful"

 S YBRS(SCALCOD,"STR")="0^30^60^65^70^75^78^82^85^100"

 S SCALCOD="3.1 Expressively Puerile"

 S YBRS(SCALCOD,"STR")="0^20^40^60^65^70^75^80^85^100"

 S SCALCOD="3.2 Interpersonally Submissive"

 S YBRS(SCALCOD,"STR")="0^60^65^70^75^80^85^100"

 S SCALCOD="3.3 Inept Self-Image"

 S YBRS(SCALCOD,"STR")="0^30^60^65^70^75^78^82^85^100"

 S SCALCOD="4A.1 Expressively Dramatic"

 S YBRS(SCALCOD,"STR")="0^60^65^70^75^80^85^100"

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

 S YBRS(SCALCOD,"STR")="0^12^24^36^48^60^65^70^75^80^85"

 S SCALCOD="4A.3 Temperamentally Fickle"

 S YBRS(SCALCOD,"STR")="0^12^24^36^48^60^64^68^72^75^78^82^85"

 S SCALCOD="4B.1 Expressively Impetuous"

 S YBRS(SCALCOD,"STR")="0^20^40^60^65^70^75^85^100"

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

 S YBRS(SCALCOD,"STR")="0^15^30^45^60^65^70^75^85^100"

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

 S YBRS(SCALCOD,"STR")="0^15^30^45^60^65^70^75^85"

 S SCALCOD="5.1 Interpersonally Exploitive"

 S YBRS(SCALCOD,"STR")="0^30^60^65^70^75^80^85^92^100"

 S SCALCOD="5.2 Cognitively Expansive"

 S YBRS(SCALCOD,"STR")="0^12^24^36^48^60^65^70^75^85^100"

 S SCALCOD="5.3 Admirable Self-Image"

 S YBRS(SCALCOD,"STR")="0^60^68^75^80^85^90^95^100"

 S SCALCOD="6A.1 Interpersonally Irresponsible"

 S YBRS(SCALCOD,"STR")="0^30^60^65^70^75^80^85^100"

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

 S YBRS(SCALCOD,"STR")="0^30^60^65^70^75^80^85^90^95^100"

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

 S YBRS(SCALCOD,"STR")="0^60^64^68^72^75^78^82^85^92^100"

 S SCALCOD="6B.1 Expressively Precipitate"

 S YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^78^82^85^92^100"

 S SCALCOD="6B.2 Interpersonally Abrasive"

 S YBRS(SCALCOD,"STR")="0^60^64^68^72^75^85^100"

 S SCALCOD="6B.3 Eruptive Architecture"

 S YBRS(SCALCOD,"STR")="0^60^64^68^72^75^85^100"

 S SCALCOD="7.1 Expressively Disciplined"

 S YBRS(SCALCOD,"STR")="0^15^30^45^60^65^70^75^85"

 S SCALCOD="7.2 Cognitively Constricted"

 S YBRS(SCALCOD,"STR")="0^12^24^36^48^60^64^68^72^75^80^85^100"

 S SCALCOD="7.3 Reliable Self-Image"

 S YBRS(SCALCOD,"STR")="0^10^20^30^40^50^60^68^75^85"

 S SCALCOD="8A.1 Expressively Embittered"

 S YBRS(SCALCOD,"STR")="0^60^65^70^75^77^80^83^85^100"

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

 S YBRS(SCALCOD,"STR")="0^20^40^60^64^68^72^75^78^82^85^100"

 S SCALCOD="8A.3 Temperamentally Irritable"

 S YBRS(SCALCOD,"STR")="0^60^64^68^72^75^77^80^83^85^100"

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

 S YBRS(SCALCOD,"STR")="0^30^60^62^65^67^69^72^75^78^82^85^100"

 S SCALCOD="8B.2 Inverted Architecture"

 S YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^80^85^100"

 S SCALCOD="8B.3 Temperamentally Dysphoric"

 S YBRS(SCALCOD,"STR")="0^24^36^48^60^65^70^75^80^85"

 S SCALCOD="S.1 Cognitively Circumstantial"

 S YBRS(SCALCOD,"STR")="0^20^40^60^63^66^69^72^75^85"

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

 S YBRS(SCALCOD,"STR")="0^30^60^62^64^66^69^71^73^75^85^100"

 S SCALCOD="S.3 Chaotic Content"

 S YBRS(SCALCOD,"STR")="0^60^63^66^69^72^75^78^82^85^92^100"

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

 S YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^80^85"

 S SCALCOD="C.2 Split Architecture"

 S YBRS(SCALCOD,"STR")="0^30^60^63^66^69^72^75^78^82^85^100"

 S SCALCOD="C.3 Temperamentally Labile"

 S YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^78^82^85^100"

 S SCALCOD="P.1 Expressively Defensive"

 S YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^80^85^100"

 S SCALCOD="P.2 Cognitively Mistrustful"

 S YBRS(SCALCOD,"STR")="0^60^65^70^75^80^85^100"

 S SCALCOD="P.3 Projection Dynamics"

 S YBRS(SCALCOD,"STR")="0^60^65^70^75^77^80^83^85^92^100"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---YTSMCMIC   8769     printed  Nov 22, 2024@17:30:01                                                                                                                                                                                                    Page 2

YTSMCMIC  ;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       ; Base Rate Score value (INIBRS)

 +7       ; 

INIBRS    ;

 +1       ;Initialize arrays and variables to calculate Base Rate Scores

 +2       ;

 +3        NEW SCALCOD,STR

 +4        SET SCALCOD="X Disclosure"

 +5        SET YBRS(SCALCOD,"STR")="^^^^^^^0^2^5^7^10^12^15^17^19^21^23^25^28^30^33^35^37^39^41^43^45^46^47^48^49^50^52^54^56^58^60^61^62^63^64^65^66^67^68"

 +6        SET YBRS(SCALCOD,"STR")=YBRS(SCALCOD,"STR")_"^68^69^70^71^72^73^74^75^76^77^78^79^79^80^80^81^81^82^83^84^85^86^86^86^87^87^87^88^88"

 +7        SET YBRS(SCALCOD,"STR")=YBRS(SCALCOD,"STR")_"^88^89^89^89^90^90^90^91^91^91^92^92^93^93^94^94^95^95^96^96^96^97^97^98^98^99^99^100"

 +8        SET YBRS(SCALCOD,"STR")=YBRS(SCALCOD,"STR")_"^100^100^100^100^100^100^100^100^100^100^100^100"

 +9        SET SCALCOD="Y Desirability"

 +10       SET YBRS(SCALCOD,"STR")="0^5^10^15^20^25^30^35^40^45^50^55^60^63^66^69^72^75^78^81^85^89^93^97^100"

 +11       SET SCALCOD="Z Debasement"

 +12       SET YBRS(SCALCOD,"STR")="0^35^38^41^44^47^50^53^56^60^62^64^66^68^70^72^74^75^77^79^80^81^83^85^88^91^93^95^97^100^100"

 +13       SET SCALCOD="1 Schizoid"

 +14       SET YBRS(SCALCOD,"STR")="0^9^17^25^34^43^52^60^62^64^66^69^71^73^75^76^78^79^81^82^84^85^100^115"

 +15       SET SCALCOD="2A Avoidant"

 +16       SET YBRS(SCALCOD,"STR")="0^9^17^25^34^43^52^60^65^70^75^76^77^78^79^81^82^83^84^85^91^97^103^109^115"

 +17       SET SCALCOD="2B Melancholic"

 +18       SET YBRS(SCALCOD,"STR")="0^8^15^22^29^37^45^53^60^65^70^75^76^77^78^79^79^80^80^81^82^83^84^85^91^97^103^109^115"

 +19       SET SCALCOD="3 Dependent"

 +20       SET YBRS(SCALCOD,"STR")="0^10^20^30^40^50^60^64^68^72^75^76^78^79^81^82^84^85^90^95^100^105^110^115"

 +21       SET SCALCOD="4A Histrionic"

 +22       SET YBRS(SCALCOD,"STR")="0^6^11^16^21^26^31^37^43^49^54^60^62^65^67^69^72^75^77^80^83^85^90^95^100"

 +23       SET SCALCOD="4B Turbulent"

 +24       SET YBRS(SCALCOD,"STR")="0^6^12^18^24^30^36^42^48^54^60^61^63^65^67^68^69^71^73^74^75^78^82^85^93^100"

 +25       SET SCALCOD="5 Narcissistic"

 +26       SET YBRS(SCALCOD,"STR")="0^12^24^36^48^60^62^65^67^69^72^75^77^79^81^83^85^88^92^95^99^102^106^109^111^113^115"

 +27       SET SCALCOD="6A Antisocial"

 +28       SET YBRS(SCALCOD,"STR")="0^20^40^60^62^64^66^69^71^73^75^77^79^81^83^85^90^95^100^105^110^115"

 +29       SET SCALCOD="6B Sadistic"

 +30       SET YBRS(SCALCOD,"STR")="0^15^30^45^60^61^63^65^67^69^71^73^74^75^77^79^81^83^85^92^99^106^115"

 +31       SET SCALCOD="7 Compulsive"

 +32       SET YBRS(SCALCOD,"STR")="0^4^8^13^17^21^26^30^34^39^43^47^52^56^60^62^65^67^69^72^75^80^85^100"

 +33       SET SCALCOD="8A Negativistic"

 +34       SET YBRS(SCALCOD,"STR")="0^10^20^30^40^50^60^62^65^67^69^72^75^76^77^78^79^80^81^82^83^84^85^92^99^106^115"

 +35       SET SCALCOD="8B Masochistic"

 +36       SET YBRS(SCALCOD,"STR")="0^12^24^36^48^60^62^65^67^69^72^75^76^77^78^79^80^80^81^82^83^84^85^95^105^115"

 +37       SET SCALCOD="S Schizotypal"

 +38       SET YBRS(SCALCOD,"STR")="0^12^24^36^48^60^61^63^65^66^67^68^69^71^73^74^75^76^77^78^79^81^82^83^84^85^92^99^106^115"

 +39       SET SCALCOD="C Borderline"

 +40       SET YBRS(SCALCOD,"STR")="0^10^20^30^40^50^60^63^66^69^72^75^76^77^78^79^81^82^83^84^85^89^94^98^102^106^111^115"

 +41       SET SCALCOD="P Paranoid"

 +42       SET YBRS(SCALCOD,"STR")="0^15^30^45^60^62^64^66^69^71^73^75^76^78^79^80^81^82^84^85^91^97^103^109^115"

 +43       SET SCALCOD="A Generalized Anxiety"

 +44       SET YBRS(SCALCOD,"STR")="0^15^30^45^60^75^77^80^83^85^88^91^94^97^100^103^106^109^112^115"

 +45       SET SCALCOD="H Somatic Symptom"

 +46       SET YBRS(SCALCOD,"STR")="0^10^20^30^40^50^60^64^68^72^75^78^82^85^100^115"

 +47       SET SCALCOD="N Bipolar Spectrum"

 +48       SET YBRS(SCALCOD,"STR")="0^12^24^36^48^60^63^66^69^72^75^78^82^85^90^95^100^105^110^115"

 +49       SET SCALCOD="D Persistent Depression"

 +50       SET YBRS(SCALCOD,"STR")="0^7^14^20^26^33^40^47^54^60^61^63^65^67^69^71^73^74^75^77^80^83^85^91^97^103^109^115"

 +51       SET SCALCOD="B Alcohol Use"

 +52       SET YBRS(SCALCOD,"STR")="0^60^68^75^78^82^85^89^94^98^102^106^111^115"

 +53       SET SCALCOD="T Drug Use"

 +54       SET YBRS(SCALCOD,"STR")="0^60^62^65^67^69^72^75^77^80^83^85^89^94^98^102^106^111^115"

 +55       SET SCALCOD="R Post-Traumatic Stress"

 +56       SET YBRS(SCALCOD,"STR")="0^20^40^60^62^64^66^69^71^73^75^78^82^85^90^95^100^105^110^115"

 +57       SET SCALCOD="SS Schizophrenic Spectrum"

 +58       SET YBRS(SCALCOD,"STR")="0^9^17^25^34^43^52^60^61^63^64^65^66^67^68^69^71^73^74^75^77^80^83^85^92^99^106^115"

 +59       SET SCALCOD="CC Major Depression"

 +60       SET YBRS(SCALCOD,"STR")="0^12^24^36^48^60^64^68^72^75^77^79^80^81^83^85^88^92^95^99^102^106^109^112^115"

 +61       SET SCALCOD="PP Delusional"

 +62       SET YBRS(SCALCOD,"STR")="0^60^62^64^66^68^70^72^74^75^76^78^79^81^82^84^85^95^105^115"

 +63       SET SCALCOD="1.1 Interpersonally Unengaged"

 +64       SET YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^80^85^100"

 +65       SET SCALCOD="1.2 Meager Content"

 +66       SET YBRS(SCALCOD,"STR")="0^20^40^60^64^68^72^75^85^100"

 +67       SET SCALCOD="1.3 Temperamentally Apathetic"

 +68       SET YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^80^85^100"

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

 +70       SET YBRS(SCALCOD,"STR")="0^20^40^60^68^75^78^82^85"

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

 +72       SET YBRS(SCALCOD,"STR")="0^30^60^65^70^75^78^82^85^100"

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

 +74       SET YBRS(SCALCOD,"STR")="0^30^60^68^75^77^80^83^85^100"

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

 +76       SET YBRS(SCALCOD,"STR")="0^20^40^60^65^70^75^80^85^100"

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

 +78       SET YBRS(SCALCOD,"STR")="0^60^65^70^75^78^82^85^92^100"

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

 +80       SET YBRS(SCALCOD,"STR")="0^30^60^65^70^75^78^82^85^100"

 +81       SET SCALCOD="3.1 Expressively Puerile"

 +82       SET YBRS(SCALCOD,"STR")="0^20^40^60^65^70^75^80^85^100"

 +83       SET SCALCOD="3.2 Interpersonally Submissive"

 +84       SET YBRS(SCALCOD,"STR")="0^60^65^70^75^80^85^100"

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

 +86       SET YBRS(SCALCOD,"STR")="0^30^60^65^70^75^78^82^85^100"

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

 +88       SET YBRS(SCALCOD,"STR")="0^60^65^70^75^80^85^100"

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

 +90       SET YBRS(SCALCOD,"STR")="0^12^24^36^48^60^65^70^75^80^85"

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

 +92       SET YBRS(SCALCOD,"STR")="0^12^24^36^48^60^64^68^72^75^78^82^85"

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

 +94       SET YBRS(SCALCOD,"STR")="0^20^40^60^65^70^75^85^100"

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

 +96       SET YBRS(SCALCOD,"STR")="0^15^30^45^60^65^70^75^85^100"

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

 +98       SET YBRS(SCALCOD,"STR")="0^15^30^45^60^65^70^75^85"

 +99       SET SCALCOD="5.1 Interpersonally Exploitive"

 +100      SET YBRS(SCALCOD,"STR")="0^30^60^65^70^75^80^85^92^100"

 +101      SET SCALCOD="5.2 Cognitively Expansive"

 +102      SET YBRS(SCALCOD,"STR")="0^12^24^36^48^60^65^70^75^85^100"

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

 +104      SET YBRS(SCALCOD,"STR")="0^60^68^75^80^85^90^95^100"

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

 +106      SET YBRS(SCALCOD,"STR")="0^30^60^65^70^75^80^85^100"

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

 +108      SET YBRS(SCALCOD,"STR")="0^30^60^65^70^75^80^85^90^95^100"

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

 +110      SET YBRS(SCALCOD,"STR")="0^60^64^68^72^75^78^82^85^92^100"

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

 +112      SET YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^78^82^85^92^100"

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

 +114      SET YBRS(SCALCOD,"STR")="0^60^64^68^72^75^85^100"

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

 +116      SET YBRS(SCALCOD,"STR")="0^60^64^68^72^75^85^100"

 +117      SET SCALCOD="7.1 Expressively Disciplined"

 +118      SET YBRS(SCALCOD,"STR")="0^15^30^45^60^65^70^75^85"

 +119      SET SCALCOD="7.2 Cognitively Constricted"

 +120      SET YBRS(SCALCOD,"STR")="0^12^24^36^48^60^64^68^72^75^80^85^100"

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

 +122      SET YBRS(SCALCOD,"STR")="0^10^20^30^40^50^60^68^75^85"

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

 +124      SET YBRS(SCALCOD,"STR")="0^60^65^70^75^77^80^83^85^100"

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

 +126      SET YBRS(SCALCOD,"STR")="0^20^40^60^64^68^72^75^78^82^85^100"

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

 +128      SET YBRS(SCALCOD,"STR")="0^60^64^68^72^75^77^80^83^85^100"

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

 +130      SET YBRS(SCALCOD,"STR")="0^30^60^62^65^67^69^72^75^78^82^85^100"

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

 +132      SET YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^80^85^100"

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

 +134      SET YBRS(SCALCOD,"STR")="0^24^36^48^60^65^70^75^80^85"

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

 +136      SET YBRS(SCALCOD,"STR")="0^20^40^60^63^66^69^72^75^85"

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

 +138      SET YBRS(SCALCOD,"STR")="0^30^60^62^64^66^69^71^73^75^85^100"

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

 +140      SET YBRS(SCALCOD,"STR")="0^60^63^66^69^72^75^78^82^85^92^100"

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

 +142      SET YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^80^85"

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

 +144      SET YBRS(SCALCOD,"STR")="0^30^60^63^66^69^72^75^78^82^85^100"

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

 +146      SET YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^78^82^85^100"

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

 +148      SET YBRS(SCALCOD,"STR")="0^30^60^64^68^72^75^80^85^100"

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

 +150      SET YBRS(SCALCOD,"STR")="0^60^65^70^75^80^85^100"

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

 +152      SET YBRS(SCALCOD,"STR")="0^60^65^70^75^77^80^83^85^92^100"

 +153      QUIT