Routine: IBDF4

Package	Total	Call Graph
Automated Information Collection System	7	IDXGRP^IBDF3 ($$NEXT,CODES,EN)^IBDF4A ADD^IBDF4C $$PADRIGHT^IBDFU ($$DATANODE,$$DORTN,RTNDSCR)^IBDFU1B KILL^IBDFUA ($$CSUPD357,$$IMPDATE,$$LSTACTST)^IBDUTICD
VA FileMan	5	FILE^DICN ^DIE (,IX)^DIK GETS^DIQ ^DIR
List Manager	3	EN^VALM (FULL,PAUSE)^VALM1 FLDCTRL^VALM10
Lexicon Utility	2	CONFIG^GMPTSET CONFIG^LEXSET
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Automated Information Collection System	9	IBDF ADD SELECTION IBDF EDIT GROUP'S SELECTIONS IBDF RESEQUENCE LIST IBDF3 IBDF4A IBDF9A1 IBDFN4 IBDFQEA IBDFUTL3
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
SLCTNS	;
ONENTRY	;entry code for list manager
ONEXIT	;exit code for the list manager
IDXSLCTN	;build an array of selections in print order for the list processor
LMGRPHDR	;header for the screen
GRPNAME()	;the name of the selection group
DISPLAY(SLCTN,COUNT)	;returns a line to display to the list containing a selection - SLCTN is a ptr to the selection, COUNT is the number of the selection on the list
ADDSLCTN	;allows the user to add a selection to the selection group
ADDEXIT	;
ADDREC(QUIT,ORDER,SLCTN,IBDEXCOD,IBDALL)	;allows the user to number the selection, edit the editable subcolumns, then adds the record - sets QUIT=1 if user quits
NARR(IBDQUIT)	; -- edit provider narrative, but only for selections where the ; interface allows editing
TERM(IBDQUIT,IBDCODEX)	; -- map selection to clinical lexicon, but only for selections where ; the package interface allows editing
CODES	; -- allow selection of a second code to pass through for this entry ; -- only as if pi allows input of more than one code
NOGOOD	;
SEQUENCE	;allows the user to resequence all of the selections on the list
RESEQ
ORDER
ADDALREC(IBSEL)	;updates all forms with the same code

Name	Field # of Occurrence
FILE^DICN	ADDREC+11, ADDALREC+16, ADDALREC+25, ADDALREC+27
^DIE	NARR+4, TERM+32, ORDER+6, ADDALREC+19, ADDALREC+20, ADDALREC+21, ADDALREC+22, ADDALREC+23, ADDALREC+26, ADDALREC+28
^DIK	IDXSLCTN+12, IDXSLCTN+14, ADDALREC+7, ADDALREC+29
IX^DIK	IDXSLCTN+15, ADDREC+35
GETS^DIQ	ADDALREC+17, ADDALREC+24
^DIR	ADDREC+2, ADDREC+4, ADDREC+29, SEQUENCE+14, SEQUENCE+21, SEQUENCE+27
CONFIG^GMPTSET	TERM+29
IDXGRP^IBDF3	ORDER+9
$$NEXT^IBDF4A	ADDREC+4
CODES^IBDF4A	ADDREC+16
EN^IBDF4A	SEQUENCE+32
ADD^IBDF4C	ADDREC+18
$$PADRIGHT^IBDFU	DISPLAY+4, DISPLAY+10, DISPLAY+15
$$DATANODE^IBDFU1B	ADDREC+22
$$DORTN^IBDFU1B	ADDSLCTN+9
RTNDSCR^IBDFU1B	SLCTNS+4
KILL^IBDFUA	SLCTNS+5
$$CSUPD357^IBDUTICD	ADDREC+39
$$IMPDATE^IBDUTICD	TERM+18
$$LSTACTST^IBDUTICD	TERM+24
CONFIG^LEXSET	TERM+28
EN^VALM	SLCTNS+6
FULL^VALM1	ADDSLCTN+4, SEQUENCE+4
PAUSE^VALM1	ADDREC+13, NOGOOD+1
FLDCTRL^VALM10	IDXSLCTN+19
$$NOW^XLFDT	ADDREC+39

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"Now for another SELECTION LIST entry!" Line Location: ADDSLCTN+8
Function Call: WRITE	Prompt: !,"Unable to create a new selection record!" Line Location: ADDREC+13
Function Call: WRITE	Prompt: !,"The package interface routine for selection is not properly defined" Line Location: NOGOOD+1
Routine Call	DIE Line Location: NARR+4 TERM+32 ORDER+6 ADDALREC+19 ADDALREC+20 ADDALREC+21 ADDALREC+22 ADDALREC+23 ADDALREC+26 ADDALREC+28
Routine Call	DIR Line Location: ADDREC+2 ADDREC+4 ADDREC+29 SEQUENCE+14 SEQUENCE+21 SEQUENCE+27
Routine Call	VALM Line Location: SLCTNS+6

FileNo	Call Tags
^IBE(357.3 - [#357.3]	Classic Fileman Calls, GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	TERM+28, TERM+29
^GMP(757.01	DISPLAY+13
^IBE(357.2 - [#357.2]	ADDREC+2, NARR+3, TERM+27
^IBE(357.3 - [#357.3]	IDXSLCTN+5, IDXSLCTN+6, IDXSLCTN+8, IDXSLCTN+10!, IDXSLCTN+20, DISPLAY+5, DISPLAY+8, DISPLAY+10, DISPLAY+13, ADDREC+14* , ADDREC+27, ADDREC+33, ADDREC+34, TERM+32, SEQUENCE+40, RESEQ, RESEQ+1, RESEQ+9, RESEQ+10, ADDALREC+4 , ADDALREC+14, ADDALREC+16, ADDALREC+30
^IBE(357.4 - [#357.4]	SLCTNS+2, IDXSLCTN+13, GRPNAME+1, RESEQ+4
^IBE(357.6 - [#357.6]	ADDREC+2, NARR+3, TERM+27, SEQUENCE+11
^LEX	DISPLAY+13, TERM+28
^LEX(757.01 - [#757.01]	DISPLAY+13
^TMP("IBDANT"	ADDALREC+4!, ADDALREC+30
^TMP("IBDF ADDSLCTN"	ADDSLCTN+6*
^TMP("IBDF DELETE SELECTION OPTION"	IDXSLCTN+3*, IDXSLCTN+20
^TMP("IBDF DELETED ALL SELECTIONS"	IDXSLCTN+21*
^TMP("IBDF"	SEQUENCE+34!, RESEQ+8, RESEQ+13, ORDER+1, ORDER+3, ORDER+4, ORDER+8!
^XTMP("CPTIDX"	ADDALREC+5, ADDALREC+7, ADDALREC+9, ADDALREC+10, ADDALREC+11, ADDALREC+12, ADDALREC+13, ADDALREC+14, ADDALREC+15, ADDALREC+31*
^XTMP("IBDCPT"	ADDALREC+8, ADDALREC+15, ADDALREC+31*

Name	Line Occurrences
$$DISPLAY	IDXSLCTN+18
$$GRPNAME	LMGRPHDR+1
ADDALREC	ADDREC+39
ADDEXIT	ADDSLCTN+5
ADDREC	ADDSLCTN+11
IDXSLCTN	ONENTRY+1, ADDEXIT+1
NARR	ADDREC+36
NOGOOD	ADDSLCTN+5, ADDSLCTN+9
ORDER	SEQUENCE+38, SEQUENCE+41
RESEQ	SEQUENCE+37, SEQUENCE+40
TERM	ADDREC+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	SEQUENCE+2~, SEQUENCE+9, SEQUENCE+10, SEQUENCE+11, ORDER+2, ORDER+5, ORDER+6
CNTR	SEQUENCE+33~, SEQUENCE+35, RESEQ+6, RESEQ+8, RESEQ+12, RESEQ+13, ORDER, ORDER+3*, ORDER+4
COUNT	DISPLAY~, DISPLAY+4, ADDREC+1~, ADDREC+33*, ADDREC+34
DA	IDXSLCTN+12!, IDXSLCTN+14!, IDXSLCTN+15!, ADDREC+11!, ADDREC+35!, NARR+2~, NARR+4!, TERM+3~, TERM+32, ORDER+6!* , ADDALREC+1~, ADDALREC+7, ADDALREC+16!, ADDALREC+18, ADDALREC+25, ADDALREC+26, ADDALREC+27, ADDALREC+28, ADDALREC+29*
DA(1	ADDALREC+25, ADDALREC+26, ADDALREC+27, ADDALREC+28
DD	ADDREC+10!, ADDALREC+16!
DIC	ADDREC+10!, ADDREC+11!, TERM+3~, TERM+33!, ADDALREC+16!, ADDALREC+25, ADDALREC+27
DIC(0	ADDREC+10, ADDALREC+16, ADDALREC+25, ADDALREC+27
DIE	ADDREC+11!, NARR+2~, NARR+4!, TERM+3~, TERM+32, ORDER+6!, ADDALREC+16!, ADDALREC+18, ADDALREC+26, ADDALREC+28
DIK	IDXSLCTN+12!, IDXSLCTN+14!, IDXSLCTN+15!, ADDREC+35!, ADDALREC+1~, ADDALREC+7!, ADDALREC+29!
DINUM	ADDREC+10!, ADDALREC+16!
DIR	ADDREC+2!, ADDREC+4!, ADDREC+26!, ADDREC+29!, SEQUENCE+7!, SEQUENCE+19!, SEQUENCE+25!, ORDER+8!
DIR("?"	ADDREC+2, SEQUENCE+7, SEQUENCE+11*
DIR("A"	ADDREC+2, ADDREC+26, SEQUENCE+7, SEQUENCE+20, SEQUENCE+26*
DIR("B"	ADDREC+2, ADDREC+4, ADDREC+26, ADDREC+28, SEQUENCE+20, SEQUENCE+26
DIR(0	ADDREC+2, ADDREC+4, ADDREC+26, SEQUENCE+9, SEQUENCE+13, SEQUENCE+20, SEQUENCE+26*
DIRUT	ADDREC+1~, ADDREC+4, SEQUENCE+2~, SEQUENCE+15, SEQUENCE+22, SEQUENCE+28
DLAYGO	ADDREC+1~, ADDREC+10, ADDALREC+16, ADDALREC+25, ADDALREC+27
DO	ADDREC+10!, ADDALREC+16!
DR	NARR+2~, NARR+4!, TERM+3~, TERM+32, ORDER+6!, ADDALREC+19, ADDALREC+20, ADDALREC+21, ADDALREC+22, ADDALREC+23 , ADDALREC+26, ADDALREC+28
DT	TERM+22, TERM+26
DTOUT	ADDREC+1~, ADDREC+2, ADDREC+29, SEQUENCE+2~
DUOUT	ADDREC+1~, ADDREC+2, ADDREC+29, SEQUENCE+2~
DUZ	ADDREC+39
GMPTSHOW	TERM+3~
GMPTSUB	TERM+3~
GMPTUN	TERM+3~
GROUP	SEQUENCE+2~, SEQUENCE+35, RESEQ+3, RESEQ+4, RESEQ+8, RESEQ+12, RESEQ+13, ORDER, ORDER+1, ORDER+3 , ORDER+4
GROUP1	SEQUENCE+33~, SEQUENCE+35, RESEQ+3, RESEQ+12
HDR	SEQUENCE+2~, SEQUENCE+11, SEQUENCE+12, SEQUENCE+13
IBBLK	ADDALREC+2~, ADDALREC+13*
IBD1STDT	TERM+4~
>> IBDAI	ADDREC+39
IBDALL	ADDREC~
IBDANT	ADDALREC+2~, ADDALREC+3, ADDALREC+4, ADDALREC+30
IBDATA	ADDALREC+1~, ADDALREC+19, ADDALREC+20, ADDALREC+21, ADDALREC+22, ADDALREC+23*
IBDATA1	ADDALREC+2~, ADDALREC+26, ADDALREC+28
IBDBLK	ADDALREC+1~
IBDCD	ADDALREC+1~, ADDALREC+5*
IBDCL	ADDALREC+1~
IBDCODE	ADDALREC+1~
IBDCODE(	ADDALREC+25, ADDALREC+26, ADDALREC+27, ADDALREC+28
IBDCODEX	TERM~, TERM+22, TERM+24
IBDDPC	ADDALREC+1~, ADDALREC+6*, ADDALREC+7
IBDDT	TERM+3~, TERM+10, TERM+22, TERM+24, TERM+26, TERM+28, TERM+29
IBDDUP	ADDALREC+1~, ADDALREC+6, ADDALREC+7, ADDALREC+8
IBDERR	ADDALREC+1~
IBDEXCOD	ADDREC~, ADDREC+38
IBDFORM	ADDALREC+1~, ADDALREC+11*
IBDFRM1	ADDALREC+1~
IBDFRN	ADDALREC+1~
IBDFSEL	ADDALREC+2~, ADDALREC+9, ADDALREC+14, ADDALREC+17, ADDALREC+29
>> IBDFSLC	ADDALREC+5
IBDIMPDT	TERM+4~, TERM+18*, TERM+22, TERM+26
IBDLEX	TERM+3~, TERM+28, TERM+29, TERM+31
IBDLEXSS	TERM+4~, TERM+6, TERM+8, TERM+28, TERM+29
IBDN	ADDALREC+1~, ADDALREC+18*, ADDALREC+19
IBDN1	ADDALREC+1~, ADDALREC+26, ADDALREC+28
IBDNEW	ADDALREC+1~, ADDALREC+16*, ADDALREC+18, ADDALREC+25, ADDALREC+26, ADDALREC+27, ADDALREC+28, ADDALREC+30
IBDNODE	ADDALREC+1~, ADDALREC+14*
IBDOLD	ADDALREC+1~
IBDOLD(	ADDALREC+18, ADDALREC+19, ADDALREC+20, ADDALREC+21, ADDALREC+22, ADDALREC+23
IBDQUIT	NARR~, NARR+5, TERM~, TERM+34
>> IBDRPCAL	ADDREC+39
IBDSBI	ADDALREC+1~, ADDALREC+25, ADDALREC+27
>> IBDSEL1(	ADDALREC+6
IBDSELN	ADDALREC+1~, ADDALREC+24*
IBDSNEW	ADDALREC+1~, ADDALREC+25, ADDALREC+26, ADDALREC+27, ADDALREC+28
IBDSUB	ADDALREC+1~, ADDALREC+25, ADDALREC+26, ADDALREC+27, ADDALREC+28
IBDSUB1	ADDALREC+1~, ADDALREC+26, ADDALREC+28
IBDTMP1	ADDALREC+1~, ADDALREC+7, ADDALREC+8, ADDALREC+12, ADDALREC+15, ADDALREC+31
>> IBDX	ADDREC+39*
IBDY	ADDALREC+1~, ADDALREC+5*, ADDALREC+7, ADDALREC+9, ADDALREC+10, ADDALREC+11, ADDALREC+12, ADDALREC+13, ADDALREC+14, ADDALREC+15 , ADDALREC+31
IBDYS	ADDALREC+1~, ADDALREC+17*, ADDALREC+18, ADDALREC+19, ADDALREC+20, ADDALREC+21, ADDALREC+22, ADDALREC+23
>> IBFORM	ADDREC+39
IBGROUP	SEQUENCE+33~, SEQUENCE+35, SEQUENCE+37, SEQUENCE+40*, RESEQ
>> IBGRP	SLCTNS+2, IDXSLCTN+5, IDXSLCTN+6, IDXSLCTN+9, IDXSLCTN+10, IDXSLCTN+11, IDXSLCTN+13, IDXSLCTN+20, GRPNAME+1, ADDREC+4 , ADDREC+9
>> IBGRUP	SEQUENCE+37, SEQUENCE+38, SEQUENCE+40, SEQUENCE+41
>> IBGRUP(	SEQUENCE+37
IBLEXNS	TERM+4~, TERM+6, TERM+8, TERM+28, TERM+29
>> IBLIST	SLCTNS+2, IDXSLCTN+5, IDXSLCTN+6, IDXSLCTN+9, IDXSLCTN+10, IDXSLCTN+11, IDXSLCTN+13, IDXSLCTN+20, ADDREC+2, ADDREC+4 , ADDREC+9, NARR+3, TERM+27, SEQUENCE+40, RESEQ, RESEQ+2, RESEQ+4
>> IBLIST("BTWN"	DISPLAY+9, ADDREC+26
>> IBLIST("RTN"	SLCTNS+3, SEQUENCE+11
>> IBLIST("SCEDITABLE"	ADDREC+25
>> IBLIST("SCHDR"	ADDREC+26, SEQUENCE+12
>> IBLIST("SCPIECE"	ADDREC+21, ADDREC+22, ADDREC+23, ADDREC+24, ADDREC+25, ADDREC+29, SEQUENCE+11
>> IBLIST("SCTYPE"	DISPLAY+9, ADDREC+21, SEQUENCE+8
>> IBLIST("SCW"	DISPLAY+9, ADDREC+21, ADDREC+26
IBORDER	SEQUENCE+33~, RESEQ*
IBRTN	SLCTNS+1~, SLCTNS+3*, SLCTNS+4, ADDSLCTN+9, ADDREC+22
IBRTN("ACTION"	ADDSLCTN+5
IBRTN("DATA_LOCATION"	ADDSLCTN+7, ADDSLCTN+10, ADDSLCTN+12, ADDREC+6, ADDREC+23
IBRTN("NAME"	TERM+8, TERM+16
IBRTN("WIDTH"	ADDREC+25
IBSEL	ADDREC+39, ADDALREC~, ADDALREC+16, ADDALREC+24
IEN	SEQUENCE+2~, RESEQ+9*, RESEQ+10
ITEM	SEQUENCE+2~, RESEQ, RESEQ+1, RESEQ+8, RESEQ+9, RESEQ+10, RESEQ+13, ORDER+4, ORDER+6
LEXQ	TERM+4~
LEXVDT	TERM+4~
NODE	IDXSLCTN+1~, IDXSLCTN+8, IDXSLCTN+9, IDXSLCTN+11, IDXSLCTN+13, DISPLAY+1~, DISPLAY+5, DISPLAY+6, DISPLAY+7, DISPLAY+8 , ADDREC+1~, ADDREC+9, ADDREC+10, ADDREC+14, ADDREC+22, ADDREC+23, SEQUENCE+2~, RESEQ+1*, RESEQ+2, RESEQ+3 , RESEQ+5, RESEQ+7, RESEQ+11
ODR	IDXSLCTN+1~, IDXSLCTN+4, IDXSLCTN+5, IDXSLCTN+6, IDXSLCTN+10
ORDER	DISPLAY+1~, DISPLAY+6, ADDREC~, ADDREC+3, ADDREC+5, ADDREC+9
P	SEQUENCE+2~, SEQUENCE+11*
QTY	ADDREC+1~, ADDREC+2*, ADDREC+9, ADDREC+26
QUIT	ADDSLCTN+1~, ADDSLCTN+8, ADDSLCTN+9, ADDSLCTN+10, ADDSLCTN+11, ADDREC~, ADDREC+2, ADDREC+3, ADDREC+4, ADDREC+7 , ADDREC+13, ADDREC+16, ADDREC+17, ADDREC+20, ADDREC+29*, ADDREC+30, ADDREC+36, ADDREC+37, ADDREC+38
RET	DISPLAY+1~, DISPLAY+4, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+11, DISPLAY+13, DISPLAY+16*, DISPLAY+18
SC	DISPLAY+1~, DISPLAY+8, DISPLAY+9, DISPLAY+10, DISPLAY+13, DISPLAY+14, DISPLAY+15
SCDA	DISPLAY+1~, DISPLAY+8, DISPLAY+10, DISPLAY+13, DISPLAY+15
SLCTN	IDXSLCTN+1~, IDXSLCTN+6, IDXSLCTN+8, IDXSLCTN+10, IDXSLCTN+12, IDXSLCTN+14, IDXSLCTN+15, IDXSLCTN+18, DISPLAY~, DISPLAY+5 , DISPLAY+8, DISPLAY+10, DISPLAY+13, ADDREC~, ADDREC+12, ADDREC+13, ADDREC+14, ADDREC+27, ADDREC+33, ADDREC+34 , ADDREC+35, NARR+4, TERM+32, ADDALREC+4
SORT	SEQUENCE+2~, SEQUENCE+23*, RESEQ+7, RESEQ+11
SORT1	SEQUENCE+2~, SEQUENCE+29*, SEQUENCE+32
SUB	ADDSLCTN+1~, ADDREC+1~, ADDREC+20, ADDREC+21, ADDREC+22, ADDREC+23, ADDREC+24, ADDREC+25, ADDREC+26, ADDREC+29 , ADDREC+33
SUBCOL	SEQUENCE+2~, SEQUENCE+8, SEQUENCE+9, SEQUENCE+10, SEQUENCE+11, SEQUENCE+12, SEQUENCE+13, SEQUENCE+16!, RESEQ+9
SUBCOL(	SEQUENCE+8*, SEQUENCE+10
U	NARR+3, TERM+27, ADDALREC+5, ADDALREC+7, ADDALREC+9, ADDALREC+14
VAL	DISPLAY+1~, DISPLAY+3, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+15, DISPLAY+16, DISPLAY+17, ADDREC+1~, ADDREC+6 , ADDREC+9, ADDREC+24
VAL(	ADDREC+23, ADDREC+24, ADDREC+26, ADDREC+29*, ADDREC+33
>> VALMAR	ONEXIT+1, IDXSLCTN+2, IDXSLCTN+18
>> VALMBCK	ADDSLCTN+3, SEQUENCE+3
>> VALMCNT	IDXSLCTN+4, IDXSLCTN+17, IDXSLCTN+18, IDXSLCTN+19
>> VALMHDR(1	LMGRPHDR+1*
VALUE	SEQUENCE+2~, RESEQ+7, RESEQ+8, RESEQ+10, RESEQ+11, RESEQ+13, ORDER+2, ORDER+3*, ORDER+4
W	DISPLAY+1~
W(	DISPLAY+9, DISPLAY+10, DISPLAY+14, DISPLAY+15
X	ADDREC+10, ADDREC+29, TERM+28, TERM+29, ORDER+8!, ADDALREC+16, ADDALREC+25, ADDALREC+27
XTLKGLB	TERM+3~
XTLKHLP	TERM+3~
XTLKKSCH	TERM+3~
XTLKSAY	TERM+3~
Y	ADDREC+2, ADDREC+5, ADDREC+12, ADDREC+29, NARR+2~, NARR+5, TERM+4~, TERM+34, SEQUENCE+15, SEQUENCE+16 , SEQUENCE+22, SEQUENCE+23, SEQUENCE+28, SEQUENCE+29, ORDER+8!, ADDALREC+16, ADDALREC+25, ADDALREC+27

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF4

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: