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: IBDFDE41

Package: Automated Information Collection System

Routine: IBDFDE41


Information

IBDFDE41 ;ALB/AAS - AICS Data Entry, process selection lists ; 24-FEB-96 [ 11/13/96 3:58 PM ]

Source Information

Source file <IBDFDE41.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Automated Information Collection System 4 (,PAUSE)^IBDFDE  $$LEX^IBDFDE1  $$CHOICE^IBDFDE2  TESTICD^IBDFN7  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Information Collection System 1 IBDFDE4  

Entry Points

Name Comments DBIA/ICR reference
PREVSEL ; -- List previous selections
DEFAULT ; -- compute default answer
SEL(SEL) ; -- Build results array
PARTLQ
LST ; -- List previous selections and selections to choose from.
ASKNUM
PARTLST(ARY,NEXT,ANS) ; -- input has more than one match, prompt for which one

External References

Name Field # of Occurrence
^IBDFDE %
PAUSE^IBDFDE LST+14
$$LEX^IBDFDE1 PREVSEL+9
$$CHOICE^IBDFDE2 PARTLST+7
TESTICD^IBDFN7 SEL+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ",$P(CHOICE,"^")," ",$P(CHOICE,"^",3)
  • Line Location: SEL+10
Function Call: WRITE
  • Prompt: !,$C(7),$G(IOINHI),"Warning: The ICD9 Diagnosis associated with this problem needs to be updated!",$G(IOINORM)
  • Line Location: SEL+18
Function Call: WRITE
  • Prompt: !,$C(7),$G(IOINHI),"Warning: The ICD9 code associated with this problem is inactive.",$G(IOINORM)
  • Line Location: SEL+20
Function Call: WRITE
  • Prompt: !!,"Choose from: "
  • Line Location: LST+9
Function Call: WRITE
  • Prompt: $C(13),$J("",55),$C(13)
  • Line Location: LST+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PREVSEL+11
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357.6 - [#357.6] SEL+16, PREVSEL+9, DEFAULT+3
^TMP("IBD-LST" SEL+4, LST+8, LST+10, LST+11

Label References

Name Line Occurrences
ASKNUM ASKNUM+3, ASKNUM+5, ASKNUM+6
PARTLQ ASKNUM, ASKNUM+2
PREVSEL LST+4, DEFAULT+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS PARTLST~, PARTLST+5
ANS2 PARTLST+1~, ASKNUM+1*, ASKNUM+2, ASKNUM+3, ASKNUM+4*, ASKNUM+5, ASKNUM+6, ASKNUM+8
ARY PARTLST~, PARTLST+5, PARTLST+6, PARTLST+7
CHOICE SEL+4*, SEL+5*, SEL+10, SEL+12, SEL+17, LST+11*, LST+13, PARTLST+1~, PARTLST+7*, PARTLST+8
CNT LST+1~, LST+7*, LST+12*, LST+13, LST+14, PREVSEL+1~, PREVSEL+2*, PREVSEL+7*, PREVSEL+8, DEFAULT+1~
, DEFAULT+2*, DEFAULT+7*
>> DIR("B" DEFAULT+8*
DSPTXT SEL+1~
DTIME ASKNUM+1
I LST+1~, LST+10*, LST+11, LST+12, LST+14, PREVSEL+1~, PREVSEL+5*, PREVSEL+6, PREVSEL+9, PREVSEL+10
, PARTLST+1~
IBD PARTLST+1~
IBD( PARTLST+7*, ASKNUM+6, ASKNUM+8
>> IBDEFLT( DEFAULT+8*
>> IBDF("IEN" SEL+4, SEL+12, LST+8, LST+10, LST+11, PREVSEL+6, DEFAULT+6
>> IBDF("PI" SEL+4, SEL+12, SEL+13, SEL+16, LST+8, LST+10, LST+11, PREVSEL+5, PREVSEL+6, PREVSEL+9
, PREVSEL+10, DEFAULT+3, DEFAULT+5, DEFAULT+6, DEFAULT+8
>> IBDFMIEN SEL+4, LST+8, LST+10, LST+11
>> IBDPI( SEL+13*, PREVSEL+5, PREVSEL+6, PREVSEL+9, PREVSEL+10, DEFAULT+5, DEFAULT+6, DEFAULT+8
IBDQL SEL+1~
IBDQLFR SEL+1~
IBDX SEL+1~
IBQUIT SEL+1~, SEL+2*, SEL+6, LST+1~, LST+7*, LST+10, LST+14
>> IOINHI SEL+18, SEL+20, PREVSEL+8
>> IOINORM SEL+18, SEL+20, PREVSEL+8
J 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
NEXT PARTLST~, PARTLST+3*, PARTLST+5
NUM LST+1~, LST+8*, LST+14
>> NUMBER( LST+12*
PIECE DEFAULT+1~, DEFAULT+4*, DEFAULT+8
QCNT SEL+1~
>> RESULT( SEL+12*, SEL+13
>> RESULT(0 SEL+9*, SEL+12, SEL+13
SEL SEL~, SEL+4, SEL+5, DEFAULT+1~, DEFAULT+2*, DEFAULT+5*, DEFAULT+6, DEFAULT+7, PARTLST+1~, PARTLST+2*
, ASKNUM+2*, ASKNUM+8*, PARTLQ
SELAST DEFAULT+1~, DEFAULT+2*, DEFAULT+7*, DEFAULT+8
X SEL+17~*, SEL+18, SEL+20
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All