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

Package: VBECS

Routine: VBECDCU2


Information

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

Source Information

Source file <VBECDCU2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 ($$GET1,FILE)^DID  ^DIE  ^DIK  $$ROOT^DILFD  ^DIR  
Kernel 2 $$DEL^%ZISH  $$FMDIFF^XLFDT  
VBECS 1 ^VBECDCU1  

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

Package Total Caller Graph
VBECS 7 VBEC DELETE CONV. STATS  VBEC DELETE SYSTEM LEVEL FILES  VBECDC01  VBECDCHX  VBECDCM0  VBECDCM1  VBECDCM2  

Entry Points

Name Comments DBIA/ICR reference
SPARAM ; Site parameter enter edit.
NOMAP() ; check if the user has mapped VistA data (blood products, antigen/
; antibodies, blood supplier, and transfusion reactions) to their
; SQL Server equivalents.
; returns: '1' if any of the attributes identified above are not mapped
LOCK(VBECFN) ;file lock utility
; Input: VBECNUM=file number
UNLOCK(VBECFN) ; unlock a file
; Input: X=file number
DEL ; delete the VMS or Microsoft legacy Blood Bank files from the
; server. This will be an entry point for an option.
DELXIT
CHECKSUM(STR) ;This tag builds a checksum value for a string
; input: string value to be converted
DEL6001 ;Delete all data conversion and anomaly check history from the

External References

Name Field # of Occurrence
$$DEL^%ZISH DEL+35
$$GET1^DID LOCK+6
FILE^DID LOCK+7
^DIE SPARAM+1
^DIK DEL6001+10
$$ROOT^DILFD LOCK+5, UNLOCK+3
^DIR NOMAP+7, NOMAP+11, DEL+26, DEL6001+7
^VBECDCU1 DEL+29
$$FMDIFF^XLFDT DEL+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Antigen/Antibodies have not been mapped, please resolve this issue before running the data conversion."
  • Line Location: NOMAP+5
Function Call: WRITE
  • Prompt: !!,"Antigen/Antibodies have not been mapped"
  • Line Location: NOMAP+6
Function Call: WRITE
  • Prompt: !,"Please resolve this issue before running the data conversion."
  • Line Location: NOMAP+8
Function Call: WRITE
  • Prompt: !!,"Transfusion Reactions have not been mapped"
  • Line Location: NOMAP+10
Function Call: WRITE
  • Prompt: !,"Please resolve this issue before running the data conversion."
  • Line Location: NOMAP+12
Function Call: WRITE
  • Prompt: !!,"Blood Products have not been mapped, please resolve this issue before running the data conversion."
  • Line Location: NOMAP+13
Function Call: WRITE
  • Prompt: !!,"Blood Suppliers have not been mapped, please resolve this issue before running the data conversion."
  • Line Location: NOMAP+14
Function Call: WRITE
  • Prompt: !!,"Another person is editing "_VBECAT_" in the "_VBECTMP("NAME")_$S(VBECFN=66.01:" sub-file.",1:" file."),!,"Try again later...",$C(7)
  • Line Location: LOCK+9
Function Call: WRITE
  • Prompt: !!?3,"The completion process timestamp does not exist. There are"
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !?3,"no system files to delete at this time."
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: !!?3,"The data conversion has not been run. There are no system"
  • Line Location: DEL+11
Function Call: WRITE
  • Prompt: !?3,"files to delete at this time."
  • Line Location: DEL+12
Function Call: WRITE
  • Prompt: !!,"Default Directory (file path) not defined. Cannot"
  • Line Location: DEL+16
Function Call: WRITE
  • Prompt: !,"delete system level legacy Blood Bank files.",$C(13)
  • Line Location: DEL+17
Function Call: WRITE
  • Prompt: !!,"System level legacy Blood Bank files not found.",$C(13)
  • Line Location: DEL+32
Function Call: WRITE
  • Prompt: !!,"All system level legacy Blood Bank files "_$S(LRSLT=1:"have",1:"have not")_" been deleted.",$C(13)
  • Line Location: DEL+36
Function Call: WRITE
  • Prompt: !!?3,"No data conversion and anomaly check history data to delete, exiting.",$C(7)
  • Line Location: DEL6001+2
Function Call: WRITE
  • Prompt: !!?3,"This option deletes all data conversion and anomaly check history"
  • Line Location: DEL6001+3
Function Call: WRITE
  • Prompt: !?3,"from the VBECS DATA INTEGRITY/CONVERSION STATISTICS (#6001) file.",!
  • Line Location: DEL6001+4
Routine Call
  • DIE
  • Line Location:
    • SPARAM+1
Routine Call
  • DIR
  • Line Location:
    • NOMAP+7
    • NOMAP+11
    • DEL+26
    • DEL6001+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VBEC(6000 - [#6000] Classic Fileman Calls
^VBEC(6001 - [#6001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VBEC(6000 - [#6000] DEL+15
^VBEC(6001 - [#6001] DEL+2, DEL6001+2, DEL6001+10
^VBEC(6005 - [#6005] NOMAP+6, NOMAP+10

Label References

Name Line Occurrences
DELXIT DEL+18, DEL+27, DEL+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SPARAM+1*, DEL6001+9*, DEL6001+10*, DEL6001+12!
DIC DEL6001+12!
>> DIE SPARAM+1*
DIK DEL6001+9*, DEL6001+12!
DIR DEL+26!, DELXIT!, DEL6001+15!
DIR("?" DEL+26*, DEL6001+6*
DIR("A" NOMAP+7*, NOMAP+11*, DEL+26*, DEL6001+5*
DIR("B" NOMAP+7*, NOMAP+11*, DEL+26*, DEL6001+5*
DIR(0 NOMAP+7*, NOMAP+11*, DEL+26*, DEL6001+5*
DIROUT DELXIT!, DEL6001+15!
DIRUT DEL+27, DELXIT!, DEL6001+15!
>> DR SPARAM+1*
DT DEL+21
DTOUT DELXIT!, DEL6001+14, DEL6001+15!
DUOUT DELXIT!, DEL6001+15!
J CHECKSUM+4~, CHECKSUM+5*
LR6001 DEL+2*, DEL+3, DEL+8!, DEL+13!, DELXIT!
>> LRARY DEL+35
>> LRARY( DEL+30*
>> LRARY("" DEL+32
>> LRARY("DBCONV.INI" DEL+34*
LRDATE DEL+3*, DEL+5, DEL+8!, DEL+13!, DEL+21, DELXIT!
LRELPSE DEL+21*, DEL+22, DELXIT!
LRFILE DEL+29*, DEL+30, DELXIT!
LRHLP DELXIT!
LRI DEL+29*, DELXIT!
LRPATH DEL+15*, DEL+16, DEL+35, DELXIT!
LRPROC DEL+3*, DEL+10, DELXIT!
LRSLT DEL+35*, DEL+36, DELXIT!
STR CHECKSUM~, CHECKSUM+4, CHECKSUM+5
U DEL+3, DEL+15
VBEC NOMAP+4~*, NOMAP+8*, NOMAP+9, NOMAP+12*, NOMAP+15
VBECAT LOCK+4~, LOCK+6*, LOCK+9
VBECFLE LOCK+4~
VBECFN LOCK~, LOCK+5, LOCK+6, LOCK+7, LOCK+9, UNLOCK~, UNLOCK+2*, UNLOCK+3
VBECLOCK LOCK+4~, LOCK+8*, LOCK+10
VBECNT DEL6001+9*, DEL6001+10*, DEL6001+11, DEL6001+12!
VBECRT LOCK+4~, LOCK+5*, LOCK+8
>> VBECTMP("NAME" LOCK+9
X DELXIT!, CHECKSUM+4~*, CHECKSUM+5, DEL6001+12!, DEL6001+15!
Y NOMAP+7, NOMAP+11, DEL+27, DELXIT!, CHECKSUM+4~*, CHECKSUM+5*, CHECKSUM+6, DEL6001+8, DEL6001+12!, DEL6001+15!

Marked Items

Name Field # of Occurrence
$T(FILES+LRI^VBECDCU1 DEL+29
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