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

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 5 ^DIC  FILE^DICN  ^DIE  D^DIQ  ^DIR  

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

External References

Name Field # of Occurrence
^DIC DIV+4
FILE^DICN FILE+4
^DIE FILE+5, EDIT+2
D^DIQ DATE+1
^DIR ADD+3, DIV+2

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
Routine Call
  • DIC
  • Line Location:
    • DIV+4
Routine Call
  • DIE
  • Line Location:
    • FILE+5
    • EDIT+2
Routine Call
  • DIR
  • Line Location:
    • ADD+3
    • DIV+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(389.9 - [#389.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] DIV+1, EDIT+2, HELP+2
^DIC(4 - [#4] EDIT+2
^VA(389.9 - [#389.9] DIV+4, FILE+1, FILE+2, FILE+4, FILE+6, HELP+2, HELP1+2

Label References

Name Line Occurrences
$$DATE ADD+3, HELP+2
ADD DIV+2, ADDQ+1
ADDQ DIV+4
EDIT DIV+4, DIV+5
END ADD+3
FILE DIV+5
FILEQ FILE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA DIV+4*, DIV+5, FILE+5*, EDIT+3!
DD FILE+3!, FILEQ!
DIC DIV+4*!, FILE+3!*, FILEQ!, EDIT+3!
DIC("S" DIV+4*
DIC(0 DIV+4*, FILE+3*
DIE FILE+5*, FILEQ!, EDIT+2*, EDIT+3!
DINUM FILE+4*, FILEQ!
DIR ADD+3!, DIV+2!, END!
DIR("??" ADD+1*, DIV*
DIR("A" ADD+1*, DIV*
DIR("B" DIV+1*
DIR(0 ADD+1*, DIV*
>> DLAYGO FILE+3*
DO FILE+3!, FILEQ!
DR FILE+3!, FILE+5*, FILEQ!, EDIT+2*, EDIT+3!
U %*
VADIV DIV+1, DIV+2*, DIV+4, ADDQ!, END!, FILE+5, EDIT+2
VADT ADD+3*, DIV+4, ADDQ!, END!, FILE+5
VAI HELP+2*, HELP+3!, HELP1+2*, HELP1+3!
>> VAJ HELP+2*
>> VAN FILE+5*, FILE+6
X DIV+4*, END!, FILE+2*, FILE+4*, FILEQ!, EDIT+3!
Y ADD+3, DIV+2, DIV+4, END!, FILE+4, FILE+5, FILEQ!, EDIT+3!, DATE~, DATE+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All