Routine: IBCFP

Information

IBCFP ;ALB/ARH - PRINT AUTHORIZED BILLS IN ORDER ; 6-DEC-94

Source Information

Source file <IBCFP.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Integrated Billing	5	ENP^IBCF1 EN^IBCF2 EN^IBCF3 ($$BILLAD,EN)^IBCF4 ($$FNT,$$FT,$$FTN)^IBCU3
Kernel	1	(,$$S)^%ZTLOAD
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Integrated Billing	2	IB BATCH PRINT BILLS IBCF

Entry Points

External References

Name	Field # of Occurrence
^%ZTLOAD	BEG+3, QUEUE+5
$$S^%ZTLOAD	STOP+1
^DIR	1, 2, 3, BEG+1
ENP^IBCF1	ROUT+2
EN^IBCF2	ROUT+3
EN^IBCF3	ROUT+4
$$BILLAD^IBCF4	ROUT+5
EN^IBCF4	ROUT+5
$$FNT^IBCU3	IBCFP+7, SORT+7
$$FT^IBCU3	SORT+2
$$FTN^IBCU3	SORT+6, QUEUE+5, ROUT+4, ROUT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Default printer in billing not defined for the "_$P(IBFT,U,1)_", none will print!",! Line Location: IBCFP+6
Function Call: WRITE	Prompt: !,"Default printer in billing not defined for the HCFA 1500, none will print!",! Line Location: IBCFP+7
Function Call: WRITE	Prompt: !,"There are no Authorized but not Printed bills to print!" Line Location: IBCFP+8
Function Call: WRITE	Prompt: "... bills not printed!" Line Location: BEG+1
Function Call: WRITE	Prompt: !," ... queued" Line Location: BEG+4
Function Call: WRITE	Prompt: @IOF Line Location: ROUT+2
Function Call: WRITE	Prompt: @IOF Line Location: ROUT+3
Function Call: WRITE	Prompt: @IOF Line Location: ROUT+4
Function Call: WRITE	Prompt: @IOF Line Location: ROUT+5
Function Call: WRITE	Prompt: !,"*TASK STOPPED BY USER*" Line Location: STOP+1
Routine Call	DIR Line Location: 1 2 3 BEG+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	IBCFP+8, SORT+1, SORT+3, SORT+4, ROUT+2
^DIC(36 - [#36]	SORT+4
^DPT - [#2]	SORT+3
^IBE(350.9 - [#350.9]	IBCFP+5
^IBE(353 - [#353]	IBCFP+6, IBCFP+7, QUEUE+3
^TMP(	QUEUE+2, QBILL+2, QBILL+3, QBILL+4, QBILL+5, QBILL+7!
^TMP("IBCFP"	SORT+6, SORT+7

Label References

Name	Line Occurrences
$$STOP	SORT+1, QBILL+5
BEG	2+1
END	IBCFP+8, 1, 2, 3, BEG+1
RE	ROUT+2, ROUT+3, ROUT+4, ROUT+5
ROUT	QBILL+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	ROUT+2*
DIR	3!, BEG+1!, END!
DIR("?"	ORDER, 1+3, 2+3, BEG
DIR("??"	BEG+1*
DIR("A"	1, 2, 3, BEG
DIR(0	1, 2, 3, BEG+1
DIRUT	1, 2, 3, END!
IBBN	QBILL+5*, QBILL+6, QBILL+7!, ROUT+1~
IBFT	IBCFP+6, END!, SORT+2, SORT+6, SORT+7, SORT+8!, QUEUE+2, QUEUE+3, QUEUE+5, QBILL+6 , QBILL+7!, ROUT~, ROUT+2, ROUT+3, ROUT+4, ROUT+5
IBFTP	QUEUE+3*, QUEUE+6!, QBILL+2, QBILL+3, QBILL+4, QBILL+5, QBILL+7!, ROUT+1~
IBIFN	SORT+1*, SORT+2, SORT+3, SORT+4, SORT+6, SORT+7, SORT+8!, QBILL+7!, ROUT~, ROUT+2 , ROUT+5
IBINS	SORT+4*, SORT+5, SORT+8!
IBJ	QUEUE+3*, QUEUE+6!, QBILL+2, QBILL+3, QBILL+4, QBILL+5, QBILL+7!, ROUT+1~
IBL	QBILL+7!
IBPAR1	IBCFP+5*, IBCFP+6, IBCFP+7, END!
IBPAT	SORT+3*, SORT+5, SORT+8!
>> IBPGN	STOP+1
IBPNT	QBILL+7!, ROUT~
IBQ	SORT+1, QUEUE+2, QBILL+2, QBILL+3, QBILL+4, QBILL+5*, QBILL+7!, ROUT+1~
IBS	IBCFP+10, 1+1, 2+1, 3+1, END!, SORT+5, SORT+8!
IBS1	SORT+5, SORT+6, SORT+7, SORT+8!, QBILL+2, QBILL+3, QBILL+4, QBILL+5, ROUT+1~
IBS2	SORT+5, SORT+6, SORT+7, SORT+8!, QBILL+3, QBILL+4, QBILL+5, ROUT+1~
IBS3	SORT+5, SORT+6, SORT+7, SORT+8!, QBILL+4, QBILL+5, ROUT+1~
IBX	1+1, 1+3, 2+3, END!, SORT+3, SORT+4, SORT+5, SORT+8!, QUEUE+2*, QUEUE+3 , QUEUE+6!
IBY	2+1*, 2+3, END!, SORT+8!, QUEUE+6!
IBZ	IBCFP+10*, 1, 1+1, 2, 2+1, 3, END!
IBZIP	SORT+4*, SORT+5, SORT+8!
IOF	ROUT+2, ROUT+3, ROUT+4, ROUT+5
U	IBCFP+6, IBCFP+7, SORT+3, SORT+4, SORT+5, QUEUE+3, ROUT+2
X	END!, DATE~
Y	1+1, 2, 2+1, 3, 3+1, BEG+1, END!
>> ZTDESC	BEG+3, QUEUE+5
>> ZTDTH	QUEUE+4*
>> ZTIO	BEG+3, QUEUE+3
>> ZTQUEUED	STOP+1
ZTREQ	STOP+1!
>> ZTRTN	BEG+3, QUEUE+5
>> ZTSAVE("IBFT"	QUEUE+4*
>> ZTSAVE("IBFTP"	QUEUE+4*
>> ZTSAVE("IBJ"	QUEUE+4*
>> ZTSAVE("IBS"	BEG+3*
>> ZTSAVE("^TMP(IBFTP,IBJ,"	QUEUE+4*
>> ZTSK	BEG+4
>> ZTSTOP	STOP+1*, STOP+2

Name	Comments	DBIA/ICR reference
SORT	;sort authorized bills by form type and requested sort order (notice that bill addendums only print for HCFA 1500's)
QUEUE	; starts a queued job for each form type that an authorized bill was found for
QTASK	; first part, sorts authorized bills in to order requested by bill form type then queues off one job for each form type to print the bills
END
ROUT(IBFT,IBPNT,IBIFN)	; sub procedure so can protect variables with new
DATE(X)
BEG
QBILL	; second queued part, this will print all authorized bills for a specific form type
1
RE
3
2
ORDER
STOP()	;determine if user has requested the queued report to stop

Customize PDF page

Package: Integrated Billing

Routine: IBCFP

Call Graph Total: 7

Caller Graph Total: 2