Routine: BDWA

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

Package

Total

Call Graph

IHS VA Utilities

$$DIR^XBDIR ^XBFMK ^XBGSAVE EN^XBVK

Kernel

HOME^%ZIS ($$FMTE,$$NOW)^XLFDT

Data Warehouse Export System

^BDWA1

IHS VA %Utilities

$$NOJOURN^ZIBGCHAR

VA Fileman

FILE^DICN

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

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

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

Name	Line Occurrences
HDR	HDR+3

Local Variables

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

Customize PDF page

Package: Data Warehouse Export System

Routine: BDWA

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items