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

Package: Automated Information Collection System

Routine: IBDF5B


Information

IBDF5B ;ALB/CJM - ENCOUNTER FORM (edit a form - CONTINUED) ;07/27/93

Source Information

Source file <IBDF5B.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Automated Information Collection System 10 UNCMPL^IBDF19  PRINT^IBDF1C  IDXFORM^IBDF5A  $$COPYBLK^IBDFU2  DLTBLK^IBDFU3  IDXBLOCK^IBDFU4  (PAUSE,TOPNBOT)^IBDFU5  $$SLCTBLK^IBDFU8  
KILL^IBDFUA  $$CSUPD357^IBDUTICD  
List Manager 2 EN^VALM  FULL^VALM1  
VA FileMan 2 ^DIE  ^DIR  
Kernel 1 $$NOW^XLFDT  

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 DISPLAY FORM BLOCK FOR EDIT  IBDF PRINT SAMPLE FORM  IBDF SAVE/DISCARD BLOCK CHANGES  IBDF13  IBDFQSL  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EDITBLK ;allows the user to edit everything about the block
DLTCOPY(WORKCOPY) ;deletes the block=WORKCOPY and unlocks it
SAVECOPY(WORKCOPY,FORMCOPY,IBTKODR) ;deletes the block=FORMCOPY,adds WORKCOPY to IBFORM
COPYBLK(IBBLK,FORMCOPY,WORKCOPY,IBTKODR,IBJUNK) ;copies the IBBLK to the WORKCOPY, then puts sets FORMCOPY=IBBLK
ASKSAVE() ;asks the user if changes to the block should be saved
DECIDE ;allows user to either save or discard changes to the block being edited
DOWHAT() ;returns "D" for discard, "S" for save, "" for do nothing
PRINT ;prints the form

External References

Name Field # of Occurrence
^DIE SAVECOPY+7, COPYBLK+21
^DIR ASKSAVE+3, DOWHAT+2, PRINT+6
UNCMPL^IBDF19 SAVECOPY+25
PRINT^IBDF1C PRINT+8
IDXFORM^IBDF5A EDITBLK+28
$$COPYBLK^IBDFU2 COPYBLK+11
DLTBLK^IBDFU3 DLTCOPY+1, SAVECOPY+24
IDXBLOCK^IBDFU4 DECIDE+8
PAUSE^IBDFU5 COPYBLK+12
TOPNBOT^IBDFU5 EDITBLK+16, EDITBLK+26
$$SLCTBLK^IBDFU8 EDITBLK+10
KILL^IBDFUA EDITBLK+12
$$CSUPD357^IBDUTICD SAVECOPY+46, SAVECOPY+47
EN^VALM EDITBLK+17
FULL^VALM1 EDITBLK+9
$$NOW^XLFDT SAVECOPY+46, SAVECOPY+47

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Unable to edit the block!"
  • Line Location: COPYBLK+12
Routine Call
  • DIE
  • Line Location:
    • SAVECOPY+7
    • COPYBLK+21
Routine Call
  • DIR
  • Line Location:
    • ASKSAVE+3
    • DOWHAT+2
    • PRINT+6
Routine Call
  • VALM
  • Line Location:
    • EDITBLK+17

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(357 - [#357] COPYBLK+9
^IBE(357.1 - [#357.1] EDITBLK+22, DLTCOPY+2, SAVECOPY+19, SAVECOPY+20, SAVECOPY+26, SAVECOPY+39, SAVECOPY+40, COPYBLK+6, COPYBLK+16, COPYBLK+17
^IBE(357.2 - [#357.2] SAVECOPY+13, SAVECOPY+31
^IBE(357.3 - [#357.3] SAVECOPY+14, SAVECOPY+32
^IBE(357.6 - [#357.6] SAVECOPY+13, SAVECOPY+20, SAVECOPY+31, SAVECOPY+40
^TMP("IBDF ADDSLCTN" EDITBLK+29!
^TMP("IBDF DELETE SELECTION OPTION" EDITBLK+29!
^TMP("IBDF DELETED ALL SELECTIONS" EDITBLK+29!, SAVECOPY+14, SAVECOPY+32

Label References

Name Line Occurrences
$$ASKSAVE EDITBLK+19
$$DOWHAT DECIDE+3
COPYBLK EDITBLK+15, DECIDE+5, DECIDE+7, PRINT+7
DLTCOPY EDITBLK+21, DECIDE+7
SAVECOPY EDITBLK+20, DECIDE+5, PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BOT1 EDITBLK+5~, EDITBLK+16, EDITBLK+27*, EDITBLK+28
BOT2 EDITBLK+5~, EDITBLK+26, EDITBLK+27
DA SAVECOPY+5!*, SAVECOPY+7!, COPYBLK+20!*, COPYBLK+21!
DIE SAVECOPY+5!*, SAVECOPY+7!, COPYBLK+20!*, COPYBLK+21!
DIR ASKSAVE+2!, ASKSAVE+3!, DOWHAT+1!, DOWHAT+2!, PRINT+6!
DIR("A" ASKSAVE+2*, DOWHAT+1*
DIR("B" ASKSAVE+2*
DIR(0 ASKSAVE+2*, DOWHAT+1*, PRINT+6*
>> DIRUT ASKSAVE+4, DOWHAT+3, PRINT+6
DR SAVECOPY+5!*, SAVECOPY+6*, SAVECOPY+7!, COPYBLK+20!*, COPYBLK+21!
DUZ SAVECOPY+46, SAVECOPY+47
FORMCOPY SAVECOPY~, SAVECOPY+3, SAVECOPY+13, SAVECOPY+19, SAVECOPY+20, SAVECOPY+24, SAVECOPY+26, SAVECOPY+27*, SAVECOPY+31, SAVECOPY+39
, SAVECOPY+40, COPYBLK~, COPYBLK+4*, COPYBLK+11*, COPYBLK+12*, COPYBLK+16
IBBLK EDITBLK+5~, EDITBLK+10*, EDITBLK+11, EDITBLK+15*, EDITBLK+16, EDITBLK+18, EDITBLK+20*, EDITBLK+21*, EDITBLK+22, EDITBLK+26
, COPYBLK~, COPYBLK+4, COPYBLK+5, COPYBLK+6, COPYBLK+11, COPYBLK+12, DECIDE+5*, DECIDE+7*, DECIDE+8, DECIDE+9*
, PRINT+4, PRINT+7*
IBBLK2 EDITBLK+5~, EDITBLK+13*, EDITBLK+15*, EDITBLK+18, EDITBLK+20*, EDITBLK+21*, DECIDE+5*, DECIDE+7*, DECIDE+9*, PRINT+7*
IBD10 SAVECOPY+2~, SAVECOPY+10*, SAVECOPY+16*, SAVECOPY+22*, SAVECOPY+34*, SAVECOPY+42*, SAVECOPY+47
IBD9 SAVECOPY+2~, SAVECOPY+10*, SAVECOPY+15*, SAVECOPY+21*, SAVECOPY+33*, SAVECOPY+41*, SAVECOPY+46
IBDBL SAVECOPY+2~
IBDN SAVECOPY+2~, SAVECOPY+13*, SAVECOPY+14, SAVECOPY+19*, SAVECOPY+20, SAVECOPY+31*, SAVECOPY+32, SAVECOPY+39*, SAVECOPY+40
>> IBDQUIT SAVECOPY+30*, SAVECOPY+31, SAVECOPY+32*, SAVECOPY+36
IBDX SAVECOPY+2~, SAVECOPY+13*, SAVECOPY+15, SAVECOPY+16, SAVECOPY+20*, SAVECOPY+21, SAVECOPY+22, SAVECOPY+31*, SAVECOPY+33, SAVECOPY+34
, SAVECOPY+40*, SAVECOPY+41, SAVECOPY+42, SAVECOPY+45~, SAVECOPY+46*, SAVECOPY+47*
>> IBFASTXT EDITBLK+23
>> IBFORM EDITBLK+10, SAVECOPY+5, SAVECOPY+24, SAVECOPY+25, SAVECOPY+46, SAVECOPY+47, COPYBLK+11, PRINT+8
IBJUNK EDITBLK+5~, EDITBLK+13*, EDITBLK+15, DLTCOPY+1, COPYBLK~, COPYBLK+9*, COPYBLK+20, DECIDE+5, DECIDE+7, PRINT+7
>> IBPRINT("WITH_DATA" EDITBLK+14, EDITBLK+25*
>> IBTKBLK PRINT+4
IBTKODR EDITBLK+5~, EDITBLK+13*, EDITBLK+15, EDITBLK+20, SAVECOPY~, SAVECOPY+6, COPYBLK~, COPYBLK+7*, DECIDE+5, DECIDE+7
, PRINT+7
IBVALMBG EDITBLK+5~, EDITBLK+8*, EDITBLK+24
IFSAVE EDITBLK+5~, EDITBLK+19*, EDITBLK+20, EDITBLK+21
IOSL EDITBLK+10
NODE COPYBLK+3~, COPYBLK+6*, COPYBLK+7
QUIT PRINT+2~*, PRINT+4, PRINT+6*, PRINT+7*, PRINT+8
TOP1 EDITBLK+5~, EDITBLK+16, EDITBLK+27*, EDITBLK+28
TOP2 EDITBLK+5~, EDITBLK+26, EDITBLK+27
U SAVECOPY+13, SAVECOPY+20, SAVECOPY+31, SAVECOPY+40
>> VALMBCK EDITBLK+30*, DECIDE+5*, DECIDE+8*, DECIDE+9*, PRINT+3*, PRINT+7*
>> VALMBG EDITBLK+8, EDITBLK+24*
WDATA EDITBLK+5~, EDITBLK+14*, EDITBLK+25
WHAT DECIDE+1~, DECIDE+3*, DECIDE+4, DECIDE+6
WORKCOPY DLTCOPY~, DLTCOPY+1, DLTCOPY+2, DLTCOPY+3*, SAVECOPY~, SAVECOPY+3, SAVECOPY+5, SAVECOPY+27*, COPYBLK~, COPYBLK+4*
, COPYBLK+17, COPYBLK+20
>> Y ASKSAVE+5, DOWHAT+4, PRINT+6
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