[613] | 1 | SPNGDINA ;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.
|
---|
| 6 | ASK ;
|
---|
| 7 | REASK ;
|
---|
| 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
|
---|
| 18 | EN ;
|
---|
| 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
|
---|
| 28 | ZAP ;
|
---|
| 29 | Q
|
---|
| 30 | SHOW ;
|
---|
| 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
|
---|