Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: IBCFP

Package: Integrated Billing

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

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

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All