YS119PS2 ;HIOFO/FT - Patch 119 post-init - MCMI3 ; 1/14/2016
;;5.01;MENTAL HEALTH;**119**;Dec 30, 1994;Build 40
Q
;
EN1 ;Change "F" and "M" nodes for MCMI3 entry in MH INSTRUMENT (#601)
N YSERROR,YSSEX
I $P($G(^YTT(601,246,0)),U,1)'="MCMI3" D Q ;is entry 246 = MCMI3
.S YSERROR(1)="There is a problem updating the MCMI3 instrument definition in the"
.S YSERROR(2)="MH INSTRUMENT file (#601). The internal entry number is different"
.S YSERROR(3)="than what I expected. Please enter a ticket."
.S YSERROR(4)="I'll proceed with the rest of the patch installation."
.D EN^DDIOL(.YSERROR,"","")
; "F" and "M" nodes are the same values now
D EN1A,EN2,EN3
F YSSEX="F","M" D
.;Y Desirability
.S ^YTT(601,246,"S",3,YSSEX)="0^5^10^15^20^25^30^35^39^43^47^51^55^59^63^67^71^75^80^85^93^100"
.;Z Debasement
.S ^YTT(601,246,"S",4,YSSEX)="0^18^35^38^40^42^45^47^49^52^54^56^59^61^63^66^68^70^73^75^76^78^79^81^82^84^85^88^90^92^94^96^98^100"
.;1 Schizoid
.S ^YTT(601,246,"S",5,YSSEX)="0^12^24^36^48^60^62^64^66^68^70^72^75^78^81^85^89^93^97^101^105^109^112^115"
.;2A Avoidant
.S ^YTT(601,246,"S",6,YSSEX)="0^12^24^36^48^60^63^67^71^75^77^79^81^83^85^88^91^94^97^100^103^106^109^112^115"
.;2B Depressive
.S ^YTT(601,246,"S",7,YSSEX)="0^10^20^30^40^50^60^65^70^75^77^79^81^83^85^89^92^96^99^103^106^109^112^115"
.;3 Dependent
.S ^YTT(601,246,"S",8,YSSEX)="0^10^20^30^40^50^60^65^70^75^78^81^83^85^87^89^91^94^97^100^103^106^109^112^115"
.;4 Histrionic
.S ^YTT(601,246,"S",9,YSSEX)="0^4^8^12^16^20^24^28^32^36^40^44^48^51^54^57^60^63^66^69^72^75^79^83^88"
.;5 Narcissistic
.S ^YTT(601,246,"S",10,YSSEX)="0^5^10^15^20^25^30^35^40^44^48^52^56^60^63^67^71^75^85^89^93^97^101^105^110^115"
.;6A Antisocial
.S ^YTT(601,246,"S",11,YSSEX)="0^12^24^36^48^60^62^64^66^69^71^73^75^79^82^85^89^92^96^99^103^106^109^112^115"
.;6B Sadistic
.S ^YTT(601,246,"S",12,YSSEX)="0^12^24^36^48^60^62^64^66^68^69^70^71^72^73^74^75^78^80^83^85^90^95^100^105^110^115"
.;7 Compulsive
.S ^YTT(601,246,"S",13,YSSEX)="0^4^8^12^16^20^24^28^32^36^39^42^45^48^51^54^57^60^63^66^69^72^75^79^83^87"
.;8A Negativistic
.S ^YTT(601,246,"S",14,YSSEX)="0^10^20^30^40^50^60^62^64^66^68^70^72^75^77^79^81^83^85^89^93^97^101^105^110^115"
.;8B Masochistic
.S ^YTT(601,246,"S",15,YSSEX)="0^20^40^60^63^66^69^72^75^78^80^82^85^88^91^94^97^100^103^106^109^112^115"
.;S Schizotypal
.S ^YTT(601,246,"S",16,YSSEX)="0^20^40^60^62^64^66^67^68^69^70^71^72^73^74^75^78^81^85^90^95^99^103^107^111^115"
.;C Borderline
.S ^YTT(601,246,"S",17,YSSEX)="0^12^24^36^48^60^63^66^69^72^75^77^79^81^83^85^88^91^94^97^100^103^106^109^112^115"
.;P Paranoid
.S ^YTT(601,246,"S",18,YSSEX)="0^15^30^45^60^61^63^64^66^67^69^70^72^73^75^77^79^81^83^85^90^95^100^105^110^115"
.;A Anxiety Disorder
.S ^YTT(601,246,"S",19,YSSEX)="0^20^40^60^75^77^79^81^83^85^87^89^91^94^97^100^103^106^109^112^115"
.;H Somatoform Disorder
.S ^YTT(601,246,"S",20,YSSEX)="0^15^30^45^60^62^64^66^68^70^72^73^74^75^80^85^100^115"
.;N Bipolar
.S ^YTT(601,246,"S",21,YSSEX)="0^12^24^36^48^60^63^66^69^72^75^80^85^90^95^100^105^110^115"
.;D Dysthymic Disorder
.S ^YTT(601,246,"S",22,YSSEX)="0^12^24^36^48^60^62^64^66^69^72^75^78^80^82^85^91^97^103^109^115"
.;B Alcohol Dependence
.S ^YTT(601,246,"S",23,YSSEX)="0^20^40^60^63^67^71^75^77^80^83^85^88^91^95^99^103^107^111^115"
.;T Drug Dependence
.S ^YTT(601,246,"S",24,YSSEX)="0^20^40^60^63^67^71^75^76^77^78^79^81^83^85^90^95^100^105^110^115"
.;R Post-Traumatic Stress
.S ^YTT(601,246,"S",25,YSSEX)="0^15^30^45^60^62^63^65^66^68^69^71^73^75^77^79^81^83^85^95^105^115"
.;SS Thought Disorder
.S ^YTT(601,246,"S",26,YSSEX)="0^15^30^45^60^62^64^66^67^68^69^70^71^72^73^74^75^79^82^85^93^100^108^115"
.;CC Major Depression
.S ^YTT(601,246,"S",27,YSSEX)="0^15^30^45^60^65^70^75^78^81^85^87^89^91^93^95^97^99^101^103^106^109^112^115"
.;PP Delusional Disorder
.S ^YTT(601,246,"S",28,YSSEX)="0^30^60^62^65^68^70^72^75^80^85^90^95^100^105^110^115"
Q
EN1A ;change SCALE NAME (601.01, .05) of IEN 1 from "V Validity" to "V Invalidity"
S $P(^YTT(601,246,"S",1,0),U,2)="V Invalidity"
S ^YTT(601,246,"S","C","V Invalidity",1)=""
K ^YTT(601,246,"S","C","V Validity")
Q
EN2 ;Create new nodes for Inconsistency scale (W)
N DA,DIK,YSCHECK,YSERROR
I $P($G(^YTT(601,246,0)),U,1)'="MCMI3" Q
S YSCHECK=$G(^YTT(601,246,"S",29,0))
I YSCHECK'="",YSCHECK'="29^W Inconsistency" D Q
.S YSERROR(1)="There is a problem adding the new 'W Inconsistency' scale to the"
.S YSERROR(2)="MH INSTRUMENT file (#601) for MCMI3. Please enter a ticket."
.S YSERROR(4)="I'll proceed with the rest of the patch installation."
.D EN^DDIOL(.YSERROR,"","")
S ^YTT(601,246,"S",29,0)="29^W Inconsistency"
S ^YTT(601,246,"S",29,"K",1,0)="1;T-4;F^1;F-4;T^8;F-141;T^13;T-66;F^13;F-66;T^15;T-133;F^20;T-112;F^20;F-112;T^22;T-83;F^24;F-151;T^25;T-56;F"
S ^YTT(601,246,"S",29,"K",2,0)="25;F-56;T^27;F-92;T^32;T-80;F^35;T-84;F^35;F-84;T^39;T-118;F^39;F-118;T^41;F-166;T^44;T-86;F^44;F-150;T"
S ^YTT(601,246,"S",29,"K",3,0)="48;T-92;F^49;T-146;F^52;F-152;T^55;F-130;T^57;F-80;T^61;F-76;T^62;F-86;T^68;F-162;T^69;T-99;F^70;F-104;T"
S ^YTT(601,246,"S",29,"K",4,0)="72;F-142;T^74;F-107;T^77;T-131;F^91;T-136;F^91;F-136;T^108;T-135;F^109;F-164;T^123;F-128;T^129;T-173;F"
S ^YTT(601,246,"S",29,"K",5,0)="133;T-145;F^147;F-149;T^160;T-164;F^160;F-173;T"
S ^YTT(601,246,"S","B",29,29)=""
S ^YTT(601,246,"S","C","W Inconsistency",29)=""
Q
EN3 ;Update disclosure (scale X) adjustments
S ^YTT(601,246,"S",2,"M")="0^2^3^5^6^8^9^11^12^14^15^17^18^20^21^23^24^26^27^29^30^32^33^35^36^37^37^38^39^39^40^41^41^42^43^43^44^45^45^46^47^47^48^49^49^50^51^51^52^53^53^54^55^55^56^57^57^58^59^59^60^61^61^62^63^63^64"
S ^YTT(601,246,"S",2,"MS")="65^65^66^67^67^68^69^69^70^71^71^72^73^73^74^74^75^75^75^76^76^76^77^77^77^78^78^78^79^79^79^80^80^80^81^81^81^82^82^82^83^83^84^84^85^85^86^86^87^88^88^89^89^90^90^91^92^92^93^93^94^94^95^95^96^96^97^97^98^99"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYS119PS2 6005 printed Apr 09, 2024@21:16:09 Page 2
YS119PS2 ;HIOFO/FT - Patch 119 post-init - MCMI3 ; 1/14/2016
+1 ;;5.01;MENTAL HEALTH;**119**;Dec 30, 1994;Build 40
+2 QUIT
+3 ;
EN1 ;Change "F" and "M" nodes for MCMI3 entry in MH INSTRUMENT (#601)
+1 NEW YSERROR,YSSEX
+2 ;is entry 246 = MCMI3
IF $PIECE($GET(^YTT(601,246,0)),U,1)'="MCMI3"
Begin DoDot:1
+3 SET YSERROR(1)="There is a problem updating the MCMI3 instrument definition in the"
+4 SET YSERROR(2)="MH INSTRUMENT file (#601). The internal entry number is different"
+5 SET YSERROR(3)="than what I expected. Please enter a ticket."
+6 SET YSERROR(4)="I'll proceed with the rest of the patch installation."
+7 DO EN^DDIOL(.YSERROR,"","")
End DoDot:1
QUIT
+8 ; "F" and "M" nodes are the same values now
+9 DO EN1A
DO EN2
DO EN3
+10 FOR YSSEX="F","M"
Begin DoDot:1
+11 ;Y Desirability
+12 SET ^YTT(601,246,"S",3,YSSEX)="0^5^10^15^20^25^30^35^39^43^47^51^55^59^63^67^71^75^80^85^93^100"
+13 ;Z Debasement
+14 SET ^YTT(601,246,"S",4,YSSEX)="0^18^35^38^40^42^45^47^49^52^54^56^59^61^63^66^68^70^73^75^76^78^79^81^82^84^85^88^90^92^94^96^98^100"
+15 ;1 Schizoid
+16 SET ^YTT(601,246,"S",5,YSSEX)="0^12^24^36^48^60^62^64^66^68^70^72^75^78^81^85^89^93^97^101^105^109^112^115"
+17 ;2A Avoidant
+18 SET ^YTT(601,246,"S",6,YSSEX)="0^12^24^36^48^60^63^67^71^75^77^79^81^83^85^88^91^94^97^100^103^106^109^112^115"
+19 ;2B Depressive
+20 SET ^YTT(601,246,"S",7,YSSEX)="0^10^20^30^40^50^60^65^70^75^77^79^81^83^85^89^92^96^99^103^106^109^112^115"
+21 ;3 Dependent
+22 SET ^YTT(601,246,"S",8,YSSEX)="0^10^20^30^40^50^60^65^70^75^78^81^83^85^87^89^91^94^97^100^103^106^109^112^115"
+23 ;4 Histrionic
+24 SET ^YTT(601,246,"S",9,YSSEX)="0^4^8^12^16^20^24^28^32^36^40^44^48^51^54^57^60^63^66^69^72^75^79^83^88"
+25 ;5 Narcissistic
+26 SET ^YTT(601,246,"S",10,YSSEX)="0^5^10^15^20^25^30^35^40^44^48^52^56^60^63^67^71^75^85^89^93^97^101^105^110^115"
+27 ;6A Antisocial
+28 SET ^YTT(601,246,"S",11,YSSEX)="0^12^24^36^48^60^62^64^66^69^71^73^75^79^82^85^89^92^96^99^103^106^109^112^115"
+29 ;6B Sadistic
+30 SET ^YTT(601,246,"S",12,YSSEX)="0^12^24^36^48^60^62^64^66^68^69^70^71^72^73^74^75^78^80^83^85^90^95^100^105^110^115"
+31 ;7 Compulsive
+32 SET ^YTT(601,246,"S",13,YSSEX)="0^4^8^12^16^20^24^28^32^36^39^42^45^48^51^54^57^60^63^66^69^72^75^79^83^87"
+33 ;8A Negativistic
+34 SET ^YTT(601,246,"S",14,YSSEX)="0^10^20^30^40^50^60^62^64^66^68^70^72^75^77^79^81^83^85^89^93^97^101^105^110^115"
+35 ;8B Masochistic
+36 SET ^YTT(601,246,"S",15,YSSEX)="0^20^40^60^63^66^69^72^75^78^80^82^85^88^91^94^97^100^103^106^109^112^115"
+37 ;S Schizotypal
+38 SET ^YTT(601,246,"S",16,YSSEX)="0^20^40^60^62^64^66^67^68^69^70^71^72^73^74^75^78^81^85^90^95^99^103^107^111^115"
+39 ;C Borderline
+40 SET ^YTT(601,246,"S",17,YSSEX)="0^12^24^36^48^60^63^66^69^72^75^77^79^81^83^85^88^91^94^97^100^103^106^109^112^115"
+41 ;P Paranoid
+42 SET ^YTT(601,246,"S",18,YSSEX)="0^15^30^45^60^61^63^64^66^67^69^70^72^73^75^77^79^81^83^85^90^95^100^105^110^115"
+43 ;A Anxiety Disorder
+44 SET ^YTT(601,246,"S",19,YSSEX)="0^20^40^60^75^77^79^81^83^85^87^89^91^94^97^100^103^106^109^112^115"
+45 ;H Somatoform Disorder
+46 SET ^YTT(601,246,"S",20,YSSEX)="0^15^30^45^60^62^64^66^68^70^72^73^74^75^80^85^100^115"
+47 ;N Bipolar
+48 SET ^YTT(601,246,"S",21,YSSEX)="0^12^24^36^48^60^63^66^69^72^75^80^85^90^95^100^105^110^115"
+49 ;D Dysthymic Disorder
+50 SET ^YTT(601,246,"S",22,YSSEX)="0^12^24^36^48^60^62^64^66^69^72^75^78^80^82^85^91^97^103^109^115"
+51 ;B Alcohol Dependence
+52 SET ^YTT(601,246,"S",23,YSSEX)="0^20^40^60^63^67^71^75^77^80^83^85^88^91^95^99^103^107^111^115"
+53 ;T Drug Dependence
+54 SET ^YTT(601,246,"S",24,YSSEX)="0^20^40^60^63^67^71^75^76^77^78^79^81^83^85^90^95^100^105^110^115"
+55 ;R Post-Traumatic Stress
+56 SET ^YTT(601,246,"S",25,YSSEX)="0^15^30^45^60^62^63^65^66^68^69^71^73^75^77^79^81^83^85^95^105^115"
+57 ;SS Thought Disorder
+58 SET ^YTT(601,246,"S",26,YSSEX)="0^15^30^45^60^62^64^66^67^68^69^70^71^72^73^74^75^79^82^85^93^100^108^115"
+59 ;CC Major Depression
+60 SET ^YTT(601,246,"S",27,YSSEX)="0^15^30^45^60^65^70^75^78^81^85^87^89^91^93^95^97^99^101^103^106^109^112^115"
+61 ;PP Delusional Disorder
+62 SET ^YTT(601,246,"S",28,YSSEX)="0^30^60^62^65^68^70^72^75^80^85^90^95^100^105^110^115"
End DoDot:1
+63 QUIT
EN1A ;change SCALE NAME (601.01, .05) of IEN 1 from "V Validity" to "V Invalidity"
+1 SET $PIECE(^YTT(601,246,"S",1,0),U,2)="V Invalidity"
+2 SET ^YTT(601,246,"S","C","V Invalidity",1)=""
+3 KILL ^YTT(601,246,"S","C","V Validity")
+4 QUIT
EN2 ;Create new nodes for Inconsistency scale (W)
+1 NEW DA,DIK,YSCHECK,YSERROR
+2 IF $PIECE($GET(^YTT(601,246,0)),U,1)'="MCMI3"
QUIT
+3 SET YSCHECK=$GET(^YTT(601,246,"S",29,0))
+4 IF YSCHECK'=""
IF YSCHECK'="29^W Inconsistency"
Begin DoDot:1
+5 SET YSERROR(1)="There is a problem adding the new 'W Inconsistency' scale to the"
+6 SET YSERROR(2)="MH INSTRUMENT file (#601) for MCMI3. Please enter a ticket."
+7 SET YSERROR(4)="I'll proceed with the rest of the patch installation."
+8 DO EN^DDIOL(.YSERROR,"","")
End DoDot:1
QUIT
+9 SET ^YTT(601,246,"S",29,0)="29^W Inconsistency"
+10 SET ^YTT(601,246,"S",29,"K",1,0)="1;T-4;F^1;F-4;T^8;F-141;T^13;T-66;F^13;F-66;T^15;T-133;F^20;T-112;F^20;F-112;T^22;T-83;F^24;F-151;T^25;T-56;F"
+11 SET ^YTT(601,246,"S",29,"K",2,0)="25;F-56;T^27;F-92;T^32;T-80;F^35;T-84;F^35;F-84;T^39;T-118;F^39;F-118;T^41;F-166;T^44;T-86;F^44;F-150;T"
+12 SET ^YTT(601,246,"S",29,"K",3,0)="48;T-92;F^49;T-146;F^52;F-152;T^55;F-130;T^57;F-80;T^61;F-76;T^62;F-86;T^68;F-162;T^69;T-99;F^70;F-104;T"
+13 SET ^YTT(601,246,"S",29,"K",4,0)="72;F-142;T^74;F-107;T^77;T-131;F^91;T-136;F^91;F-136;T^108;T-135;F^109;F-164;T^123;F-128;T^129;T-173;F"
+14 SET ^YTT(601,246,"S",29,"K",5,0)="133;T-145;F^147;F-149;T^160;T-164;F^160;F-173;T"
+15 SET ^YTT(601,246,"S","B",29,29)=""
+16 SET ^YTT(601,246,"S","C","W Inconsistency",29)=""
+17 QUIT
EN3 ;Update disclosure (scale X) adjustments
+1 SET ^YTT(601,246,"S",2,"M")="0^2^3^5^6^8^9^11^12^14^15^17^18^20^21^23^24^26^27^29^30^32^33^35^36^37^37^38^39^39^40^41^41^42^43^43^44^45^45^46^47^47^48^49^49^50^51^51^52^53^53^54^55^55^56^57^57^58^59^59^60^61^61^62^63^63^64"
+2 SET ^YTT(601,246,"S",2,"MS")="65^65^66^67^67^68^69^69^70^71^71^72^73^73^74^74^75^75^75^76^76^76^77^77^77^78^78^78^79^79^79^80^80^80^81^81^81^82^82^82^83^83^84^84^85^85^86^86^87^88^88^89^89^90^90^91^92^92^93^93^94^94^95^95^96^96^97^97^98^99"
+3 QUIT
