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

Package: Automated Information Collection System

Routine: IBDF9A


Information

IBDF9A ;ALB/CJM - ENCOUNTER FORM - (create,edit,delete selection list) ;FEB 1,1993

Source Information

Source file <IBDF9A.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Automated Information Collection System 5 (BLKCHNG,UNCMPBLK)^IBDF19  (ADDSC,DELSC,GETSC)^IBDF9A3  DLTLIST^IBDFU3  IDXBLOCK^IBDFU4  ($$RUSURE,PAUSE)^IBDFU5  
VA FileMan 5 IX^DIC  MIX^DIC1  ^DIE  IX^DIK  ^DIR  
List Manager 1 FULL^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: 8

Package Total Caller Graph
Automated Information Collection System 7 IBDF EDIT SELECTION LIST  IBDF POSITION/SIZE COLUMNS  IBDF SELECTION LIST  IBDF9A1  IBDFC2A  IBDXI2  IBDXI22  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
LIST ;Create, Edit, or Delete a selection list from the form
NOSUCH ;
EDITLIST ;allows editing of the structure of a list
COLUMNS ;allows the user to place and size the columns of the list
SELECT ;
AGAIN
MSG1 ;called by the input template
MSG2 ;called by the input template
MSG3 ;called by the input template
DATASIZE(RTN) ;IBLEN() stores the lengths of the pieces of the record returned by the package interface
NEWNAME() ;
SWITCH(IBLIST,IBARRY) ;FOR loops thru selection list and changes all subcolumn numbers from old to new (called only once)
RTN() ;does a lookup on the package interface file using the E cross-reference, which uses the name with the prefix=namespace removed
DLTLIST ;expects IBBLK to be defined
LISTTYPE(RTN) ;sets IBDYN=1 if the rtn is dynamic selection,IBINPUT to the input interface
OTHEROK(PI) ;returns 1 if the selection interface=PI allows 'other', 0 otherwise

External References

Name Field # of Occurrence
IX^DIC AGAIN+2
MIX^DIC1 RTN+2
^DIE EDITLIST+13, COLUMNS+7, SWITCH+9
IX^DIK SWITCH+13
^DIR LIST+10, AGAIN+4, NEWNAME+2
BLKCHNG^IBDF19 EDITLIST+24
UNCMPBLK^IBDF19 COLUMNS+8, DLTLIST+7
ADDSC^IBDF9A3 EDITLIST+23
DELSC^IBDF9A3 EDITLIST+17, EDITLIST+22
GETSC^IBDF9A3 EDITLIST+11, EDITLIST+21
DLTLIST^IBDFU3 DLTLIST+6
IDXBLOCK^IBDFU4 EDITLIST+25, COLUMNS+8, DLTLIST+7
$$RUSURE^IBDFU5 DLTLIST+5
PAUSE^IBDFU5 SELECT+3
FULL^VALM1 EDITLIST+5, COLUMNS+4, DLTLIST+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,DIR("?",1),!,DIR("?"),!
  • Line Location: LIST+9
Function Call: WRITE
  • Prompt: !,"There is no selection list!"
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !!,"Entering the number of list columns is optional. By default the list will be",!,"given as many columns as the block has space for.",!
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: !!,"Entering the information on the position of the columns and their",!,"height is optional. Appropriate default values will be used. However,",!,"you may specify your own values for up to 4 coulmns.",!
  • Line Location: MSG2+1
Function Call: WRITE
  • Prompt: !!,"You can now specify the subcolumns the list should contain.",!,"There can be at most 6 subcolumns, numbered 1-6.",!
  • Line Location: MSG3+1
Routine Call
  • DIC
  • Line Location:
    • AGAIN+2
Routine Call
  • DIE
  • Line Location:
    • EDITLIST+13
    • COLUMNS+7
    • SWITCH+9
Routine Call
  • DIR
  • Line Location:
    • LIST+10
    • AGAIN+4
    • NEWNAME+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(357.2 - [#357.2] Classic Fileman Calls
^IBE(357.3 - [#357.3] Classic Fileman Calls
^IBE(357.6 - [#357.6] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357.2 - [#357.2] LIST+5, EDITLIST+9, SELECT+3, DLTLIST+5
^IBE(357.3 - [#357.3] SWITCH+2, SWITCH+3, SWITCH+7*, SWITCH+12!
^IBE(357.6 - [#357.6] DATASIZE+3, DATASIZE+5, LISTTYPE+3, OTHEROK+5, OTHEROK+8

Label References

Name Line Occurrences
@( LIST+11
AGAIN AGAIN+4
DATASIZE EDITLIST+12
LISTTYPE EDITLIST+10
SELECT EDITLIST+6, COLUMNS+5, DLTLIST+3
SWITCH EDITLIST+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EDITLIST+13!
>> D AGAIN*, RTN+2*
DA EDITLIST+13!*, COLUMNS+7!*, SWITCH+8!*, SWITCH+13!*, SWITCH+14!, RTN+2!
DA(1 SWITCH+8*, SWITCH+13*
DIC AGAIN!*, AGAIN+2!, RTN+1!, RTN+2*!
DIC("A" RTN+2*
DIC("S" AGAIN+1*, RTN+1*
DIC(0 AGAIN*, RTN+2*
DIE EDITLIST+13!*, COLUMNS+7!*, SWITCH+8!*, SWITCH+14!
DIE("NO^" EDITLIST+13*, COLUMNS+7*
DIK SWITCH+13!*, SWITCH+14!
DIR LIST+3!, LIST+10!, AGAIN+4!, NEWNAME+1!, NEWNAME+2!
DIR("?" LIST+3*, LIST+9
DIR("A" LIST+8*, AGAIN+4*, NEWNAME+1*
DIR("B" LIST+4*, LIST+6*, AGAIN+4*, NEWNAME+1*
DIR(0 LIST+8*, AGAIN+4*, NEWNAME+1*
>> DIRUT LIST+10, AGAIN+4, NEWNAME+2
DR EDITLIST+13!*, COLUMNS+7!*, SWITCH+8!*, SWITCH+14!
>> DTOUT AGAIN+4, RTN+3
>> DUOUT AGAIN+4, RTN+3
FROM EDITLIST+3~, EDITLIST+16*, EDITLIST+19
I EDITLIST+13!
IBARRY SWITCH~
IBARRY( SWITCH+6
>> IBBLK LIST+4, LIST+5, EDITLIST+24, COLUMNS+8, SELECT+2, SELECT+3, AGAIN, DLTLIST+6, DLTLIST+7
>> IBCLRM LISTTYPE+2*, LISTTYPE+6*
IBD EDITLIST+3~
IBDELETE EDITLIST+3~
IBDYN EDITLIST+3~, LISTTYPE+2*, LISTTYPE+4*
>> IBFORM EDITLIST+24
IBINPUT EDITLIST+3~, LISTTYPE+2*, LISTTYPE+5*
IBLEN EDITLIST+3~
IBLEN( DATASIZE+3*
IBLEN(0 DATASIZE+4*
IBLEN(1 DATASIZE+5*
IBLIST EDITLIST+3~, EDITLIST+7, EDITLIST+9, EDITLIST+11, EDITLIST+13, EDITLIST+17, EDITLIST+20, EDITLIST+21, EDITLIST+22, EDITLIST+23
, COLUMNS+2~, COLUMNS+6, COLUMNS+7, SELECT+1*, AGAIN+3*, AGAIN+4, SWITCH~, SWITCH+2, DLTLIST+1~, DLTLIST+4
, DLTLIST+5, DLTLIST+6
IBOLD EDITLIST+3~, EDITLIST+4*
IBRTN EDITLIST+3~, EDITLIST+9*, EDITLIST+10, EDITLIST+12
IBSC EDITLIST+3~
IBSC( SWITCH+3*, SWITCH+4
IBSC1 EDITLIST+3~, SWITCH+3*, SWITCH+4*, SWITCH+6, SWITCH+12
IBSC2 EDITLIST+3~, SWITCH+6*, SWITCH+8
IBSCNEW EDITLIST+3~, EDITLIST+8*, EDITLIST+21
IBSCNEW( EDITLIST+22, EDITLIST+23
IBSCOLD EDITLIST+3~, EDITLIST+8*, EDITLIST+11
IBSCOLD( EDITLIST+17, EDITLIST+19*!, EDITLIST+22, EDITLIST+23
IBSCRAY EDITLIST+3~
IBSWITCH EDITLIST+3~, EDITLIST+4*, EDITLIST+16*
IBSWITCH( EDITLIST+16
IBSWT EDITLIST+3~, EDITLIST+20
IBSWT( EDITLIST+16*
IBVALMBG LIST+1~, LIST+2*, LIST+12
IEN DATASIZE+1~, DATASIZE+3*
NODE DATASIZE+1~, DATASIZE+3*, LISTTYPE+1~, LISTTYPE+3*, LISTTYPE+4, LISTTYPE+5, LISTTYPE+6, OTHEROK+1~, OTHEROK+8*, OTHEROK+9
PI OTHEROK~, OTHEROK+2, OTHEROK+5, OTHEROK+8
PIECE DATASIZE+1~, DATASIZE+3*
RTN DATASIZE~, DATASIZE+2, DATASIZE+3, DATASIZE+5, LISTTYPE~, LISTTYPE+2, LISTTYPE+3
SC EDITLIST+22~*, EDITLIST+23*, SWITCH+1~, SWITCH+3*, SWITCH+4*, SWITCH+8, SWITCH+12, SWITCH+13
SLCTN SWITCH+1~, SWITCH+2*, SWITCH+3, SWITCH+7, SWITCH+8, SWITCH+12, SWITCH+13
TO EDITLIST+3~, EDITLIST+16*, EDITLIST+17, EDITLIST+19
>> VALMBCK LIST+2*, EDITLIST+4*, EDITLIST+26*, COLUMNS+3*, COLUMNS+9*
>> VALMBG LIST+2, LIST+12*
>> X LIST+5*, LIST+6, AGAIN*
>> Y LIST+10, LIST+11, AGAIN+3, AGAIN+4, NEWNAME+3, RTN+3
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