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

Package: Integrated Billing

Routine: IBCEFG7


Information

IBCEFG7 ;ALB/TMP - OUTPUT FORMATTER GENERIC FORM PROCESSING ;06-MAR-96

Source Information

Source file <IBCEFG7.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  $$UP^XLFSTR  
Integrated Billing 1 $$EXTRACT^IBCEFG  
MailMan 1 SENDMSG^XMXAPI  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Integrated Billing 6 IBCB2  IBCE837B  IBCEFG8  IBCF  IBCFP1  IBCSC11  

Entry Points

Name Comments DBIA/ICR reference
FORM(IBFORM,IBQUE,IBNOASK,IBQDT,ZTSK,IBABORT,IBRSBTST) ;For ien IBFORM, extract data using
; output generater
; IBQUE = the output queue for transmitted forms or the printer queue
; for printed output
; IBNOASK = flag that says user interaction for queuing is not needed
; 0 or null = ask, 1 = don't ask
; IBQDT = the date/time to queue the job (optional)
FORMQ
FORMOUT ; Queued job entrypoint - IBFORM needs to be defined
; IBQUE needs to be defined if using default transmission output
FOUTQ
Q1
PRINT(IBFORM) ; Print data from extract global for form IBFORM
; Extract records - this should include call(s) to $$EXTRACT^IBCEFG()
TRANSMIT(IBFORM,IBQUE) ; Send data from extract global to queue IBQUE
MSG(IBREC,LINE,MSG,SIZE,CT) ; Set up global for transmission line
; IBREC = record number being processed
; LINE = actual text to be output in mail message line
; MSG = the message seq # to output this record in (pass by reference)
; SIZE = current size of the message (pass by reference)
; CT = the last line # in message for the text (pass by reference)
DEV(IBFORM,NOQ) ;
DEVQ
QUEUE(IBFORM) ; Ask to queue transmission
QUEQ
FPRE(IBFORM,IBPAR,IBXERR) ; Executes pre-processor
FPOST(IBFORM,IBPAR,IBXERR) ; Executes post-processor
FMFLD(IBDA) ;Return the file#field for fileman field referenced as a data
; element in file 364.7's IBDA entry.
FLDQ

External References

Name Field # of Occurrence
^%ZIS DEV+4
HOME^%ZIS DEV+11
^%ZISC FORMOUT+27
^%ZTLOAD FORM+26, DEV+11, QUEUE+15
^DIR QUEUE+4, QUEUE+8
$$EXTRACT^IBCEFG FORMOUT+19
$$NOW^XLFDT FORM+22
$$UP^XLFSTR TRANSMIT+15
SENDMSG^XMXAPI TRANSMIT+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: IB1>1
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?0
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IB2>1
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?(IB3-1),^(IB3)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!,"This job has been queued. The task number is "_ZTSK_"."
  • Line Location: DEV+13
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEUE+3
Function Call: WRITE
  • Prompt: !!,"Please enter the date and time to execute this job...",!
  • Line Location: QUEUE+11
Function Call: WRITE
  • Prompt: !!,"This job has been queued. The task number is "_ZTSK_"."
  • Line Location: QUEUE+16
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+11
Routine Call
  • DIR
  • Line Location:
    • QUEUE+4
    • QUEUE+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( FMFLD+7, FMFLD+10
^DD(399 FMFLD+8
^DGCR(399 - [#399] FORMOUT+17, FORMOUT+18
^IBA(364.5 - [#364.5] FMFLD+3
^IBA(364.7 - [#364.7] FMFLD+3
^IBE(353 - [#353] FORM+18, FORM+19, FORM+22, FORMOUT+5, FORMOUT+13, FORMOUT+14, FORMOUT+24, FORMOUT+25, TRANSMIT+6, TRANSMIT+18
, DEV+3, DEV+7, DEV+9, QUEUE+12, FPRE+1, FPRE+2, FPOST+1, FPOST+2
^TMP("IBQONE" DEV+8
^TMP("IBRESUBMIT" FORM+21*, FORM+23, QUEUE+13
^TMP("IBSELX" FORM+24, QUEUE+14
^TMP("IBX" TRANSMIT+3!, TRANSMIT+11*, TRANSMIT+21!, MSG+9, MSG+10
^TMP("IBXDATA" FORMOUT+3!, FORMOUT+21, FOUTQ+1!, PRINT+4, PRINT+6, PRINT+8, PRINT+10, TRANSMIT+10, TRANSMIT+12, TRANSMIT+14
, TRANSMIT+15
^TMP("IBXEDIT" FOUTQ+1!
^TMP("IBXTXMT" TRANSMIT+3!, TRANSMIT+19, TRANSMIT+21!, MSG+11*!, MSG+13*
^XTMP( DEV+12!

Label References

Name Line Occurrences
$$QUEUE FORM+21
DEV FORM+20
DEVQ DEV+5, DEV+6
FLDQ FMFLD+4
FORMOUT FORM+27
FORMQ FORM+19, FORM+20
FOUTQ FORMOUT+9, FORMOUT+21, FORMOUT+24, FORMOUT+25, FORMOUT+27, FORMOUT+28
FPOST FOUTQ
FPRE FORMOUT+8
MSG TRANSMIT+14
PRINT FORMOUT+27
Q1 FORMOUT+15
QUEQ QUEUE+5, QUEUE+6
TRANSMIT FORMOUT+28

Naked Globals

Name Field # of Occurrence
^( PRINT+8, TRANSMIT+15, MSG+10*, MSG+11
^("EXT" FORMOUT+13, FORMOUT+14
^("FPOST" FPOST+1, FPOST+2
^("FPRE" FPRE+1, FPRE+2
^("OUT" FORMOUT+24, FORMOUT+25
^(2 TRANSMIT+6, DEV+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+2*
>> %ZIS("A" DEV+2*
>> %ZIS("B" DEV+3*
CT MSG~, MSG+10*, MSG+11*, MSG+13*
DIR QUEUE+1~, QUEUE+4!, QUEUE+8!
DIR("A" QUEUE+3*, QUEUE+7*
DIR("B" QUEUE+3*, QUEUE+7*
DIR(0 QUEUE+3*, QUEUE+7*
>> DTOUT QUEUE+5
>> DUOUT QUEUE+5
DUZ FORM+25*, TRANSMIT+18
IB1 PRINT+2~, PRINT+6*, PRINT+8, TRANSMIT+2~, TRANSMIT+12*, TRANSMIT+14, TRANSMIT+15
IB2 FORMOUT+2~, FORMOUT+5*, PRINT+2~, PRINT+6*, PRINT+8, TRANSMIT+2~, TRANSMIT+13*, TRANSMIT+14*, TRANSMIT+15
IB3 PRINT+2~, PRINT+6*, PRINT+8*, TRANSMIT+2~, TRANSMIT+15*
IBABORT FORM~, FORM+18*, FORM+21*
IBCT TRANSMIT+2~, TRANSMIT+9*, TRANSMIT+11, TRANSMIT+14
IBDA FMFLD~, FMFLD+3
>> IBDELIM TRANSMIT+6*, TRANSMIT+7*, TRANSMIT+15
IBF2 FORM+17~
IBFORM FORM~, FORM+18, FORM+19, FORM+20, FORM+21, FORM+22, FORMOUT+5, FORMOUT+8, FORMOUT+13, FORMOUT+14
FORMOUT+19, FORMOUT+24, FORMOUT+25, FORMOUT+27, FORMOUT+28, FOUTQ, PRINT~, TRANSMIT~, TRANSMIT+6, TRANSMIT+18
, DEV~, DEV+3, DEV+7, DEV+9, QUEUE~, QUEUE+12, FPRE~, FPRE+1, FPRE+2, FPOST~
, FPOST+1, FPOST+2
IBFTYPE DEV+1~, DEV+9*, DEV+12
>> IBIFN FORM+19, FORMOUT+17, FORMOUT+18, FORMOUT+19
>> IBJ DEV+9*
>> IBMSG TRANSMIT+9*, TRANSMIT+14
IBNOASK FORM~, FORM+21
IBOUT TRANSMIT+2~, TRANSMIT+13*, TRANSMIT+14, TRANSMIT+15*
>> IBP TRANSMIT+15*
IBPAR FORMOUT+2~, FORMOUT+5*, FORMOUT+8, FORMOUT+14, FORMOUT+25, FOUTQ, FPRE~, FPRE+2, FPOST~, FPOST+2
IBQDT FORM~, FORM+22
IBQUE FORM~, FORM+18*, FORM+20, FORMOUT+28, TRANSMIT~, TRANSMIT+4, TRANSMIT+18
IBREC PRINT+2~, PRINT+4*, PRINT+6, PRINT+8, PRINT+10, TRANSMIT+2~, TRANSMIT+9*, TRANSMIT+10*, TRANSMIT+11, TRANSMIT+12
, TRANSMIT+14, TRANSMIT+15, MSG~, MSG+9, MSG+10
IBRSBTST FORM~
>> IBSIZE TRANSMIT+9*, TRANSMIT+14
IBSUB TRANSMIT+2~, TRANSMIT+18*, TRANSMIT+19
IBTYP FORM+17~, FORM+18*, FORM+19, FORM+20, FORM+21, FORMOUT+2~, FORMOUT+5*, FORMOUT+8, FORMOUT+12, FORMOUT+15
FORMOUT+27, FORMOUT+28
IBXERR FORMOUT+8, FORMOUT+9, FOUTQ, FPRE~, FPOST~
IO DEV+14
IO("Q" DEV+6, DEV+11!
IOF PRINT+6, PRINT+10
LINE MSG~, MSG+7, MSG+13
LLEN MSG+6~, MSG+7*, MSG+8, MSG+13
MSG MSG~, MSG+11, MSG+12*, MSG+13
ND0 FMFLD+2~, FMFLD+3*, FMFLD+4, FMFLD+5
NOQ DEV~, DEV+2
OKAY QUEUE+1~, QUEUE+2*, QUEUE+5*, QUEUE+9*, QUEQ
PARAM FORMOUT+16~, FORMOUT+19
PARAM(1 FORMOUT+17*
PARAM(2 FORMOUT+18*
PARAM(3 FORMOUT+18*
POP FORM+17~, FORM+20, DEV+5
SIZE MSG~, MSG+8, MSG+10*, MSG+11*, MSG+13*
U FORM+18, FORM+19, FORM+22, FORMOUT+5, FORMOUT+18, TRANSMIT+6, TRANSMIT+18, DEV+7, DEV+9, QUEUE+12
, FMFLD+3, FMFLD+4, FMFLD+5, FMFLD+8
XMBODY TRANSMIT+2~, TRANSMIT+19*
XMDUZ TRANSMIT+2~, TRANSMIT+18*, TRANSMIT+19
XMSUBJ TRANSMIT+2~, TRANSMIT+19*
XMTO TRANSMIT+2~, TRANSMIT+19
XMTO( TRANSMIT+18*
>> XMZ TRANSMIT+19
Y QUEUE+1~, QUEUE+6, QUEUE+9
Z FORMOUT+16~, FORMOUT+18*, FORMOUT+19*, TRANSMIT+2~, TRANSMIT+19*, MSG+6~, MSG+10*, MSG+11*, FMFLD+2~, FMFLD+4*
, FMFLD+5*, FMFLD+7, FMFLD+8*, FMFLD+9, FMFLD+10*, FLDQ
Z0 FORMOUT+16~, FORMOUT+17*, FORMOUT+18, MSG+6~, MSG+11*, FMFLD+2~, FMFLD+3*
>> Z1 FMFLD+5*, FMFLD+6, FMFLD+7, FMFLD+9*, FMFLD+10
>> Z2 FMFLD+7*, FMFLD+8
ZTDESC FORM+17~, FORM+22*, DEV+7*, QUEUE+12*
ZTDTH FORM+17~, FORM+22*
ZTIO FORM+17~, FORM+22*, DEV+7!, QUEUE+12*
>> ZTQUEUED FORMOUT+27
ZTREQ FORM+17~, FORMOUT+4*
ZTRTN FORM+17~, FORM+22*, DEV+7*, QUEUE+12*
ZTSAVE FORM+17~
ZTSAVE("IB*" FORM+22*, DEV+7*, QUEUE+12*
ZTSAVE("^TMP(""IBNOT"",$J)" FORM+23*, QUEUE+13*
ZTSAVE("^TMP(""IBNOT"",$J," FORM+23*, QUEUE+13*
ZTSAVE("^TMP(""IBRESUBMIT"",$J)" FORM+23*, QUEUE+13*
ZTSAVE("^TMP(""IBRESUBMIT"",$J," FORM+23*, QUEUE+13*
ZTSAVE("^TMP(""IBSELX"",$J)" FORM+24*, QUEUE+14*
ZTSAVE("^TMP(""IBSELX"",$J," FORM+24*, QUEUE+14*
ZTSAVE("^XTMP(IBFTYPE,$J," DEV+10*
ZTSK FORM~, FORM+27, DEV+13, QUEUE+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All