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

Package: VBECS

Routine: VBECDCX


Information

VBECDCX ;hoifo/gjc-data conversion & pre-implementation data extract;Nov 21, 2002

Source Information

Source file <VBECDCX.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VBECS 3 (,LOGEXC)^VBECDC02  ($$BLUT,$$CNT,$$DATE,$$ICN,$$SWAP)^VBECDCU  ($$STRIP,ANTIAB,BBC,TRCMNT,TRDTAB)^VBECDCX1  
Kernel 2 $$NEWERR^%ZTER  NAMECOMP^XLFNAME  

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

Package Total Caller Graph
VBECS 1 VBECDC00  

Entry Points

Name Comments DBIA/ICR reference
PAT(DFN,LRDFN) ; build the primary patient identifier string.
; convert specific patient attributes from VistA to SQL tables.
; Values to covert and maximum string lengths:
; LRDFN=ien of the patient record in the Lab Data (#63) file (12)
; DFN=ien of the patient in the Patient (#2) file (12)
; LRNAM=LRNAM("FAMILY")^LRNAM("GIVEN")^LRNAM("MIDDLE")^LRNAM("SUFFIX")
; LRNAM(patient name) subcomponents above concatenated (30)
; LRSEX(sex)='M' or 'F', (1)
; LRDOB(date of birth)='mm/dd/yy<sp>time' time optional, (18)
; LRSSN(ssn)='123456789' (9)
; LRICN(ICN)='100072010000' (12)
; $P(LRBO,U) (blood type)='AB' (2)
; $P(LRBLD,U,2) (RH type)='N' or 'P' (1)
ANTI(DFN,LRDFN,LRCHAR) ; extract 'RBC ANTIGENS PRESENT/ABSENT' or 'ANTIBODIES
; IDENTIFIED' data from the legacy Blood Bank application. Notice the
; practice of swapping out the VistA ien for the antibodies equivalent
; SQL GUID.
; Input: DFN=patient DFN
; LRDFN=lab patient ien in the Lab Data (#63) file
; LRCHAR=char, 'AP' for antigens present, 'AI' for antigens
; identified and 'AA' for antibodies absent
TCTRC(DFN,LRDFN,LRD1) ; save off the transfusion or transfusion
; reaction comments. called from both TRANS & TRANSR
; from TRANS
; Input: DFN=patient DFN
; LRDFN=lab patient ien in the Lab Data (#63) file
; LRD1=second level subscript; equivalent to FileMan's D1
TRD(DFN,LRDFN) ; Extract transfusion reaction date data; date/time, reaction
; type, person entering reaction
; Input: DFN=patient DFN
; LRDFN=lab patient ien in the Lab Data (#63) file
TRTOT ;
KILL ; kill variables

External References

Name Field # of Occurrence
$$NEWERR^%ZTER PAT+19
^VBECDC02 PAT+31
LOGEXC^VBECDC02 PAT+32
$$BLUT^VBECDCU PAT+42
$$CNT^VBECDCU PAT+23, PAT+60, ANTI+15, TCTRC+13, TRD+11, TRD+18
$$DATE^VBECDCU TRD+9, TRD+23
$$ICN^VBECDCU PAT+40
$$SWAP^VBECDCU ANTI+13, ANTI+14, TRD+7, TRD+22
$$STRIP^VBECDCX1 PAT+37, PAT+38, ANTI+13, ANTI+14, TCTRC+10
ANTIAB^VBECDCX1 ANTI+22
BBC^VBECDCX1 PAT+63
TRCMNT^VBECDCX1 TCTRC+15
TRDTAB^VBECDCX1 TRD+13, TRD+25
NAMECOMP^XLFNAME PAT+27

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TRAP" PAT+20
^DPT - [#2] PAT+26
^LR - [#63] ANTI+11, ANTI+12, TCTRC+8, TCTRC+10, TRD+5, TRD+6
^LRD(65 - [#65] TRD+20, TRD+21, TRD+23
^TMP( ANTI+16*, TCTRC+14*
^TMP("VBEC FINIS" PAT+24*, PAT+45*, PAT+46*, PAT+47*, PAT+48*, PAT+49*, PAT+50*, PAT+51*, PAT+52*, PAT+53*
, PAT+54*, PAT+55*, PAT+56*, PAT+58*, PAT+64*, ANTI+28*, TCTRC+9*, TRTOT+1*
^TMP("VBEC63 PAT" PAT+61*
^TMP("VBEC63 TRD" TRD+12*, TRD+24*
^TMP($J TRD+19

Label References

Name Line Occurrences
ANTI PAT+62
KILL PAT+65
TCTRC TRD+14
TRD PAT+63

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT PAT+60*, PAT+61, ANTI+15*, ANTI+16*, ANTI+30!, TCTRC+13*, TCTRC+14*, TRD+11*, TRD+12*, TRD+18*
, TRD+24*, KILL+1!
DFN PAT~, PAT+26, PAT+31, PAT+40, PAT+46, PAT+62, PAT+63, ANTI~, ANTI+13, ANTI+14
, TCTRC~, TCTRC+12, TRD~, TRD+9, TRD+14, TRD+19, TRD+24
DPT KILL+1!
DPT(0 PAT+26*, PAT+27, PAT+35, PAT+37
DPTNAME PAT+26*, PAT+27, PAT+38*, PAT+40, KILL+1!
DPTNAME("FAMILY" PAT+29, PAT+30, PAT+38, PAT+47
DPTNAME("GIVEN" PAT+38, PAT+48
DPTNAME("MIDDLE" PAT+38, PAT+49
DPTNAME("SUFFIX" PAT+38, PAT+50
DT TRD+23
I PAT+58*, PAT+60!, ANTI+28*, ANTI+30!, TRTOT+1*
LRARY PAT+31!, PAT+32!
LRARY( PAT+31*
LRBLD PAT+42*, PAT+43, PAT+55, PAT+56, KILL+1!
LRCHAR ANTI~, ANTI+8, ANTI+9, ANTI+13, ANTI+14
LRD ANTI+12*, ANTI+13, ANTI+14, ANTI+30!, TRD+6*, TRD+7, TRD+9, TRD+25*, TRTOT+2!
LRD1 ANTI+8*, ANTI+11*, ANTI+12, ANTI+13, ANTI+14, ANTI+30!, TCTRC~, TCTRC+8, TCTRC+10, TCTRC+11
, TCTRC+12, TRD+5*, TRD+6, TRD+8, TRD+9, TRD+14, TRTOT+2!
LRD2 TCTRC+6*, TCTRC+8*, TCTRC+10, TCTRC+12, TCTRC+17!
LRDATE KILL+1!
LRDFN PAT~, PAT+40, PAT+42, PAT+45, PAT+62, PAT+63, ANTI~, ANTI+11, ANTI+12, ANTI+13
, ANTI+14, TCTRC~, TCTRC+8, TCTRC+10, TCTRC+12, TRD~, TRD+5, TRD+6, TRD+9, TRD+14
, TRD+24
>> LRDOB PAT+35*, PAT+40, PAT+52
LRICN PAT+40*, PAT+54, KILL+1!
LRMTH KILL+1!
LRN ANTI+8*, ANTI+10, ANTI+11, ANTI+12, ANTI+13, ANTI+14, ANTI+17, ANTI+30!
LRPCE ANTI+10*, ANTI+17*, ANTI+28, ANTI+30!
LRS ANTI+9*, ANTI+15, ANTI+16, ANTI+30!
LRSEX PAT+27*, PAT+40, PAT+51, KILL+1!
LRSSN PAT+37*, PAT+40, PAT+53, KILL+1!
LRSTR PAT+26*, PAT+40*, PAT+43*, PAT+61, ANTI+13*, ANTI+14*, ANTI+16, ANTI+30!, TCTRC+12*, TCTRC+14
, TCTRC+17!, TRD+9*, TRD+12, TRTOT+2!, KILL+1!
LRSUB TCTRC+6*, TCTRC+13, TCTRC+14, TCTRC+17!
LRTRCMT TCTRC+10*, TCTRC+12, TCTRC+17!
U PAT+26*, PAT+27, PAT+35, PAT+37, PAT+38, PAT+40, PAT+43, PAT+45, PAT+46, PAT+47
, PAT+48, PAT+49, PAT+50, PAT+51, PAT+52, PAT+53, PAT+54, PAT+55, PAT+56, PAT+58
, PAT+64, ANTI+13, ANTI+14, ANTI+28, TCTRC+9, TCTRC+10, TCTRC+12, TRD+7, TRD+9, TRTOT+1
>> VBECIEN PAT+32
>> VBECMRG PAT+30*, PAT+31
>> VBECRTOT PAT+23*, PAT+24, PAT+45, PAT+46, PAT+47, PAT+48, PAT+49, PAT+50, PAT+51, PAT+52
, PAT+53, PAT+54, PAT+55, PAT+56, PAT+58, PAT+64, ANTI+28, TCTRC+9, TRTOT+1
>> VBECTRDD TRD+23*, TRD+24
>> VBTRA TRD+19*, TRD+20, TRD+21, TRD+23
>> VBTRD TRD+7*, TRD+9, TRD+21*, TRD+22*, TRD+24
X PAT+20*, PAT+24!*
Z TCTRC+6*, TCTRC+9*, TCTRC+17!

Marked Items

Name Field # of Occurrence
$T(ERRMSG+3^VBECDC02 PAT+31
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All