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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBDFQB

Package: Automated Information Collection System

Routine: IBDFQB


Information

IBDFQB ;ALB/MAF - MAIN QUEUE JOB FOR ENCOUNTER FORM PRINTING - FEB 2 1995

Source Information

Source file <IBDFQB.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 HOME^%ZIS  ^%ZISC  ^%ZTLOAD  ($$DOW,$$FMADD,$$FMTH,$$NOW)^XLFDT  
VA FileMan 3 (C,NOW)^%DTC  ^DIC  ^DIE  
Automated Information Collection System 2 ^IBDF1B1  BCKGRND^IBDFFRFT  
List Manager 1 PAUSE^VALM1  

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

Package Total Caller Graph
Automated Information Collection System 2 IBDF BACKGRD EF PRINT QUEUE  IBDFQS  
Integrated Billing 1 IBDF BACKGRD EF PRINT QUEUE  

Entry Points

Name Comments DBIA/ICR reference
EN ;
; -- Goes through the "SEQ" cross reference to print the
; highest priority jobs first (lowest sequence number).
UP(IBTASK) ; -- store results of tasking
QUEUE(IBDFIFN) ; -- Set up Queue variables
CLEAR ; -- Clean up variables if task is not queued
DQ ; -- Generic entry points to edit
; -- only called by jobs tasked by this routine
UPDT ; -- Update start and finish times
TASK ; -- Update Task number and last date printed
EXIT
SET ; -- Set up variables needed for priniting of forms
ENTRY ; -- Calc date and do checks on special instructions
WEEKEND(DATE) ;
; -- DATE (defaulted to current date if not passed)
; -- output = 1 if date is a weekend
HOLIDAY(DATE) ;
; -- DATE (defaulted to current date if not passed)
; -- output = 1 if date is a holiday
ZTDTH ; -- Set up the variable ZTDTH to pass the queue date time of the
; queued job.
DTIME

External References

Name Field # of Occurrence
C^%DTC ZTDTH+8
NOW^%DTC EN+6, UPDT+2
HOME^%ZIS QUEUE+13
^%ZISC QUEUE+20, EXIT+2
^%ZTLOAD QUEUE+13
^DIC HOLIDAY+6
^DIE UPDT+2, TASK+2
^IBDF1B1 DQ+3
BCKGRND^IBDFFRFT EN+11
PAUSE^VALM1 SET+3, SET+7
$$DOW^XLFDT WEEKEND+4
$$FMADD^XLFDT ENTRY+18
$$FMTH^XLFDT DTIME
$$NOW^XLFDT ENTRY+4, WEEKEND+3, HOLIDAY+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,ZTSK,!
  • Line Location: QUEUE+8
Function Call: WRITE
  • Prompt: !!,"PRINT QUEUE ABORTED.... missing required parameters!!!!"
  • Line Location: SET+3
Function Call: WRITE
  • Prompt: !!,"PRINT QUEUE ABORTED.....not an active print job... check Special Instructions"
  • Line Location: SET+7
Routine Call
  • DIC
  • Line Location:
    • HOLIDAY+6
Routine Call
  • DIE
  • Line Location:
    • UPDT+2
    • TASK+2
Routine Call
  • %ZIS
  • Line Location:
    • QUEUE+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HOLIDAY - [#40.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBD(357.09 - [#357.09] EN+8, QUEUE+9*, SET+1
^IBD(357.99 - [#357.99] SET+17, SET+18
^TMP("IB" CLEAR+1!
^TMP("IBDF" QUEUE+2!, QUEUE+4, CLEAR+1!, SET+17*, SET+18*

Label References

Name Line Occurrences
$$HOLIDAY ENTRY+9, ENTRY+10, ENTRY+20, ENTRY+21
$$QUEUE EN+8
$$WEEKEND ENTRY+8, ENTRY+10, ENTRY+19, ENTRY+21
CLEAR QUEUE+4
DTIME ZTDTH+3
ENTRY SET+11
EXIT EN+13
SET QUEUE+3
TASK UP+2, DQ+5
UP EN+8
UPDT DQ+2, DQ+4
ZTDTH ENTRY+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+6, UPDT+2
DA UPDT+1~, UPDT+2*, TASK+1~, TASK+2*
DA(1 UPDT+2*, TASK+2*
DATE WEEKEND~, WEEKEND+3*, WEEKEND+4, HOLIDAY~, HOLIDAY+3*, HOLIDAY+5
DIC HOLIDAY+4~, HOLIDAY+5*
DIC(0 HOLIDAY+5*
DIE UPDT+1~, UPDT+2*, TASK+1~, TASK+2*
DR UPDT+1~, UPDT+2*, TASK+1~, TASK+2*
GROUPS SET+12~, SET+14*, SET+16*, SET+17, SET+18
GROUPS( SET+15*, SET+16
>> IB1FLAG TASK+3
>> IB1TASK TASK+3*
IBADDONS EXIT!, SET+10*
IBCLN EXIT!, SET+17*
IBDFARY EN+8~, ENTRY+1!
IBDFARY( QUEUE+11, ENTRY+23*
IBDFCTR ENTRY+2~, ENTRY+16*, ENTRY+17, ENTRY+22*
IBDFDATE ENTRY+2~, ENTRY+16*, ENTRY+18*, ENTRY+19, ENTRY+20, ENTRY+21, ENTRY+23
IBDFDAY EXIT!
IBDFDAY1 EXIT!
IBDFDAYS ENTRY+2~, ENTRY+16*, ENTRY+17
>> IBDFFLD DQ+2*, DQ+4*, UPDT+2
IBDFIFN EN+5*, EN+8*, QUEUE~, QUEUE+9, UPDT+2, TASK+2, EXIT!, SET+1
IBDFINST EXIT!, ENTRY+2~, ENTRY+4*, ENTRY+8, ENTRY+9, ENTRY+10, ENTRY+19, ENTRY+20, ENTRY+21
IBDFJQ ZTDTH+2~, ZTDTH+5*, ZTDTH+6*, ZTDTH+7*, ZTDTH+8*, ZTDTH+9*, DTIME
IBDFLAST EXIT!
IBDFNAME EN+5*, QUEUE+13, EXIT!
IBDFNODE QUEUE+9, QUEUE+13, EXIT!, SET+1*, SET+2, SET+6, SET+10, SET+15, ENTRY+4, ENTRY+16
IBDFNOW EXIT!, ENTRY+2~, ENTRY+4*, ENTRY+8, ENTRY+9, ENTRY+10, ENTRY+16
IBDFNUM EN+5*, EN+8*, QUEUE+9, UPDT+2, TASK+2, EXIT!, SET+1
IBDFONE EXIT!
IBDFQ EXIT!
IBDFQD EN+3~, EN+6*, ZTDTH+6, ZTDTH+7
IBDFQDT EN+3~, EN+6*, ZTDTH+5, ZTDTH+8, ZTDTH+9
IBDFQT EN+3~, EN+6*, ENTRY+4, ZTDTH+3, ZTDTH+5, ZTDTH+7, ZTDTH+8, ZTDTH+9
IBDFQTIM ENTRY+2~, ENTRY+4*, ZTDTH+4*, ZTDTH+5, ZTDTH+6, ZTDTH+7, ZTDTH+8, ZTDTH+9
IBDFQUE EN+3~, EN+4*, SET+3, SET+7
IBDFSEQ EN+5*, EN+8*, EXIT!
>> IBDFSING ENTRY+5
IBDFTSTP EN+3~, EN+4*
>> IBDFX UPDT+2*
IBDFXX EXIT!
IBDIV EXIT!, SET+18*
IBDT QUEUE+11*, TASK+2, EXIT!
IBREPRNT EXIT!, SET+10*
IBSRT EXIT!, SET+10*
IBSTRTDV EXIT!, SET+10*
IBTASK UP~, UP+1, DQ+5*, TASK+2, TASK+3
IBZTSK QUEUE+19*, CLEAR+5*, CLEAR+8, EXIT!
IEN SET+12~, SET+17*, SET+18*
QUIT EN+5*, QUEUE+4, QUEUE+20*, CLEAR+3, CLEAR+7*, EXIT!, SET+2, SET+4*, SET+6, SET+8*
SET+11, ENTRY+8*, ENTRY+9*, ENTRY+10*
>> SELECTBY SET+10*
X QUEUE+1~, HOLIDAY+4~, HOLIDAY+5*, ZTDTH+8
>> X1 ZTDTH+8*
>> X2 ZTDTH+8*
Y QUEUE+1~, HOLIDAY+4~, HOLIDAY+6
ZTDESC QUEUE+1~, QUEUE+13*
ZTDTH QUEUE+1~, QUEUE+12*, DTIME*
>> ZTIO QUEUE+13*
ZTION QUEUE+1~
>> ZTQUEUED QUEUE+20, EXIT+1
>> ZTREQ EXIT+1*
ZTRTN QUEUE+1~, QUEUE+13*
ZTSAVE QUEUE+1~
ZTSAVE("IB*" QUEUE+13*
ZTSAVE("^TMP(""IBDF"",$J," QUEUE+13*
ZTSK QUEUE+1~, QUEUE+19, CLEAR+4!, CLEAR+5
ZTSK(1 CLEAR+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All