source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNPRTUP.m@ 1071

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1SPNPRTUP ;HIRMFO/WAA-Up front questions ;11/6/97 13:22
2 ;;2.0;Spinal Cord Dysfunction;**3**;01/02/1997
3 ;;
4 ; This routine will ask the up front question for the sort/
5 ; search questions.
6 ; The routine will store the data in the global
7 ; ^TMP($J,"SPNPRT","AUP",SEQUENCE...
8 ;
9EN1 ; Main Entry Point
10 S SPNFILTR=$G(SPNFILTR,1)
11 Q:'SPNFILTR
12 N ACTION,SEQUENCE
13 S ACTION="AUP",SPNLEXIT=0
14 K ^TMP($J,"SPNPRT",ACTION)
15 W !!,"Up Front Filters:"
16 S SEQUENCE=0 F S SEQUENCE=$O(^SPNL(154.92,ACTION,SEQUENCE)) Q:SEQUENCE<1 D Q:SPNLEXIT
17 . N SPNIEN,EXECUTE
18 . S SPNIEN=$O(^SPNL(154.92,ACTION,SEQUENCE,0)) Q:SPNIEN<1
19 . S EXECUTE=$G(^SPNL(154.92,SPNIEN,2))
20 . Q:EXECUTE=""
21 . X EXECUTE Q:SPNLEXIT
22 . Q
23 I SPNLEXIT K ^TMP($J,"SPNPRT",ACTION)
24 Q
25 ;
26FILYN() ;This is to ask the user if he or she want to use filters
27 N DIR,FLAG
28 K ^TMP($J)
29 S FLAG=""
30 S DIR("A")="Do you wish to use the SCD filters with the reports"
31 S DIR("?")="Answer YES if you want to use the filters or NO to bypass the filters."
32 S DIR(0)="Y",DIR("B")="YES" D ^DIR
33 I '$D(Y) S Y=""
34 S FLAG=$S(Y=1:1,Y=0:0,1:"")
35 S:FLAG="" XQUIT=1
36 Q FLAG
Note: See TracBrowser for help on using the repository browser.