|
Last change
on this file since 686 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.
