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

Package: IHS Support HL7 Interfaces

Routine: BHLX835


Information

BHLX835 ; cmi/flag/maw - BHL Parse X12 835 into readable format ; [ 10/10/2002 9:28 AM ]

Source Information

Source file <BHLX835.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS VA Utilities 2 ^XBKVAR  EN^XBVK  
VA Fileman 2 FILE^DICN  $$GET1^DIQ  
IHS Generic Interface System 1 $$HDT^INHUT1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Generic Interface System 1 IS00003Z  

Entry Points

Name Comments DBIA/ICR reference
L3(USDA,ULDA,UCDA) ;-- setup level 3 vars for filing
TRN(DAT,SDA,LDA,CDA) ;-- trn
N1(DAT,SDA,LDA,CDA) ;-- n1
EOJ ;-- kill vars
UPD ;-- update the holding file
L2(USDA,ULDA)
FBL(BL,UPNM,UDOS) ;EP - find the bill number
LK(TRC) ;EP - lookup batch by trace.check #
CAS(DAT,SDA,LDA,CDA)
NM1(DAT,SDA,LDA,CDA)
ARADJ(ARC)
FH(USDA,ULDA,UPD) ;-- file into holding
PRS ;-- parse the message
DTM(DAT,SDA,LDA,CDA)
MAIN ;EP - this is the main routine driver
FL ;-- loop through bhlx835 and get data
CLP(DAT,SDA,LDA,CDA)
L1(USDA) ;-- setup lev 1 vars for filing

External References

Name Field # of Occurrence
FILE^DICN FH+24, FH+33
$$GET1^DIQ FBL+10
$$HDT^INHUT1 L2+4
^XBKVAR MAIN+3
EN^XBVK EOJ+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BARBL(2906 - [#90050.01] GET1^DIQ
^BAR835 - [#90056.07] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARADJ - [#90056.06] ARADJ+5
^BARADJ("B" ARADJ+3
^BARBL( FBL+3, FBL+4, FBL+8, FBL+16, FBL+17, FBL+18, FBL+19, FBL+20, FBL+24, FBL+25
, FBL+26, FBL+27
^BARCB( FBL+7
^BARCOL( LK+2, LK+3, LK+4, LK+6, LK+7
^BHLX835($J MAIN+1!, PRS+12*, FL+2, FL+4, FL+5, FL+6, FL+8, EOJ+1!
^BHLX835V($J TRN+1*, N1+2*, CLP+1*, CLP+2*, CLP+3*, CLP+4*, DTM+2*, CAS+1*, CAS+2*, CAS+5*
, CAS+6*, CAS+9*, CAS+10*, CAS+13*, CAS+14*, CAS+17*, CAS+18*, CAS+21*, CAS+22*, NM1+5*
, UPD+1, UPD+3, UPD+5, L1+1, L1+2, L2+2, L2+3, L2+4, L2+5, L2+6
, L2+7, L3+2, L3+3, EOJ+2!
^DD(90056.07 FH+28
^INTHU - [#4001] PRS+4, PRS+5

Label References

Name Line Occurrences
$$ARADJ FH+32
$$LK FH+5
CAS FL+13
CLP FL+11
DTM FL+12
EOJ MAIN+8
FBL FH+7
FH UPD+7
FL MAIN+6
L1 UPD+2
L2 UPD+4
L3 UPD+6
N1 FL+10
NM1 FL+14
PRS MAIN+5
TRN FL+9
UPD MAIN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADOS FBL+8*, FBL+9, FBL+21!, FBL+28!
>> APLK FBL+11*, FBL+13
APNM FBL+10*, FBL+11, FBL+21!, FBL+28!
ARC ARADJ~, ARADJ+1, ARADJ+2*, ARADJ+3
>> BHLNOST MAIN+2*
>> BHLXAIEN ARADJ+3*, ARADJ+4, ARADJ+5
BHLXBILL LK+1!, FBL+14*, FBL+15, FBL+16, FBL+17, FBL+18, FBL+19, FBL+20*, FBL+21, FBL+23
, FBL+24, FBL+25, FBL+26, FBL+27
BHLXBMT FH+10, FBL+1!, FBL+22*
>> BHLXCDA FL+5*, FL+6, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13, FL+14
>> BHLXCNT FBL+2*, FBL+5*, FBL+6, FBL+20
>> BHLXCOL LK+3*, LK+4, LK+6, LK+7
>> BHLXDA PRS+4*, PRS+5
>> BHLXDAT FL+8*, FL+9, FL+10, FL+11, FL+12, FL+13, FL+14
>> BHLXFNM NM1+3*, NM1+5
>> BHLXHIEN FH+25*, FH+27
>> BHLXITM LK+4*, LK+5, LK+7
>> BHLXLDA FL+4*, FL+5, FL+6, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13, FL+14
>> BHLXLNM NM1+2*, NM1+5
>> BHLXMI NM1+4*, NM1+5
>> BHLXMT FH+5*, FH+6
>> BHLXSDA FL+2*, FL+4, FL+5, FL+6, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13
, FL+14
>> BHLXSEG FL+6*, FL+7, FL+8, FL+9, FL+10, FL+11, FL+12, FL+13, FL+14
>> BHLXUCDA UPD+5*, UPD+6
>> BHLXUIF PRS+2*, PRS+3, PRS+4, PRS+5
>> BHLXULDA UPD+3*, UPD+4, UPD+5, UPD+6, UPD+7
>> BHLXUPD UPD+7
>> BHLXUPD("ADJ REASON CODE" , UPD+8!, L3+2*
>> BHLXUPD("ADJUSTMENT" UPD+8!, L3+3*
>> BHLXUPD("BILL #" , L2+2*
>> BHLXUPD("CHAR GED AMOUNT" , L2+3*
>> BHLXUPD("DOS" L2+4*
>> BHLXUPD("PATI ENT NAME" , L2+6*
>> BHLXUPD("PAYOR" L1+1*
>> BHLXUPD("PD A MT" , L2+7*
>> BHLXUPD("RECO RD #" , L2+5*
>> BHLXUPD("TRAC E #" , L1+2*
>> BHLXUSDA UPD+1*, UPD+2, UPD+3, UPD+4, UPD+5, UPD+6, UPD+7
BL FBL~, FBL+3, FBL+4, FBL+7, FBL+20
CDA TRN~, N1~, CLP~, DTM~, CAS~, NM1~
CNT PRS+1*, PRS+8*, PRS+12, PRS+13!
>> DA(1 FH+27*
DAT TRN~, TRN+1, N1~, N1+1, N1+2, CLP~, CLP+1, CLP+2, CLP+3, CLP+4
, DTM~, DTM+1, DTM+2, CAS~, CAS+1, CAS+2, CAS+4, CAS+5, CAS+6, CAS+8
, CAS+9, CAS+10, CAS+12, CAS+13, CAS+14, CAS+16, CAS+17, CAS+18, CAS+20, CAS+21
, CAS+22, NM1~, NM1+1, NM1+2, NM1+3, NM1+4
>> DATA PRS+5*, PRS+6, PRS+11
DD FH+8!, FH+26!
DIC FH+9*, FH+26!, FH+27*
DIC("DR" 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+31*, FH+32*
DIC("P" FH+28*
DIC(0 FH+9*, FH+27*
DO FH+8!, FH+26!
DUZ(2 LK+2, LK+3, LK+4, LK+6, LK+7, FBL+3, FBL+4, FBL+7, FBL+8, FBL+16
, FBL+17, FBL+18, FBL+19, FBL+20, FBL+24, FBL+25, FBL+26, FBL+27
>> FS MAIN+4*, PRS+6, PRS+11, TRN+1, N1+1, N1+2, CLP+1, CLP+2, CLP+3, CLP+4
, DTM+1, DTM+2, CAS+1, CAS+2, CAS+4, CAS+5, CAS+6, CAS+8, CAS+9, CAS+10
, CAS+12, CAS+13, CAS+14, CAS+16, CAS+17, CAS+18, CAS+20, CAS+21, CAS+22, NM1+1
, NM1+2, NM1+3, NM1+4
LCNT PRS+1*, PRS+9*, PRS+12, PRS+13!
LDA TRN~, N1~, CLP~, CLP+1, CLP+2, CLP+3, CLP+4, DTM~, DTM+2, CAS~
, CAS+1, CAS+2, CAS+5, CAS+6, CAS+9, CAS+10, CAS+13, CAS+14, CAS+17, CAS+18
, CAS+21, CAS+22, NM1~, NM1+5
SCNT PRS+1*, PRS+8*, PRS+10*, PRS+12, PRS+13!
SDA TRN~, TRN+1, N1~, N1+2, CLP~, CLP+1, CLP+2, CLP+3, CLP+4, DTM~
, DTM+2, CAS~, CAS+1, CAS+2, CAS+5, CAS+6, CAS+9, CAS+10, CAS+13, CAS+14
, CAS+17, CAS+18, CAS+21, CAS+22, NM1~, NM1+5
SEG PRS+6*, PRS+7, PRS+8, PRS+9, PRS+12, PRS+13!
SEGDATA PRS+11*, PRS+12, PRS+13!
TRC LK~, LK+2, LK+3, LK+4
U LK+6, LK+7, FBL+8, FBL+16, FBL+17, FBL+18, FBL+19, FBL+24, FBL+25, FBL+26
, FBL+27, ARADJ+5
UCDA L3~, L3+1, L3+2, L3+3
UDOS FBL~, FBL+9
>> UIF PRS+2
ULDA L2~, L2+1, L2+2, L2+3, L2+4, L2+5, L2+6, L2+7, L3~, L3+2
, L3+3, FH~, FH+4
UPD UPD+9!, FH~
UPD("ADJ REAS ON CODE" , FH+31, FH+32
UPD("ADJUSTMENT" FH+29, FH+30
UPD("BILL #" FH+7, FH+9
UPD("CHARGED AMOUNT" , FH+20
UPD("DOS" FH+7, FH+18
UPD("PATIENT NAME" , FH+7, FH+16
UPD("PAYOR" FH+11
UPD("PD AMT" FH+23
UPD("RECORD # " , FH+10
UPD("TRACE #" , FH+5, FH+12
>> UPLK FBL+12*, FBL+13
UPNM FBL~, FBL+12
USDA L1~, L1+1, L1+2, L2~, L2+2, L2+3, L2+4, L2+5, L2+6, L2+7
, L3~, L3+2, L3+3, FH~, FH+3
>> X FH+9*, FH+30*
XCNT FL+1*, FL+3*, FL+15!, CAS+1, CAS+2, CAS+3*, CAS+5, CAS+6, CAS+7*, CAS+9
, CAS+10, CAS+11*, CAS+13, CAS+14, CAS+15*, CAS+17, CAS+18, CAS+19*, CAS+21, CAS+22
, CAS+23*
>> XDA FBL+4*, FBL+7*, FBL+8, FBL+10, FBL+14
>> XHIEN FH+29*, FH+30, FH+31, FH+32
XIEN UPD+9!, FH+2!, LK+1!
XIEN("AR AMOU NT" , FH+21, FBL+18*, FBL+26*
XIEN("AR BAL" , FH+22, FBL+19*, FBL+27*
XIEN("AR DOS" , FH+19, FBL+16*, FBL+24*
XIEN("AR PAT" , FH+17, FBL+17*, FBL+25*
XIEN("BATCH" FH+13, LK+6*
XIEN("BILL IE N" , FH+15, FBL+15*, FBL+23*
XIEN("ITEM" FH+14, LK+7*
>> Y FH+25
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All