source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNPRTAU.m@ 975

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

initial load of WorldVistAEHR

File size: 722 bytes
Line 
1SPNPRTAU ;HIRMFO/WAA- Automatic questions ; 8/20/96
2 ;;2.0;Spinal Cord Dysfunction;;01/02/1997
3 ;;
4 ; This routine will ask the Automatic question for the sort/
5 ; search questions.
6 ; The routine will store the data in the global
7 ; ^TMP($J,"SPNPRT","AUTO",SEQUENCE...
8 ;
9EN1 ; Main Entry Point
10 N ACTION,SEQUENCE
11 S SPNLEXIT=$G(SPNLEXIT,0)
12 W !!,"Automatic Filters:"
13 S ACTION="AUTO",SPNLEXIT=0
14 K ^TMP($J,"SPNPRT",ACTION)
15 S SEQUENCE=0 F S SEQUENCE=$O(^SPNL(154.92,ACTION,SEQUENCE)) Q:SEQUENCE<1 D Q:SPNLEXIT
16 . N SPNIEN,EXECUTE
17 . S SPNIEN=$O(^SPNL(154.92,ACTION,SEQUENCE,0)) Q:SPNIEN<1
18 . S EXECUTE=$G(^SPNL(154.92,SPNIEN,2))
19 . Q:EXECUTE=""
20 . X EXECUTE Q:SPNLEXIT
21 . Q
22 I SPNLEXIT K ^TMP($J,"SPNPRT",ACTION)
23 Q
Note: See TracBrowser for help on using the repository browser.