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

Package: Registration

Routine: DGVTS00


Information

DGVTS00 ;7DELTA/KDC - VTS Stand alone Option routine ;07-MAR-2012

Source Information

Source file <DGVTS00.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
LOOP ;
COMP ;
; Initialize variables
; If variable FOUND is set than we have a successful match
; Variable IEN is used to loop through the patient file for a set
; Veteran name
; (there can be several patients with the same name)
; Variable ICN will be populated with the matching Veterans ICN
CP1
CP
CPOUT ;
OPENFILE ;
EXDATA ;
UP(X)
TRIM(DATA) ;
CL ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: REC,!
  • Line Location: CPOUT+1
Function Call: WRITE
  • Prompt: RMREC,!
  • Line Location: CPOUT+35
Function Call: WRITE
  • Prompt: !,"No directory supplied, process stopped"
  • Line Location: OPENFILE+2
Function Call: WRITE
  • Prompt: !,"No input file name, process stopped"
  • Line Location: OPENFILE+4
Function Call: WRITE
  • Prompt: !,"Unable to open input file: "_DIR_INPUT,!,"Process stopped"
  • Line Location: OPENFILE+10
Function Call: WRITE
  • Prompt: !,"Unable to open output file: "_DIR_STATION_"_ICNOUTPUT.CSV",!,"Process stopped"
  • Line Location: OPENFILE+21
Function Call: WRITE
  • Prompt: !,"Unable to open report file: "_DIR_STATION_"_EXCEPTION.CSV",!,"Process stopped"
  • Line Location: OPENFILE+33
Info |  Source |  Entry Points |  Interaction Calls