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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: VAQPST01

Package: Patient Data Exchange

Routine: VAQPST01


Information

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

Source Information

Source file <VAQPST01.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Patient Data Exchange 10 ^VAQONIT  ^VAQPSL  (AUTO,PARM)^VAQPST02  (ENCR,OUT,REL,SEG)^VAQPST03  TERMTYP^VAQPST05  $$MAIL^VAQPST10  TASK^VAQPST20  EXPORT^VAQPST30  
UPDATE^VAQPST40  $$REPEAT^VAQUTL1  
VA FileMan 1 ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Data Exchange 1 VAQPST02  

Entry Points

Name Comments DBIA/ICR reference
PROMPT ; -- Prompts for missing fields
MISSING ; -- Builds DR string of fields with missing data
T2
PROT ; -- Installs protocols used by list processor
LIST ; -- Installs list templates
T1 ;
M1
M3
M2
END ; -- End of code
EP ; -- Entry point

External References

Name Field # of Occurrence
^DIE PROMPT+4
^VAQONIT PROT+2
^VAQPSL LIST+2
AUTO^VAQPST02 EP+14
PARM^VAQPST02 EP+12
ENCR^VAQPST03 EP+15
OUT^VAQPST03 EP+17
REL^VAQPST03 EP+16
SEG^VAQPST03 EP+18
TERMTYP^VAQPST05 T2+14
$$MAIL^VAQPST10 EP+21
TASK^VAQPST20 T1+3
EXPORT^VAQPST30 EP+11
UPDATE^VAQPST40 EP+13
$$REPEAT^VAQUTL1 T2+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EP+3
Function Call: WRITE
  • Prompt: !,"Begin of Post Init Process"
  • Line Location: EP+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: EP+23
Function Call: WRITE
  • Prompt: !,"Creating Mail Groups for PDX"
  • Line Location: EP+24
Function Call: WRITE
  • Prompt: !," 'VAQ PDX ERRORS' mail group created"
  • Line Location: EP+25
Function Call: WRITE
  • Prompt: !," 'VAQ MANUAL PROCESSING' mail group created"
  • Line Location: EP+26
Function Call: WRITE
  • Prompt: !," 'VAQ UNSOLICITED RECEIVED' mail group created"
  • Line Location: EP+27
Function Call: WRITE
  • Prompt: !," Error...Creating 'VAQ PDX ERRORS' mail group"
  • Line Location: EP+29
Function Call: WRITE
  • Prompt: !," Error...Creating 'VAQ MANUAL PROCESSING mail group"
  • Line Location: EP+30
Function Call: WRITE
  • Prompt: !," Error...Creating 'VAQ UNSOLICITED RECEIVED mail group"
  • Line Location: EP+31
Function Call: WRITE
  • Prompt: !!,"Problem with creating mail groups, post init halted"
  • Line Location: EP+32
Function Call: WRITE
  • Prompt: !,"Mail Groups created"
  • Line Location: EP+33
Function Call: WRITE
  • Prompt: !!
  • Line Location: T1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: T2+0
Function Call: WRITE
  • Prompt: !,X
  • Line Location: T2+1
Function Call: WRITE
  • Prompt: !,"* IMPORTANT * The following things need to be done: "
  • Line Location: T2+2
Function Call: WRITE
  • Prompt: !,"*"
  • Line Location: T2+3
Function Call: WRITE
  • Prompt: !,"* - Members need to be added to the newly created mail groups."
  • Line Location: T2+4
Function Call: WRITE
  • Prompt: !,"* The option is XMEDITMG. "
  • Line Location: T2+5
Function Call: WRITE
  • Prompt: !,"*"
  • Line Location: T2+6
Function Call: WRITE
  • Prompt: !,"* - The PDX Server (VAQ-PDX-SERVER) needs to be edited in order "
  • Line Location: T2+7
Function Call: WRITE
  • Prompt: !,"* to associate a mail group with the server. The mail group "
  • Line Location: T2+8
Function Call: WRITE
  • Prompt: !,"* to add is 'VAQ PDX ERRORS'. The installer will also have "
  • Line Location: T2+9
Function Call: WRITE
  • Prompt: !,"* to change the server action from 'QUEUE SERVER ROUTINE' to"
  • Line Location: T2+10
Function Call: WRITE
  • Prompt: !,"* 'RUN IMMEDIATELY'"
  • Line Location: T2+11
Function Call: WRITE
  • Prompt: !,X
  • Line Location: T2+12
Function Call: WRITE
  • Prompt: !
  • Line Location: T2+13
Function Call: WRITE
  • Prompt: !!!,"Post init process completed"
  • Line Location: T2+18
Function Call: WRITE
  • Prompt: !!,"Installing protocols for use by the list processor"
  • Line Location: PROT+1
Function Call: WRITE
  • Prompt: !!,"Protocol install completed"
  • Line Location: PROT+3
Function Call: WRITE
  • Prompt: !!,"Installing list templates for use by list processor"
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !!," ** List Template install completed"
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !!," ** File installed previously, all required fields present"
  • Line Location: PROMPT+1
Function Call: WRITE
  • Prompt: !,"Enter missing field(s)",!
  • Line Location: PROMPT+2
Function Call: WRITE
  • Prompt: !!," ** Missing fields added, initialization complete",!
  • Line Location: PROMPT+5
Routine Call
  • DIE
  • Line Location:
    • PROMPT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" T2+17
^DD( MISSING+3, M1, M3

Label References

Name Line Occurrences
@( T2+17
LIST EP+8
M1 MISSING+3
M2 M1
M3 M2+1
PROT EP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT EP+22*, EP+29*, EP+30*, EP+31*, EP+32, T2+19!, MISSING+1~, MISSING+2*, M3+1*, M3+2
, M3+3
DA PROMPT+3*, PROMPT+4!
DIE PROMPT+3*, PROMPT+4!
DR T2+19!, MISSING+2*, M3+2*, M3+3*, PROMPT+1, PROMPT+4!
ENTRY T2+19!, M2, PROMPT+3
FILE T2+19!, M2, PROMPT+3
FILENO T2+19!, MISSING+3, M1, M3
FLD MISSING+1~, MISSING+2*, M3*, M3+2, M3+3
FLE T2+19!, M2*, M2+1
IOF EP+3
J T2+19!
ND MISSING+1~, MISSING+2*, MISSING+3*, M1, M2, M3
PC MISSING+1~, MISSING+2*, M1*, M2+1, M3
POP EP+1~, EP+2*, EP+12, EP+14, EP+15, EP+16, EP+17, EP+18
U M2+1
X EP+21*, EP+25, EP+26, EP+27, EP+29, EP+30, EP+31, T2+1*, T2+12, T2+17*
, T2+19!
>> XQABT1 EP+5*
>> XQABT2 EP+10*
>> XQABT3 EP+20*
>> XQABT4 T1+2*
>> XQABT5 T2+16*
Y T2+19!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All