source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNGFIMH.m@ 1801

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