source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNPPRE0.m@ 1093

Last change on this file since 1093 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 663 bytes
Line 
1SPNPPRE0 ;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 ;
9EN1 ;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.