Last change
on this file since 1326 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
663 bytes
|
Rev | Line | |
---|
[628] | 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.