Routine: BDWBHL

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Data Warehouse Export System	4	(AUTOSEND,BULL,CPT,HF,IFC,LAB,MSR,PED,RESETFLG,SKT,XAM,ZIM)^BDWBHL1 RST4AF^BDWRDR (DENT,POVS)^BDWUTIL (MED,PROC,PROV)^BDWUTIL1
Kernel	4	^%ZISC $$OPEN^%ZISH ^%ZTLOAD ($$FMADD,$$NOW)^XLFDT
VA Fileman	3	NOW^%DTC ^DIE $$GET1^DIQ
IHS Generic Interface System	1	$$DATE^INHUT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1

Package	Total	Caller Graph
IHS Generic Interface System	5	IS00006 IS00007 IS00008 IS00009 IS00023
Data Warehouse Export System	1	BDWRDR

Package

Total

Caller Graph

IHS Generic Interface System

IS00006 IS00007 IS00008 IS00009 IS00023

Data Warehouse Export System

BDWRDR

Entry Points

Name	Comments	DBIA/ICR reference
SKT	;EP - populate the dw1 OBX skin test segment
LPINTHU(BHLUIEN)
HDR	;-- generate the header record
GETDIR	;get export directory
HFS	;-- task the file to the host system
BULL	;now send mailman message to user who queued the job
MSR	;EP - populate the dw1 OBX measurement segment
CHKPFLG(DATA)	;check to see if we do a ZPR segment
ZDN	;EP - populate the dw1 ZDN and ZDP segments
HFS1	;EP - called from taskman
IFC	;EP - populate the dw1 OBX infant feeding choice segment
PED	;EP - populate the dw1 OBX patient education segment
CPT	;-- populate the dw1 CPT exam segment
ZVP	;EP - populate the dw1 ZVP segment
HF	;EP - populate the dw1 OBX health factors segment
ZRL	;EP - generate ZRL segment
FLG(BDWSEG,BDWIEN)	;EP -- return status flag based on segment
SETZTS6(PFL,PIEN,QCNT)	;-- set ZTS-6 with actual counts
TRL	;-- generate the trailer record
ZMD	;EP - populate the dw1 ZMD segment
DG1	;EP - populate the dw1 DG1 and ZDX segments
PR1	;EP - populate the dw1 PR1 and ZPR segments
XAM	;EP - populate the dw1 OBX exam segment
ZIM	;EP - populate the dw1 ZIM segment
FTP	;
QCNT(DEST)	;-- let's loop through and get a quick count of records
LAB	;-- populate the dw1 OBX lab segment
BQ(BHLP)	;-- return blood quantum
HFSA(DEST,BHLHDIR,BHLHFNM)	;EP - export from this destination
ZRC	;EP - generate ZRC segment
MAIN	;EP - this is the main routine driver
DELAY(IDA,IA)	;-- determine the delay based on records

External References

Name	Field # of Occurrence
NOW^%DTC	HFS1+16
^%ZISC	HFSA+7
$$OPEN^%ZISH	HFSA+1
^%ZTLOAD	HFS+10
AUTOSEND^BDWBHL1	HFSA+20
BULL^BDWBHL1	BULL+1
CPT^BDWBHL1	CPT+1
HF^BDWBHL1	HF+1
IFC^BDWBHL1	IFC+1
LAB^BDWBHL1	LAB+1
MSR^BDWBHL1	MSR+1
PED^BDWBHL1	PED+1
RESETFLG^BDWBHL1	HFS1+10
SKT^BDWBHL1	SKT+1
XAM^BDWBHL1	XAM+1
ZIM^BDWBHL1	ZIM+1
RST4AF^BDWRDR	HFS1+9
DENT^BDWUTIL	ZDN+3
POVS^BDWUTIL	DG1+3
MED^BDWUTIL1	ZMD+3
PROC^BDWUTIL1	PR1+4
PROV^BDWUTIL1	ZVP+3
^DIE	HFSA+17
$$GET1^DIQ	HDR+5, HDR+8, HDR+11, HDR+14, HDR+17, HDR+18, HDR+22, HDR+25, HDR+26, TRL+3 , TRL+4, TRL+5, TRL+6, TRL+7, TRL+8, TRL+13, TRL+14, TRL+15, TRL+16, TRL+17 , TRL+18, TRL+28, TRL+29, DELAY+3
$$DATE^INHUT	PR1+11, HDR+8, HDR+11, HDR+14, HDR+17, HDR+18, HDR+22, HDR+25, HDR+26
$$VAL^XBDIQ1	HFS+5, HFS+6
$$VALI^XBDIQ1	HFS+2
$$FMADD^XLFDT	HFS+9
$$NOW^XLFDT	HFS+9

Name	Line Occurrences
Function Call: WRITE	Prompt: $P($G(^INTHU(BHLUIEN,3,BHLUDA,0)),"\|CR\|"),! Line Location: LPINTHU+2
Routine Call	DIE Line Location: HFSA+17

FileNo	Call Tags
^INTHU - [#4001]	Classic Fileman Calls
^BDWXLOG - [#90213]	GET1^DIQ
^BDWRBLOG - [#90215]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	ZRC+8
^AUPNDWAF - [#9000003.3]	FLG+10, FLG+11, FLG+14, FLG+15, FLG+18, FLG+19, FLG+22, FLG+23, FLG+26, FLG+27
^AUPNPAT - [#9000001]	ZRC+4, ZRC+6, BQ+5, FLG+3, FLG+7, FLG+9, FLG+13, FLG+17, FLG+21, FLG+25
^AUTTLOC - [#9999999.06]	ZRC+10, HDR+10, HDR+16, HDR+24, HFS1+15
^AUTTSITE(1	HDR+10, HDR+16, HDR+24, TRL+9, TRL+19, TRL+30, GETDIR+1, HFSA+9, HFS1+15
^BDWBLOG(	SETZTS6+7
^BDWRBLOG - [#90215]	SETZTS6+11
^BDWTMP(	HFSA+3, HFSA+14, HFSA+19!, QCNT+3
^BDWXLOG - [#90213]	TRL+22, TRL+25, HFS1+9, HFS1+10, SETZTS6+3
^DIC(4 - [#4]	TRL+9, TRL+19, TRL+30
^DPT - [#2]	ZRL+3, ZRL+4
^INLHDEST(	HDR+2!, HFS1+4!
^INRHD("B"	HDR+2, HFS1+2
^INTHU - [#4001]	LPINTHU+1, LPINTHU+2, SETZTS6+16, SETZTS6+17, SETZTS6+18*
^INTHU("AT"	HFSA+4, HFSA+15, QCNT+4, SETZTS6+5, SETZTS6+9, SETZTS6+13
^XTV(8989.3 - [#8989.3]	GETDIR+1

Label References

Name	Line Occurrences
$$CHKPFLG	PR1+20
$$DELAY	HFS+9
$$QCNT	HFS1+6
CPT	MAIN+2
DG1	MAIN+2
GETDIR	HFS1+12
HF	MAIN+2
HFS	TRL+11, TRL+26, TRL+32
HFSA	HFS1+20
IFC	MAIN+2
LAB	MAIN+2
LPINTHU	HFSA+6
MSR	MAIN+2
PED	MAIN+2
PR1	MAIN+2
SETZTS6	HFS1+7
SKT	MAIN+2
XAM	MAIN+2
ZDN	MAIN+2
ZIM	MAIN+2
ZMD	MAIN+2
ZVP	MAIN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	HFS1+18
BDWAFNM	ZRL+7*, ZRL+9, ZRL+12!
BDWALNM	ZRL+6*, ZRL+9, ZRL+12!
BDWAMI	ZRL+8*, ZRL+9, ZRL+12!
BDWASTR	ZRL+9*, ZRL+11, ZRL+12!
BDWASU	HFS1+14~, HFS1+15*, HFS1+19
BDWC	TRL+21~, TRL+23, TRL+24, TRL+25
>> BDWCD	FLG+6, FLG+8, FLG+10, FLG+11, FLG+12, FLG+14, FLG+15, FLG+16, FLG+18, FLG+19* , FLG+20, FLG+22, FLG+23, FLG+24, FLG+26, FLG+27, FLG+28
BDWCNT	ZVP+2, ZVP+5, ZVP+8, ZVP+9, ZVP+10, ZVP+11, ZVP+12, ZVP+13, ZVP+14, ZVP+15 , ZVP+16, ZVP+17!, DG1+2, DG1+6, DG1+7, DG1+8, DG1+10, DG1+11, DG1+12, DG1+13 , DG1+14, DG1+16!, PR1+3, PR1+7, PR1+8, PR1+9, PR1+10, PR1+11, PR1+12, PR1+13 , PR1+14, PR1+15, PR1+16, PR1+17, PR1+18, PR1+19, PR1+21, PR1+22, PR1+23!, ZDN+2 , ZDN+6, ZDN+7, ZDN+8, ZDN+9, ZDN+10, ZDN+11, ZDN+12, ZDN+13, ZDN+14, ZDN+15 , ZDN+16, ZDN+17, ZDN+18, ZDN+19!, ZMD+2, ZMD+6, ZMD+7, ZMD+8, ZMD+9, ZMD+10 , ZMD+11, ZMD+12, ZMD+13!, ZRC+3, ZRC+5, ZRC+9, ZRC+10, ZRC+11, ZRC+12, ZRC+13! , ZRL+2, ZRL+5, ZRL+10, ZRL+11, ZRL+12!, QCNT+1~, QCNT+2, QCNT+6*, QCNT+7
BDWDA	ZVP+6, ZVP+7, ZVP+17!, DG1+4, DG1+5, DG1+16!, PR1+5, PR1+6, PR1+23!, ZDN+4 , ZDN+5, ZDN+19!, ZMD+4, ZMD+5, ZMD+13!, ZRC+4, ZRC+6, ZRC+7, ZRC+13!, ZRL+3* , ZRL+4, ZRL+12!, TRL+21~, TRL+22, TRL+25, QCNT+1~, QCNT+3, QCNT+4
BDWDATA	ZVP+7, ZVP+11, ZVP+12, ZVP+13, ZVP+14, ZVP+15, ZVP+16, ZVP+17!, DG1+5, DG1+10 , DG1+11, DG1+12, DG1+13, DG1+14, DG1+16!, PR1+6, PR1+10, PR1+11, PR1+12, PR1+13 , PR1+14, PR1+15, PR1+16, PR1+17, PR1+18, PR1+19, PR1+20, PR1+23!, ZDN+5, ZDN+10 , ZDN+11, ZDN+12, ZDN+13, ZDN+14, ZDN+15, ZDN+17, ZDN+18, ZDN+19!, ZMD+5, ZMD+9 , ZMD+10, ZMD+11, ZMD+12, ZMD+13!, ZRC+6, ZRC+7, ZRC+8, ZRC+10, ZRC+11, ZRC+12 , ZRL+4, ZRL+6, ZRL+7, ZRL+8
BDWDESC	HFS+1~, HFS+5, HFS+6, HFS+7*
BDWDEST	HDR+2~, HFS1+1~, HFS1+2, HFS1+3, HFS1+4, HFS1+6, HFS1+10, HFS1+20
BDWDTS	HFS1+17~, HFS1+18*, HFS1+19
BDWFLG	FLG+5~, FLG+6, FLG+7, FLG+9, FLG+10, FLG+11, FLG+13, FLG+14, FLG+15, FLG+17* , FLG+18, FLG+19, FLG+21, FLG+22, FLG+23, FLG+25, FLG+26, FLG+27
BDWHDIR	GETDIR+1, GETDIR+2, HFSA+11, HFS1+1~, HFS1+13, HFS1+20
BDWHFNM	HFS1+1~, HFS1+19*, HFS1+20
BDWIEN	FLG~, FLG+3, FLG+7, FLG+9, FLG+10, FLG+11, FLG+13, FLG+14, FLG+15, FLG+17 , FLG+18, FLG+19, FLG+21, FLG+22, FLG+23, FLG+25, FLG+26, FLG+27
>> BDWNOSLA	HFSA+11*, HFSA+12
>> BDWPAFN	HFSA+12*
BDWPFL	HFS+1~, HFS+3*, HFS1+7, HFS1+9, HFS1+10
BDWPIEN	HFS+1~, HFS+4*, HFS1+7, HFS1+9, HFS1+10
BDWQCNT	HFS1+5~, HFS1+6*, HFS1+7
BDWRCNT	DELAY+2~, DELAY+3*, DELAY+4, DELAY+5, DELAY+6
BDWSEG	FLG~, FLG+8, FLG+12, FLG+16, FLG+20, FLG+24
>> BDWSLASH	HFSA+9, HFSA+10, HFSA+12
BDWUSER	HFS+1~, HFS+2*
BHLHDIR	HFSA~, HFSA+1, HFSA+12
BHLHFNM	HFSA~, HFSA+1, HFSA+12
BHLP	BQ~, BQ+5
BHLPVAL	BQ+1!, BQ+4, BQ+5, BQ+6, BQ+7
>> BHLU	HFSA+4, HFSA+5, HFSA+6, HFSA+15, HFSA+16, HFSA+17
>> BHLUDA	LPINTHU+1*, LPINTHU+2
BHLUIEN	LPINTHU~, LPINTHU+1, LPINTHU+2
>> BHLVIEN	ZVP+3, DG1+3, PR1+4, ZDN+3, ZMD+3
BHLX	BQ+2~, BQ+3, BQ+6, BQ+7, BQ+9, HFSA+3, HFSA+4, HFSA+14, HFSA+15
BHLY	BQ+2~, BQ+3, BQ+7, BQ+8, BQ+9*, BQ+10
DA	HFSA+17*!
DATA	CHKPFLG~, CHKPFLG+4
DEN	ZDN+1!, ZDN+3, ZDN+19!
DEN(	ZDN+4, ZDN+5
DEST	HFSA~, HFSA+3, HFSA+14, HFSA+19, QCNT~, QCNT+3
>> DFN	ZRC+4, ZRC+6, ZRL+3, ZRL+4
DIE	HFSA+17*!
DR	HFSA+17*!
F	HFS+1~
FL	CHKPFLG+1~, CHKPFLG+2, CHKPFLG+4, CHKPFLG+5
G	FLG+2~, FLG+3*, FLG+4
I	CHKPFLG+1~, CHKPFLG+3*, CHKPFLG+4
IA	DELAY~, DELAY+1, DELAY+3
IDA	DELAY~, DELAY+3
>> INA("BACKLOAD"	FLG+1
>> INA("BDW1BHS11"	HDR+10, HDR+16, HDR+24*
>> INA("BDW1BHS7"	HDR+8, HDR+14, HDR+22*
>> INA("BDW1BHS9"	HDR+9, HDR+15, HDR+23*
>> INA("BDW1BTS1"	TRL+8, TRL+18, TRL+29*
>> INA("BDW1BTS2"	TRL+9, TRL+19, TRL+30*
>> INA("BDW1BTS3"	TRL+10, TRL+20, TRL+31*
>> INA("BDW1DG11"	DG1+8*
>> INA("BDW1DG13"	DG1+10*
>> INA("BDW1NTE3"	TRL+25*
>> INA("BDW1PR11"	PR1+9*
>> INA("BDW1PR111"	PR1+12*
>> INA("BDW1PR13"	PR1+10*
>> INA("BDW1PR15"	PR1+11*
>> INA("BDW1ZDN1"	ZDN+9*
>> INA("BDW1ZDN2"	ZDN+10*
>> INA("BDW1ZDN3"	ZDN+11*
>> INA("BDW1ZDN4"	ZDN+12*
>> INA("BDW1ZDN5"	ZDN+13*
>> INA("BDW1ZDN6"	ZDN+14*
>> INA("BDW1ZDN7"	ZDN+15*
>> INA("BDW1ZDP1"	ZDN+16*
>> INA("BDW1ZDP2"	ZDN+17*
>> INA("BDW1ZDP3"	ZDN+18*
>> INA("BDW1ZDX1"	DG1+11*
>> INA("BDW1ZDX4"	DG1+12*
>> INA("BDW1ZDX6"	DG1+13*
>> INA("BDW1ZDX7"	DG1+14*
>> INA("BDW1ZHS1"	HDR+11, HDR+17, HDR+25*
>> INA("BDW1ZHS2"	HDR+11, HDR+18, HDR+26*
>> INA("BDW1ZHS3"	HDR+12, HDR+19, HDR+20, HDR+27
>> INA("BDW1ZHS4"	HDR+4*
>> INA("BDW1ZHS5"	HDR+5*
>> INA("BDW1ZHS6"	HDR+6*
>> INA("BDW1ZMD1"	ZMD+8*
>> INA("BDW1ZMD2"	ZMD+9*
>> INA("BDW1ZMD3"	ZMD+10*
>> INA("BDW1ZMD4"	ZMD+11*
>> INA("BDW1ZMD5"	ZMD+12*
>> INA("BDW1ZPR10"	PR1+16*
>> INA("BDW1ZPR11"	PR1+17*
>> INA("BDW1ZPR12"	PR1+18*
>> INA("BDW1ZPR13"	PR1+19, PR1+21
>> INA("BDW1ZPR5"	PR1+13*
>> INA("BDW1ZPR8"	PR1+14*
>> INA("BDW1ZPR9"	PR1+15*
>> INA("BDW1ZRC6"	ZRC+10*
>> INA("BDW1ZRC7"	ZRC+11*
>> INA("BDW1ZRC8"	ZRC+12*
>> INA("BDW1ZRL6"	ZRL+11*
>> INA("BDW1ZTS1"	TRL+3, TRL+13
>> INA("BDW1ZTS2"	TRL+4, TRL+5, TRL+14, TRL+15
>> INA("BDW1ZTS3"	TRL+5, TRL+15
>> INA("BDW1ZTS4"	TRL+6, TRL+16
>> INA("BDW1ZTS5"	TRL+7, TRL+17, TRL+28*
>> INA("BDW1ZVP1"	ZVP+5, ZVP+10
>> INA("BDW1ZVP2"	ZVP+11*
>> INA("BDW1ZVP3"	ZVP+12*
>> INA("BDW1ZVP4"	ZVP+13*
>> INA("BDW1ZVP5"	ZVP+14*
>> INA("BDW1ZVP6"	ZVP+15*
>> INA("BDW1ZVP7"	ZVP+16*
>> INA("FILE"	HDR+5, HDR+7, HDR+13, HDR+21, TRL+2, TRL+12, TRL+27, HFS+2, HFS+3, HFS+5 , HFS+6, HFS+7, HFS+9
>> INDA	HDR+5, HDR+8, HDR+9, HDR+10, HDR+11, HDR+12, HDR+14, HDR+15, HDR+16, HDR+17 , HDR+18, HDR+19, HDR+20, HDR+22, HDR+23, HDR+24, HDR+25, HDR+26, HDR+27, TRL+3 , TRL+4, TRL+5, TRL+6, TRL+7, TRL+8, TRL+13, TRL+14, TRL+15, TRL+16, TRL+17 , TRL+18, TRL+22, TRL+25, TRL+28, TRL+29, HFS+2, HFS+4, HFS+5, HFS+6, HFS+9
>> INDA("DG1"	DG1+7*
>> INDA("NTE"	TRL+24*
>> INDA("PR1"	PR1+8*
>> INDA("ZDN"	ZDN+7*
>> INDA("ZDP"	ZDN+8*
>> INDA("ZDX"	DG1+15*
>> INDA("ZMD"	ZMD+7*
>> INDA("ZPR"	PR1+22*
>> INDA("ZRC"	ZRC+2!, ZRC+9*
>> INDA("ZRL"	ZRL+1!, ZRL+10*
>> INDA("ZVP"	ZVP+5, ZVP+9
>> INQUE	MAIN+1, ZRC+1, HDR+1, TRL+1
IO	LPINTHU+2
LDA	SETZTS6+15~, SETZTS6+16*, SETZTS6+17, SETZTS6+18
MED	ZMD+1!, ZMD+3, ZMD+13!
MED(	ZMD+4, ZMD+5
PFL	SETZTS6~, SETZTS6+2, SETZTS6+6, SETZTS6+10
PFLG	PR1+2~, PR1+20*, PR1+22
PIEN	SETZTS6~, SETZTS6+3, SETZTS6+7, SETZTS6+11
POV	DG1+1!, DG1+3, DG1+16!
POV(	DG1+4, DG1+5
PRC	PR1+1!, PR1+4, PR1+23!
PRC(	PR1+5, PR1+6
PRV	ZVP+1!, ZVP+3, ZVP+17!
PRV(	ZVP+6, ZVP+7
PRV(1	ZVP+4
QCNT	SETZTS6~, SETZTS6+18
TRL	SETZTS6+1~, SETZTS6+3, SETZTS6+4, SETZTS6+5, SETZTS6+7, SETZTS6+8, SETZTS6+9, SETZTS6+11, SETZTS6+12, SETZTS6+13 , SETZTS6+14, SETZTS6+16, SETZTS6+17, SETZTS6+18
U	ZVP+11, ZVP+12, ZVP+13, ZVP+14, ZVP+15, ZVP+16, DG1+10, DG1+11, DG1+12, DG1+13 , DG1+14, PR1+10, PR1+11, PR1+12, PR1+13, PR1+14, PR1+15, PR1+16, PR1+17, PR1+18 , PR1+19, CHKPFLG+4, ZDN+10, ZDN+11, ZDN+12, ZDN+13, ZDN+14, ZDN+15, ZDN+17, ZDN+18 , ZMD+9, ZMD+10, ZMD+11, ZMD+12, ZRC+7, ZRC+8, ZRC+10, ZRC+11, ZRC+12, ZRL+4 , ZRL+9, HDR+10, HDR+16, HDR+24, TRL+9, TRL+19, TRL+30, BQ+5, FLG+3, FLG+9 , FLG+10, FLG+11, FLG+13, FLG+14, FLG+15, FLG+17, FLG+18, FLG+19, FLG+21, FLG+22 , FLG+23, FLG+25, FLG+26, FLG+27, GETDIR+1, HFSA+9, HFS1+9, HFS1+10, HFS1+15, SETZTS6+3 , SETZTS6+7, SETZTS6+11
X	FLG+2~, FLG+3*
>> Y	HFSA+1*, HFSA+2
>> ZTDESC	HFS+9*
>> ZTDTH	HFS+9*
>> ZTIO	HFS+9*
>> ZTREQ	HFS1+21*
>> ZTRTN	HFS+8*
>> ZTSAVE("BDW*"	HFS+9*

Customize PDF page

Package: Data Warehouse Export System

Routine: BDWBHL

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: