Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
663 bytes
|
Line | |
---|
1 | SPNPPRE0 ;HISC/WAA-PRE PRINT ROUTINE ;8/07/96 14:23
|
---|
2 | ;;2.0;Spinal Cord Dysfunction;;01/02/1997
|
---|
3 | ;
|
---|
4 | ; This routine will get all the pre sort question from
|
---|
5 | ; the file 154.92 and ask the user the questions. It will then
|
---|
6 | ; Store the answers inti the file:
|
---|
7 | ; ^TMP($J,"SPNPRT","PRE",SORT)
|
---|
8 | ;
|
---|
9 | EN1 ;Loop through and collect the questions
|
---|
10 | N SPNORD,SPNEXIT
|
---|
11 | S SPNEXIT=0
|
---|
12 | K ^TMP($J,"SPNPRT","PRE") ; Delete the OLD answers
|
---|
13 | S SPNORD=0
|
---|
14 | F S SPNORD=$O(^SPNL(154.92,"AUP",SPNORD)) Q:SPNORD<1 D Q:SPNEXIT
|
---|
15 | .N SPNIEN,SPNSORT
|
---|
16 | .S SPNIEN=$O(^SPNL(154.92,"AUP",SPNORD,0)) Q:SPNIEN<1
|
---|
17 | .S SPNSORT=$G(^SPNL(154.92,SPNIEN,2))
|
---|
18 | .S SEQUENCE=SPNORD,ACTION="PRE"
|
---|
19 | .X SPNSORT
|
---|
20 | .Q
|
---|
21 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.