Routine: IBDFDE41

Information

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

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Automated Information Collection System	1	IBDFDE4

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " ",$P(CHOICE,"^")," ",$P(CHOICE,"^",3) Line Location: SEL+13
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+19, PREVSEL+9, DEFAULT+3
^TMP("IBD-LST"	SEL+7, 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+7, SEL+8, SEL+13, SEL+15, SEL+20, 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~
DT	SEL+4, SEL+21, SEL+23
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+7, SEL+15, LST+8, LST+10, LST+11, PREVSEL+6, DEFAULT+6
>> IBDF("PI"	SEL+7, SEL+15, SEL+16, SEL+19, LST+8, LST+10, LST+11, PREVSEL+5, PREVSEL+6, PREVSEL+9 , PREVSEL+10, DEFAULT+3, DEFAULT+5, DEFAULT+6, DEFAULT+8
>> IBDFMIEN	SEL+7, LST+8, LST+10, LST+11
IBDIBX	SEL+1~, SEL+3, SEL+4, SEL+21
IBDIMP	SEL+1~, SEL+2*, SEL+4, SEL+21, SEL+23
>> IBDPI(	SEL+16*, 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+5, SEL+9, LST+1~, LST+7, LST+10, LST+14
>> IOINHI	SEL+21, SEL+23, PREVSEL+8
>> IOINORM	SEL+21, SEL+23, 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+15*, SEL+16
>> RESULT(0	SEL+12*, SEL+15, SEL+16
SEL	SEL~, SEL+7, SEL+8, 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+20~*, SEL+21, SEL+23

Customize PDF page

Package: Automated Information Collection System