Routine: BDW1BLR

Package	Total	Call Graph
VA Fileman	4	FILE^DICN ^DIE ^DIK ^DIR
IHS Support HL7 Interfaces	2	$$CHK^BHLBCK ($$DW1HDR,$$DW1REG,$$DW1TRLR)^BHLEVENT
IHS VA Utilities	2	^XBFMK EN^XBVK
Kernel	2	HOME^%ZIS $$NOW^XLFDT
Data Warehouse Export System	1	$$FULLEP^BDWDWPX

Package

Total

Call Graph

VA Fileman

FILE^DICN ^DIE ^DIK ^DIR

IHS Support HL7 Interfaces

$$CHK^BHLBCK ($$DW1HDR,$$DW1REG,$$DW1TRLR)^BHLEVENT

IHS VA Utilities

^XBFMK EN^XBVK

Kernel

HOME^%ZIS $$NOW^XLFDT

Data Warehouse Export System

$$FULLEP^BDWDWPX

Name	Comments	DBIA/ICR reference
GIS	;-- check background jobs for gis
HDR	;;^Export Data for ALL Registration Records to Data Warehouse via HL7
G
EXIT	;
ORF(P)	;patient has ORF?
CONT	;do you want to continue?
LOOP	;LOOP PATS

External References

Name	Field # of Occurrence
HOME^%ZIS	BDW1BLR+10
$$FULLEP^BDWDWPX	CONT+8
$$CHK^BHLBCK	GIS+6
$$DW1HDR^BHLEVENT	G+10
$$DW1REG^BHLEVENT	LOOP+19
$$DW1TRLR^BHLEVENT	G+21
FILE^DICN	G+4
^DIE	G+12, G+24, G+26, LOOP+26
^DIK	LOOP+6
^DIR	BDW1BLR+6, CONT+2, CONT+11, G+29
^XBFMK	G+13, G+25, G+27, EXIT+2
EN^XBVK	EXIT+2
$$NOW^XLFDT	BDW1BLR+9, G+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"previous DW export not written to host file" Line Location: BDW1BLR+6
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: !! Line Location: CONT+1
Function Call: WRITE	Prompt: !!?10,"Creation of audit file unsuccessful.",!! Line Location: CONT+10
Function Call: WRITE	Prompt: !!?10,"NOW PROCESSING ALL REGISTRATION RECORDS...",! Line Location: G+1
Function Call: WRITE	Prompt: !!,"Creating log entry failed....notify programmer." Line Location: G+5
Function Call: WRITE	Prompt: !?10,"NUMBER OF PATIENT ENTRIES PROCESSED = ",$J(BDWA("TOT"),5) Line Location: G+17
Function Call: WRITE	Prompt: !?10,"NUMBER OF REGISTRATION RECORDS (HL7 MESSAGES) TO SEND = ",$J(BDWAIN03,6) Line Location: G+18
Function Call: WRITE	Prompt: !!?17,"DW EXPORT HAS BEEN COMPLETED." Line Location: G+28
Function Call: WRITE	Prompt: !!,"Checking GIS Background Jobs..." Line Location: GIS+2
Function Call: WRITE	Prompt: !,"resetting DW AUDIT file" Line Location: LOOP+5
Function Call: WRITE	Prompt: "On IEN ",DFN," of ",BDWAP3," in ^AUPNPAT(..." Line Location: LOOP+7
Routine Call	%ZIS Line Location: BDW1BLR+10
Routine Call	DIE Line Location: G+12 G+24 G+26 LOOP+26
Routine Call	DIR Line Location: BDW1BLR+6 CONT+2 CONT+11 G+29

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPNDWAF - [#9000003.3]	Classic Fileman Calls
^BDWSITE - [#90212.1]	Classic Fileman Calls
^BDWRBLOG - [#90215]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	ORF+7
^AUPNDWAF - [#9000003.3]	LOOP+6
^AUPNMCD("B"	LOOP+25
^AUPNMCR - [#9000003]	LOOP+25
^AUPNPAT - [#9000001]	LOOP+4*, LOOP+7, LOOP+13, LOOP+14, LOOP+17, ORF+6
^AUPNPAT(0	LOOP+2
^AUPNPRVT - [#9000006]	LOOP+25
^AUTTSITE(1	BDW1BLR+9
^BDWTMP(	BDW1BLR+6, G+11, G+22, LOOP+20*
^DIC(4 - [#4]	HDR+5
^DPT - [#2]	LOOP+8, LOOP+9, LOOP+17, LOOP+24
^INRHD("B"	BDW1BLR+5, GIS+1

Name	Line Occurrences
$$ORF	LOOP+11
EXIT	BDW1BLR+8, CONT+3, CONT+4, CONT+12, CONT+13, G+5
GIS	G
HDR	HDR+3
LOOP	G+16

Name	Field # of Occurrence
^(0	LOOP+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGEXPF	CONT+8*, CONT+9
AGPEXF	BDW1BLR+7~
>> BDWA("TOT"	BDW1BLR+9, G+17, G+24, LOOP+10
BDWADONE	LOOP+1~, LOOP+12, LOOP+13, LOOP+21
BDWADPT0	LOOP+1~, LOOP+17*
>> BDWAFDAT	LOOP+2*
>> BDWAIN01	BDW1BLR+9*
>> BDWAIN03	BDW1BLR+9, G+18, G+24, LOOP+22
>> BDWAIN06	BDW1BLR+9*
>> BDWALDAT	LOOP+2*
BDWAN11	LOOP+1~, LOOP+17*
BDWAP3	LOOP+1~, LOOP+2*, LOOP+7
BDWAPAT0	LOOP+1~, LOOP+17*
>> BDWAROUT	BDW1BLR+9*
BDWASITE	LOOP+1~, LOOP+12, LOOP+13, LOOP+14
>> BDWATXST	BDW1BLR+9*, HDR+5, G+4
>> BDWDA	LOOP+6*
BDWGISI	GIS+3~, GIS+4*, GIS+6
BDWGISS	GIS+5~, GIS+6*
>> BDWIEDST	G+11, G+22, GIS+1*, LOOP+20
>> BDWIEN	G+7*, G+10, G+12, G+21, G+24
>> BDWUSER	CONT+6*
D	ORF+2~, ORF+5, ORF+6, ORF+7
D0	G+3!, G+6!
DA	BDW1BLR+6!, CONT+2!, CONT+11!, G+3!, G+6!, G+12!, G+24!, G+26, G+29!, LOOP+6 , LOOP+23*, LOOP+26!
DD	G+3!, G+6!
DFN	LOOP+1~, LOOP+2, LOOP+7, LOOP+8, LOOP+9, LOOP+11, LOOP+13, LOOP+14, LOOP+17, LOOP+19 , LOOP+23, LOOP+24, LOOP+25
DIADD	G+3!, G+4*, G+6!, EXIT+1!
DIC	G+4*, G+6!
DIC("DR"	G+4*
DIC(0	G+4*
DIE	G+12!, G+24!, G+26, LOOP+23, LOOP+26!
>> DIK	LOOP+6*
DIR	BDW1BLR+6!, CONT+2!, CONT+11!, G+29!
DIR("A"	BDW1BLR+6, CONT+2, CONT+11, G+29
DIR("B"	CONT+2, CONT+11
DIR(0	BDW1BLR+6, CONT+2, CONT+11, G+29
>> DIRUT	CONT+3, CONT+12
DIU	LOOP+26!
DIV	LOOP+26!
DIW	LOOP+26!
DIX	LOOP+26!
DLAYGO	G+3!, G+4*, G+6!, EXIT+1!
DO	G+3!, G+6!
DR	G+12!, G+24!, G+26, LOOP+23, LOOP+24, LOOP+25, LOOP+26!
DT	G+26, LOOP+23, LOOP+24, LOOP+25
DUZ	CONT+6, G+4
DX	LOOP+1~, LOOP+3*
DY	LOOP+1~, LOOP+3*
FLAG	ORF+2~, ORF+3, ORF+8, ORF+10
>> I	HDR+2, HDR+4
IOF	HDR+1
IOM	HDR+2, HDR+3, HDR+4
>> IOXY	LOOP+7
P	ORF~, ORF+1, ORF+6
T	LOOP+1~, LOOP+16!
U	BDW1BLR+9, HDR+3, HDR+5, LOOP+2, LOOP+4, LOOP+9, LOOP+14
>> X	BDW1BLR+5, BDW1BLR+6, G+4, G+9, G+10, G+11, G+12, G+20, G+21, G+22 , G+24, LOOP+4, LOOP+18, LOOP+19*, LOOP+20
>> Y	CONT+4, CONT+13, G+5, G+7, LOOP+4*
>> ZTQUEUED	LOOP+7

Customize PDF page

Package: Data Warehouse Export System

Routine: BDW1BLR

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items