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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCFP1

Package: Integrated Billing

Routine: IBCFP1


Information

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

Source Information

Source file <IBCFP1.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Integrated Billing 9 $$TXMT^IBCEF4  $$EXTRACT^IBCEFG  BILLPARM^IBCEFG0  FORMOUT^IBCEFG7  ENP^IBCF1  (EN,END)^IBCF2  EN^IBCF3  ($$BILLAD,EN)^IBCF4  
($$FNT,$$FT,$$FTN)^IBCU3  
Kernel 3 (,$$S)^%ZTLOAD  ($$FMADD,$$HTE)^XLFDT  SETUP^XQALERT  
MailMan 1 SENDMSG^XMXAPI  
VA FileMan 1 CLEAN^DILF  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Integrated Billing 2 IBCEXTRP  ^IBE(353  

Entry Points

Name Comments DBIA/ICR reference
QTASK ; 1st part sorts authorized bills into order requested by bill form type then queues off 1 job for each type to print bills
SORT ;sort authorized bills by form type and requested sort order (notice bill addendums only print for 1500's)
QUEUE ; starts a queued job for each form type that an authorized bill was found for
; no form types without defined device
GCLEAN ; Clean up XTMP global for $J of IBCFP and IBMRA entries
QBILL ; 2nd queued part will print all authorized bills for a specific form type
QB1 ; Entrypoint for output logic of formatter
; pass in "^XTMP(IBFTP,IBJ)" sorted array of bills to print
; IBFTP = "IBCFP"_(form type) subscript indicating which part of array to print
; IBPNT = reprint status of bill (1-original, 0-copy, etc)
; IBFT = IFN of bill form type to be printed
; IBJ = $J of starting job (for when multiple print jobs might be queued)
; if a single bill printed and queued, IBJ will be null
ROUT(IBFT,IBPNT,IBIFN,IBCT,IBF) ; sub procedure to protect variables with new
REX
DATE(X)
STOP() ;determine if user has requested the queued report to stop
FORMPRE ; Set up environment for bill message
FORMPOST ; Clean up
ENTPRE ; Run before processing a bill entry
ENTPOST ; Run after processing a bill entry
ERRMSG(XMBODY) ; Send bulletin for error message
ALERT(XQAMSG,IBGRP) ; Send alert message

External References

Name Field # of Occurrence
^%ZTLOAD QUEUE+8, QUEUE+13
$$S^%ZTLOAD STOP+1
CLEAN^DILF FORMPOST+12, ENTPOST+5
$$TXMT^IBCEF4 SORT+2
$$EXTRACT^IBCEFG ROUT+8
BILLPARM^IBCEFG0 ROUT+2
FORMOUT^IBCEFG7 QBILL+4
ENP^IBCF1 ROUT+11
EN^IBCF2 ROUT+12
END^IBCF2 ENTPOST+3
EN^IBCF3 ROUT+13
$$BILLAD^IBCF4 ROUT+16
EN^IBCF4 ROUT+16
$$FNT^IBCU3 SORT+11, SORT+17
$$FT^IBCU3 SORT+3
$$FTN^IBCU3 SORT+16, QUEUE+8, ROUT+12, ROUT+13, ROUT+16
$$FMADD^XLFDT QTASK+2
$$HTE^XLFDT QTASK+2
SENDMSG^XMXAPI ERRMSG+4
SETUP^XQALERT ALERT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ROUT+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ROUT+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ROUT+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ROUT+16
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] SORT+1, SORT+4, SORT+5, ROUT+11, FORMPOST+7
^DIC(36 - [#36] SORT+5
^DPT - [#2] SORT+4
^IBE(353 - [#353] SORT+3, SORT+13, SORT+18, QUEUE+6, QUEUE+11, QBILL+2, ROUT+3
^TMP("DIERR" ENTPRE+1!
^TMP("IBXDATA" FORMPRE+1!, ENTPOST+2!
^TMP("IBXERR" FORMPRE+1!, FORMPOST+1, FORMPOST+7, FORMPOST+11!, ENTPOST+2*
^TMP("IBXMSG" FORMPRE+1!, FORMPOST+3!, FORMPOST+4*, FORMPOST+7*, FORMPOST+9!
^TMP("IBXSAVE" ENTPRE+1!, ENTPOST+4!
^TMP($J FORMPOST+9!, ENTPRE+1!, ENTPOST+4!
^UTILITY("VAPA" ENTPRE+1!, ENTPOST+4!
^VA(200 - [#200] QTASK+2
^XTMP( QUEUE+5, QUEUE+10, GCLEAN+2!, GCLEAN+3!, QB1+12, QB1+13, QB1+14, QB1+15, QB1+17!
^XTMP("IBCFP" SORT+7*, SORT+13, SORT+18*
^XTMP("IBMRA" SORT+13*

Label References

Name Line Occurrences
$$STOP SORT+1, QB1+15
ALERT ERRMSG+5
ERRMSG FORMPOST+8
GCLEAN QTASK+2, QUEUE+2
REX ROUT+8, ROUT+11, ROUT+12, ROUT+13, ROUT+16
ROUT QB1+16

Naked Globals

Name Field # of Occurrence
^(0 QTASK+2
^(2 FORMPOST+4*
^(3 FORMPOST+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN ROUT+11*
DT QTASK+2
DUZ QTASK+2, ERRMSG+2, ERRMSG+5
I GCLEAN+1~, GCLEAN+2*, GCLEAN+3*
IBBN QB1+9~, QB1+15*, QB1+16, ROUT+1~
IBCT QB1+9~, QB1+10*, QB1+16, ROUT~, ROUT+4*, ROUT+8, FORMPOST+2~, FORMPOST+6*, FORMPOST+7*
IBERR FORMPOST+2~, FORMPOST+6*, FORMPOST+7*
IBF QBILL+1~, QBILL+2*, QBILL+4, ROUT~, ROUT+3*, ROUT+8
IBFORM QBILL+1~, QBILL+4*
IBFT SORT+3*, SORT+7, SORT+8, SORT+11*, SORT+13, SORT+17*, SORT+18, SORT+20!, QUEUE+5*, QUEUE+6
, QUEUE+8, QUEUE+10*, QUEUE+11, QBILL+2, QB1+16, ROUT~, ROUT+3, ROUT+11, ROUT+12, ROUT+13
, ROUT+16
IBFTP QUEUE+6*, QUEUE+11*, QUEUE+14!, QB1+12, QB1+13, QB1+14, QB1+15, QB1+17, ROUT+1~
IBGRP ALERT~, ALERT+2
IBIFN SORT+1*, SORT+2, SORT+3, SORT+4, SORT+5, SORT+7, SORT+18, SORT+20!, QB1+9~, ROUT~
, ROUT+2, ROUT+8, ROUT+11, ROUT+16, ENTPOST+1~, ENTPOST+3*
IBINS SORT+5*, SORT+6, SORT+20!
IBIX QUEUE+5*, QUEUE+6, QUEUE+10*, QUEUE+11, QUEUE+14!
IBJ QUEUE+6*, QUEUE+11*, QUEUE+14!, QB1+7*, QB1+12, QB1+13, QB1+14, QB1+15, QB1+17, ROUT+1~
>> IBMCSPNT QBILL+3
IBPAT SORT+4*, SORT+6, SORT+20!
>> IBPGN STOP+1
IBPNT QBILL+1~, QBILL+2*, QBILL+3*, QB1+8*, QB1+16, ROUT~
IBQ SORT+1*, QUEUE+2, QUEUE+3, QB1+9~, QB1+10*, QB1+12, QB1+13, QB1+14, QB1+15*, ROUT+1~
IBS SORT+6, SORT+20!
IBS1 SORT+6*, SORT+7, SORT+18, SORT+20!, QB1+9~, QB1+10*, QB1+12*, QB1+13, QB1+14, QB1+15
, ROUT+1~
IBS2 SORT+6*, SORT+7, SORT+18, SORT+20!, QB1+9~, QB1+13*, QB1+14, QB1+15, ROUT+1~
IBS3 SORT+6*, SORT+7, SORT+18, SORT+20!, QB1+9~, QB1+14*, QB1+15, ROUT+1~
IBX SORT+4*, SORT+6*, SORT+20!
IBXERR FORMPRE+1!, FORMPOST+11!, ENTPRE+1!, ENTPOST+2
>> IBXIEN ENTPOST+2, ENTPOST+3
IBXP QTASK+2*, SORT+7, SORT+13, SORT+18, SORT+20!
IBXPARM ROUT+1~, ROUT+2, ROUT+8
IBXSAVE ENTPRE+1!, ENTPOST+4!
IBY SORT+20!, QUEUE+14!
IBZIP SORT+5*, SORT+6, SORT+20!
IOF ROUT+11, ROUT+12, ROUT+13, ROUT+16
U SORT+3, SORT+4, SORT+5, SORT+6, SORT+13, SORT+18, QUEUE+6, QUEUE+11, QBILL+2, ROUT+3
, ROUT+11, FORMPOST+7
X DATE~
XIBFT SORT+8*, SORT+13, SORT+16, SORT+20!
XMBODY FORMPOST+2~, FORMPOST+8*, ERRMSG~, ERRMSG+4
XMDUZ FORMPOST+2~
XMSUBJ FORMPOST+2~, ERRMSG+1~, ERRMSG+2*, ERRMSG+4
XMTO FORMPOST+2~, ERRMSG+1~, ERRMSG+4
XMTO( ERRMSG+2*
XQA ALERT+1~
XQA( ALERT+2*
XQAMSG ALERT~
Z ROUT+1~, ROUT+8*
>> ZTDESC QUEUE+8*, QUEUE+13*
>> ZTDTH QUEUE+7*, QUEUE+12*
>> ZTIO QUEUE+6*, QUEUE+11*
>> ZTQUEUED STOP+1
ZTREQ QB1+11*, STOP+1!
>> ZTRTN QUEUE+8*, QUEUE+13*
>> ZTSAVE("IBFT" QUEUE+7*, QUEUE+12*
>> ZTSAVE("IBFTP" QUEUE+7*, QUEUE+12*
>> ZTSAVE("IBJ" QUEUE+7*, QUEUE+12*
>> ZTSTOP STOP+1*, STOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All