Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBDEINIT

Package: Automated Information Collection System

Routine: IBDEINIT


Information

IBDEINIT ; ; 01-AUG-2022

Source Information

Source file <IBDEINIT.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call