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) ;NOV 16,1992

Source Information

Source file <IBDF4A.m>

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  
Registration 3 (FULL,PAUSE)^VALM1  KILL^VALM10  EN^VALM2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Automated Information Collection System 2 IBDF4  IBDFQEA  

Entry Points

Name Comments DBIA/ICR reference
CODES ; -- allow editing of 2nd & 3rd codes that are associated w/ original
ASKMORE() ;ask if the user wants to add another, returns 1 or 0
NEXT(IBLIST,IBGRP) ;returns the next print order to assign=last + 1
EDIT ;allows editing of an existing selection
RESEQ
ADDBLANK ;allows the user to add a dummy selection to the selection group
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 exta
; lines of description and not as separators or headers within
; the group.
EDITEXIT ;
BLANK ; -- Check to see if there is any place holders.
ORDER
DELETE ;allows the user to select selections to delete

External References

Name Field # of Occurrence
FILE^DICN EDIT+20, ADD+11
^DIE EDIT+12, EDIT+13, EDIT+32, CODES+9, CODES+15, ADD+16, ORDER+6, BLANK+4
^DIK DELETE+7
IX^DIK EDIT+8, ADD+15, ADD+17
^DIR CODES+8, ASKMORE+3
IDXGRP^IBDF3 ORDER+9
IDXSLCTN^IBDF4 EDIT+35, DELETE+10, ADDBLANK+5
NARR^IBDF4 EDIT+33
TERM^IBDF4 EDIT+34
ADD^IBDF4C EDIT+15
$$DORTN^IBDFU1B CODES+11
$$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+9
    • CODES+15
    • ADD+16
    • ORDER+6
    • BLANK+4
Routine Call
  • DIR
  • Line Location:
    • CODES+8
    • 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+1
^IBE(357.3 - [#357.3] EDIT+6, EDIT+17, EDIT+22, EDIT+23, EDIT+24*, EDIT+26, EDIT+29, CODES+5, 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+2
^TMP("BLANK" EN+7!, RESEQ+6*, RESEQ+12*, ORDER+4, BLANK+2
^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+9*!, CODES+14*, CODES+15!, DELETE+3!
, DELETE+5*, DELETE+9!, 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*, ADD+8!, ADD+10*, ADD+11!
DIC("A" CODES+10*
DIC("B" CODES+10*
DIC(0 EDIT+20*, ADD+10*
DIE EDIT+12*!, EDIT+13*!, EDIT+25*, EDIT+32!, CODES+9*!, CODES+14*, CODES+15!, ADD+11!, ADD+16!*, ORDER+6!*
, BLANK+4!*
DIK EDIT+8!*, DELETE+5*, DELETE+9!, ADD+15*!, ADD+17*!
DINUM EDIT+18!, ADD+8!
DIR CODES+8!, ASKMORE+1!, ASKMORE+4!, ORDER+8!
DIR("A" CODES+8*, ASKMORE+2*
DIR("B" CODES+8*, ASKMORE+2*
DIR(0 CODES+8*, 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+9*!, CODES+14*, CODES+15!, ADD+16*!
, ORDER+6!*, BLANK+4!*
FLD CODES+3~, CODES+4*, CODES+9, CODES+14
>> GROUP RESEQ+3*, RESEQ+4, RESEQ+6, RESEQ+11, RESEQ+12, ORDER*, ORDER+1*, ORDER+3, ORDER+4, BLANK+2
IBDITEM BLANK+1~, BLANK+2*, BLANK+4
IBEXT CODES+3~, CODES+5*, CODES+6, CODES+7, CODES+9*, CODES+10, CODES+12*, CODES+13
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+3~, CODES+4*, CODES+5, CODES+7, CODES+10
IBLIST CODES+1, 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+1~*, CODES+2
>> IBRTN CODES+11
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+5, CODES+9, CODES+14, 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+1, CODES+2
>> VALMAR EDIT+5, DELETE+5
>> VALMBCK EDIT+36*, DELETE+11*, 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, DELETE+2
Y CODES+9, CODES+12, ASKMORE+5, ADD+12, ORDER+8!
Y(0 CODES+12
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