Routine: IBDF1B5

Package	Total	Call Graph
Automated Information Collection System	2	($$MULTIPLE,GETLIST)^IBDF1B1A ($$DORTN,RTNDSCR)^IBDFU1B

Package

Total

Call Graph

Automated Information Collection System

($$MULTIPLE,GETLIST)^IBDF1B1A ($$DORTN,RTNDSCR)^IBDFU1B

Package	Total	Caller Graph
Automated Information Collection System	6	IBDF1A IBDF1B1 IBDF1B1A IBDF1BA IBDFN1 IBDFREG

Package

Total

Caller Graph

Automated Information Collection System

IBDF1A IBDF1B1 IBDF1B1A IBDF1BA IBDFN1 IBDFREG

Entry Points

Name	Comments	DBIA/ICR reference
CLIN(CLINIC,CLIN)	; -- builds array of reports to print for clinic ; -- input CLINIC = ien from 44 ; -- CLIN = name of array to pass back ; -- output array in format CLIN(ien of report)=""
DIVISION(CLINIC)	;returns the clinic's division - format is IEN^division's name
IFOTHR(CLINIC,TYPE)	; -- returns a 1 if there are reports defined for CLINIC for print condition=TYPE,0 if otherwise
EXCLUDE(CLINIC,RPT)	;deterine if report is excluded for specified clinic ; -- input CLINIC = ien from file 44 ; -- RPT = ien of report ; -- output 1 if report is excluded, 0 if not excluded
PRINT(PI,SIDES)	;fetches the package interface record,prints the report ; -- input PI = ien of report ; -- SIDES=0-simplex, 1-duplex long-edge, 2-duplex short-edge
EARLIEST(DFN,DIV,APPT,RPT)	;determine if appt is earliest appt that does ; -- not exclude the report ; -- input DFN = ien file 2 ; -- DIV = ien 40.8 ; -- APPT = appt we have printed EF for ; -- RPT = ien of report
PRNTOTHR(CLINIC,APPT,DFN)	;prints reports defined for CLINIC/DIVISION ; -- input CLINIC = ien file 44 ; -- APPT = pts appointment date in fm format ; -- DFN = ptr to pt file
DIV(DIVISION,DIV)	; -- builds array of reports to print for division ; -- input DIVISION = ien from 40.8 ; -- DIV = name of array to pass back ; -- output array in format DIV(ien of report)=""

Name	Field # of Occurrence
$$MULTIPLE^IBDF1B1A	PRNTOTHR+16
GETLIST^IBDF1B1A	EARLIEST+9
$$DORTN^IBDFU1B	PRINT+16
RTNDSCR^IBDFU1B	PRINT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: IBDEVICE("DUPLEX_LONG") Line Location: PRINT+11
Function Call: WRITE	Prompt: IBDEVICE("DUPLEX_SHORT") Line Location: PRINT+12
Function Call: WRITE	Prompt: IBDEVICE("SIMPLEX") Line Location: PRINT+13
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+14
Function Call: WRITE	Prompt: IBDEVICE("SIMPLEX") Line Location: PRINT+15
Function Call: WRITE	Prompt: IBDEVICE("SIMPLEX") Line Location: PRINT+19
Function Call: WRITE	Prompt: IBDEVICE("SIMPLEX") Line Location: PRINT+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIVISION+4
^IBE(357.92 - [#357.92]	PRNTOTHR+15, IFOTHR+3
^SC - [#44]	DIVISION+3
^SD(409.95 - [#409.95]	CLIN+6, CLIN+7, EXCLUDE+6, EARLIEST+11, IFOTHR+6, IFOTHR+8
^SD(409.96 - [#409.96]	DIV+6, DIV+7, IFOTHR+6
^TMP("IBDF"	EARLIEST+8!, EARLIEST+10

Name	Line Occurrences
$$DIVISION	PRNTOTHR+6, IFOTHR+4
$$EARLIEST	PRNTOTHR+17
$$EXCLUDE	PRNTOTHR+10, PRNTOTHR+12
CLIN	PRNTOTHR+8
DIV	PRNTOTHR+8
PRINT	PRNTOTHR+10, PRNTOTHR+18

Name	Field # of Occurrence
^(	EARLIEST+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PRINT+16~*
APPT	PRNTOTHR~, PRNTOTHR+4, EARLIEST~, EARLIEST+7, EARLIEST+9, EARLIEST+12
APT	EARLIEST+6~, EARLIEST+10*, EARLIEST+12
CLIN	CLIN~
CLIN(	CLIN+7*
CLINIC	PRNTOTHR~, PRNTOTHR+4, PRNTOTHR+6, PRNTOTHR+8, PRNTOTHR+10, PRNTOTHR+12, CLIN~, CLIN+5, CLIN+6, CLIN+7 , EXCLUDE~, EXCLUDE+4, EXCLUDE+6, EARLIEST+10*, EARLIEST+11, PRINT+8~, DIVISION~, DIVISION+2, DIVISION+3, IFOTHR~ , IFOTHR+4, IFOTHR+6, IFOTHR+8
CLNCNAME	PRINT+8~
COUNT	IFOTHR+1~, IFOTHR+2, IFOTHR+6, IFOTHR+8*, IFOTHR+9
DFN	PRNTOTHR~, PRNTOTHR+4, PRNTOTHR+16, PRNTOTHR+17, EARLIEST~, EARLIEST+7, EARLIEST+9, EARLIEST+10
DIV	DIV~, EARLIEST~, EARLIEST+7, EARLIEST+9, EARLIEST+10, DIVISION+1~, DIVISION+3, DIVISION+4, DIVISION+5, DIVISION+6* , DIVISION+7
DIV(	DIV+7*
DIVISION	PRNTOTHR+5~, PRNTOTHR+6, PRNTOTHR+8, PRNTOTHR+17, DIV~, DIV+5, DIV+6, DIV+7, PRINT+8~, IFOTHR+1~ , IFOTHR+4, IFOTHR+6
>> IBAPPT	PRNTOTHR+16, PRNTOTHR+17
IBCLIN	PRNTOTHR+5~, PRNTOTHR+8
IBCLIN(	PRNTOTHR+10, PRNTOTHR+14
>> IBDEVICE("DUPLEX_LONG"	PRINT+11, PRINT+19
>> IBDEVICE("DUPLEX_SHORT"	PRINT+12, PRINT+20
>> IBDEVICE("SIMPLEX"	PRINT+13, PRINT+15, PRINT+19, PRINT+20
IBDIV	PRNTOTHR+5~, PRNTOTHR+8
IBDIV(	PRNTOTHR+12, PRNTOTHR+15, PRNTOTHR+18
IBRTN	PRINT+3~*, PRINT+4, PRINT+16
IBRTN("ACTION"	PRINT+5
IBRTN("HSMRY"	PRINT+7
IBRTN("HSMRY?"	PRINT+7
IBRTN("RTN"	PRINT+7*
IOF	PRINT+14
NAME	DIVISION+1~, DIVISION+4*, DIVISION+5
PI	PRINT~, PRINT+3
PNAME	PRINT+8~
PRN	EARLIEST+6~, EARLIEST+10, EARLIEST+12, EARLIEST+13, EARLIEST+14
PTYPE	PRINT+8~
QUIT	PRINT+8~
RNAR	PRNTOTHR+13~, PRNTOTHR+15*, PRNTOTHR+16, PRNTOTHR+17
RPT	PRNTOTHR+5~, PRNTOTHR+10, PRNTOTHR+12, PRNTOTHR+14, PRNTOTHR+15, PRNTOTHR+17, PRNTOTHR+18, DIV+4~, DIV+7, CLIN+4~ , CLIN+7, EXCLUDE~, EXCLUDE+4, EXCLUDE+6, EARLIEST~, EARLIEST+7, EARLIEST+11, PRINT+3~
RTN	DIV+4~, DIV+6, DIV+7, CLIN+4~, CLIN+6, CLIN+7, PRINT+3~, IFOTHR+1~, IFOTHR+6, IFOTHR+8
RULE	PRNTOTHR+13~, PRNTOTHR+15*
SETUP	DIV+4~, DIV+6, DIV+7, CLIN+4~, CLIN+6, CLIN+7
SIDES	PRINT~, PRINT+11, PRINT+12, PRINT+15, PRINT+19, PRINT+20
TDIGIT	PRINT+8~
TYPE	DIV+4~, DIV+6, DIV+7, CLIN+4~, CLIN+6, CLIN+7, PRINT+8~, IFOTHR~, IFOTHR+3*, IFOTHR+6 , IFOTHR+8

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF1B5

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: