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

Package: Automated Information Collection System

Routine: IBDF9B


Information

IBDF9B ;ALB/CJM - ENCOUNTER FORM - (edit,delete,add data fields) ;FEB 1,1993

Source Information

Source file <IBDF9B.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Automated Information Collection System 8 SHIFT^IBDF10  UNCMPBLK^IBDF19  MFIELD^IBDF9B2  LABELS^IBDF9B3  HFIELD^IBDF9B4  DLTFLD^IBDFU3  IDXBLOCK^IBDFU4  ($$RUSURE,PAUSE)^IBDFU5  
VA Fileman 6 IX^DIC  MIX^DIC1  FILE^DICN  ^DIE  ^DIK  ^DIR  
Registration 2 FULL^VALM1  RE^VALM4  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Automated Information Collection System 4 IBDF9B2  IBDF9B3  IBDF9B4  IBDXI5  
Integrated Billing 1 IBXFI5  

Entry Points

Name Comments DBIA/ICR reference
AGAIN
DLTFLD ;expects IBBLK to be defined
SHIFT ;expects IBBLK to be defined - shifts all fields within range supplied by user
NEWNAME() ;
FIELD ;Create, Edit, or Delete a data field from the form
DATATYPE(RTN) ;
NEWFLD ;adds a new field, expects IBBLK to be defined
LOOKUP() ;does a lookup on the package interface file using the E cross-reference, which uses the name with the prefix=namespace removed
EDITFLD ;expects IBBLK to be defined
SELECT ;

External References

Name Field # of Occurrence
IX^DIC AGAIN+2
MIX^DIC1 LOOKUP+2
FILE^DICN NEWFLD+7
^DIE EDITFLD+10, NEWFLD+13
^DIK NEWFLD+14
^DIR FIELD+6, FIELD+21, AGAIN+4, NEWNAME+2
SHIFT^IBDF10 SHIFT+1
UNCMPBLK^IBDF19 SHIFT+2, EDITFLD+11, DLTFLD+6, NEWFLD+15
MFIELD^IBDF9B2 FIELD+7
LABELS^IBDF9B3 FIELD+9
HFIELD^IBDF9B4 FIELD+8
DLTFLD^IBDFU3 DLTFLD+5
IDXBLOCK^IBDFU4 SHIFT+2, EDITFLD+11, DLTFLD+6, NEWFLD+15
$$RUSURE^IBDFU5 DLTFLD+4
PAUSE^IBDFU5 SELECT+3, NEWFLD+10
FULL^VALM1 FIELD+2, FIELD+17
RE^VALM4 FIELD+24, EDITFLD+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,DIR("?",1),!,DIR("?"),!!
  • Line Location: FIELD+4
Function Call: WRITE
  • Prompt: !,"There is no data field!"
  • Line Location: SELECT+3
Routine Call
  • DIE
  • Line Location:
    • EDITFLD+10
    • NEWFLD+13
Routine Call
  • DIR
  • Line Location:
    • FIELD+6
    • FIELD+21
    • AGAIN+4
    • NEWNAME+2
Routine Call
  • DIC
  • Line Location:
    • AGAIN+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357.5 - [#357.5] EDITFLD+8, SELECT+3, DLTFLD+4
^IBE(357.6 - [#357.6] DATATYPE+9, DATATYPE+12, DATATYPE+13

Label References

Name Line Occurrences
$$LOOKUP NEWFLD+4
$$NEWNAME NEWFLD+3
@( FIELD+23
AGAIN AGAIN+4
DATATYPE EDITFLD+9
SELECT EDITFLD+4, DLTFLD+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D AGAIN*, LOOKUP+2*!
DA EDITFLD+10!*, NEWFLD+7!, NEWFLD+13!*, NEWFLD+14!*, LOOKUP+2!
DATATYPE DATATYPE+6~, DATATYPE+9*
DD NEWFLD+6!
DIC AGAIN!*, AGAIN+2!, NEWFLD+6!*, NEWFLD+7!, NEWFLD+13!, LOOKUP+1!, LOOKUP+2*!
DIC("A" LOOKUP+2*
DIC("B" AGAIN*
DIC("S" AGAIN+1*, LOOKUP+1*
DIC(0 AGAIN*, NEWFLD+6*, LOOKUP+2*
DIE EDITFLD+10!*, NEWFLD+6!, NEWFLD+7!, NEWFLD+13!*
DIE("NO^" EDITFLD+10*, NEWFLD+13*
DIK NEWFLD+14*!
DINUM NEWFLD+6!
DIR FIELD+3!, FIELD+6!, FIELD+18!, FIELD+21!, AGAIN+4!, NEWNAME+1!, NEWNAME+2!
DIR("?" FIELD+3*, FIELD+4, FIELD+18*, FIELD+19
DIR("A" FIELD+5*, FIELD+20*, AGAIN+4*, NEWNAME+1*
DIR("B" FIELD+5*, FIELD+20*, AGAIN+4*, NEWNAME+1*
DIR(0 FIELD+5*, FIELD+20*, AGAIN+4*, NEWNAME+1*
>> DIRUT FIELD+6, FIELD+21, AGAIN+4, NEWNAME+2
DLAYGO NEWFLD+1~, NEWFLD+6*
DO NEWFLD+6!
DR EDITFLD+10!*, NEWFLD+13!*
>> DTOUT AGAIN+4, LOOKUP+3
>> DUOUT AGAIN+4, LOOKUP+3
FIELD NEWFLD+1~, NEWFLD+8*, NEWFLD+9, NEWFLD+11, NEWFLD+13, NEWFLD+14
>> IBBLK SHIFT+2, EDITFLD+11, SELECT+2, SELECT+3, AGAIN, DLTFLD+5, DLTFLD+6, NEWFLD+15
IBDELETE EDITFLD+2~, NEWFLD+2~, NEWFLD+12*, NEWFLD+14
IBFIELD EDITFLD+1~, EDITFLD+5, EDITFLD+8, EDITFLD+10, SELECT+1*, AGAIN+3*, AGAIN+4, DLTFLD+1~, DLTFLD+3, DLTFLD+4
, DLTFLD+5
IBI EDITFLD+2~
IBLEN EDITFLD+2~, NEWFLD+2~
IBLEN( DATATYPE+12*
IBLEN(1 DATATYPE+13*
IBLIST EDITFLD+2~, EDITFLD+7*, NEWFLD+2~, DATATYPE+7*, DATATYPE+9*
IBMF EDITFLD+2~, EDITFLD+7*, NEWFLD+2~, DATATYPE+7*, DATATYPE+9*
IBOLD EDITFLD+2~, EDITFLD+7*, NEWFLD+2~, NEWFLD+5*
IBP EDITFLD+2~, NEWFLD+2~
IBRTN NEWFLD+1~, NEWFLD+4*
IBSUB DATATYPE+6~
IBVALMBG FIELD+11~, FIELD+13*, FIELD+25
IBW EDITFLD+2~, NEWFLD+2~
IBWP EDITFLD+2~, EDITFLD+7*, NEWFLD+2~, DATATYPE+7*, DATATYPE+9*, DATATYPE+10
IBX EDITFLD+2~, EDITFLD+7*, NEWFLD+2~, NEWFLD+5*
IBY EDITFLD+2~, EDITFLD+7*, NEWFLD+2~, NEWFLD+5*
IEN DATATYPE+11~, DATATYPE+12*
NAME NEWFLD+1~, NEWFLD+3*, NEWFLD+6
NODE EDITFLD+1~, NEWFLD+1~, DATATYPE+6~, DATATYPE+12*
QUIT FIELD+11~, FIELD+12*, FIELD+16, FIELD+21*, FIELD+22*
RTN EDITFLD+1~, EDITFLD+8*, EDITFLD+9, DATATYPE~, DATATYPE+8, DATATYPE+9, DATATYPE+12, DATATYPE+13
>> VALMBCK FIELD+1*, FIELD+14*, FIELD+25*
>> VALMBG FIELD+13, FIELD+25*
>> X AGAIN*, NEWFLD+6*
>> Y FIELD+6, FIELD+7, FIELD+8, FIELD+9, FIELD+21, FIELD+22, FIELD+23, AGAIN+3, AGAIN+4, NEWFLD+8
, NEWNAME+3, LOOKUP+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