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

Package: Automated Information Collection System

Routine: IBDF4A


Information

IBDF4A ;ALB/CJM - ENCOUNTER FORM - BUILD FORM(editing group's selections - continued from IBDF4) ;11/16/92

Source Information

Source file <IBDF4A.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Automated Information Collection System 5 IDXGRP^IBDF3  (IDXSLCTN,NARR,TERM)^IBDF4  ADD^IBDF4C  $$DORTN^IBDFU1B  $$RUSURE^IBDFU5  
VA FileMan 4 FILE^DICN  ^DIE  (,IX)^DIK  ^DIR  
List Manager 3 (FULL,PAUSE)^VALM1  KILL^VALM10  EN^VALM2  

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
Automated Information Collection System 5 IBDF ADD BLANK SELECTION  IBDF DELETE SELECTION  IBDF EDIT SELECTION  IBDF4  IBDFQEA  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EDIT ;allows editing of an existing selection
EDITEXIT ;
CODES(IBDQUIT) ; -- allow editing of 2nd & 3rd codes that are associated w/ original
DELETE ;allows the user to select selections to delete
ADDBLANK ;allows the user to add a dummy selection to the selection group
NEXT(IBLIST,IBGRP) ;returns the next print order to assign=last + 1
ASKMORE() ;ask if the user wants to add another, returns 1 or 0
ADD ;allows the user to add a dummy selection to the selection group
EN ; -- Resequence selection lists not taking into account the
; the place holders. Will put the selection list into alphabetic
; or numeric order..... the place holders will be used as extra
; lines of description and not as separators or headers within
; the group.
RESEQ
ORDER
BLANK ; -- Check to see if there is any place holders.

External References

Name Field # of Occurrence
FILE^DICN EDIT+20, ADD+11
^DIE EDIT+12, EDIT+13, EDIT+32, CODES+13, CODES+24, ADD+16, ORDER+6, BLANK+4
^DIK DELETE+7
IX^DIK EDIT+8, ADD+15, ADD+17
^DIR CODES+12, ASKMORE+3
IDXGRP^IBDF3 ORDER+9
IDXSLCTN^IBDF4 EDIT+35, DELETE+11, ADDBLANK+5
NARR^IBDF4 EDIT+33
TERM^IBDF4 EDIT+34
ADD^IBDF4C EDIT+15
$$DORTN^IBDFU1B CODES+17
$$RUSURE^IBDFU5 DELETE+6
FULL^VALM1 EDIT+10, ADDBLANK+3
PAUSE^VALM1 ADD+13
KILL^VALM10 DELETE+8
EN^VALM2 EDIT+2, DELETE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Editing Subcolumn "_SC_": Header="_IBLIST("SCHDR",SC)
  • Line Location: EDIT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+33
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+34
Function Call: WRITE
  • Prompt: !,"Unable to create the place holder!"
  • Line Location: ADD+13
Routine Call
  • DIE
  • Line Location:
    • EDIT+12
    • EDIT+13
    • EDIT+32
    • CODES+13
    • CODES+24
    • ADD+16
    • ORDER+6
    • BLANK+4
Routine Call
  • DIR
  • Line Location:
    • CODES+12
    • ASKMORE+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357.2 - [#357.2] CODES+2
^IBE(357.3 - [#357.3] EDIT+6, EDIT+17, EDIT+22, EDIT+23, EDIT+24*, EDIT+26, EDIT+29, CODES+9, NEXT+1, ADD+14*
, EN+12, RESEQ, RESEQ+1, RESEQ+7, RESEQ+8
^IBE(357.4 - [#357.4] RESEQ+4
^IBE(357.6 - [#357.6] CODES+3
^TMP("BLANK" EN+7!, RESEQ+6*, RESEQ+12*, ORDER+4, BLANK+2
^TMP("IBDF ADDSLCTN" DELETE+9
^TMP("IBDF DELETE SELECTION OPTION" DELETE+9*
^TMP("IBDF" EN+7!, RESEQ+11*, ORDER+1, ORDER+3, ORDER+4, ORDER+8!

Label References

Name Line Occurrences
$$ASKMORE ADD+4
$$NEXT ADD+5
ADD ADDBLANK+4
BLANK ORDER+4
CODES EDIT+14
ORDER EN+10, EN+13
RESEQ EN+9, EN+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT ORDER+2*, ORDER+5*, ORDER+6, BLANK+3*, BLANK+4
CNTR EN+5~, EN+6*, RESEQ+6, RESEQ+10*, RESEQ+11, RESEQ+12, ORDER*, ORDER+4*, BLANK+2
>> CONT EDIT+13*, EDIT+22, EDIT+25*, EDIT+32
COUNT EN+5~, EN+6*, RESEQ+5*, RESEQ+6, RESEQ+12, BLANK+1~, BLANK+2*
DA EDIT+8!*, EDIT+12*!, EDIT+13*!, EDIT+18!, EDIT+25*, EDIT+32!, CODES+13*!, CODES+23*, CODES+24!, DELETE+3!
, DELETE+5*, DELETE+10!, ADD+11!, ADD+15!*, ADD+16*!, ADD+17!*, ORDER+6!*, BLANK+4!*
DA(1 EDIT+20*, EDIT+25*
DD ADD+8!
DIC EDIT+18!, EDIT+20*, CODES+17!, CODES+18!, ADD+8!, ADD+10*, ADD+11!
DIC("A" CODES+16*
DIC("B" CODES+16*
DIC(0 EDIT+20*, ADD+10*
DIE EDIT+12*!, EDIT+13*!, EDIT+25*, EDIT+32!, CODES+13*!, CODES+23*, CODES+24!, ADD+11!, ADD+16!*, ORDER+6!*
, BLANK+4!*
DIK EDIT+8!*, DELETE+5*, DELETE+10!, ADD+15*!, ADD+17*!
DINUM EDIT+18!, ADD+8!
DIR CODES+12!, ASKMORE+1!, ASKMORE+4!, ORDER+8!
DIR("A" CODES+12*, ASKMORE+2*
DIR("B" CODES+12*, ASKMORE+2*
DIR(0 CODES+12*, ASKMORE+2*
>> DIRUT ASKMORE+5
DLAYGO EDIT+19~, EDIT+20*, ADD+9~, ADD+10*
DO EDIT+18!, ADD+8!
DR EDIT+12*!, EDIT+13*!, EDIT+25*, EDIT+27*, EDIT+31*, EDIT+32!, CODES+13*!, CODES+23*, CODES+24!, ADD+16*!
, ORDER+6!*, BLANK+4!*
>> DTOUT CODES+19
>> DUOUT CODES+20
FLD CODES+4~, CODES+8*, CODES+13, CODES+23
>> GROUP RESEQ+3*, RESEQ+4, RESEQ+6, RESEQ+11, RESEQ+12, ORDER*, ORDER+1*, ORDER+3, ORDER+4, BLANK+2
IBDICD CODES+4~, CODES+15*, CODES+16
IBDITEM BLANK+1~, BLANK+2*, BLANK+4
IBDQUIT EDIT+1~, CODES~, CODES+1*, CODES+8, CODES+19*, CODES+20*
IBDSERCH CODES+4~, CODES+7*, CODES+17
IBEXT CODES+4~, CODES+9*, CODES+10, CODES+11, CODES+13*, CODES+16, CODES+21*, CODES+22
IBGROUP EN+5~, EN+6*, EN+9*, EN+12*, RESEQ
IBGRP NEXT~, NEXT+1, ADD+5, ADD+7
>> IBGRUP EN+9, EN+10, EN+12, EN+13
>> IBGRUP( EN+9
IBI CODES+4~, CODES+8*, CODES+9, CODES+11, CODES+16
IBLIST CODES+2, NEXT~, NEXT+1, ADD+5, ADD+7, EN+12, RESEQ, RESEQ+2, RESEQ+4
IBLIST("SCEDITABLE" EDIT+23
IBLIST("SCHDR" EDIT+25
IBLIST("SCPIECE" EDIT+23
IBLIST("SCTYPE" EDIT+17, EDIT+23
IBORDER EN+5~, RESEQ*
IBPI CODES+2~*, CODES+3
>> IBRTN CODES+17
>> IBRTN("NAME" CODES+15
IBVAL EDIT+26*, EDIT+27*, EDIT+30*, EDIT+32!
>> IEN RESEQ+7*, RESEQ+8
>> ITEM RESEQ*, RESEQ+1, RESEQ+6, RESEQ+7, RESEQ+8, RESEQ+11, RESEQ+12, ORDER+4*, ORDER+6
NODE EDIT+1~, EDIT+6*, EDIT+11, ADD+3~, ADD+7*, ADD+14, RESEQ+1*, RESEQ+2, RESEQ+3, RESEQ+6
, RESEQ+9
NQTY EDIT+1~, EDIT+27
OQTY EDIT+1~, EDIT+27
ORDER ADD+3~, ADD+5*, ADD+7, ADD+10
QUIT ADD+3~, ADD+4*, ADD+13*
SC EDIT+1~, EDIT+17*, EDIT+20, EDIT+23*, EDIT+25
SEL EDIT+1~, EDIT+3*, EDIT+4, EDIT+5, DELETE+1~, DELETE+4*, DELETE+5, DELETE+6, DELETE+8
SLCTN EDIT+1~, EDIT+5*, EDIT+6, EDIT+8, EDIT+12, EDIT+13, EDIT+17, EDIT+20, EDIT+22, EDIT+23
, EDIT+24, EDIT+25, EDIT+26, EDIT+29, CODES+9, CODES+13, CODES+23, ADD+3~, ADD+12*, ADD+13
, ADD+14, ADD+15, ADD+16, ADD+17
>> SORT RESEQ+9
SUB EDIT+1~, EDIT+22*, EDIT+23, EDIT+25, EDIT+26
>> SUBCOL RESEQ+7
U CODES+2, CODES+3, CODES+7
>> VALMAR EDIT+5, DELETE+5
>> VALMBCK EDIT+36*, DELETE+12*, ADDBLANK+6*
>> VALMY( EDIT+3, DELETE+4
>> VALUE RESEQ+8*, RESEQ+9*, RESEQ+11, ORDER+2*, ORDER+3*, ORDER+4
X EDIT+20*, ADD+10*, ORDER+8!
>> XQORNOD(0 EDIT+2, CODES+7, DELETE+2
Y CODES+13, CODES+21, ASKMORE+5, ADD+12, ORDER+8!
Y(0 CODES+21
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