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  | All
Print Page as PDF
Routine: VBECDCM1

Package: VBECS

Routine: VBECDCM1


Information

VBECDCM1 ;hoifo/gjc-VBECS MAPPING TABLE delete utilities.;Nov 21, 2002

Source Information

Source file <VBECDCM1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 IX^DIC  FILE^DIE  ^DIK  ^DIR  
VBECS 2 $$ATTR^VBECDCU1  ($$LOCK,UNLOCK)^VBECDCU2  
Kernel 1 $$NEWERR^%ZTER  

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

Package Total Caller Graph
VBECS 5 VBEC DELETE ANTIBODY/ANTIGEN  VBEC DELETE TRANS. REACTION  VBEC UNDO ANTIBODY/ANTIGEN  VBEC UNDO SINGLE MATCHING  VBEC UNDO TRANS. REACTIONS  

Entry Points

Name Comments DBIA/ICR reference
EN613 ; decouple antibodies/antigens
EN654 ; decouple transfusion reactions
ENP613 ; purge VistA antibodies/antigens
ENP654 ; purge VistA transfusion reactions mapping
PURGALL ; purge all the records in the VBECS MAPPING TABLE (#6005) file
; initialize the error trap
PURGE(VBEC01,CNT) ; purge at the record level using DIK
; input: VBEC01=sub-file number or file number-ien VBEC MATCHING TABLE
; file.
; CNT=The number of records purged.
SINGLE ; decouple relations for a single record
; initialize the error trap
KILSIN
ASK ; decouple records from the VBECS MAPPING TABLE (#6005) file
; initialize the error trap
DECUP(Y) ; delete the STANDARD VBECS DATA (#.05), CHECKSUM (#.06), &
; TIMESTAMP (#.07) field level data (essentially unmap)
XIT ; kill and quit
YN() ; yes/no to decoupling question...

External References

Name Field # of Occurrence
$$NEWERR^%ZTER PURGALL+2, SINGLE+2, ASK+2
IX^DIC SINGLE+10
FILE^DIE DECUP+4
^DIK PURGE+6
^DIR PURGALL+12, YN+4
$$ATTR^VBECDCU1 SINGLE+5
$$LOCK^VBECDCU2 PURGALL+4, SINGLE+4, ASK+6
UNLOCK^VBECDCU2 PURGALL+26, KILSIN, ASK+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Please be patient, this may take awhile"
  • Line Location: PURGALL+19
Function Call: WRITE
  • Prompt: !!,"Mapping for "_VBECREC_" decoupled.",!
  • Line Location: SINGLE+13
Function Call: WRITE
  • Prompt: !!?3,"Please be patient, this may take a while",!
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !?3,"Finished decoupling ",CNT," mapped records from the VBECS MAPPING TABLE (#6005)",!?3,"file. For VistA "_VBECNME_" data types."
  • Line Location: ASK+15
Routine Call
  • DIC
  • Line Location:
    • SINGLE+10
Routine Call
  • DIE
  • Line Location:
    • DECUP+4
Routine Call
  • DIR
  • Line Location:
    • PURGALL+12
    • YN+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TRAP" PURGALL+3, SINGLE+3, ASK+3
^VBEC(6005 - [#6005] PURGALL+6, PURGALL+22, PURGE+5, ASK+8, ASK+10

Label References

Name Line Occurrences
$$YN ASK+4
ASK EN613+2, EN654+2
DECUP SINGLE+12, ASK+11
KILSIN SINGLE+6, SINGLE+10
PURGALL ENP613+2, ENP654+2
PURGE PURGALL+22, PURGALL+23
XIT EN613+2, EN654+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PURGALL+27!, PURGE+4~
CNT PURGALL+18*, PURGALL+22, PURGALL+23, PURGALL+24, PURGALL+25, PURGALL+27!, PURGE~, PURGE+6*, PURGE+7, ASK+5*
, ASK+12*, ASK+15, XIT+1!
D SINGLE+7!*, SINGLE+10!
DA PURGE+4~*, PURGE+5*
DIC PURGALL+27!, SINGLE+7!*, SINGLE+10!
DIC("S" SINGLE+8*
DIC("W" SINGLE+9*
DIC(0 SINGLE+7*
DIK PURGALL+18*, PURGE+4~*
DIR PURGALL+8~, YN+1~
DIR("?" PURGALL+11*, YN+3*
DIR("A" PURGALL+10*, YN+2*
DIR("B" PURGALL+9*, YN+2*
DIR(0 PURGALL+9*, YN+2*
DIROUT PURGALL+8~, YN+1~
DIRUT PURGALL+8~, PURGALL+13, YN+1~, YN+4
DO SINGLE+7!, SINGLE+10!
DTOUT PURGALL+8~, YN+1~
DUOUT PURGALL+8~, YN+1~
U SINGLE+11
VBEC01 PURGALL+20*, PURGALL+21*, PURGALL+22*, PURGALL+23, PURGALL+27!, PURGE~, PURGE+5
VBECFDA DECUP+3!, DECUP+4!, XIT+1!
VBECFDA(8 DECUP+3*
VBECFILE SINGLE+5*, SINGLE+6, SINGLE+7*, KILSIN!
VBECFN EN613+1*, EN654+1*, ENP613+1*, ENP613+2!, ENP654+1*, ENP654+2!, PURGALL+6, PURGALL+20, PURGALL+21, PURGALL+22
, ASK+8, ASK+10, XIT+1!
VBECGUID ASK+7*, ASK+8*, ASK+10, XIT+1!
VBECIEN SINGLE+11*, SINGLE+12, KILSIN!, ASK+9*, ASK+10*, ASK+11, XIT+1!
VBECNME EN613+1*, EN654+1*, ENP613+1*, ENP613+2!, ENP654+1*, ENP654+2!, PURGALL+10, PURGALL+11, ASK+15, XIT+1!
VBECREC SINGLE+11*, SINGLE+13, KILSIN!
VBECXIT PURGALL+5~*, PURGALL+6, PURGALL+13*, PURGALL+14*
X PURGALL+3*, PURGALL+8~, PURGALL+27!, PURGE+4~, SINGLE+3*, KILSIN!, ASK+3*, XIT+1!, YN+1~
Y PURGALL+8~, PURGALL+14, PURGALL+27!, PURGE+4~, SINGLE+10, SINGLE+11, KILSIN!, ASK+4*, DECUP~, DECUP+3
, XIT+1!, YN+1~, YN+4*, YN+5
Y(0 SINGLE+11
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  | All