source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNGFIMK.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1SPNGFIMK ;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
9ASK ;
10REASK ;
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
22EN ;
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
35SHOW ;
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
Note: See TracBrowser for help on using the repository browser.