| [613] | 1 | YSDX3B ;SLC/DJP-Entry of Axis 4 & Axis 5 Diagnoses for the Mental Health Medical Record ;8/29/89 08:51
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**33,43,49**;Dec 30, 1994
|
|---|
| 3 | ;D RECORD^YSDX0001("YSDX3B^YSDX3B") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 4 | ;
|
|---|
| 5 | AXIS4 ; Called by routine YSCEN1, YSDX3
|
|---|
| 6 | ; Entry of Axis 4 information
|
|---|
| 7 | ;D RECORD^YSDX0001("AXIS4^YSDX3B") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 8 | W !!,"AXIS 4",!,"------"
|
|---|
| 9 | AX43 ;
|
|---|
| 10 | ;D RECORD^YSDX0001("AX43^YSDX3B") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 11 | W !!,"Enter PSYCHOSOCIAL STRESSOR: " R X3:DTIME S YSTOUT='$T,YSUOUT=X3["^" I YSTOUT!YSUOUT S YSQT=1 Q
|
|---|
| 12 | Q:X3="" I X3="?" D AX41 K X3 G AX43
|
|---|
| 13 | I X3["??" S XQH="YS-PSYCHOSOCIAL STRESSORS" D EN^XQH K X3 G AX43
|
|---|
| 14 | I $L(X3)>60!($L(X3)<1) D AX41 K X3 G AX43
|
|---|
| 15 | AX42 ;
|
|---|
| 16 | ;D RECORD^YSDX0001("AX42^YSDX3B") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 17 | W !,"Enter SEVERITY CODE: " R X4:DTIME S YSTOUT='$T,YSUOUT=X4["^" I YSTOUT!YSUOUT S YSQT=1 Q
|
|---|
| 18 | I X4="??" S XQH="YS-AXIS 4" D EN^XQH K X4 G AX42
|
|---|
| 19 | I X4'?1N!(X4<0)!(X4>6) D AX4 G AX42
|
|---|
| 20 | S X6=$S(X4=1:"NONE",X4=2:"MILD",X4=3:"MODERATE",X4=4:"SEVERE",X4=5:"EXTREME",X4=6:"CATASTROPHIC",X4=0:"INADEQUATE INFORMATION OR NO CHANGE IN CONDITION",1:"") W " "_X6
|
|---|
| 21 | S DIC="^YSD(627.8,",DIC(0)="L",X="""N""",DLAYGO=627
|
|---|
| 22 | D ^DIC Q:Y'>0 S YSDA=+Y
|
|---|
| 23 | S YSDUZ=$P(^VA(200,DUZ,0),U),DIE="^YSD(627.8,",DA=YSDA,DR=".02////"_YSDFN_";.03///^S X=""NOW"";.04///^S X=YSDUZ;.05///^S X=""`""_DUZ;60//^S X=X3;61//^S X=X4"
|
|---|
| 24 | L +^YSD(627.8,DA):9999
|
|---|
| 25 | K Y
|
|---|
| 26 | D ^DIE
|
|---|
| 27 | L -^YSD(627.8,DA)
|
|---|
| 28 | K DA,DIC,DIE,DR
|
|---|
| 29 | S YSTOUT=$D(DTOUT) I YSTOUT!($O(Y(""))]"") S DIK="^YSD(627.8,",DA=YSDA D ^DIK Q:YSTOUT G AX43
|
|---|
| 30 | AX4 ;
|
|---|
| 31 | ;D RECORD^YSDX0001("AX4^YSDX3B") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 32 | W !!,"Enter code indicating overall severity of psychosocial stressor.",! S A1=$P(^DD(627.8,61,0),U,3) F I=1:1:8 S A2=$P(A1,";",I) W !?5,$P(A2,":")_" "_$P(A2,":",2)
|
|---|
| 33 | W !!,"Enter ""??"" for additional information on Severity Codes."
|
|---|
| 34 | Q
|
|---|
| 35 | AX41 ;
|
|---|
| 36 | ;D RECORD^YSDX0001("AX41^YSDX3B") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 37 | W !!,"Enter short narrative (1-60 characters) describing source of stress."
|
|---|
| 38 | Q
|
|---|
| 39 | AXIS5 ; Called by routines YSCEN1, YSDX3
|
|---|
| 40 | ;D RECORD^YSDX0001("AXIS5^YSDX3B") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 41 | ;Entry of Axis 5 information
|
|---|
| 42 | W !!,"AXIS 5",!,"------",! D GAF^YSDX3UB
|
|---|
| 43 | AX51 ;
|
|---|
| 44 | ;D RECORD^YSDX0001("AX51^YSDX3B") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 45 | W !!,"Enter RATING OF CURRENT FUNCTIONING: " R X5:DTIME S YSTOUT='$T,YSUOUT=X5["^" I YSTOUT!YSUOUT S YSQT=1 Q
|
|---|
| 46 | Q:X5="" I X5="?" D AX5 K X5 G AX51
|
|---|
| 47 | I X5["??" S XQH="YS-GAF SCALE" D EN^XQH K X5 G AX51
|
|---|
| 48 | I X5>100!(X5<1)!(X5'?.N) D AX5 K X5 G AX51
|
|---|
| 49 | K DD,DO,DA,DINUM
|
|---|
| 50 | S X="NOW",%DT="TR" D ^%DT S X=Y
|
|---|
| 51 | S DIC="^YSD(627.8,",DIC(0)="L",DLAYGO=627.8 D FILE^DICN S YSDA=+Y
|
|---|
| 52 | D PATSTAT
|
|---|
| 53 | S DIE="^YSD(627.8,",DA=YSDA,DR=".02////"_YSDFN_";.03///^S X=""NOW"";.04///^S X=YSDUZ;.05////"_DUZ_";66////"_YSSTAT_";65///^S X=X5"
|
|---|
| 54 | L +^YSD(627.8,DA):9999
|
|---|
| 55 | D ^DIE
|
|---|
| 56 | L -^YSD(627.8,DA)
|
|---|
| 57 | K DA,DIC,DIE,DR
|
|---|
| 58 | D EN^YSGAFOBX(YSDA)
|
|---|
| 59 | S YSTOUT=$D(DTOUT),YSUOUT=$O(Y(""))]"" I YSTOUT!YSUOUT S DIK="^YSD(627.8,",DA=YSDA D ^DIK Q
|
|---|
| 60 | Q
|
|---|
| 61 | GAFQ ;
|
|---|
| 62 | ;D RECORD^YSDX0001("GAF1^YSDX3B") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 63 | S:'$D(YSGAF) G5=0 W !!,"Highest GAF past year: ",G5 W:$D(G11) " (dtd ",G11,")" W "// " R G7:DTIME S YSTOUT='$T,YSUOUT=G7["^" G:G7="" AX51 I YSTOUT!YSUOUT S YSQT=1 Q
|
|---|
| 64 | I G7="??" S XQH="YS-GAF SCALE" D EN^XQH K X7 G GAFQ
|
|---|
| 65 | I G7["?" D GAF2 K G7 G GAFQ
|
|---|
| 66 | I G7>100!(G7<1)!(G7?.E1"."1N.N) D GAF3 K G7 G GAFQ
|
|---|
| 67 | S %DT="AEX",X="N",%DT("A")="As of: " D ^%DT K %DT("A") S G8=$P(Y,"."),G9=(G8-1),YSOLD=G9_"."_$P(Y,".",2) D GAFUP
|
|---|
| 68 | AX5 W !!,"Enter rating of current functioning as indicated on GAF Scale (100-1).",!,"Enter ""??"" for additional information on the GAF Scale.",!
|
|---|
| 69 | Q
|
|---|
| 70 | GAF2 ;
|
|---|
| 71 | ;D RECORD^YSDX0001("GAF2^YSDX3B") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 72 | W !!,"Default shown is the highest recorded GAF Scale for this patient during ",!,"the past year. To change, enter a HIGHER number.",!,"Enter ""??"" for additional information on the GAF Scale.",! Q
|
|---|
| 73 | GAF3 ;
|
|---|
| 74 | W " ??",!,"Type a number (1-100) relevant to the GAF Scale." Q
|
|---|
| 75 | GAFUP ;
|
|---|
| 76 | ;D RECORD^YSDX0001("GAFUP^YSDX3B") ;Used for testing. Inactivated in YSDX0001...
|
|---|
| 77 | ;S DIC="^YSD(627.8,",DIC(0)="L",X=YSOLD,DLAYGO=627 D ^DIC Q:Y'>0 S YSDA=+Y
|
|---|
| 78 | K DD,DO,DA,DINUM
|
|---|
| 79 | S X="NOW",%DT="TR" D ^%DT S X=Y
|
|---|
| 80 | S DIC="^YSD(627.8,",DIC(0)="L",DLAYGO=627.8 D FILE^DICN S YSDA=+Y
|
|---|
| 81 | D PATSTAT
|
|---|
| 82 | S DIE="^YSD(627.8,",DA=YSDA,DR=".02////"_YSDFN_";.03///^S X=YSOLD;.04///^S X=YSDUZ;.05///^S X=""`""_DUZ;66////"_YSSTAT_";65///^S X=G7"
|
|---|
| 83 | L +^YSD(627.8,DA):9999
|
|---|
| 84 | D ^DIE
|
|---|
| 85 | L -^YSD(627.8,DA)
|
|---|
| 86 | K DA,DIC,DIE,DR
|
|---|
| 87 | D EN^YSGAFOBX(YSDA)
|
|---|
| 88 | Q
|
|---|
| 89 | ;
|
|---|
| 90 | PATSTAT ;
|
|---|
| 91 | K VAIP
|
|---|
| 92 | S YSSTAT=""
|
|---|
| 93 | D IN5^VADPT
|
|---|
| 94 | S YSSTAT=VAIP(1)
|
|---|
| 95 | I YSSTAT S YSSTAT="I" Q
|
|---|
| 96 | S YSSTAT="O"
|
|---|
| 97 | Q
|
|---|
