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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: VBECDCU1

Package: VBECS

Routine: VBECDCU1


Information

VBECDCU1 ;hoifo/gjc-data conversion & pre-implementation utilities;Nov 21, 2002

Source Information

Source file <VBECDCU1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ^%ZTER  SETUP^XQALERT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
VBECS 1 ($$GTF,ALERT)^VBECDCU  

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

Package Total Caller Graph
VBECS 4 VBECDC00  VBECDCM1  VBECDCNM  VBECDCU2  

Entry Points

Name Comments DBIA/ICR reference
ATTR() ; select the data family to display
; Output: the file that the VistA data resides in as well as the full
; name of the data family - EX: 61.3^Antigen/Antibody
BRKPNT(LRDFN,DFN) ; check for broken pointers between files 2 & 63.
; Check the pointer from the Patient (#2) to the Lab Data (#63)
; file against the Parent File (#.02), piece two of LRDATA, and
; Name (#.03), piece three of LRDATA, fields on the Lab Data file.
; Parent File field value must equal 2 (Pat. file) & Name field
; value must equal the DFN of the patient for the pointer to be
; correct.
SAVE ; Save off the legacy Blood Bank data into globals, ^TMP(name_space,$J)
; and then move data from globals to either VMS files or text files on
; a Microsoft machine.
DATA(Y) ; determine if we've captured data and create empty files if no data found
; Input: Y=$J or process id
ERR ;come here on error, record error in error trap and alert all VBEC mail
SUBS ;
FILES ; here are the file names for used for the legacy Blood Bank data

External References

Name Field # of Occurrence
^%ZTER ERR+8
$$GET1^DIQ ERR+6
^DIR ATTR+11
$$GTF^VBECDCU SAVE+30, SAVE+39
ALERT^VBECDCU SAVE+20
SETUP^XQALERT ERR+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XMB(3.8 - [#3.8] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] BRKPNT+12
^TMP( SAVE+21*, SAVE+36, DATA+3, DATA+4*
^TMP("DBCONV.INI" SAVE+25*, SAVE+26*, SAVE+27*, SAVE+28*
^VBEC(6000 - [#6000] ERR+6

Label References

Name Line Occurrences
$$DATA SAVE+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN BRKPNT~, BRKPNT+13
DIR ATTR+4!, ATTR+12!
DIR("?" ATTR+7*, ATTR+10*, ATTR+11*
DIR("A" ATTR+6*
DIR(0 ATTR+6*
DIROUT ATTR+4!, ATTR+12!
DIRUT ATTR+4!, ATTR+12!
DTOUT ATTR+4!, ATTR+12!
DUOUT ATTR+4!, ATTR+12!
DUZ SAVE+20, ERR+4
LRC SAVE+17~
LRDATA BRKPNT+12~*, BRKPNT+13, SAVE+17~, SAVE+18*, SAVE+19*, SAVE+20
LRDFN BRKPNT~, BRKPNT+12
>> LRFLG SAVE+30*, SAVE+39*
LRNAME SAVE+17~, SAVE+38*, SAVE+39
LRNODE SAVE+17~, SAVE+29*, SAVE+30, SAVE+37*, SAVE+39
>> LRSTOP ERR+9*
LRX SAVE+17~, SAVE+35*, SAVE+36*, SAVE+37, SAVE+38
LRXX DATA+2!*, DATA+3*, DATA+4, DATA+6!
LRZ DATA+2~*
U BRKPNT+13, ERR+6
VBECATT ATTR+4~, ATTR+12*, ATTR+13*, ATTR+15
>> VBECCNV SAVE+20
>> VBECDBN SAVE+26
>> VBECDBN1 SAVE+28
VBECFILE ATTR+4~, ATTR+12*, ATTR+13*, ATTR+15
>> VBECI SAVE+21*
>> VBECI1 SAVE+21*
VBECMG ERR+6*, ERR+7, ERR+8!
X ATTR+4!, ATTR+12!
XQA ERR+2~
XQA( ERR+4*
XQA("G." ERR+7*
XQAMSG ERR+2~, ERR+4*
>> XQY0 ERR+4
Y ATTR+4!, ATTR+12!, ATTR+13, DATA~, DATA+4
Y(0 ATTR+13

Marked Items

Name Field # of Occurrence
$T(SUBS+VBECI SAVE+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All