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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBDF2A

Package: Automated Information Collection System

Routine: IBDF2A


Information

IBDF2A ;ALB/CJM - ENCOUNTER FORM (builds form and prints it) ;NOV 16,1992

Source Information

Source file <IBDF2A.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Automated Information Collection System 12 $$FID^IBDF18C  COMPILE^IBDF19  OVERFLOW^IBDF1B3  (DEVSETUP,DRWBLOCK)^IBDF2A1  DATAFLD^IBDF2B  PRINTLST^IBDF2D  (CNVRTHT,CNVRTLEN)^IBDF2D1  LNPRINT^IBDF2F  
DRWSTR^IBDFU  $$BLKDESCR^IBDFU1B  ($$FORMDSCR,ARRAYS,PRNTPRMS)^IBDFU1C  (DEVICE,KPRNTVAR)^IBDFUA  
Kernel 1 $$REPLACE^XLFSTR  

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

Package Total Caller Graph
Automated Information Collection System 8 IBDF19  IBDF1A  IBDF1B2  IBDF1C  IBDF5C  IBDFC  IBDFFSMP  IBDFREG  

Entry Points

Name Comments DBIA/ICR reference
FORM(IBFORM,WITHDATA) ;prints FORM - defines IBDEVICE array
EXIT ;
DRWFORM(IBFORM,WITHDATA,IBDEVICE) ;prints IBFORM - IBDEVICE array already defined, must be passed by reference
DRWBLKS ;draws all the form's blocks
JUSTDATA(WITHDATA) ;draws the form's data fields and dynamic selection lists, just the portion that may change with data
REPLACE ;replace objects requiring PCL with plain text

External References

Name Field # of Occurrence
$$FID^IBDF18C DRWFORM+15
COMPILE^IBDF19 DRWFORM+11
OVERFLOW^IBDF1B3 DRWFORM+31
DEVSETUP^IBDF2A1 DRWFORM+6
DRWBLOCK^IBDF2A1 DRWBLKS+2
DATAFLD^IBDF2B JUSTDATA+10
PRINTLST^IBDF2D JUSTDATA+11
CNVRTHT^IBDF2D1 REPLACE+20
CNVRTLEN^IBDF2D1 REPLACE+20
LNPRINT^IBDF2F DRWFORM+28
DRWSTR^IBDFU JUSTDATA+12, REPLACE+5, REPLACE+9, REPLACE+27, REPLACE+28, REPLACE+29
$$BLKDESCR^IBDFU1B JUSTDATA+9
$$FORMDSCR^IBDFU1C DRWFORM+3
ARRAYS^IBDFU1C DRWFORM+17
PRNTPRMS^IBDFU1C DRWFORM+4, JUSTDATA+5, REPLACE+2
DEVICE^IBDFUA FORM+5
KPRNTVAR^IBDFUA EXIT+2
$$REPLACE^XLFSTR REPLACE+26

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] DRWFORM+37
^IBD(357.96 - [#357.96] DRWFORM+15
^IBE(357.1 - [#357.1] DRWBLKS+2, JUSTDATA+8, JUSTDATA+12
^IBE(357.2 - [#357.2] JUSTDATA+11
^IBE(357.5 - [#357.5] JUSTDATA+10
^IBE(359.1 - [#359.1] REPLACE+15
^TMP("IB" DRWFORM+7!, DRWFORM+33!
^TMP("IBDF" DRWFORM+7!, DRWFORM+33!

Label References

Name Line Occurrences
DRWBLKS DRWFORM+19
DRWFORM FORM+6
JUSTDATA DRWFORM+18
REPLACE DRWFORM+22

Naked Globals

Name Field # of Occurrence
^("OVERFLOW" DRWFORM+7!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A REPLACE+22~, REPLACE+23*, REPLACE+24*
>> DFN DRWFORM+15
HAND DRWFORM+1~, REPLACE+13*, REPLACE+15
I EXIT+3!, REPLACE+22~, REPLACE+23*, REPLACE+24*
>> IBAPPT DRWFORM+15
IBARRAY DRWFORM+1~, DRWFORM+17
IBARRAY("BUBBLES" REPLACE+9, REPLACE+10*
IBARRAY("GRAPHICS" REPLACE+5, REPLACE+6*
IBARRAY("HAND_PRINT" REPLACE+13, REPLACE+15, REPLACE+30*
IBARRAY("UNDERLINES" DRWFORM+25*
IBBLK DRWBLKS+1~, DRWBLKS+2*, JUSTDATA+3~, JUSTDATA+8*, JUSTDATA+9, JUSTDATA+10, JUSTDATA+11, JUSTDATA+12, REPLACE+1~
IBBLK("X" REPLACE+3*
IBBLK("Y" REPLACE+3*
>> IBCLINIC DRWFORM+15
IBCOL REPLACE+1~, REPLACE+5*, REPLACE+9*, REPLACE+13*, REPLACE+15, REPLACE+27, REPLACE+28, REPLACE+29
IBDEVICE FORM+3~, FORM+5, FORM+6, DRWFORM~, DRWFORM+6
IBDEVICE("CRT" DRWFORM+15, DRWFORM+25
IBDEVICE("GRAPHICS" REPLACE+4
IBDEVICE("LISTMAN" JUSTDATA+7, JUSTDATA+12
IBDEVICE("PCL" DRWFORM+22, DRWFORM+36
>> IBDSAMP DRWFORM+15
IBFLD JUSTDATA+3~, JUSTDATA+10*
IBFORM FORM~, FORM+6, DRWFORM~, DRWFORM+3, DRWFORM+6, DRWFORM+17, DRWBLKS+2, JUSTDATA+8
IBFORM("COMPILED" DRWFORM+11, DRWFORM+15
IBFORM("TOOLKIT" DRWFORM+11, DRWFORM+18, DRWFORM+19
IBFORM("TYPE" DRWFORM+15
IBFORM("WIDTH" REPLACE+23, REPLACE+24
IBLIST JUSTDATA+3~, JUSTDATA+11*
IBPFID DRWFORM+1~, DRWFORM+8*, DRWFORM+15*, DRWFORM+28
IBPRINT DRWFORM+1~, DRWFORM+4, JUSTDATA+3~, JUSTDATA+5, REPLACE+2
IBPRINT("ENTIRE" JUSTDATA+11*
IBPRINT("WITH_DATA" DRWFORM+15, JUSTDATA+11
IBROW REPLACE+1~, REPLACE+5*, REPLACE+9*, REPLACE+13*, REPLACE+15, REPLACE+19, REPLACE+21
IBWARN JUSTDATA+7~*
>> IOST(0 DRWFORM+37
LINES DRWFORM+1~, REPLACE+15*, REPLACE+18*, REPLACE+20, REPLACE+21*, REPLACE+29
NODE DRWFORM+1~, JUSTDATA+3~, JUSTDATA+12*, REPLACE+15*
PRINT DRWFORM+1~, REPLACE+15*, REPLACE+23, REPLACE+24, REPLACE+26*, REPLACE+27
REPLACE REPLACE+22~, REPLACE+26
REPLACE( REPLACE+23*, REPLACE+24*
REPLACE("_" REPLACE+23*, REPLACE+24*
REPRINT DRWFORM+1~, DRWFORM+13*, DRWFORM+15*
ROW REPLACE+14~, REPLACE+19*, REPLACE+21*, REPLACE+27, REPLACE+28, REPLACE+29
RTNLIST DRWFORM+1~, DRWBLKS+1~, JUSTDATA+3~
>> STRING REPLACE+17*, REPLACE+23*, REPLACE+24*, REPLACE+25*, REPLACE+27, REPLACE+28, REPLACE+29*
SUB JUSTDATA+3~, JUSTDATA+12*
TYPE DRWFORM+1~, REPLACE+15*, REPLACE+16, REPLACE+20, REPLACE+21, REPLACE+29
UNIT DRWFORM+1~, REPLACE+15*, REPLACE+25
>> WIDTH REPLACE+15*, REPLACE+16, REPLACE+20, REPLACE+23, REPLACE+24, REPLACE+29
WITHDATA FORM~, FORM+6, DRWFORM~, DRWFORM+4, DRWFORM+18, JUSTDATA~, JUSTDATA+5
X EXIT+3!
Y EXIT+3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All