37 lines
1.4 KiB
Mathematica
37 lines
1.4 KiB
Mathematica
SPNLRU1 ;HISC/JWR-Report Printing utilities ;10/24/2001
|
|
;;2.0;Spinal Cord Dysfunction;**2,16,19**;01/02/1997
|
|
EN ;
|
|
W !!
|
|
S SPNLTRAM="ALL"
|
|
Q
|
|
K DIRUT
|
|
S DIR(0)="SAO^T:Traumatic Injuries;N:Non-Traumatic Injuries;A:All Patients"
|
|
S DIR("A")="Injury Type (T,N,A): "
|
|
S DIR("A",.5)="Include patients with which of the following injury types:"
|
|
S DIR("A",1)=" "
|
|
S DIR("A",2)=" T - Include only patients with traumatic injuries"
|
|
S DIR("A",3)=" N - Include only patients with non-traumatic injuries"
|
|
S DIR("A",4)=" A - Include all patients with any type of injury"
|
|
S DIR("A",5)=" "
|
|
S DIR("B")="All Patients"
|
|
S DIR("?",1)=" You may only select one item from the given list,"
|
|
S DIR("?")=" Select by entering 'T' or 'N' or 'A'."
|
|
D ^DIR W !!
|
|
K DIR
|
|
I $D(DIRUT) K DIRUT S ABORT=1 Q
|
|
S:Y="T" SPNLTRAM="TRAUMATIC",SPNLTRM1="Patients with Traumatic Injuries"
|
|
S:Y="N" SPNLTRAM="NON-TRAUMATIC",SPNLTRM1="Patients with Non-Traumatic Injuries"
|
|
Q
|
|
TRAUMA(D0) ;Screen out traumatic/non-traumatic injuries
|
|
S SPNTD=$$EN4^SPNLUTL0(D0)
|
|
I SPNLTRAM="ALL" S SPNTD=1 G Q
|
|
I $E(SPNTD,1,9)=SPNLTRAM S SPNTD=1 G Q
|
|
I SPNLTRAM="NON-TRAUMATIC",SPNTD[SPNLTRAM S SPNTD=1 G Q
|
|
S SPNTD=0
|
|
Q Q SPNTD
|
|
Q
|
|
DIE ;This tag was placed in here to avoid adding another routine to
|
|
;the *17 build. Routine spnls has a call to this label and this label
|
|
;did not exist. So now it does and we are once again happy
|
|
Q
|