Routine: IBDF9B1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

IBDF9B1 ;ALB/CJM - ENCOUNTER FORM - (report data fields) ;APRIL 22,1993

Source Information

Source file <IBDF9B1.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Automated Information Collection System	2	$$INRANGE^IBDF10A $$DATANAME^IBDFU1B
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE()	;pauses after each field discription is displayed
PRINT	;prints @ARY
SETARY	;writes data field description to @ARY
SEARCH(TOP,BOTTOM,LEFT,RIGHT)	;searches for data fields in IBBLK falling within the rectangle defined by TOP,BOTTOM,LEFT,RIGHT and reports on them
RANGE	;asks the user for the range - returns TOP,BOTTOM,LEFT,RIGHT
RTNDESCR	;sets RTN=package interface and gets fields needed from the 0 node, sets the flags LIST, & WP
REPORT	;

Name	Field # of Occurrence
^DIR	RANGE+7, RANGE+13, RANGE+18, RANGE+25
$$INRANGE^IBDF10A	SEARCH+13, SEARCH+18
$$DATANAME^IBDFU1B	SETARY+7

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E($G(@ARY@(COUNT,IBY,IBX,LINE)),1,IOM) Line Location: PRINT+4
Function Call: WRITE	Prompt: ! Line Location: PRINT+5
Routine Call	DIR Line Location: RANGE+7 RANGE+13 RANGE+18 RANGE+25

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.5 - [#357.5]	SEARCH+5, SEARCH+6, SEARCH+10, SEARCH+16, SEARCH+17
^IBE(357.6 - [#357.6]	RTNDESCR+3, SETARY+9

Name	Line Occurrences
$$PAUSE	PRINT+6
PRINT	SEARCH+19
RANGE	REPORT+3
RTNDESCR	SEARCH+12
SEARCH	REPORT+4
SETARY	SEARCH+15, SEARCH+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	PAUSE+1~, PAUSE+2*, PAUSE+3
ARY	SEARCH+1~, SEARCH+2*, SEARCH+3, SEARCH+20, PRINT+2, PRINT+3, PRINT+4, SETARY+3, SETARY+5, SETARY+6 , SETARY+8, SETARY+9
BOTTOM	REPORT+1~, REPORT+4, RANGE+14, RANGE+30, SEARCH~, SEARCH+13, SEARCH+18
CNT	SEARCH+1~, SEARCH+10, PRINT+1~, PRINT+4, PRINT+5
COUNT	SEARCH+1~, SEARCH+4, PRINT+2, PRINT+3, PRINT+4, SETARY+2*, SETARY+3, SETARY+5, SETARY+6, SETARY+8 , SETARY+9
DATA	SETARY+1~, SETARY+7*, SETARY+8
DIR	RANGE+3!, RANGE+7!, RANGE+13!, RANGE+18!, RANGE+25!
DIR("?"	RANGE+10, RANGE+22
DIR("A"	RANGE+5, RANGE+10, RANGE+16, RANGE+21
DIR("B"	RANGE+6, RANGE+11!, RANGE+17, RANGE+23!
DIR(0	RANGE+6, RANGE+12, RANGE+17, RANGE+24
>> DIRUT	RANGE+7, RANGE+18
DTIME	PAUSE+2
>> DTOUT	RANGE+13, RANGE+25
>> DUOUT	RANGE+13, RANGE+25
FLD	SEARCH+1~, SEARCH+5*, SEARCH+6, SEARCH+10, SEARCH+16, SEARCH+17
FLD("MULTIPLE	SF" , SEARCH+9, SEARCH+10, SEARCH+14*, SETARY+3
FLD("NAME"	SEARCH+8*, SETARY+3
FLD("NODE0"	SEARCH+6*, SEARCH+7, SEARCH+8, SEARCH+11, SEARCH+13, RTNDESCR+1, SETARY+4, SETARY+5
HT	RANGE+1~, RANGE+2*, RANGE+6, RANGE+12
I	RANGE+1~
>> IBBLK	SEARCH+5, SEARCH+11
>> IBBLK("H"	RANGE+2
>> IBBLK("W"	RANGE+2
IBX	SEARCH+1~, SEARCH+13, SEARCH+18, PRINT+3*, PRINT+4, SETARY+3, SETARY+4, SETARY+5, SETARY+6, SETARY+8 , SETARY+9
IBY	SEARCH+1~, SEARCH+13, SEARCH+18, PRINT+2*, PRINT+3, PRINT+4, SETARY+3, SETARY+4, SETARY+5, SETARY+6 , SETARY+8, SETARY+9
IOM	PRINT+4
LEFT	REPORT+1~, REPORT+4, RANGE+19, RANGE+24, RANGE+29, SEARCH~, SEARCH+13, SEARCH+18
LINE	PRINT+1~, PRINT+4, SETARY+1~, SETARY+4, SETARY+5
LIST	SEARCH+1~, RTNDESCR+2, RTNDESCR+4, SETARY+5
NODE	SEARCH+1~, SEARCH+10*
PIECE	SETARY+1~, SETARY+7*
QUIT	REPORT+1~, REPORT+2, REPORT+4, RANGE+7, RANGE+13, RANGE+18, RANGE+25, SEARCH+1~, SEARCH+4, SEARCH+5 , SEARCH+16, PRINT+1, PRINT+2, PRINT+3, PRINT+6
RIGHT	REPORT+1~, REPORT+4, RANGE+26, RANGE+31, SEARCH~, SEARCH+13, SEARCH+18
RTN	SEARCH+1~, RTNDESCR+1*, RTNDESCR+2, RTNDESCR+3, SETARY+7, SETARY+9
RTN("INTERFACE"	RTNDESCR+2, RTNDESCR+6, SETARY+6
RTN("NODE0"	RTNDESCR+2, RTNDESCR+3, RTNDESCR+4, RTNDESCR+5, RTNDESCR+6, RTNDESCR+7
RTN("PRINT CO	MPLETE" , RTNDESCR+2, RTNDESCR+7, SETARY+6
SCRNSIZE	REPORT+1~, REPORT+2*, PRINT+5
SUBFLD	SEARCH+1~, SEARCH+10, SEARCH+16, SEARCH+17
SUBFLD("NODE0"	SEARCH+17*, SEARCH+18, SETARY+4, SETARY+7, SETARY+8
TOP	REPORT+1~, REPORT+4, RANGE+8, RANGE+12, RANGE+29, SEARCH~, SEARCH+13, SEARCH+18
WIDTH	RANGE+1~, RANGE+2*, RANGE+17, RANGE+24
WP	SEARCH+1~, SEARCH+13, RTNDESCR+2, RTNDESCR+5, SETARY+4, SETARY+7, SETARY+9
>> Y	RANGE+7, RANGE+8, RANGE+13, RANGE+14, RANGE+18, RANGE+19, RANGE+25, RANGE+26

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF9B1

Call Graph Total: 3