Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDFU9

IBDFU9.m

Go to the documentation of this file.
  1. IBDFU9 ;ALB/CJM - ENCOUNTER FORM - post-selection action for package interface file, screen for data qualifiers;OCT 18,1993
  1. ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
  1. ;
  1. ASK ;post-slection action for package interface
  1. Q:'$D(VALMEVL) ; only ask if in listman
  1. Q:DIC["358.6"
  1. N LINE,DA,ANS,TYPE
  1. S DA=+Y
  1. I $G(DA),$D(^IBE(357.6,DA,1)) D
  1. .S TYPE=$P($G(^IBE(357.6,DA,0)),"^",6)
  1. .;
  1. .; -- see if we can find a marker and quit if in fileman
  1. .;
  1. .; -- in the case of reports, the post-selection action is not executed
  1. .; until after the report is created in the setup, so it's not useful
  1. .Q:TYPE=4
  1. .;
  1. .S TYPE=$S(TYPE=1:"type of data",TYPE=2:"type of data",TYPE=3:"type of data",TYPE=4:"report",1:"package interface")
  1. .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))
  1. .W !!,"Are you sure this is the right "_TYPE_"?: "
  1. .R ANS:DTIME
  1. .I '$T S Y=-1 Q
  1. .I ANS["?" W !!,"Enter Y for YES if the data is correct.",!,"Enter N for NO if the data is not correct." D
  1. ..W !!,"Are you sure this is the right "_TYPE_"?: "
  1. ..R ANS:DTIME
  1. .I (ANS["^")!(ANS["?")!(ANS="")!("Yy"'[$E(ANS,1)) S Y=-1
  1. Q
  1. ;
  1. DQGOOD(PI,QLFR) ;screen for data modifiers
  1. ;
  1. N NODE
  1. Q:'$G(PI) 0
  1. Q:'$G(QLFR) 0
  1. S NODE=$G(^IBE(357.6,PI,0))
  1. ;
  1. ;for selection interfaces, the list of data qualifiers is kept with the input interface
  1. I $P(NODE,"^",6)=3 S PI=$P(NODE,"^",13)
  1. Q:'PI 0
  1. Q $D(^IBE(357.6,PI,13,"B",QLFR_";IBD(357.98,"))
  1. ;
  1. DTGOOD(PI,TYPE) ;screen for datatypes
  1. ;
  1. N NODE
  1. Q:'$G(PI) 0
  1. Q:'$G(TYPE) 0
  1. S NODE=$G(^IBE(357.6,PI,0))
  1. ;
  1. ;for selection interfaces, the list of data qualifiers is kept with the input interface
  1. I $P(NODE,"^",6)=3 S PI=$P(NODE,"^",13)
  1. Q:'PI 0
  1. Q $D(^IBE(357.6,PI,13,"B",TYPE_";IBE(359.1,"))