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 |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BHLX277

Package: IHS Support HL7 Interfaces

Routine: BHLX277


Information

BHLX277 ; cmi/flag/maw - BHL Parse X12 277 into readable format ; [ 10/10/2002 9:30 AM ]

Source Information

Source file <BHLX277.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
IHS VA Utilities 1 EN^XBVK  
VA Fileman 1 FILE^DICN  

Entry Points

Name Comments DBIA/ICR reference
STC(DAT,SDA,LDA,CDA)
NM1(DAT,SDA,LDA,CDA) ;-- n1
FH(USDA,ULDA,UPD) ;-- file into holding
EOJ ;-- kill vars
UPD ;-- update the holding file
L2(USDA,ULDA)
PER(DAT,SDA,LDA,CDA)
BHT(DAT,SDA,LDA,CDA) ;-- trn
TRN(DAT,SDA,LDA,CDA) ;-- trn
PRS ;-- parse the message
MAIN ;EP - this is the main routine driver
FL ;-- loop through bhlx277 and get data
L1(USDA) ;-- setup lev 1 vars for filing

External References

Name Field # of Occurrence
FILE^DICN FH+33
EN^XBVK EOJ+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BARECLST - [#90056.08] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARECLST("B" FH+3
^BHLX277($J MAIN+1!, PRS+12*, FL+2, FL+4, FL+5, FL+6, FL+8, EOJ+1!
^BHLX277V($J BHT+1*, TRN+1*, NM1+2*, PER+1*, PER+2*, PER+3*, PER+4*, PER+5*, PER+6*, PER+7*
, STC+1*, STC+2*, STC+3*, STC+4*, STC+5*, STC+6*, STC+7*, STC+8*, STC+9*, STC+11*
, STC+12*, STC+13*, STC+15*, STC+16*, STC+17*, UPD+1, UPD+3, L1+1, L1+2, L1+3
, L1+4, L1+11, L1+12, L1+15, L1+16, L2+2, L2+3, L2+4, L2+5, L2+6
, L2+7, L2+8, L2+9, L2+10, L2+11, L2+12, L2+13, L2+14, L2+15, L2+16
, L2+17, EOJ+2!
^INTHU - [#4001] PRS+4, PRS+5

Label References

Name Line Occurrences
BHT FL+12
EOJ MAIN+7
FH UPD+5
FL MAIN+5
L1 UPD+2
L2 UPD+4
NM1 FL+10
PER FL+11
PRS MAIN+4
STC FL+13
TRN FL+9
UPD MAIN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BHLXCDA FL+5*, FL+6, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13
>> BHLXDA PRS+4*, PRS+5
>> BHLXDAT FL+8*, FL+9, FL+10, FL+11, FL+12, FL+13
>> BHLXHIEN FH+34*
>> BHLXIEN FH+3*, FH+4, FH+8
>> BHLXLDA FL+4*, FL+5, FL+6, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13
>> BHLXSDA FL+2*, FL+4, FL+5, FL+6, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13
>> BHLXSEG FL+6*, FL+7, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13
>> BHLXUIF PRS+2*, PRS+3, PRS+4, PRS+5
>> BHLXULDA UPD+3*, UPD+4, UPD+5
>> BHLXUPD UPD+5
>> BHLXUPD("CHK #" , L2+17*, DT" , L2+15*
>> BHLXUPD("CLST1" L2+3*
>> BHLXUPD("CLST2" L2+6*
>> BHLXUPD("CLST3" L2+9*
>> BHLXUPD("CLSTC1" L2+2*
>> BHLXUPD("CLSTC2" L2+5*
>> BHLXUPD("CLSTC3" L2+8*
>> BHLXUPD("DT P D" , L2+13*
>> BHLXUPD("EID1" L2+4*
>> BHLXUPD("EID2" L2+7*
>> BHLXUPD("EID3" L2+10*
>> BHLXUPD("PAY METH" , L2+14*
>> BHLXUPD("PAYO R 302" , L1+6*, R 303" , L1+8*, R 304" , L1+10*, R 305" , L1+14*, R 306" , L1+18*
, R 307" , L1+20*, R CI" , L1+4*, L1+6, L1+8, L1+10, R CN" , L1+2*, R CT"
, L1+3*, L1+5, L1+7, L1+9, R CTE" , L1+11*, L1+13, R CTE2" , L1+15*, L1+17
, L1+19, R EXT" , L1+12*, L1+14, R EXT2" , L1+16*, L1+18, L1+20, R ID" , L1+1*
>> BHLXUPD("PD A MT" , L2+12*
>> BHLXUPD("RES EFDT" , L2+11*
>> BHLXUPD("TRAC E #" , L2+16*
>> BHLXUSDA UPD+1*, UPD+2, UPD+3, UPD+4, UPD+5
CDA BHT~, TRN~, NM1~, PER~, STC~
CNT PRS+1*, PRS+8*, PRS+12, PRS+13!
>> CS MAIN+3*, STC+1, STC+2, STC+3, STC+11, STC+12, STC+13, STC+15, STC+16, STC+17
DA FH+8*, FH+35!
DAT BHT~, BHT+1, TRN~, TRN+1, NM1~, NM1+1, NM1+2, PER~, PER+1, PER+2
, PER+3, PER+4, PER+5, PER+6, PER+7, STC~, STC+1, STC+2, STC+3, STC+4
, STC+5, STC+6, STC+7, STC+8, STC+9, STC+10, STC+11, STC+12, STC+13, STC+14
, STC+15, STC+16, STC+17
DATA PRS+5*, PRS+6, PRS+11, PRS+13!
DD FH+7!
DIC FH+35!
>> DIE FH+8*
DO FH+7!
DR FH+9*, FH+10*, FH+11*, FH+12*, FH+13*, FH+14*, FH+15*, FH+16*, FH+17*, FH+18*
, FH+19*, FH+20*, FH+21*, FH+22*, FH+23*, FH+24*, FH+25*, FH+26*, FH+27*, FH+28*
, FH+29*, FH+30*, FH+31*, FH+35!
>> FS MAIN+2*, PRS+6, PRS+11, BHT+1, TRN+1, NM1+1, NM1+2, PER+1, PER+2, PER+3
, PER+4, PER+5, PER+6, PER+7, STC+1, STC+2, STC+3, STC+4, STC+5, STC+6
, STC+7, STC+8, STC+9, STC+10, STC+11, STC+12, STC+13, STC+14, STC+15, STC+16
, STC+17
LCNT PRS+1*, PRS+9*, PRS+12, PRS+13!
LDA BHT~, TRN~, TRN+1, NM1~, PER~, STC~, STC+1, STC+2, STC+3, STC+4
, STC+5, STC+6, STC+7, STC+8, STC+9, STC+11, STC+12, STC+13, STC+15, STC+16
, STC+17
SCNT PRS+1*, PRS+8*, PRS+10*, PRS+12, PRS+13!
SDA BHT~, BHT+1, TRN~, TRN+1, NM1~, NM1+2, PER~, PER+1, PER+2, PER+3
, PER+4, PER+5, PER+6, PER+7, STC~, STC+1, STC+2, STC+3, STC+4, STC+5
, STC+6, STC+7, STC+8, STC+9, STC+11, STC+12, STC+13, STC+15, STC+16, STC+17
SEG PRS+6*, PRS+7, PRS+8, PRS+9, PRS+12, PRS+13!
SEGDATA PRS+11*, PRS+12, PRS+13!
>> UIF PRS+2
ULDA L2~, L2+1, L2+2, L2+3, L2+4, L2+5, L2+6, L2+7, L2+8, L2+9
, L2+10, L2+11, L2+12, L2+13, L2+14, L2+15, L2+16, L2+17, FH~, FH+6
UPD UPD+6!, FH~, FH+32~
UPD("CHK #" FH+15
UPD("CHK DT" FH+14
UPD("CLST1" FH+17
UPD("CLST2" FH+20
UPD("CLST3" FH+23
UPD("CLSTC1" FH+16
UPD("CLSTC2" FH+19
UPD("CLSTC3" FH+22
UPD("DT PD" FH+12
UPD("EID1" FH+18
UPD("EID2" FH+21
UPD("EID3" FH+24
UPD("PAY METH " , FH+13
UPD("PAYOR 30 2" , FH+26, 3" , FH+27, 4" , FH+28, 5" , FH+29, 6" , FH+30
, 7" , FH+31
UPD("PAYOR CN " , FH+25
UPD("PAYOR ID " , FH+9
UPD("PD AMT" FH+11
UPD("RES EFDT " , FH+10
UPD("RESP DT" , FH+9
UPD("TRACE #" , FH+2, FH+3
USDA L1~, L1+1, L1+2, L1+3, L1+4, L1+11, L1+12, L1+15, L1+16, L2~
, L2+2, L2+3, L2+4, L2+5, L2+6, L2+7, L2+8, L2+9, L2+10, L2+11
, L2+12, L2+13, L2+14, L2+15, L2+16, L2+17, FH~, FH+5
>> XCNT FL+1*, FL+3*
>> Y FH+34
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All