- 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 ---[H[J[2J[HYTSMCMIC 8769 printed Feb 18, 2025@23:46:19 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