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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 1 ($$STATUS,CLOSE,OPEN)^%ZISH  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Registration 1 $$SITE^VASITE  
VA FileMan 1 ^DIE  

Entry Points

Name Comments DBIA/ICR reference
OPENFILE ;
EN ;
CL ;
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
TRIM(DATA) ;
EXDATA ;
UP(X)
CP1
CPOUT ;
CP
LOOP ;

External References

Name Field # of Occurrence
$$STATUS^%ZISH LOOP+2
CLOSE^%ZISH OPENFILE+23, OPENFILE+35, OPENFILE+37, CL+2, CL+4, CL+6
OPEN^%ZISH OPENFILE+8, OPENFILE+19, OPENFILE+31
^DIE CPOUT+41
$$GETICN^MPIF001 CP1+35
$$SITE^VASITE EN+11

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
Routine Call
  • DIE
  • Line Location:
    • CPOUT+41

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] CP1+19
^DPT - [#2] CP1+4, CP1+31, CPOUT+21, CPOUT+40, CPOUT+42
^DPT("B" CP1, CP

Label References

Name Line Occurrences
$$TRIM CPOUT+20, CPOUT+22, CPOUT+23, CPOUT+24, CPOUT+25, CPOUT+26, CPOUT+27, CPOUT+28, CPOUT+29, CPOUT+32
, CPOUT+33, EXDATA+1, EXDATA+2, EXDATA+3, EXDATA+6, EXDATA+7, EXDATA+8
$$UP CP1+4, EXDATA+1, EXDATA+2, EXDATA+3, EXDATA+4, EXDATA+5, EXDATA+6, EXDATA+7, EXDATA+8, EXDATA+9
CL LOOP+2
COMP LOOP+5
CP CP1
CP1 CP1+17, CP1+25, CP1+43, CP+10
CPOUT COMP+18, CP1, CP1+41, CP, CP+4, CP+5
EXDATA LOOP+4
LOOP LOOP+3, LOOP+6
OPENFILE EN+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADD1 EN+4~, CPOUT+25, EXDATA+4*
ADD2 EN+4~, CPOUT+26, EXDATA+5*
CITY EN+2~, CP1+10, CPOUT+27, EXDATA+6*
DA EN+3~, CPOUT+41*
DATA TRIM~, TRIM+2, TRIM+3, TRIM+4
DFN EN+3~, CP1+34*, CP1+35, CPOUT+20, CPOUT+21, CPOUT+40, CPOUT+41, CPOUT+42
DIE EN+3~, CPOUT+41*
DIR EN+4~, OPENFILE+1*, OPENFILE+2, OPENFILE+8, OPENFILE+10, OPENFILE+19, OPENFILE+21, OPENFILE+31, OPENFILE+33
DLM EN+1~, EN+6*, EXDATA+1, EXDATA+2, EXDATA+3, EXDATA+4, EXDATA+5, EXDATA+6, EXDATA+7, EXDATA+8
, EXDATA+9
DR EN+3~, CPOUT+41*
FLG EN+2~, CP1+8*, CP1+10*, CP1+17, CP1+18*, CP1+19*, CP1+20*, CP1+25, CP1+26*
FNAME EN+2~, COMP+11, CPOUT+23, EXDATA+2*
FOUND EN+1~, COMP+8*, CP1, CP1+32*, CP1+41*, CPOUT+1
I TRIM+1~, TRIM+2*, TRIM+4
ICN EN+1~, COMP+10*, CP1+35*, CP1+41, CPOUT+33
ICNFILE EN+4~, CPOUT+35, OPENFILE+26*, OPENFILE+36, OPENFILE+37, CL+1, CL+2
IEN EN+1~, COMP+9*, CP1*, CP1+4, CP1+31, CP1+34
INPUT EN+4~, OPENFILE+3*, OPENFILE+4, OPENFILE+8, OPENFILE+10
INPUTFILE EN+1~, LOOP+1, OPENFILE+14*, OPENFILE+22, OPENFILE+23, OPENFILE+34, OPENFILE+35, CL+5, CL+6
IO EN+3~, OPENFILE+14, OPENFILE+22*, OPENFILE+26, OPENFILE+34*, OPENFILE+36*, OPENFILE+39, CL+1*, CL+3*, CL+5*
J TRIM+1~, TRIM+3*, TRIM+4
LNAME EN+2~, COMP+11, CPOUT+22, EXDATA+1*
MI EN+2~, COMP+12, CP+4, CP+5, CPOUT+24, EXDATA+3*
NAME EN+1~, COMP+13*, COMP+18, CP1, CP*, CP+4, CP+5
PATADD EN+2~, CP1+4*, CP1+10, CP1+19, CP1+20
PHONE EN+3~, CP1+31, CPOUT+30*, CPOUT+31*, CPOUT+32, EXDATA+9*
POP EN+4~, OPENFILE+9, OPENFILE+20, OPENFILE+32
REC EN+1~, LOOP+2*, LOOP+3, CPOUT+1, EXDATA+1, EXDATA+2, EXDATA+3, EXDATA+4, EXDATA+5, EXDATA+6
, EXDATA+7, EXDATA+8, EXDATA+9
REPORTFILE EN+4~, CPOUT+1, OPENFILE+39*, CL+3, CL+4
RMNAME EN+2~, COMP+11*, COMP+12*, COMP+13, CP+4, CP+5
RMREC EN+3~, CPOUT+19*, CPOUT+20*, CPOUT+21*, CPOUT+22*, CPOUT+23*, CPOUT+24*, CPOUT+25*, CPOUT+26*, CPOUT+27*
, CPOUT+28*, CPOUT+29*, CPOUT+32*, CPOUT+33*, CPOUT+35
STATE EN+3~, CP1+19, CP1+20, CPOUT+28, EXDATA+7*
STATION EN+3~, EN+11*, OPENFILE+19, OPENFILE+21, OPENFILE+31, OPENFILE+33
STOP EN+1~, EN+17*, EN+18, OPENFILE+2*, OPENFILE+4*, OPENFILE+11*, OPENFILE+13, OPENFILE+23*, OPENFILE+25, OPENFILE+38*
U CP1+10, CP1+19, CP1+20, CP1+31, CPOUT+21
X UP~
ZIP EN+2~, CP1+10, CPOUT+29, EXDATA+8*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All