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

Package: Registration

Routine: VASITE0


Information

VASITE0 ;ALB/AAS - ENTER/EDIT TIME SENSITIVE STATION NUMBER FILE ;11-FEB-92

Source Information

Source file <VASITE0.m>

Entry Points

Name Comments DBIA/ICR reference
ADD ; -entry to add new time sensitive entries
DIV
ADDQ
END
FILE ; -add new entry
FILEQ
EDIT ; -Edit entry
; input variable DA
HELP ;
HELP1 ;
DATE(Y) ; convert date to external format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ",$$DATE(VADT)
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: !,"Filing New Entry!",!
  • Line Location: DIV+5
Function Call: WRITE
  • Prompt: !,"Another user Editing, Try Again later"
  • Line Location: FILE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !!,"You may enter a new EFFECTIVE DATE or select from one of the following:"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?4,$$DATE(VAI),?20,$E($P($G(^DG(40.8,+$P($G(^VA(389.9,VAJ,0)),"^",3),0)),"^"),1,25),?48,$P($G(^VA(389.9,VAJ,0)),"^",4)
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"Select from the following Divisions"
  • Line Location: HELP1+1
Function Call: WRITE
  • Prompt: !?4,VAI
  • Line Location: HELP1+2

FileMan Files Accessed Via FileMan Db Call

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