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
Print Page as PDF
Routine: DINIT

Package: VA FileMan

Routine: DINIT


Information

DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;08 Jul 2015 10:08 AM

Source Information

Source file <DINIT.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
N ;
DO
NA
NO
OS
Q
VERSION ;
NOASK ;API to re-initialize FileMan without terminal input. Does not "change the MUMPS OPERATING SYSTEM File"
GO
OSETC ;BRING IN MUMPS OS, DIALOG & LANGUAGE DD AND DATA FOR FILEMAN
OSDD
EGP
DATA
B36(X)
N1(%)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,X
  • Line Location: N+1
Function Call: WRITE
  • Prompt: $C(7),!!,"*** WARNING!! VA FileMan version "_^DD("VERSION")_" is currently loaded on this system.",!,"This Initialization will bring in VA FileMan version "_VERSION_", an earlier version!!",!!
  • Line Location: N+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Your defined operating system entry "_$P($G(^DD("OS",Y,0)),U)_" does not support the",!,"1995 M Standards.",!!,"You may not initialize VA FileMan V"_VERSION
  • Line Location: N+4
Function Call: READ
  • Variable: Y
  • Timeout: 60
  • Line Location: DO+0
Function Call: WRITE
  • Prompt: !,"Answer YES to begin Initializing VA FileMan"
  • Line Location: DO+1
Function Call: WRITE
  • Prompt: !!,"SITE NAME: "
  • Line Location: NA+0
Function Call: WRITE
  • Prompt: ^("SITE"),"// "
  • Line Location: NA+0
Function Call: READ
  • Variable: X
  • Timeout: 60
  • Line Location: NA+1
Function Call: WRITE
  • Prompt: " ENTER THE NAME OF THIS INSTALLATION SITE",!!
  • Line Location: NA+2
Function Call: WRITE
  • Prompt: !!,"SITE NUMBER: "
  • Line Location: NO+0
Function Call: WRITE
  • Prompt: ^(1),"// "
  • Condition for execution: $D(^DD("SITE",1))
  • Line Location: NO+0
Function Call: READ
  • Variable: X
  • Timeout: 60
  • Line Location: NO+1
Function Call: WRITE
  • Prompt: " ENTER A NUMBER, CORRESPONDING TO YOUR INSTITUTION"
  • Line Location: NO+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NO+11
Function Call: WRITE
  • Prompt: !!,"Now loading other FileMan files--please wait."
  • Line Location: NO+12
Function Call: WRITE
  • Prompt: !
  • Line Location: OS+0
Function Call: WRITE
  • Prompt: "FILEMAN HAS NEVER BEEN INITIALIZED.",!,"PLEASE RUN 'DINIT'"
  • Line Location: NOASK+1
Function Call: WRITE
  • Prompt: !!,"Now loading MUMPS Operating System File"
  • Line Location: OSETC+2
Function Call: WRITE
  • Prompt: !!,"Now loading DIALOG and LANGUAGE Files"
  • Line Location: OSDD+14
Function Call: WRITE
  • Prompt: "."
  • Line Location: OSDD+17
Info |  Source |  Entry Points |  Interaction Calls