source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNGCHRH.m@ 1423

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1SPNGCHRH ;WDE/SD OUTCOME GRID FOR CHART 9/19/2002
2 ;;2.0;Spinal Cord Dysfunction;**19**;01/02/1997
3EN ;
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..
7REASK ;
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"
121 ;
13ASK ;
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
Note: See TracBrowser for help on using the repository browser.