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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: IBDEINIT

Package: Automated Information Collection System

Routine: IBDEINIT


Information

IBDEINIT ; ; 01-AUG-2022

Source Information

Source file <IBDEINIT.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Automated Information Collection System 6 ^IBDEINI1  (,REP)^IBDEINI2  ^IBDEINI3  PAC^IBDEINIS  ^IBDEPRE  ^IBDEPT  
VA FileMan 6 NOW^%DTC  ^DIC  Q^DIFROM0  IXALL^DIK  EN^DIKZ  ^DIR  

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

Package Total Caller Graph
Automated Information Collection System 1 IBDE1  

Entry Points

Name Comments DBIA/ICR reference
GO ;
EN ; ENTER HERE TO BYPASS THE PRE-INIT PROGRAM
D
R
1
S
Q
PKG
IXF ;;IB ENCOUNTER FORM IMP/EXP^IBDE;303035

External References

Name Field # of Occurrence
NOW^%DTC GO+1, EN+8
^DIC PKG
Q^DIFROM0 EN+13, Q
IXALL^DIK D+2
EN^DIKZ D+1
^DIR 1+7, S+1
^IBDEINI1 EN+4
^IBDEINI2 EN+6
REP^IBDEINI2 R
^IBDEINI3 EN+6
PAC^IBDEINIS EN+12
^IBDEPRE GO+1
^IBDEPT EN+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This version (#3.0) of 'IBDEINIT' was created on 01-AUG-2022"
  • Line Location: IBDEINIT+4
Function Call: WRITE
  • Prompt: !?9,"(at ORLANDO.DOMAIN.EXT, by VA FileMan 22.2)",!
  • Line Location: IBDEINIT+5
Function Call: WRITE
  • Prompt: !,"but I need version 22.2 of the VA FileMan!"
  • Line Location: IBDEINIT+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !!?3,N,?13,DIF,$P(" (Partial Definition)",U,$P(DIF(I),";",6)),$P(" (including data)",U,$P(DIF(I),";",13)="y")
  • Line Location: 1+1
Function Call: READ
  • Variable: Q
  • Timeout: DIFQ
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: $C(7),!,"*BUT YOU ALREADY HAVE '",$P(Z,U),"' AS FILE #",N,"!"
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: $C(7),!,"Note: You already have the '",$P(Z,U),"' File."
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !,$C(7),"I will ",$P("MERGE^OVERWRITE",U,%+1)," your data with mine."
  • Line Location: S+2
Function Call: WRITE
  • Prompt: $C(7),!!,"NO UPDATING HAS OCCURRED!"
  • Line Location: Q+0
Routine Call
  • DIC
  • Line Location:
    • PKG
Routine Call
  • DIR
  • Line Location:
    • 1+7
    • S+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" EN+12
^%ZTSK - [#14.4] EN+12
^DD( EN+9*, D+1
^DD("ROU" D+1
^DD("VERSION" IBDEINIT+6, IBDEINIT+8, D+1
^DIC - [#1] D, 1+1
^DIC(0 EN+11
^DIC(9.4 - [#9.4] EN+10*, EN+13*
^UTILITY("DIF" EN+3, EN+5, EN+9, 1+6

Label References

Name Line Occurrences
1 EN+3, 1+3
@( EN+2
D EN+5
GO IBDEINIT+6
IXF EN+12, PKG
PKG GO+1, EN+4
Q IBDEINIT+8, EN+3, EN+4
R 1+3
S 1+2, 1+3, 1+6

Naked Globals

Name Field # of Occurrence
^("DIK" D+1
^("VERSION" IBDEINIT+6
^(0 EN+11*, D*, 1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GO+1, EN+5*, EN+8, EN+9*, EN+10*, 1+6*, S+2*
>> D EN+5*, D
D0 IBDEINIT+3!
DA IBDEINIT+3!
DDF IBDEINIT+3!
DDT IBDEINIT+3!
DFR IBDEINIT+3!
DIC IBDEINIT+3!, PKG*!
DIC("S" PKG*
DIC(0 PKG*
DIDUZ IBDEINIT+3!, EN+7
DIF IBDEINIT+3!, EN+5*, EN+9*, 1*, 1+1, 1+3, S+1*
DIF( EN+3*!, 1, 1+1, 1+4, 1+7, S, S+1, S+2
>> DIFKEP( 1+3
DIFQ IBDEINIT+3!, IBDEINIT+4*, GO+1, EN+1*, EN+3, EN+4, 1+3
DIFQ( EN+5!, 1+2*, 1+4*, 1+6*, 1+7*
DIFQ(0 1+5*
DIFQN IBDEINIT+3!, EN+11!, 1+2*
DIFQR IBDEINIT+3!, EN+6!, D+1*, D+2
DIFQR( D+1, S*, S+1*, S+2*
>> DIFRIR EN+2*
DIFROM IBDEINIT+3!, IBDEINIT+4*, EN+4*, EN+9, EN+12, EN+13
DIFROM( EN+10
DIFROM("INIT" EN+8*
DIFROM("PRE" GO+1*
DIFROM(0 EN+4, EN+10, EN+13, PKG*
>> DIFRRTN EN+2*
DIK IBDEINIT+3!, EN+5*, D, D+2
DIK(0 EN+4*
>> DIOVRD IBDEINIT+4*
DIR IBDEINIT+3!
DIR("??" 1+7*, S+1*
DIR("A" 1+7*, S+1*
DIR("B" 1+7*
DIR(0 1+7*, S+1*
DIRUT IBDEINIT+3!, EN+1!, EN+3, S
DIX IBDEINIT+3!
DLAYGO IBDEINIT+3!
>> DMAX D+1*
>> DSEC EN+7
DTN IBDEINIT+3!
DTO IBDEINIT+3!
DTOUT IBDEINIT+3!, EN+1!
DUOUT IBDEINIT+3!, EN+1!
DUZ EN+7*
DZ IBDEINIT+3!
>> I EN+3*, 1, 1+1, 1+4, 1+6, 1+7, S, S+1, S+2
>> N EN+5*, EN+9*, D, D+1, 1*, 1+1, 1+2, 1+3, 1+4, 1+6
, 1+7, S, S+1, S+2
>> S 1*, S+1
U IBDEINIT+4*, EN+5, EN+7, EN+10, EN+11, D, 1+1, 1+2, 1+3, 1+5
, S+1, S+2, PKG
>> X EN+12*, D*, D+1*, PKG*
>> Y D+1*, 1+7, S+1, PKG
>> Z 1+1*, 1+2, 1+3, 1+5, 1+7

Marked Items

Name Field # of Occurrence
$T(IXF EN+12, PKG
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 |  Naked Globals |  Local Variables |  Marked Items  | All