| 1 | SPNGFIMK ;WDE/SD OUTCOME GRID FOR FIM 8/22/2002
|
|---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**19**;01/02/1997
|
|---|
| 3 | ;this routine is called from SPNOGRDA
|
|---|
| 4 | ;to display the header information and to route the user to
|
|---|
| 5 | ;the right display.
|
|---|
| 6 | ;
|
|---|
| 7 | ;unlike the other grids this one needs a fim start, fim finish and an
|
|---|
| 8 | ; asia on file
|
|---|
| 9 | ASK ;
|
|---|
| 10 | REASK ;
|
|---|
| 11 | W !!,"You have entered an INPT REHAB FINISH FIM for a patient with ",SPNNEUR
|
|---|
| 12 | W !,"spinal cord injury level and ASIA Impairment Scale of ",SPNIMPAR,"."
|
|---|
| 13 | W !
|
|---|
| 14 | W !,"Do you want to see a comparison template you can copy and paste into a CPRS"
|
|---|
| 15 | W !,"progress note "
|
|---|
| 16 | S %=2
|
|---|
| 17 | D YN^DICN
|
|---|
| 18 | I %=0 W !!,"Answer with Yes or No." W !,*7 G REASK
|
|---|
| 19 | I %=-1 Q
|
|---|
| 20 | Q:%=2
|
|---|
| 21 | Q
|
|---|
| 22 | EN ;
|
|---|
| 23 | D CALC^SPNGFIMM
|
|---|
| 24 | Q:$D(SPNGFIS)=0
|
|---|
| 25 | Q:SPNGFIS=""
|
|---|
| 26 | ;ABOVE QUIT IF THERE IS NO FIM START ON FILE
|
|---|
| 27 | I "C01C02C03C04"[SPNNEUR I "ABC"[SPNIMPAR S SPNNEUR="a C1-C4",SPNIMPAR="A or B or C" S SPNROU="SPNGFIML" S SPNTAG="FIM26" D ASK I %=1 D SHOW
|
|---|
| 28 | ;
|
|---|
| 29 | I "C05C06C07C08"[SPNNEUR I "ABC"[SPNIMPAR S SPNNEUR="a C5-C8",SPNIMPAR="A or B or C" S SPNROU="SPNGFIML" S SPNTAG="FIM27" D ASK I %=1 D SHOW
|
|---|
| 30 | ;
|
|---|
| 31 | I "T01T02T03T04T05T06T07T08T09T10T11T12L01L02L03L04L05S01S02S03S04S05"[SPNNEUR I "ABC"[SPNIMPAR S SPNNEUR=" a T1-S5",SPNIMPAR="A or B or C" S SPNROU="SPNGFIML" S SPNTAG="FIM28" D ASK I %=1 D SHOW
|
|---|
| 32 | ;
|
|---|
| 33 | I "C01C02C03C04C05C06C07C08T01T02T03T04T05T06T07T08T09T10T11T12L01L02L0L04L05S01S02S03S04S05"[SPNNEUR I "D"[SPNIMPAR S SPNNEUR="any neurologic",SPNIMPR="D" S SPNROU="SPNGFIML" S SPNTAG="FIM29" D ASK I %=1 D SHOW
|
|---|
| 34 | Q
|
|---|
| 35 | SHOW ;
|
|---|
| 36 | ;
|
|---|
| 37 | D COPY2^SPNGCOPY
|
|---|
| 38 | S SPNX=""
|
|---|
| 39 | I $D(IOF) W @IOF
|
|---|
| 40 | W !,"---------------------------------------------------------------------"
|
|---|
| 41 | W !,"| | Total | Total | Motor | Motor | Cognitive | Cognitive |"
|
|---|
| 42 | W !,"| | Gain | Efficny | Gain | Efficny | Gain | Efficny |"
|
|---|
| 43 | W !,"---------------------------------------------------------------------"
|
|---|
| 44 | W !,"| |",?10,SPNR1C1,?15,"|",?18,SPNR1C2,?25,"|",?28,SPNR1C3,?33,"|"
|
|---|
| 45 | W ?36,SPNR1C4,?43,"|",?49,SPNR1C5,?55,"|",?59,SPNR1C6,?68,"|"
|
|---|
| 46 | F SPNLINE=1:1 D Q:SPNX["EOR999"
|
|---|
| 47 | .S X="S SPNX=$T("_SPNTAG_"+"_SPNLINE_"^"_SPNROU_")"
|
|---|
| 48 | .X X
|
|---|
| 49 | .Q:SPNX["EOR999"
|
|---|
| 50 | .W !,$P(SPNX,";;",2)
|
|---|
| 51 | R !!!?10,"Press Return to continue",SPNRD:DTIME
|
|---|
