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

Package: VBECS

Routine: VBECDCU


Information

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

Source Information

Source file <VBECDCU.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 $$GTF^%ZISH  ($$FMADD,$$FMTE)^XLFDT  SETUP^XQALERT  
VA FileMan 3 $$EXTERNAL^DILFD  GETS^DIQ  ^DIR  
Master Patient Index VistA 1 ($$GETICN,GETICN)^MPIF001  

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

Package Total Caller Graph
VBECS 6 VBEC DELETE EXTRACTED DATA  VBECDC00  VBECDC01  VBECDCU1  VBECDCX  VBECDCX1  

Entry Points

Name Comments DBIA/ICR reference
GTF(VBECGR,VBECIS,VBECF) ; save off data stored in a global to a VMS
; or NT/2000 file.
; input: VBECGR=global reference
; VBECIS=Identifies the incrementing subscript level. For
; example, if you pass ^TMP(115,1,1,0) as the global
; reference parameter, and pass 3 as the incr_subsc
; parameter, $$GTF will increment the third subscript,
; ^TMP(115,1,x), but will read nodes at the full global
; reference ^TMP(115,1,x,0).
; VBECF=Name of the file where the data is to reside.
; output: 1=success, 0=failure
DELETE(VBECY) ; purge the ^TMP("VBEC*",$J) global
; input: VBECY=$J or process id, or zero to kill along all processes.
NP200(IEN) ; gather New Person information in order to populate
; the appropriate SQL Server table on the VBECS side.
; Name, SSN, Termination Date, & Division are the attributes returned.
; Input: IEN the internal entry number of the New Person record.
; We'll be saving New Person (NP) data off in ^TMP("VBEC NP",$J) and
; plan to create our NP VMS file after all other VMS files are closed.
XTRNL(LRFL,LRFD,LRFLG,LRINT) ; change data from its internal value
; to its external value.
; LRFL-file or subfile number LRFLD-field number
; LRFLG-Output transform for pointer data. 'F' if the first field
; in a pointer chain has a output transform, apply the transform
; & quit. 'L' if the last field in a pointer chain has a output
; transform, apply the transform & quit. 'U' if the first field
; in a pointer chain has a output transform, apply the transform
; to the last field in the pointer chain & quit.
; function documented @ VA FileMan v22 Programmer Manual pg:2-171
; LRINT-the internal value being converted.
DATE(LRDATE) ; date/time transformed. Initial format created in order to
; handle an individual's date of birth, input in 'LRDATE', formatted
; 'mm/dd/yy<sp>time'.
ALERT(DUZ,TSK,FLG,ABN) ;trigger an alert when the pre-implementation or
RPT(TSK) ;report header
; Input: TSK-The task being executed; either the pre-implementation or
; the data conversion. 'DC' implies data conversion, 'PI'
; implies the pre-implementation
CNT(X,Y) ; return the value of a subscript
; Input: X=the name of the subscript, i.e., "VBEC63 DEM"
; Y=$J
SWAP(LRF,LRP) ; swap the VistA pointer (or free-text blood supplier) data for
; the SQL GUID equivalent. In the case that the entry is not mapped
; (VistA pointer has no corresponding SQL Server GUID), this utility
; returns null.
; input: LRF=file being mapped
; LRP=VistA pointer value (IEN or record 'pointed to')
BLUT(Y) ; obtain ABO GROUP (#.05) & RH TYPE (#.06) from Lab Data (#63) file
ICN(DFN) ; obtain the patient's ICN. DFN is input, and either the ICN,
; if it exists, or null will be returned.
; APIs used by this subroutine (in extrinsic function $$ICN)
; #2701-$$GETICN^MPIF001(DFN), this function returns the ICN

External References

Name Field # of Occurrence
$$GTF^%ZISH GTF+17
$$EXTERNAL^DILFD XTRNL+11
GETS^DIQ NP200+7
^DIR DELETE+7
$$GETICN^MPIF001 ICN+9
GETICN^MPIF001 ICN+5
$$FMADD^XLFDT DATE+7
$$FMTE^XLFDT DATE+10
SETUP^XQALERT ALERT+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"VBECS "_$S(TSK="DC"=1:"data conversion",1:"pre-implementation")_" process",?$S(IOM=132:117,1:65),"Page 1 of 1",VBECLN
  • Line Location: RPT+6
Routine Call
  • DIR
  • Line Location:
    • DELETE+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LR - [#63] BLUT+1
^TMP( DELETE+3, DELETE+12!, CNT+3
^TMP("VBEC NP" NP200+19*, NP200+27*
^TMP("VBECX NP" NP200+10, NP200+20*, NP200+28*
^VBEC(6000 - [#6000] GTF+15
^VBEC(6005 - [#6005] SWAP+9, SWAP+10, SWAP+12
^VBEC(6007 - [#6007] SWAP+14

Label References

Name Line Occurrences
$$CNT NP200+16, NP200+24
$$DATE NP200+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABN ALERT~, ALERT+15, ALERT+16
CNT NP200+16*, NP200+19, NP200+24*, NP200+27, NP200+30!
DFN ICN~, ICN+9
DIR DELETE+5!
DIR("?" DELETE+7*
DIR("A" DELETE+6*
DIR("B" DELETE+7*
DIR(0 DELETE+6*
DIRUT DELETE+5!, DELETE+8
DIVNAME NP200+15*, NP200+17, NP200+30!
DIVPTR NP200+14*, NP200+17, NP200+30!
DTOUT DELETE+5!
DUOUT DELETE+5!
DUZ ALERT~, ALERT+13
FLG ALERT~, ALERT+17, ALERT+18
IEN NP200~, NP200+6, NP200+7, NP200+8, NP200+9, NP200+10, NP200+11, NP200+17, NP200+20, NP200+25
, NP200+28
IOF RPT+4
IOM RPT+5, RPT+6
IOST RPT+4
LRA NP200+13*, NP200+14, NP200+15, NP200+30!
LRARY NP200+6!, NP200+31!
LRARY( NP200+12, NP200+13, NP200+14, NP200+15
LRARY(200 NP200+8, NP200+9, NP200+11
LRDATE DATE~, DATE+7*, DATE+10*, DATE+11*, DATE+12*, DATE+13
LRF SWAP~, SWAP+8, SWAP+9, SWAP+10
LRFD XTRNL~, XTRNL+11
LRFL XTRNL~, XTRNL+11
LRFLG XTRNL~, XTRNL+11
>> LRICN ICN+4*, ICN+9*, ICN+11
LRINT XTRNL~, XTRNL+11
>> LRMTH DATE+9*, DATE+11
LRNAME NP200+8*, NP200+10, NP200+17, NP200+20, NP200+25, NP200+28, NP200+30!
LRP SWAP~, SWAP+8, SWAP+9, SWAP+10
LRSSN NP200+9*, NP200+10, NP200+17, NP200+20, NP200+25, NP200+28, NP200+30!
LRSTR NP200+6~, NP200+17*, NP200+19, NP200+25*, NP200+27
LRTRMDT NP200+7*, NP200+11*, NP200+17, NP200+25, NP200+30!
TSK ALERT~, ALERT+14, RPT~, RPT+6
U GTF+15, DATE+11, SWAP+12, SWAP+14, BLUT+1, BLUT+3
VBEC6005 SWAP+8~, SWAP+9*, SWAP+10*, SWAP+11, SWAP+12
VBEC6007 SWAP+8~, SWAP+12*, SWAP+13, SWAP+14
VBECF GTF~, GTF+17
VBECGR GTF~, GTF+17
VBECIS GTF~, GTF+17
>> VBECLN RPT+5*, RPT+6
>> VBECP GTF+15*, GTF+17
>> VBECTOT("VBEC NP" , NP200+18*, NP200+26*
VBECX DELETE+2*, DELETE+3*, DELETE+10, DELETE+12, DELETE+16!
VBECY DELETE~, DELETE+2*, DELETE+11, DELETE+12, DELETE+16!
VBECYN DELETE+3, DELETE+4, DELETE+7*, DELETE+8*, DELETE+15, DELETE+16!
X DELETE+16!, CNT~, CNT+3
XQA ALERT+13!, ALERT+19!
XQA( ALERT+13*
XQAMSG ALERT+13!, ALERT+14*, ALERT+15*, ALERT+16*, ALERT+17*, ALERT+18*, ALERT+19!
XQAROU ALERT+13!, ALERT+19!
Y DELETE+7, DELETE+16!, CNT~, CNT+3, BLUT~, BLUT+1
Y("ABO" BLUT+1*, BLUT+3
Y("RH" BLUT+1*, BLUT+3

Marked Items

Name Field # of Occurrence
$T(GETICN^MPIF001 ICN+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All