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 |  Local Variables  | All
Print Page as PDF
Routine: VAQPST02

Package: Patient Data Exchange

Routine: VAQPST02


Information

VAQPST02 ;ALB/JFP - PDX, POST INIT ROUTINE ;01JUN93

Source Information

Source file <VAQPST02.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Patient Data Exchange 1 (MISSING,PROMPT)^VAQPST01  
Registration 1 $$SITE^VASITE  
VA FileMan 1 FILE^DICN  

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
Patient Data Exchange 1 VAQPST01  

Entry Points

Name Comments DBIA/ICR reference
PARM ; -- Initialization of VAQ Parameter file 394.81
P1
P2
COPV1 ; -- Copy version 1 fields to version 1.5
PEXIT ; -- Clean up variables
AUTO ; -- Initialization of VAQ - Auto-numbering file 394.86
A1 ; -- Add entry
END ; -- End of code

External References

Name Field # of Occurrence
FILE^DICN P2+9, COPV1+13, A1+8
MISSING^VAQPST01 P1+3, AUTO+6
PROMPT^VAQPST01 P1+3, AUTO+6
$$SITE^VASITE P2+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Initialization of VAQ - Parameter file",!
  • Line Location: PARM+2
Function Call: WRITE
  • Prompt: !,"Error...VAQ - Parameter file missing, post init halted"
  • Line Location: PARM+3
Function Call: WRITE
  • Prompt: !,"Error...Could not make an entry on VAQ - Parameter file"
  • Line Location: P2+10
Function Call: WRITE
  • Prompt: !!," ** Initialization of VAQ - Parameter file complete"
  • Line Location: P2+11
Function Call: WRITE
  • Prompt: !,"Error...Could not make an entry on VAQ - Parameter file"
  • Line Location: COPV1+14
Function Call: WRITE
  • Prompt: !!," ** Initialization of VAQ - Parameter file complete"
  • Line Location: COPV1+15
Function Call: WRITE
  • Prompt: !!,"Initialization of VAQ - Auto-numbering file",!
  • Line Location: AUTO+1
Function Call: WRITE
  • Prompt: !,"Error...VAQ - Auto-numbering file missing, post init halted"
  • Line Location: AUTO+2
Function Call: WRITE
  • Prompt: !,"Error...Could not make an entry on VAQ - Auto-numbering file"
  • Line Location: A1+9
Function Call: WRITE
  • Prompt: !!," ** Initialization of VAQ - Auto-numbering file complete"
  • Line Location: A1+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VAT(394.81 - [#394.81] Classic Fileman Calls
^VAT(394.86 - [#394.86] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VAT(394.2 - [#394.2] P2, COPV1+2
^VAT(394.81 - [#394.81] PARM+3, P1+1, P1+3
^VAT(394.86 - [#394.86] AUTO+2, AUTO+4, AUTO+6

Label References

Name Line Occurrences
A1 AUTO+5
COPV1 P2+1
P1 P2+1
P2 P1+2
PEXIT P1+3, P2+12, COPV1+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT PARM+1~, P2+1, COPV1+1*, COPV1+3*, COPV1+4*, COPV1+5*
DD P2+8!, COPV1+12!, A1+7!
DIC P2+3*, P2+9!, COPV1+6*, COPV1+13!, A1+1*, A1+8!
DIC("DR" P2+5*, COPV1+9*, A1+3*
DIC(0 P2+4*, COPV1+7*, A1+2*
DINUM A1+5*, A1+8!
DLAYGO P2+7*, P2+9!, COPV1+11*, COPV1+13!, A1+6*, A1+8!
DO P2+8!, COPV1+12!, A1+7!
DOM COPV1+5*, COPV1+9, PEXIT+2!
ENTRY PARM+1~, P1+1*, P1+2, P1+3, P2*, P2+1, COPV1+2, PEXIT+1!, AUTO+4*, AUTO+5
, AUTO+6, A1+11!
FAC COPV1+3*, COPV1+10, PEXIT+2!
FILE PARM+1~, P1*, PEXIT+1!, AUTO+3*, A1+11!
FILENO PARM+1~, P1*, AUTO+3*, A1+11!
FILNO PEXIT+1!
LFDATA COPV1+4*, COPV1+9, PEXIT+2!
ND COPV1+2*, COPV1+3, COPV1+4, COPV1+5, PEXIT+2!
>> POP PARM+3*, P2+10*, COPV1+14*, AUTO+2*, A1+9*
U COPV1+3, COPV1+4, COPV1+5
X P2+6*, P2+9!, COPV1+10*, COPV1+13!, A1+4*, A1+8!
>> Y P2+10, COPV1+14, A1+9
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 |  Local Variables  | All