[613] | 1 | SPNGFAMH ;WDE/SD OUTCOME GRID FOR FAM 9/19/2002
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**19**;01/02/1997
|
---|
| 3 | EN ;
|
---|
| 4 | D CALC^SPNGFAMI ;Create the values for the grid
|
---|
| 5 | I SPNGOAL="" D ZAP Q
|
---|
| 6 | REASK ;
|
---|
| 7 | W !!,"You have entered an INPT REHAB FINISH or INPT FOLLOW/UP (END) or OUTPT"
|
---|
| 8 | W !,"REHAB FINISH or OUTPT FOLLOW/UP (END) FAM for a patient who has a recorded"
|
---|
| 9 | W !,"INPT GOAL or OUTPT GOAL FAM. Do you want to see a comparison template you"
|
---|
| 10 | W !,"can copy and paste into a CPRS progress note"
|
---|
| 11 | ASK ;
|
---|
| 12 | S %=2
|
---|
| 13 | D YN^DICN
|
---|
| 14 | I %=0 W !!,"Answer with Yes or No." W !,*7 G REASK
|
---|
| 15 | I %=-1 Q
|
---|
| 16 | Q:%=2
|
---|
| 17 | ;D COPY1^SPNGCOPY ;display the copy rights
|
---|
| 18 | I $D(IOF) W @IOF
|
---|
| 19 | W !,"-------------------------------------------------------------------------"
|
---|
| 20 | W !,"|",?11,"|",?13,"Swallow",?21,"|",?23,"Car Txfrs",?33,"|"
|
---|
| 21 | W ?35,"Community",?45,"|",?47,"Reading",?55,"|",?57,"Write",?63,"|",?65,"Speech |"
|
---|
| 22 | W !,"-------------------------------------------------------------------------"
|
---|
| 23 | W !,"|",XA,?11,"|",?16,SPNR1C1,?21,"|",?27,SPNR1C2,?33,"|"
|
---|
| 24 | W ?40,SPNR1C3,?45,"|",?50,SPNR1C4,?55,"|",?59,SPNR1C5,?63,"|",?68,SPNR1C6,?72,"|"
|
---|
| 25 | W !,"-------------------------------------------------------------------------"
|
---|
| 26 | W !,"|Goal",?11,"|",?16,SPNR2C1,?21,"|",?27,SPNR2C2,?33,"|"
|
---|
| 27 | W ?40,SPNR2C3,?45,"|",?50,SPNR2C4,?55,"|",?59,SPNR2C5,?63,"|",?68,SPNR2C6,?72,"|"
|
---|
| 28 | W !,"-------------------------------------------------------------------------"
|
---|
| 29 | W !,"|Difference",?11,"|",?16,SPNR3C1,?21,"|",?27,SPNR3C2,?33,"|"
|
---|
| 30 | W ?40,SPNR3C3,?45,"|",?50,SPNR3C4,?55,"|",?59,SPNR3C5,?63,"|",?68,SPNR3C6,?72,"|"
|
---|
| 31 | W !,"-------------------------------------------------------------------------"
|
---|
| 32 | W !
|
---|
| 33 | W !,"-------------------------------------------------------------------"
|
---|
| 34 | W !,"|",?11,"|",?13,"Emot",?18,"|",?20,"Adjust",?27,"|"
|
---|
| 35 | W ?29,"Employ",?36,"|",?38,"Orientation",?50,"|",?52,"Attn",?57,"|",?59,"Safety",?66,"|"
|
---|
| 36 | W !,"-------------------------------------------------------------------"
|
---|
| 37 | W !,"|",XA,?11,"|",?15,SPNR4C1,?18,"|",?23,SPNR4C2,?27,"|"
|
---|
| 38 | W ?32,SPNR4C3,?36,"|",?43,SPNR4C4,?50,"|",?54,SPNR4C5,?57,"|"
|
---|
| 39 | W ?62,SPNR4C6,?66,"|"
|
---|
| 40 | W !,"-------------------------------------------------------------------"
|
---|
| 41 | W !,"|Goal",?11,"|",?15,SPNR5C1,?18,"|",?23,SPNR5C2,?27,"|"
|
---|
| 42 | W ?32,SPNR5C3,?36,"|",?43,SPNR5C4,?50,"|",?54,SPNR5C5,?57,"|"
|
---|
| 43 | W ?62,SPNR5C6,?66,"|"
|
---|
| 44 | W !,"-------------------------------------------------------------------"
|
---|
| 45 | W !,"|Difference",?11,"|",?15,SPNR6C1,?18,"|",?23,SPNR6C2,?27,"|"
|
---|
| 46 | W ?32,SPNR6C3,?36,"|",?43,SPNR6C4,?50,"|",?54,SPNR6C5,?57,"|"
|
---|
| 47 | W ?62,SPNR6C6,?66,"|"
|
---|
| 48 | W !,"-------------------------------------------------------------------"
|
---|
| 49 | R !!?10,"Press Return to continue ",SPNREAD:DTIME
|
---|
| 50 | Q
|
---|
| 51 | ZAP ;
|
---|