[613] | 1 | SPNGFIMH ;WDE/SD OUTCOME GRID FOR FIM'S 9/19/2002
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**19**;01/02/1997
|
---|
| 3 | EN ;
|
---|
| 4 | D CALC^SPNGFIMI
|
---|
| 5 | I $D(SPNGOAL)=0 D ZAP^SPNOGRDA Q
|
---|
| 6 | I $G(SPNGOAL)="" D ZAP^SPNOGRDA Q
|
---|
| 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) FIM for a patient who has a recorded"
|
---|
| 10 | W !,"INPT GOAL or OUTPT GOAL FIM. Do you want to see a comparison"
|
---|
| 11 | W !,"template you can copy and paste into a CPRS progress note"
|
---|
| 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 | S XA=$S(SPNRSCO=4:"Finish",SPNRSCO=5:"F/U (END)",SPNRSCO=9:"Finish",SPNRSCO=10:"F/U (END)",1:"ERROR")
|
---|
| 18 | ;ok now the mess spngoal is the goal fim da is the current fim
|
---|
| 19 | I $D(IOF) W @IOF
|
---|
| 20 | ;W !,"--------------------------------------------------------------"
|
---|
| 21 | W !,?11,"|",?13,"Eating",?20,"|",?22,"Grmmg",?28,"|",?30,"Bathe"
|
---|
| 22 | W ?36,"|",?38,"DUB",?42,"|",?44,"DLB",?48,"|",?50,"Toileting",?61,"|"
|
---|
| 23 | W !,"--------------------------------------------------------------"
|
---|
| 24 | W !,"|",XA,?11,"|",?16,SPNR1C1,?20,"|",?24,SPNR1C2,?28,"|",?32,SPNR1C3
|
---|
| 25 | W ?36,"|",?39,SPNR1C4,?42,"|",?45,SPNR1C5,?48,"|",?54,SPNR1C6,?61,"|"
|
---|
| 26 | ;W !,"--------------------------------------------------------------"
|
---|
| 27 | W !,"|Goal",?11,"|",?16,SPNR2C1,?20,"|",?24,SPNR2C2,?28,"|",?32,SPNR2C3
|
---|
| 28 | W ?36,"|",?39,SPNR2C4,?42,"|",?45,SPNR2C5,?48,"|",?54,SPNR2C6,?61,"|"
|
---|
| 29 | W !,"--------------------------------------------------------------"
|
---|
| 30 | W !,"|Difference",?11,"|",?16,SPNR3C1,?20,"|",?24,SPNR3C2,?28,"|",?32,SPNR3C3
|
---|
| 31 | W ?36,"|",?39,SPNR3C4,?42,"|",?45,SPNR3C5,?48,"|",?54,SPNR3C6,?61,"|"
|
---|
| 32 | ;W !,"--------------------------------------------------------------"
|
---|
| 33 | ;GRID FIM25 TWO
|
---|
| 34 | W !
|
---|
| 35 | ;W !,"-----------------------------------------------------------------------"
|
---|
| 36 | W !,?11,"|",?13,"Bldr",?18,"|",?21,"Bwl",?25,"|",?27,"BCWC Trf"
|
---|
| 37 | W ?36,"|",?38,"Tlt Trf",?46,"|",?48,"TSh Trf",?56,"|"
|
---|
| 38 | W ?58,"W WC",?63,"|",?65,"Strs |"
|
---|
| 39 | W !,"-----------------------------------------------------------------------"
|
---|
| 40 | W !,"|",XA,?11,"|",?15,SPNR4C1,?18,"|",?22,SPNR4C2,?25,"|",?30,SPNR4C3,?36,"|",?41,SPNR4C4
|
---|
| 41 | W ?46,"|",?51,SPNR4C5,?56,"|",?60,SPNR4C6,?63,"|",?67,SPNR4C7,?70,"|"
|
---|
| 42 | ;W !,"-----------------------------------------------------------------------"
|
---|
| 43 | W !,"|Goal",?11,"|",?15,SPNR5C1,?18,"|",?22,SPNR5C2,?25,"|",?30,SPNR5C3,?36,"|",?41,SPNR5C4
|
---|
| 44 | W ?46,"|",?51,SPNR5C5,?56,"|",?60,SPNR5C6,?63,"|",?67,SPNR5C7,?70,"|"
|
---|
| 45 | W !,"-----------------------------------------------------------------------"
|
---|
| 46 | W !,"|Difference",?11,"|",?15,SPNR6C1,?18,"|",?22,SPNR6C2,?25,"|",?30,SPNR6C3,?36,"|",?41,SPNR6C4
|
---|
| 47 | W ?46,"|",?51,SPNR6C5,?56,"|",?60,SPNR6C6,?63,"|",?67,SPNR6C7,?70,"|"
|
---|
| 48 | ;W !,"-----------------------------------------------------------------------"
|
---|
| 49 | ;GRID FIM25 THREE
|
---|
| 50 | W !
|
---|
| 51 | ;W !,"-----------------------------------------------------------------------"
|
---|
| 52 | W !,?11,"|",?13,"Compr",?19,"|",?21,"Expr",?26,"|",?28,"Soc"
|
---|
| 53 | W ?32,"|",?34,"Prb Slv",?42,"|",?44,"Mem",?48,"|"
|
---|
| 54 | W ?50,"Mtr",?55,"|",?57,"Cogn",?63,"|",?65,"Tot |"
|
---|
| 55 | W !,"-----------------------------------------------------------------------"
|
---|
| 56 | W !,"|",XA,?11,"|",?15,SPNR7C1,?19,"|",?22,SPNR7C2,?26,"|",?29,SPNR7C3
|
---|
| 57 | W ?32,"|",?37,SPNR7C4,?42,"|",?45,SPNR7C5,?48,"|",?50,SPNR7C6
|
---|
| 58 | W ?55,"|",?57,SPNR7C7,?63,"|",?65,SPNR7C8,?70,"|"
|
---|
| 59 | W !,"|Goal",?11,"|",?15,SPNR8C1,?19,"|",?22,SPNR8C2,?26,"|",?29,SPNR8C3
|
---|
| 60 | W ?32,"|",?37,SPNR8C4,?42,"|",?45,SPNR8C5,?48,"|",?50,SPNR8C6
|
---|
| 61 | W ?55,"|",?57,SPNR8C7,?63,"|",?65,SPNR8C8,?70,"|"
|
---|
| 62 | W !,"-----------------------------------------------------------------------"
|
---|
| 63 | W !,"|Difference",?11,"|",?15,SPNR9C1,?19,"|",?22,SPNR9C2,?26,"|",?29,SPNR9C3
|
---|
| 64 | W ?32,"|",?37,SPNR9C4,?42,"|",?45,SPNR9C5,?48,"|",?50,SPNR9C6
|
---|
| 65 | W ?55,"|",?57,SPNR9C7,?63,"|",?65,SPNR9C8,?70,"|"
|
---|
| 66 | ;W !,"-----------------------------------------------------------------------"
|
---|
| 67 | R !!?10,"Press Return to continue",SPNREAD:DTIME
|
---|
| 68 | Q
|
---|
| 69 | FIM25 ;
|
---|
| 70 | ;;EOR999
|
---|
| 71 | Q
|
---|