| 1 | SPNGCHRH ;WDE/SD OUTCOME GRID FOR CHART 9/19/2002
|
|---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**19**;01/02/1997
|
|---|
| 3 | EN ;
|
|---|
| 4 | D CALC^SPNGCHRI
|
|---|
| 5 | I $D(SPNGOAL)=0 D ZAP^SPNOGRDA Q ;no goal on fil
|
|---|
| 6 | I $G(SPNGOAL)="" D ZAP^SPNOGRDA Q ;no goal on file..
|
|---|
| 7 | REASK ;
|
|---|
| 8 | W !,"You have entered an INPT REHAB FINISH or INPT FOLLOW/UP (END) or OUTPT"
|
|---|
| 9 | W !,"REHAB FINISH or OUTPT FOLLOW/UP (END) CHART for a patient who has a recorded"
|
|---|
| 10 | W !,"INPT GOAL or OUTPT GOAL CHART. Do you want to see a comparison template you"
|
|---|
| 11 | W !,"can copy and paste into a CPRS progress note"
|
|---|
| 12 | 1 ;
|
|---|
| 13 | ASK ;
|
|---|
| 14 | S %=2
|
|---|
| 15 | D YN^DICN
|
|---|
| 16 | I %=0 W !!,"Answer with Yes or No." W !,*7 G REASK
|
|---|
| 17 | I %=-1 Q
|
|---|
| 18 | Q:%=2
|
|---|
| 19 | ;D COPY1^SPNGCOPY ;display the copy rights
|
|---|
| 20 | ;D CALC^SPNGCHRI
|
|---|
| 21 | I $D(IOF) W @IOF
|
|---|
| 22 | W !,"-------------------------------------------------------------------------"
|
|---|
| 23 | W !,"|",?11,"|",?13,"Physical",?22,"|",?24,"Cogntv",?31,"|"
|
|---|
| 24 | W ?33,"Mobility",?42,"|",?44,"Occ",?48,"|",?50,"Social",?57,"|",?59,"Econ",?64,"|",?66,"Total |"
|
|---|
| 25 | W !,"-------------------------------------------------------------------------"
|
|---|
| 26 | W !,"|",XA,?11,"|",?16,SPNR1C1,?22,"|",?27,SPNR1C2,?31,"|"
|
|---|
| 27 | W ?37,SPNR1C3,?41,"|",?44,SPNR1C4,?48,"|",?52,SPNR1C5,?57,"|"
|
|---|
| 28 | W ?60,SPNR1C6,?64,"|",?67,SPNR1C7,?72,"|"
|
|---|
| 29 | W !,"-------------------------------------------------------------------------"
|
|---|
| 30 | W !,"|Goal",?11,"|",?16,SPNR2C1,?22,"|",?27,SPNR2C2,?31,"|"
|
|---|
| 31 | W ?37,SPNR2C3,?41,"|",?44,SPNR2C4,?48,"|",?52,SPNR2C5,?57,"|",?60,SPNR2C6,?64,"|",?67,SPNR2C7,?72,"|"
|
|---|
| 32 | W !,"-------------------------------------------------------------------------"
|
|---|
| 33 | W !,"|Difference",?11,"|",?16,SPNR3C1,?22,"|",?27,SPNR3C2,?31,"|"
|
|---|
| 34 | W ?37,SPNR3C3,?41,"|",?44,SPNR3C4,?48,"|",?52,SPNR3C5,?57,"|",?60,SPNR3C6,?64,"|",?67,SPNR3C7,?72,"|"
|
|---|
| 35 | W !,"-------------------------------------------------------------------------"
|
|---|
| 36 | R !!?10,"Press Return to continue ",SPNREAD:DTIME
|
|---|
