Routine: IBQLLD

Package	Total	Call Graph
Utilization Management Rollup	4	(ADMIT,CLAIMS,STAY)^IBQL356 (LOAD,TRANSMIT)^IBQLLD1 ORDCHK^IBQLLD2 PULL^IBQLPL
VA FileMan	3	^%DTC DT^DICRW ^DIR
Integrated Billing	1	DATE^IBOUTL
Kernel	1	^%ZTLOAD

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: 2

Package	Total	Caller Graph
Utilization Management Rollup	2	IBQL NATIONAL ROLLUP IBQL ROLLUP

Entry Points

Name	Comments	DBIA/ICR reference
DATE	; -- get date range
START
END
DATA	;
CLAIMS	; get Claims Tracking and misc. information into IB(array)
ORDER	; -- check procedure ordering errors, arrange in DAY order.
LOAD	; -- load data into ^ibq(538, file
ADMIT	; get Admission Review information into IB(array)
STAY	; get Stay Review information into IB(array)

External References

Name	Field # of Occurrence
^%DTC	DATE+3
^%ZTLOAD	DATE+9
DT^DICRW	IBQLLD+6
^DIR	DATE+5
DATE^IBOUTL	DATE+1
ADMIT^IBQL356	ADMIT+1
CLAIMS^IBQL356	CLAIMS+1
STAY^IBQL356	STAY+1
LOAD^IBQLLD1	LOAD+2
TRANSMIT^IBQLLD1	START+8
ORDCHK^IBQLLD2	ORDER+2
PULL^IBQLPL	IBQLLD+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Create Rollup File" Line Location: IBQLLD+9
Function Call: WRITE	Prompt: Y_" to " Line Location: IBQLLD+10
Function Call: WRITE	Prompt: Y Line Location: IBQLLD+10
Function Call: WRITE	Prompt: !!,IBMSG,!,IBMSG1 Line Location: IBQLLD+11
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !,"<<< please report 1 years of information only. >>>" Line Location: DATE+3
Routine Call	DIR Line Location: DATE+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBT(356 - [#356]	START+1, START+2, START+3
^IBT(356.1 - [#356.1]	START+3

Label References

Name	Line Occurrences
ADMIT	ORDER+7
DATA	START+4
DATE	DATE+3
END	DATE+2, DATE+5, DATE+9
START	IBQLLD+8
STAY	ORDER+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	END!
DGPM	END!
>> DIR("A"	DATE+5*
>> DIR("B"	DATE+5*
>> DIR(0	DATE+5*
DT	IBQLLD+6
>> DTOUT	DATE+5
>> DUOUT	DATE+5
I	DATE+7*, END!
IB	END!
IB(	CLAIMS+4, CLAIMS+8, ORDER+11, ADMIT+3, ADMIT+5, ADMIT+8, ADMIT+10, ADMIT+12, STAY+3, STAY+5 , STAY+9, STAY+10
IBBDT	DATE+2, DATE+3, START, END!
IBD	END!
IBDATA	END!, DATA+1!
IBDATA(	STAY+10*
IBDATA(0	LOAD+1, ADMIT+9*
IBDATA(1	LOAD+1, ADMIT+11*
IBDAY	END!, ORDER+4, ORDER+5, ORDER+6, ORDER+7, ORDER+8
IBDDT	START, START+1, START+2, END!
IBDNLD	IBQLLD+8, DATE+6, END!, CLAIMS+8
>> IBEDT	DATE+2, DATE+3, START+1
IBFLD	END!, CLAIMS+4, ADMIT+3, ADMIT+8, ADMIT+10, STAY+9*
IBHR	END!
IBL	END!
>> IBMSG	IBQLLD+11
>> IBMSG1	IBQLLD+11
IBNAM	END!
IBORDER	END!
IBORDER(	ORDER+5, ORDER+6
>> IBPIS	ADMIT+12*
>> IBQUIT	DATA+1, CLAIMS+1, CLAIMS+4, CLAIMS+6, CLAIMS+7, ORDER+3, ORDER+5, ORDER+11, LOAD+1, ADMIT+1 , ADMIT+3, ADMIT+5, ADMIT+7, STAY+1, STAY+3, STAY+5, STAY+7, STAY+8
IBR	END!
IBREC	START, END!, LOAD+2
IBRPT	IBQLLD+4, IBQLLD+8, END!
IBTRN	START+2*, START+3, END!
IBTRND	END!, CLAIMS+6
>> IBTRV	ORDER+1, ORDER+6
>> IBTRVD	ADMIT+7, STAY+7
VAIN	END!
VAINDT	END!
X	DATE+3, END!, ADMIT+8, ADMIT+9, ADMIT+10, ADMIT+11, STAY+9*, STAY+10
>> X1	DATE+3*
>> X2	DATE+3*
>> Y	DATE+6
>> ZTDESC	DATE+8*
>> ZTIO	DATE+8*
>> ZTRTN	DATE+8*
>> ZTSAVE(	DATE+7*

Customize PDF page

Package: Utilization Management Rollup

Routine: IBQLLD

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: