source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDFU9.m@ 1397

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1IBDFU9 ;ALB/CJM - ENCOUNTER FORM - post-selection action for package interface file, screen for data qualifiers;OCT 18,1993
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;
4ASK ;post-slection action for package interface
5 Q:'$D(VALMEVL) ; only ask if in listman
6 Q:DIC["358.6"
7 N LINE,DA,ANS,TYPE
8 S DA=+Y
9 I $G(DA),$D(^IBE(357.6,DA,1)) D
10 .S TYPE=$P($G(^IBE(357.6,DA,0)),"^",6)
11 .;
12 .; -- see if we can find a marker and quit if in fileman
13 .;
14 .; -- in the case of reports, the post-selection action is not executed
15 .; until after the report is created in the setup, so it's not useful
16 .Q:TYPE=4
17 .;
18 .S TYPE=$S(TYPE=1:"type of data",TYPE=2:"type of data",TYPE=3:"type of data",TYPE=4:"report",1:"package interface")
19 .S LINE=0 W ! F S LINE=$O(^IBE(357.6,DA,1,LINE)) Q:'LINE W !,$G(^IBE(357.6,DA,1,LINE,0))
20 .W !!,"Are you sure this is the right "_TYPE_"?: "
21 .R ANS:DTIME
22 .I '$T S Y=-1 Q
23 .I ANS["?" W !!,"Enter Y for YES if the data is correct.",!,"Enter N for NO if the data is not correct." D
24 ..W !!,"Are you sure this is the right "_TYPE_"?: "
25 ..R ANS:DTIME
26 .I (ANS["^")!(ANS["?")!(ANS="")!("Yy"'[$E(ANS,1)) S Y=-1
27 Q
28 ;
29DQGOOD(PI,QLFR) ;screen for data modifiers
30 ;
31 N NODE
32 Q:'$G(PI) 0
33 Q:'$G(QLFR) 0
34 S NODE=$G(^IBE(357.6,PI,0))
35 ;
36 ;for selection interfaces, the list of data qualifiers is kept with the input interface
37 I $P(NODE,"^",6)=3 S PI=$P(NODE,"^",13)
38 Q:'PI 0
39 Q $D(^IBE(357.6,PI,13,"B",QLFR_";IBD(357.98,"))
40 ;
41DTGOOD(PI,TYPE) ;screen for datatypes
42 ;
43 N NODE
44 Q:'$G(PI) 0
45 Q:'$G(TYPE) 0
46 S NODE=$G(^IBE(357.6,PI,0))
47 ;
48 ;for selection interfaces, the list of data qualifiers is kept with the input interface
49 I $P(NODE,"^",6)=3 S PI=$P(NODE,"^",13)
50 Q:'PI 0
51 Q $D(^IBE(357.6,PI,13,"B",TYPE_";IBE(359.1,"))
Note: See TracBrowser for help on using the repository browser.