Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBDFDE21

Package: Automated Information Collection System

Routine: IBDFDE21


Information

IBDFDE21 ;ALB/AAS - AICS Data Entry, process selection lists ; 11/22/99 4:35pm

Source Information

Source file <IBDFDE21.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Automated Information Collection System 6 (,PAUSE)^IBDFDE  $$LEX^IBDFDE1  $$CHOICE^IBDFDE2  MOD^IBDFDE23  TESTICD^IBDFN7  $$PRDEF^IBDFRPC3  
Lexicon Utility 2 CONFIG^GMPTSET  CONFIG^LEXSET  
VA Fileman 2 ^DIC  ^DIR  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Automated Information Collection System 2 IBDFDE  IBDFDE2  

Entry Points

Name Comments DBIA/ICR reference
OTHER(IBDX) ; -- allow input of an additional item
HELP ; --
PREVSEL ; -- List previous selections
QLFR(RULE,QLFR) ; -- ask Qualifier from array, impose rules
SEL(SEL) ; -- Build results array
PARTLQ
DEFAULT ; -- compute default answer
QLFRQ
READQ
ONEQLFR ; -- parse qualifiers
LST ; -- List previous selections and selections to choose from.
ASKNUM
READ ; -- get input from list
PARTLST(ARY,NEXT,ANS) ; -- input has more than one match, prompt for which one
OTHQ
SEL1 ; -- build selections
OVER1 ;
DEFPROV ; -- find default provider, not on form

External References

Name Field # of Occurrence
^DIC OTHER+15
^DIR OTHER+29
CONFIG^GMPTSET OTHER+8
^IBDFDE %
PAUSE^IBDFDE LST+15
$$LEX^IBDFDE1 SEL1+5, PREVSEL+9
$$CHOICE^IBDFDE2 SEL1+2, LST+8, LST+11, PARTLST+7
MOD^IBDFDE23 SEL1+37, SEL1+38
TESTICD^IBDFN7 SEL1+14
$$PRDEF^IBDFRPC3 DEFPROV+4
CONFIG^LEXSET OTHER+7
$$UP^XLFSTR ONEQLFR+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),IOINHI,"Warning: The ICD9 Diagnosis associated with this problem needs to be updated!",IOINORM
  • Line Location: SEL1+13
Function Call: WRITE
  • Prompt: !,$C(7),IOINHI,"Warning: The ICD9 code associated with this problem is inactive.",IOINORM
  • Line Location: SEL1+15
Function Call: WRITE
  • Prompt: !,"This is a valid icd9 code"
  • Line Location: SEL1+16
Function Call: WRITE
  • Prompt: " ",IBDQ
  • Line Location: QLFR+5
Function Call: WRITE
  • Prompt: " ",IBDQ
  • Line Location: QLFR+12
Function Call: WRITE
  • Prompt: !,IOINHI,"Using Default Qualifier: "_X(ANS),IOINORM,!
  • Line Location: QLFR+14
Function Call: WRITE
  • Prompt: !,IOINHI," Select a Qualifier",IOINORM
  • Line Location: OVER1+2
Function Call: WRITE
  • Prompt: !?6,I,?10,X(I)
  • Line Location: OVER1+3
Function Call: WRITE
  • Prompt: !," Choose 1-",CNT,": "
  • Line Location: OVER1+4
Function Call: WRITE
  • Prompt: " ",X(ANS)
  • Line Location: OVER1+12
Function Call: WRITE
  • Prompt: !,"'"_ANS_"' IS NOT A VALID SELECTION, RE-ENTER"
  • Line Location: ONEQLFR+3
Function Call: WRITE
  • Prompt: " ",X(ANS)
  • Line Location: ONEQLFR+4
Function Call: WRITE
  • Prompt: " ",X2(ANS)
  • Line Location: ONEQLFR+7
Function Call: WRITE
  • Prompt: " Ambiguous answer, enter the number."
  • Line Location: ONEQLFR+8
Function Call: WRITE
  • Prompt: $E(X1(ANS,1),2,99)
  • Line Location: ONEQLFR+8
Function Call: WRITE
  • Prompt: !!,"Choose from: "
  • Line Location: LST+9
Function Call: WRITE
  • Prompt: !?16,IOINHI,$P(CHOICE,"^"),IOINORM
  • Line Location: LST+12
Function Call: WRITE
  • Prompt: $C(13),$J("",55),$C(13)
  • Line Location: LST+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PREVSEL+11
Function Call: WRITE
  • Prompt: " ",$P(^VA(200,+SEL,0),"^")," PRIMARY",!
  • Line Location: DEFPROV+12
Function Call: WRITE
  • Prompt: !,"You must choose a data qualifier for this item. Enter a number from 1-",CNT,!,"Or enter the first letter, or enter the full name. Enter more than one",!,"qualifier separated by commas (ie 1,2 or P,A).",!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,$C(7),"WARNING: Item selected not from Encounter Form."
  • Line Location: OTHER+18
Function Call: WRITE
  • Prompt: !
  • Line Location: OTHER+20
Function Call: WRITE
  • Prompt: "...Entry of Narrative Required!",!
  • Line Location: OTHER+22
Function Call: WRITE
  • Prompt: !," Choose 1-",J,": "
  • Line Location: ASKNUM+1
Function Call: WRITE
  • Prompt: !,"Enter a number from 1 - ",J
  • Line Location: ASKNUM+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKNUM+7
Function Call: WRITE
  • Prompt: !," Choose 1-",CNT,": "
  • Line Location: READ+3
Function Call: WRITE
  • Prompt: !,"Enter a number from 1 - ",CNT," or return to see more."
  • Line Location: READ+5
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: READ+7
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+9
Routine Call
  • DIC
  • Line Location:
    • OTHER+15
Routine Call
  • DIR
  • Line Location:
    • OTHER+29

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" OTHER+7, OTHER+8
^IBE(357.6 - [#357.6] SEL1+5, SEL1+11, PREVSEL+9, DEFAULT+3, DEFPROV+2
^ICD9 - [#80] SEL1+31, OTHER+26
^ICD9("BA" SEL1+29
^LEX OTHER+7
^TMP("IBD-LST" LST+10
^VA(200 - [#200] DEFPROV+8, DEFPROV+12, OTHER+20

Label References

Name Line Occurrences
$$QLFR SEL+4
ASKNUM ASKNUM+3, ASKNUM+5, ASKNUM+6
HELP OVER1+8
ONEQLFR OVER1+16
OTHQ OTHER+11, OTHER+15, OTHER+20, OTHER+29
OVER1 OVER1+6, OVER1+8, OVER1+9, OVER1+14
PARTLQ ASKNUM, ASKNUM+2
PREVSEL LST+4, DEFAULT+9
QLFRQ QLFR+5, QLFR+12, OVER1+1, OVER1+5
READ READ+5, READ+7, READ+8
READQ READ+2, READ+4
SEL1 SEL+6, SEL+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS QLFR+1~, QLFR+14*, OVER1+4*, OVER1+5, OVER1+6, OVER1+8, OVER1+9, OVER1+10, OVER1+11, OVER1+12
, OVER1+14, OVER1+15, OVER1+16*, ONEQLFR+1*, ONEQLFR+2, ONEQLFR+3, ONEQLFR+4, ONEQLFR+6, ONEQLFR+7, ONEQLFR+8
, PARTLST~, PARTLST+5
>> ANS1 OVER1+15*, OVER1+16, ONEQLFR+6
ANS2 PARTLST+1~, ASKNUM+1*, ASKNUM+2, ASKNUM+3, ASKNUM+4*, ASKNUM+5, ASKNUM+6, ASKNUM+8, READ+1~, READ+3*
, READ+4, READ+5, READ+6*, READ+7
ARY PARTLST~, PARTLST+5, PARTLST+6, PARTLST+7
CHOICE SEL1+2*, SEL1+3*, SEL1+4, SEL1+5, SEL1+7, SEL1+12, SEL1+22, SEL1+24, SEL1+33, LST+11*
, LST+12, LST+14, PARTLST+1~, PARTLST+7*, PARTLST+8
CNT QLFR+1~, QLFR+2*, QLFR+9*, QLFR+12, OVER1+1, OVER1+3, OVER1+4, OVER1+10, LST+1~, LST+7*
, LST+13*, LST+14, LST+15, PREVSEL+1~, PREVSEL+2*, PREVSEL+7*, PREVSEL+8, DEFAULT+1~, DEFAULT+2*, DEFAULT+7*
, HELP+1, READ+2, READ+3, READ+5, READ+7, READ+8
DA OTHER+1~
DIC OTHER+1~, OTHER+14*, OTHER+16!
DIC("A" OTHER+13*
DIC("S" OTHER+14*
DIC(0 OTHER+12*
DIE OTHER+1~
DIR OTHER+1~, OTHER+29!
DIR("A" OTHER+29*
DIR("B" DEFAULT+8*, OTHER+24*, OTHER+26*, OTHER+27*, OTHER+28*
DIR(0 OTHER+29*
DIRUT OTHER+1~, OTHER+29
DISPTXT SEL1+4*, SEL1+5, SEL1+7, SEL1+22~, SEL1+32*, SEL1+33
DR OTHER+1~
DSPTXT SEL+1~
DTIME OVER1+4, ASKNUM+1, READ+3
DUOUT OTHER+1~
GMPTSHOW OTHER+1~
GMPTSUB OTHER+1~
GMPTUN OTHER+1~
I SEL1+22~*, SEL1+24, QLFR+1~, OVER1+3*, LST+1~, LST+10*, LST+11, LST+13, LST+15, PREVSEL+1~
, PREVSEL+5*, PREVSEL+6, PREVSEL+9, PREVSEL+10, OTHER+1~, PARTLST+1~
IBD OVER1+16*, PARTLST+1~
IBD( PARTLST+7*, ASKNUM+6, ASKNUM+8
>> IBDASK SEL1+37, SEL1+38, OTHER+13
>> IBDEFLT( DEFAULT+8*
>> IBDF("CLINIC" DEFPROV+4
>> IBDF("IEN" SEL1+7, SEL1+33, LST+10, PREVSEL+6, DEFAULT+6
>> IBDF("LEXICON" OTHER+6
>> IBDF("OTHER" OTHER+11, OTHER+14, OTHER+23
>> IBDF("PI" SEL1+5, SEL1+7, SEL1+8, SEL1+11, SEL1+33, SEL1+34, LST+10, PREVSEL+5, PREVSEL+6, PREVSEL+9
, PREVSEL+10, DEFAULT+3, DEFAULT+5, DEFAULT+6, DEFAULT+8, DEFPROV+2*, DEFPROV+3, DEFPROV+8, DEFPROV+9, OTHER+20
>> IBDF("PROVIDE R PI" , DEFPROV+6*, OTHER+20
>> IBDF("PROVIDER" DEFPROV+4, DEFPROV+10, DEFPROV+11
IBDFILE OTHER+1~, OTHER+23*, OTHER+24, OTHER+26, OTHER+27, OTHER+28, OTHER+32
>> IBDFMIEN LST+10
IBDI QLFR+1~, QLFR+7*, QLFR+8*
IBDLEX OTHER+1~, OTHER+6, OTHER+7*, OTHER+8*
>> IBDPI( SEL1+8*, SEL1+34*, PREVSEL+5, PREVSEL+6, PREVSEL+9, PREVSEL+10, DEFAULT+5, DEFAULT+6, DEFAULT+8, DEFPROV+3
, DEFPROV+9*
IBDQ QLFR+1~, QLFR+2*, QLFR+5*, QLFR+12*, QLFR+14*, OVER1+5*, OVER1+12*, OVER1+16, OVER1+17*, QLFRQ
, ONEQLFR+4*, ONEQLFR+6*, ONEQLFR+7*
IBDQ1 QLFR+1~, OVER1+15*, OVER1+16*, OVER1+17, OVER1+18!
IBDQL SEL+1~, SEL+4*, SEL+5, SEL+6, SEL+8
IBDQLFR SEL+1~, SEL+6*, SEL+8*, SEL1+7, SEL1+19, SEL1+21
IBDQUAL SEL1+20~, SEL1+21*, SEL1+33
>> IBDSEL( DEFPROV+8*, DEFPROV+9
>> IBDSEL(0 DEFPROV+7*
IBDX SEL+1~, SEL1+1*, SEL1+7, SEL1+8, SEL1+23*, SEL1+33, SEL1+34, DEFPROV+1~, DEFPROV+7*, DEFPROV+8
, DEFPROV+9, OTHER~, OTHER+5*, OTHER+12
IBDXCD SEL1+22~, SEL1+24*, SEL1+25, SEL1+33
>> IBNAQLFR QLFR+14
IBQUIT SEL+1~, SEL+2*, SEL+5, OVER1+5*, LST+1~, LST+7*, LST+10, LST+15, READ+4*
>> IOINHI SEL1+13, SEL1+15, QLFR+14, OVER1+2, LST+12, PREVSEL+8
>> IOINORM SEL1+13, SEL1+15, QLFR+14, OVER1+2, LST+12, PREVSEL+8
J OTHER+1~, PARTLST+1~, PARTLST+5*, PARTLST+7*, PARTLST+8, ASKNUM, ASKNUM+1, ASKNUM+3, ASKNUM+5
K PARTLST+1~, PARTLST+5*, PARTLST+6, PARTLST+7
N PARTLST+1~, PARTLST+6*, PARTLST+7
NAME DEFAULT+1~, DEFAULT+3*, DEFAULT+4
NARR OTHER+1~, OTHER+30*, OTHER+32
NEXT PARTLST~, PARTLST+3*, PARTLST+5
NUM QLFR+1~, QLFR+11*, LST+1~, LST+8*, LST+15
>> NUMBER( LST+13*, READ+8
OVER QLFR+1~, OVER1+7*, OVER1+9, OVER1+10*, OVER1+11*, OVER1+14, OVER1+16, ONEQLFR+3*, ONEQLFR+8*, ONEQLFR+9*
PIECE DEFAULT+1~, DEFAULT+4*, DEFAULT+8
QCNT SEL+1~, SEL+8*, SEL1+5, QLFR+1~, OVER1+15*, OVER1+16*, OVER1+18!
QLFR SEL+4, QLFR~
QLFR( QLFR+5, QLFR+8
QLFR(0 QLFR+5
>> RESULT( SEL1+7*, SEL1+8, SEL1+33*, SEL1+34
>> RESULT(0 SEL1+1*, SEL1+23*
RULE SEL+4, QLFR~, QLFR+5
SEL SEL~, SEL1+2, SEL1+3, DEFAULT+1~, DEFAULT+2*, DEFAULT+5*, DEFAULT+6, DEFAULT+7, DEFPROV+1~, DEFPROV+4*
, DEFPROV+5, DEFPROV+8, DEFPROV+12, OTHER+1~, OTHER+17*, OTHER+32, PARTLST+1~, PARTLST+2*, ASKNUM+2*, ASKNUM+8*
, PARTLQ
SELAST DEFAULT+1~, DEFAULT+2*, DEFAULT+7*, DEFAULT+8
SELX OTHER+1~, OTHER+10*, OTHER+20*, OTHER+32*, OTHQ
X SEL1+12~*, SEL1+13, SEL1+15, SEL1+25~*, SEL1+27!, SEL1+28*, SEL1+29*, SEL1+30, SEL1+31, QLFR+1~
, QLFR+8*, QLFR+9, QLFR+10, QLFR+11, OTHER+1~, OTHER+7*, OTHER+8*, OTHER+12*
X( QLFR+9*, QLFR+12, QLFR+14, OVER1+3, OVER1+11, OVER1+12, ONEQLFR+3, ONEQLFR+4
X1 QLFR+1~
X1( QLFR+10*, QLFR+11*, ONEQLFR+6, ONEQLFR+8
X2 QLFR+1~
X2( QLFR+9*, ONEQLFR+7
XTLKGLB OTHER+1~
XTLKHLP OTHER+1~
XTLKKSCH OTHER+1~
XTLKSAY OTHER+1~
Y SEL1+25~, SEL1+27*, SEL1+30*, SEL1+31*, SEL1+32, OTHER+1~, OTHER+15, OTHER+17, OTHER+20, OTHER+26
, OTHER+30
Y(0 OTHER+24, OTHER+26, OTHER+27, OTHER+28
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All