72 lines
3.8 KiB
Mathematica
72 lines
3.8 KiB
Mathematica
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
|