| 1 | SPNLRU1 ;HISC/JWR-Report Printing utilities ;10/24/2001
|
|---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**2,16,19**;01/02/1997
|
|---|
| 3 | EN ;
|
|---|
| 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
|
|---|
| 25 | TRAUMA(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
|
|---|
| 31 | Q Q SPNTD
|
|---|
| 32 | Q
|
|---|
| 33 | DIE ;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
|
|---|
