source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTMCMI3R.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1YTMCMI3R ;ALB/ASF-MCMI3 REPORT ;9/3/02 15:57
2 ;;5.01;MENTAL HEALTH;**76**;Dec 30, 1994
3REPT ;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
26CHART ;
27 N X
28 S X=$P(S,U,I)
29 W $E("***************************************************************",1,$J(X/3,0,0))
30 Q
31NOTEWOR ;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
Note: See TracBrowser for help on using the repository browser.