source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLRU1.m@ 1470

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1SPNLRU1 ;HISC/JWR-Report Printing utilities ;10/24/2001
2 ;;2.0;Spinal Cord Dysfunction;**2,16,19**;01/02/1997
3EN ;
4 W !!
5 S SPNLTRAM="ALL"
6 Q
7 K DIRUT
8 S DIR(0)="SAO^T:Traumatic Injuries;N:Non-Traumatic Injuries;A:All Patients"
9 S DIR("A")="Injury Type (T,N,A): "
10 S DIR("A",.5)="Include patients with which of the following injury types:"
11 S DIR("A",1)=" "
12 S DIR("A",2)=" T - Include only patients with traumatic injuries"
13 S DIR("A",3)=" N - Include only patients with non-traumatic injuries"
14 S DIR("A",4)=" A - Include all patients with any type of injury"
15 S DIR("A",5)=" "
16 S DIR("B")="All Patients"
17 S DIR("?",1)=" You may only select one item from the given list,"
18 S DIR("?")=" Select by entering 'T' or 'N' or 'A'."
19 D ^DIR W !!
20 K DIR
21 I $D(DIRUT) K DIRUT S ABORT=1 Q
22 S:Y="T" SPNLTRAM="TRAUMATIC",SPNLTRM1="Patients with Traumatic Injuries"
23 S:Y="N" SPNLTRAM="NON-TRAUMATIC",SPNLTRM1="Patients with Non-Traumatic Injuries"
24 Q
25TRAUMA(D0) ;Screen out traumatic/non-traumatic injuries
26 S SPNTD=$$EN4^SPNLUTL0(D0)
27 I SPNLTRAM="ALL" S SPNTD=1 G Q
28 I $E(SPNTD,1,9)=SPNLTRAM S SPNTD=1 G Q
29 I SPNLTRAM="NON-TRAUMATIC",SPNTD[SPNLTRAM S SPNTD=1 G Q
30 S SPNTD=0
31Q Q SPNTD
32 Q
33DIE ;This tag was placed in here to avoid adding another routine to
34 ;the *17 build. Routine spnls has a call to this label and this label
35 ;did not exist. So now it does and we are once again happy
36 Q
Note: See TracBrowser for help on using the repository browser.