source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNGDINA.m@ 1704

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1SPNGDINA ;WDE/SD OUTCOME GRID FOR DIENER 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.
6ASK ;
7REASK ;
8 W !!!,"You have entered an INPT START or OUTPT START Diener's SWLS for a patient with"
9 W !,SPNNEUR," level spinal cord injury and ASIA Impairment Scale of ",SPNIMPAR,"."
10 W !,"Do you want to see a goal setting template you can copy and paste"
11 W !,"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 Q
18EN ;
19 ;
20 I "C01C02C03C04"[SPNNEUR I "ABC"[SPNIMPAR S SPNNEUR="a C1-C4",SPNIMPAR="A or B or C" S SPNROU="SPNGDINB" S SPNTAG="DIN2" D ASK I %=1 D SHOW
21 ;
22 I "C05C06C07C08"[SPNNEUR I "ABC"[SPNIMPAR S SPNNEUR="a C5-C8",SPNIMPAR="Aor B or C" S SPNROU="SPNGDINB" S SPNTAG="DIN3" D ASK I %=1 D SHOW
23 ;
24 I "T01T02TO3T04T05T06T07T08T09T10T11T12L01L02L03L04L05S01S02S03S04S05"[SPNNEUR I "ABC"[SPNIMPAR S SPNNEUR=" a T1-S5",SPNIMPAR="A or B or C" S SPNROU="SPNGDINB" S SPNTAG="DIN4" D ASK I %=1 D SHOW
25 ;
26 I "C01C02C03C04C05C06C07C08T01T02T03T04T05T06T07T08T09T10T11T12L01L02L03L04L05S01S02S03S04S05"[SPNNEUR I "D"[SPNIMPAR S SPNNEUR="any neurologic",SPNIMPAR="D" S SPNROU="SPNGDINB" S SPNTAG="DIN5" D ASK I %=1 D SHOW
27 Q
28ZAP ;
29 Q
30SHOW ;
31 ;
32 D COPY1^SPNGCOPY
33 S X=$P($G(^SPNL(154.1,DA,"SCORE")),U,1) S:X="" X=0
34 I $D(IOF) W @IOF
35 W !,"----------------------------------------------------------"
36 W !,"| | Diener's SWLS Composite |"
37 W !,"----------------------------------------------------------"
38 W !,"|Start |",?42,X,?57,"|"
39 S SPNX=""
40 F SPNLINE=1:1 D Q:SPNX["EOR999"
41 .S X="S SPNX=$T("_SPNTAG_"+"_SPNLINE_"^"_SPNROU_")"
42 .X X
43 .Q:SPNX["EOR999"
44 .W !,$P(SPNX,";;",2)
45 R !?10,"Press Return to continue",SPNRD:DTIME
Note: See TracBrowser for help on using the repository browser.