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

Package: Data Warehouse Export System

Routine: BDWBHL


Information

BDWBHL ; IHS/CMI/LAB - BDW Populate Various DW1 HL7 Segments ; [ 04/05/2007 2:56 PM ]

Source Information

Source file <BDWBHL.m>

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  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
IHS Generic Interface System 5 IS00006  IS00007  IS00008  IS00009  IS00023  
Data Warehouse Export System 1 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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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