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

Package: Patient Data Exchange

Routine: VAQPST01


Information

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

Source Information

Source file <VAQPST01.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls