Routine: IBDF1B3

Package	Total	Call Graph
Automated Information Collection System	3	$$LSTDESCR^IBDFU1 ($$FLDDESCR,$$SFLDDSCR)^IBDFU1A ($$BLKDESCR,$$DATANAME,RTNDSCR)^IBDFU1B
VA Fileman	2	FILE^DICN ^DIWP

Package

Total

Call Graph

Automated Information Collection System

$$LSTDESCR^IBDFU1 ($$FLDDESCR,$$SFLDDSCR)^IBDFU1A ($$BLKDESCR,$$DATANAME,RTNDSCR)^IBDFU1B

VA Fileman

FILE^DICN ^DIWP

Package	Total	Caller Graph
Automated Information Collection System	1	IBDF2A

Package

Total

Caller Graph

Automated Information Collection System

IBDF2A

Entry Points

Name	Comments	DBIA/ICR reference
SNGLVAL	;output - VALUE
BLOCKBRK	;writes a line to the report with the block name
HDR	;writes header to top of page
FOOTER	;
SUBFLDS	;process each subfield
LISTVAL	;input - ITEM=prior item processes, output - VALUE,ITEM=current item processed
LIST	;displays the list
TXTPRINT	;for printing a word-processing field
FIELD	;displays the field (if list, displays all, if record, displays subfields)
OVERFLOW	;
SUBCOLS	;process each subcolumn

Name	Field # of Occurrence
FILE^DICN	LIST+19
^DIWP	TXTPRINT+4
$$LSTDESCR^IBDFU1	LIST+4
$$FLDDESCR^IBDFU1A	FIELD+3
$$SFLDDSCR^IBDFU1A	SUBFLDS+2, SUBFLDS+3
$$BLKDESCR^IBDFU1B	OVERFLOW+8
$$DATANAME^IBDFU1B	SUBFLDS+7, SUBCOLS+8
RTNDSCR^IBDFU1B	FIELD+4, LIST+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?((IOM-$L(HDR))/2),HDR,?(IOM-10),"PAGE: ",PAGE,! Line Location: HDR+3
Function Call: WRITE	Prompt: !,"CLINIC: ",$P($G(^SC(IBCLINIC,0)),"^") Line Location: HDR+4
Function Call: WRITE	Prompt: !,"PATIENT: " Line Location: HDR+5
Function Call: WRITE	Prompt: $P($G(^DPT(DFN,0)),"^") Line Location: HDR+5
Function Call: WRITE	Prompt: !,"FORM: ",$P($G(^IBE(357,IBFORM,0)),"^"),! Line Location: HDR+6
Function Call: WRITE	Prompt: @IOF Line Location: BLOCKBRK+1
Function Call: WRITE	Prompt: !!,"BLOCK: ",$P($G(^IBE(357.1,IBBLK,0)),"^") Line Location: BLOCKBRK+2
Function Call: WRITE	Prompt: !!!,?((IOM-$L(FTR))\2),FTR,@IOF Line Location: FOOTER+2
Function Call: WRITE	Prompt: ! Line Location: FIELD+6
Function Call: WRITE	Prompt: @IOF Line Location: FIELD+12
Function Call: WRITE	Prompt: ! Line Location: FIELD+14
Function Call: WRITE	Prompt: @IOF Line Location: SUBFLDS+8
Function Call: WRITE	Prompt: ! Line Location: LIST+8
Function Call: WRITE	Prompt: @IOF Line Location: LIST+12
Function Call: WRITE	Prompt: ! Line Location: LIST+20
Function Call: WRITE	Prompt: @IOF Line Location: SUBCOLS+9
Function Call: WRITE	Prompt: @IOF Line Location: TXTPRINT+6
Function Call: WRITE	Prompt: !,?5,LABEL_": " Line Location: TXTPRINT+7
Function Call: WRITE	Prompt: @IOF Line Location: TXTPRINT+9

FileNo	Call Tags
^IBD(357.96 - [#357.96]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(357.96	LIST+17
^DPT - [#2]	HDR+5
^IBE(357 - [#357]	HDR+6
^IBE(357.1 - [#357.1]	BLOCKBRK+2
^SC - [#44]	HDR+4
^UTILITY($J	TXTPRINT+3!, TXTPRINT+8, TXTPRINT+10, TXTPRINT+11!

Label References

Name	Line Occurrences
BLOCKBRK	OVERFLOW+9
FIELD	OVERFLOW+13
FOOTER	OVERFLOW+14
HDR	OVERFLOW+6, BLOCKBRK+1, FIELD+12, SUBFLDS+8, LIST+12, SUBCOLS+9, TXTPRINT+6, TXTPRINT+9
LIST	OVERFLOW+12
LISTVAL	FIELD+13, FIELD+18, LIST+13
SNGLVAL	FIELD+17
SUBCOLS	LIST+20
SUBFLDS	FIELD+14, FIELD+19
TXTPRINT	FIELD+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BLK	FIELD+1~
CNT	LIST+1~, LIST+11, LIST+16, LIST+17
DA	LIST+19!
DA(1	LIST+17*
DD	LIST+19!
>> DFN	HDR+5
DIC	LIST+17*, LIST+19!
DIC("DR"	LIST+18*
DIC("P"	LIST+17*
DIC(0	LIST+17*
DISPLAY	FIELD+1~
DIWF	TXTPRINT+1~, TXTPRINT+2*
DIWL	TXTPRINT+1~, TXTPRINT+2*
DIWR	TXTPRINT+1~, TXTPRINT+2*
DLAYGO	LIST+17*, LIST+19!
DO	LIST+19!
FIELD	OVERFLOW+3~, OVERFLOW+10*, OVERFLOW+11, FIELD+3, FIELD+10, SUBFLDS+2, SUBFLDS+3, LIST+3
FLDNAME	FIELD+1~
FTR	FOOTER+1~*, FOOTER+2
HDR	HDR+1~, HDR+2*, HDR+3
HIO	FIELD+1~
>> IBARRAY("OVERFLOW"	OVERFLOW+4, OVERFLOW+7, OVERFLOW+10, OVERFLOW+11, OVERFLOW+15, FIELD+10
IBBLK	OVERFLOW+3~, OVERFLOW+7*, OVERFLOW+8, OVERFLOW+10, OVERFLOW+11, BLOCKBRK+2, FIELD+10
>> IBCLINIC	HDR+4
>> IBFORM	HDR+6
>> IBPFID	LIST+17
IFARY	FIELD+1~, FIELD+5, LIST+1~, LIST+7, SNGLVAL+1, LISTVAL+2, LISTVAL+4, TXTPRINT+4
IOF	BLOCKBRK+1, FOOTER+2, FIELD+12, SUBFLDS+8, LIST+12, SUBCOLS+9, TXTPRINT+6, TXTPRINT+9
IOM	HDR+3, FOOTER+2, TXTPRINT+2
IOSL	BLOCKBRK+1, FIELD+12, SUBFLDS+8, LIST+12, SUBCOLS+9, TXTPRINT+6, TXTPRINT+9
ITEM	OVERFLOW+3~, FIELD+1~, FIELD+10, FIELD+13, FIELD+16, LIST+1~, LIST+13, LISTVAL+2, LISTVAL+4
LABEL	FIELD+1~, SUBFLDS+7, SUBFLDS+9, LIST+1~, SUBCOLS+8, SUBCOLS+10, TXTPRINT+1~, TXTPRINT+5*, TXTPRINT+7
LAST	SUBFLDS+1~, SUBFLDS+2, SUBFLDS+3
LASTITEM	FIELD+1~
LINE	TXTPRINT+1~, TXTPRINT+2, TXTPRINT+4
LIST	FIELD+1~, FIELD+9, FIELD+10, FIELD+11, FIELD+16, FIELD+17, FIELD+18, LIST+1~, LIST+3, LIST+4
LIST("INPUT_RTN"	LIST+15
LIST("RTN"	LIST+5
LIST("SCPIECE"	SUBCOLS+4, SUBCOLS+5
LIST("SCTYPE"	SUBCOLS+3
PAGE	OVERFLOW+3~, OVERFLOW+5, HDR+3, HDR+7
PIECE	FIELD+1~, SUBFLDS+4, SUBFLDS+5, SUBFLDS+7, LIST+1~, SUBCOLS+1~, SUBCOLS+5, SUBCOLS+6, SUBCOLS+8
PVALUE	SUBFLDS+1~, SUBFLDS+5, SUBFLDS+9, SUBCOLS+1~, SUBCOLS+6, SUBCOLS+10
>> REPRINT	LIST+15
RTN	OVERFLOW+3~, FIELD+1~, FIELD+4, SUBFLDS+7, LIST+1~, LIST+5*, LIST+6, SUBCOLS+8
RTN("DATATYPE"	FIELD+7, FIELD+9, SUBFLDS+4
RTN("DATA_LOCATION"	FIELD+5, LIST+7
RTN("NAME"	FIELD+13, FIELD+16, LIST+13, TXTPRINT+5
SPACING	FIELD+1~
SUB	SUBCOLS+1~, SUBCOLS+2*, SUBCOLS+3, SUBCOLS+4, SUBCOLS+5
TYPE	OVERFLOW+3~, OVERFLOW+11*, OVERFLOW+12, FIELD+10, FIELD+11, FIELD+15
VALUE	FIELD+1~, FIELD+14, SUBFLDS+5, LIST+1~, LIST+20, SUBCOLS+6, SNGLVAL+1, LISTVAL+2
WIO	FIELD+1~
X	LIST+17, TXTPRINT+1~, TXTPRINT+4, TXTPRINT+8*, TXTPRINT+10
XIO	FIELD+1~
XLAB	FIELD+1~
YIO	FIELD+1~
YLAB	FIELD+1~

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF1B3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: