BDWBHL ; IHS/CMI/LAB - BDW Populate Various DW1 HL7 Segments ; [ 04/05/2007 2:56 PM ]
Source file <BDWBHL.m>
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 |
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
|
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 |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^INTHU - [#4001] | Classic Fileman Calls |
^BDWXLOG - [#90213] | GET1^DIQ |
^BDWRBLOG - [#90215] | GET1^DIQ |
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 |
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 |
>> | 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* |