| [613] | 1 | YTMCMI3R ;ALB/ASF-MCMI3 REPORT ;9/3/02 15:57
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**76**;Dec 30, 1994
|
|---|
| 3 | REPT ;reports
|
|---|
| 4 | S (YSTOUT,YSUOUT)=""
|
|---|
| 5 | S X=$P(^YTT(601,YSTEST,"P"),U),A=$P(^("P"),U,2),B=$P(^("P"),U,3),L1=58-A\2,L2=L1+A+4 S:A<9 A=9
|
|---|
| 6 | D DTA^YTREPT
|
|---|
| 7 | W !,?(72-$L(X)\2),X,!
|
|---|
| 8 | W !?40,$S(YSVFLAG'=0:"*** Invalid Profile *** "_YSVFLAG,1:"Valid Profile")
|
|---|
| 9 | W:YSINPT?1A !,"Patient entered as an ",$S(YSINPT="I":"Inpatient",1:"Outpatient"),"." W:YSINPT="" !,"No setting entered, patient assumed to be outpatient."
|
|---|
| 10 | W !,"Duration of recent Axis I episode: "
|
|---|
| 11 | W:YSDUR?1N $P("Cannot Categorize^Less than 1 week^1-4 weeks^1-3 months^3-12 months^Periodic; 1-3 years^Coninuous; 1-3 years^Periodic; 3-7 years^Continuous 3-7 years^More than 7 years",U,YSDUR+1)
|
|---|
| 12 | W !
|
|---|
| 13 | F I=2:1:28 D D:IOST?1"C-".E&($Y>21) SCR^YTREPT Q:YSTOUT!YSUOUT
|
|---|
| 14 | . W:I=2 !,"Modifying Indices"
|
|---|
| 15 | . W:I=5 !,"Clinical Personality Patterns"
|
|---|
| 16 | . W:I=16 !,"Severe Personality Pathology"
|
|---|
| 17 | . W:I=19 !,"Clinical Syndromes"
|
|---|
| 18 | . W:I=26 !,"Severe Clinical Syndromes"
|
|---|
| 19 | . S YSSID=$P(^YTT(601,YSTEST,"S",I,0),U,2)
|
|---|
| 20 | . W !,$P(YSSID," ")
|
|---|
| 21 | . W ?5,$J($P(R,U,I),3)," ",$J($P(S,U,I),3)," "
|
|---|
| 22 | . D CHART
|
|---|
| 23 | . W ?53,$P(YSSID," ",2,99)
|
|---|
| 24 | D NOTEWOR
|
|---|
| 25 | Q
|
|---|
| 26 | CHART ;
|
|---|
| 27 | N X
|
|---|
| 28 | S X=$P(S,U,I)
|
|---|
| 29 | W $E("***************************************************************",1,$J(X/3,0,0))
|
|---|
| 30 | Q
|
|---|
| 31 | NOTEWOR ;note worthy responses
|
|---|
| 32 | D RD^YTMCMI3
|
|---|
| 33 | W !!?10,"*** Noteworthy Responses ***"
|
|---|
| 34 | F I=1,4,11,37,55,74,75,107,130,149,10,18,27,48,63,69,92,99,105,161,165,167,174,9,14,22,30,34,77,83,87,96,116,124,134,24,44,112,128,142,150,151,154,171,81,132,121,143,155,163 D D:IOST?1"C-".E&($Y>21) SCR^YTREPT Q:YSTOUT!YSUOUT
|
|---|
| 35 | . W:I=1 !!,"Health Preoccupation"
|
|---|
| 36 | . W:I=10 !!,"Interpersonal Alienation"
|
|---|
| 37 | . W:I=9 !!,"Emotional Dyscontrol"
|
|---|
| 38 | . W:I=24 !!,"Self-Destructive Potential"
|
|---|
| 39 | . W:I=81 !!,"Childhood Abuse"
|
|---|
| 40 | . W:I=121 !!,"Eating Disorder"
|
|---|
| 41 | . Q:$E(X,I)'="T"
|
|---|
| 42 | . W !,$J(I,3,0),". ",^YTT(601,YSTEST,"Q",I,"T",1,0)
|
|---|
| 43 | . W:$D(^YTT(601,YSTEST,"Q",I,"T",2,0)) !?5,^YTT(601,YSTEST,"Q",I,"T",2,0)
|
|---|
| 44 | Q
|
|---|
