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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BDWA

Package: Data Warehouse Export System

Routine: BDWA


Information

BDWA ;IHS/CMI/LAB - dw export reg data - old version;

Source Information

Source file <BDWA.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS VA Utilities 4 $$DIR^XBDIR  ^XBFMK  ^XBGSAVE  EN^XBVK  
Kernel 2 HOME^%ZIS  ($$FMTE,$$NOW)^XLFDT  
Data Warehouse Export System 1 ^BDWA1  
IHS VA %Utilities 1 $$NOJOURN^ZIBGCHAR  
VA Fileman 1 FILE^DICN  

Entry Points

Name Comments DBIA/ICR reference
HDR ;;^Export Registration Data for ALL Patients

External References

Name Field # of Occurrence
HOME^%ZIS BDWA+5
^BDWA1 HDR+12
FILE^DICN HDR+28
$$DIR^XBDIR HDR+24
^XBFMK HDR+29
^XBGSAVE HDR+23
EN^XBVK HDR+20, HDR+25, HDR+29
$$FMTE^XLFDT HDR+19
$$NOW^XLFDT BDWA+4, HDR+27
$$NOJOURN^ZIBGCHAR HDR+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"*",?(IOM\2-($L($P($T(HDR),U,2))\2)),$P($T(HDR),U,2),?(IOM-3),"*",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!?10,"Exporting all Registration info for ",$P(^DIC(4,BDWATXST,0),U)
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?10,"** Merge'd or Deleted Pts are not exported."
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?10,"** Data checks are -not- performed, as in the Reg export."
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?10,"NOW PROCESSING ALL PATIENTS...",!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"The 'NOJOURN^ZIBGCHAR() for ^BDWRDATA didn't work...",!
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !?10,"NUMBER OF PATIENTS PROCESSED = ",$J(BDWAIN03,5)
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !?10,"NUMBER OF PATIENT RECORDS TO SEND = ",$J(BDWA("TOT"),5)
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !!?17,"DW EXPORT GLOBAL HAS BEEN GENERATED."
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !?28,"*** 0th Node Info ***",!!,"Number : ",$P(^BDWRDATA(0),U),!," Name : ",$P(^BDWRDATA(0),U,2),!?9,$P(^BDWRDATA(0),U,7)," records",!?9,$$FMTE^XLFDT($P(^BDWRDATA(0),U,4)-17000000)," to ",$$FMTE^XLFDT($P(^BDWRDATA(0),U,5)-17000000),!
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: *7,!!?22,"ABNORMAL END OF DW REG DATA GLOBAL SAVE."
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: !!,XBFLG(1),!!
  • Condition for execution: $D(XBFLG(1))
  • Line Location: HDR+24
Routine Call
  • %ZIS
  • Line Location:
    • BDWA+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] HDR+15
^AUTTSITE(1 BDWA+4
^BDWRDATA( HDR+9!
^BDWRDATA(0 HDR+10*, HDR+15*, HDR+16, HDR+19
^DIC(4 - [#4] HDR+5, HDR+15

Label References

Name Line Occurrences
HDR HDR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HDR+10*, HDR+11
>> BDWA("TOT" BDWA+4*, HDR+14, HDR+15, HDR+27
BDWAFDAT BDWA+3~, HDR+15
BDWAIN01 BDWA+3~, BDWA+4*, HDR+27
BDWAIN03 BDWA+3~, BDWA+4*, HDR+13, HDR+27
BDWAIN06 BDWA+3~, BDWA+4*, HDR+16*, HDR+27
BDWALDAT BDWA+3~, HDR+15
>> BDWAROUT BDWA+4*
BDWATXST BDWA+3~, BDWA+4*, HDR+5, HDR+15
DA HDR+18!, HDR+26~
DD HDR+28!
DIC HDR+18!, HDR+26~, HDR+27*
DIC("DR" HDR+27*
DIC(0 HDR+27*
DLAYGO HDR+26~, HDR+27*
DO HDR+28!
DR HDR+18!, HDR+26~
DT HDR+15
DUZ HDR+27
DX HDR+18!
DY HDR+18!
>> I HDR+2*, HDR+4*
IOF HDR+1
IOM HDR+2, HDR+3, HDR+4
U BDWA+4, HDR+3, HDR+5, HDR+15, HDR+19
X HDR+18!, HDR+27*
>> XBFLG HDR+24
>> XBFLG(1 HDR+24
>> XBGL HDR+21*
>> XBMED HDR+21*
>> XBNAR HDR+21*
>> XBQ HDR+22*
XX HDR+18!
Y HDR+18!
Z HDR+18!

Marked Items

Name Field # of Occurrence
$T(HDR HDR+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All