Routine: IBCNEHL5A

Package	Total	Call Graph
Integrated Billing	12	DELDATA^IBCNBED STATUS^IBCNBEE ($$EBFILE,$$GRPFILE,FIL)^IBCNEHL1 (UPDIREC,WARN)^IBCNEHL3 $$ISMCR^IBCNEHLU MSG003^IBCNEMS1 EBSUMMARY^IBCNEUT2 ($$MGRP,MSG)^IBCNEUT5 $$VALIDDT^IBCNINSU LOC^IBCNIUF (,AFTER,BEFORE)^IBCNSEVT COVERED^IBCNSM31
VA FileMan	3	FILE^DICN (FILE,UPDATE)^DIE $$GET1^DIQ
Kernel	1	($$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
Integrated Billing	1	IBCNEHL1A

Name	Comments	DBIA/ICR reference
LOAD(RIEN)	; Load Medicare policy as a new policy on patient record ; RIEN - IEN OF THE EIV REPONSE IN FILE #365 ; ; Only allowed to load Medicare (WNR) policies if the patient has no ; history of any MEDICARE (WNR) on file in #2.312 and if the patient has ; no other policies on file that meet a specific criteria and if the MEDICARE ; policy is active according to the Medicare payer's 271 eIV response ; ; Returns 1 if at least 1 policy was loaded; otherwise, returns a zero
XLOAD	;
SAVEMWR(RIEN)	;autoload of Medicare policy(s) ; The logic in this tag is from AUTOFIL^IBCNEHL5, with minor modifications for Medicare autoload
SAVEMWRX	;
MWRUNLOCK	;unlock ins subfile
GETGRP
ADDCOM(IBDFN,IBPOLDA,IBPOLCOM)	; ; Add new patient policy comment (2.312, 1.18) Multiple #2.342

Name	Field # of Occurrence
FILE^DICN	SAVEMWR+44
FILE^DIE	SAVEMWR+106, SAVEMWR+112, SAVEMWR+122, SAVEMWR+149
UPDATE^DIE	SAVEMWR+164, ADDCOM+14
$$GET1^DIQ	LOAD+23, LOAD+36, LOAD+37, LOAD+38, LOAD+75, LOAD+76, SAVEMWR+64, SAVEMWR+68, SAVEMWR+70, SAVEMWR+74 , SAVEMWR+88, SAVEMWR+89, SAVEMWR+90, SAVEMWR+91, SAVEMWR+93, SAVEMWR+94, SAVEMWR+134, SAVEMWR+141, SAVEMWR+154, SAVEMWR+155 , SAVEMWR+158, SAVEMWR+163
DELDATA^IBCNBED	SAVEMWR+150
STATUS^IBCNBEE	SAVEMWR+145
$$EBFILE^IBCNEHL1	SAVEMWR+129
$$GRPFILE^IBCNEHL1	SAVEMWR+125
FIL^IBCNEHL1	SAVEMWR+107
UPDIREC^IBCNEHL3	SAVEMWR+117
WARN^IBCNEHL3	SAVEMWR+107, SAVEMWR+113
$$ISMCR^IBCNEHLU	LOAD+27
MSG003^IBCNEMS1	SAVEMWR+166
EBSUMMARY^IBCNEUT2	LOAD+49
$$MGRP^IBCNEUT5	SAVEMWR+16, SAVEMWR+167
MSG^IBCNEUT5	SAVEMWR+167
$$VALIDDT^IBCNINSU	LOAD+42, LOAD+44
LOC^IBCNIUF	SAVEMWR+134
^IBCNSEVT	LOAD+82
AFTER^IBCNSEVT	LOAD+82
BEFORE^IBCNSEVT	SAVEMWR+45
COVERED^IBCNSM31	LOAD+77
$$FMTE^XLFDT	SAVEMWR+70
$$NOW^XLFDT	SAVEMWR+109, SAVEMWR+156, ADDCOM+10

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
2.312	GET1^DIQ
^IBA(355.33 - [#355.33]	GET1^DIQ
^IBCN(365 - [#365]	GET1^DIQ
^IBCN(365.1 - [#365.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	SAVEMWR+32
^DPT - [#2]	LOAD+31, LOAD+33, MWRUNLOCK+1
^IBA(355.3 - [#355.3]	GETGRP+3, GETGRP+4, GETGRP+5
^IBCN(365 - [#365]	LOAD+20, SAVEMWR+26, SAVEMWR+27, SAVEMWR+28, SAVEMWR+137
^IBE(350.9 - [#350.9]	LOAD+26
^VA(200 - [#200]	SAVEMWR+35, SAVEMWR+36

Name	Line Occurrences
$$SAVEMWR	LOAD+71
ADDCOM	SAVEMWR+71
GETGRP	SAVEMWR+34
MWRUNLOCK	XLOAD+1
SAVEMWRX	SAVEMWR+15, SAVEMWR+24, SAVEMWR+37, SAVEMWR+107, SAVEMWR+141
XLOAD	LOAD+28, LOAD+31, LOAD+46, LOAD+51, LOAD+52, LOAD+53, LOAD+55

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTIVE	LOAD+15~, LOAD+18!
ACTIVE(	LOAD+64*, LOAD+68, SAVEMWR+19, SAVEMWR+20, SAVEMWR+21
ADDFLG	SAVEMWR+11~, SAVEMWR+22, SAVEMWR+78, SAVEMWR+79, SAVEMWR+87
BUFF	SAVEMWR+137, SAVEMWR+141, SAVEMWR+144, SAVEMWR+145, SAVEMWR+147, SAVEMWR+150, SAVEMWR+153~, SAVEMWR+155, SAVEMWR+161, SAVEMWR+166
CIEN	ADDCOM+2~, ADDCOM+9*, ADDCOM+10, ADDCOM+11, ADDCOM+12
CONTINUE	LOAD+15~, LOAD+30, LOAD+31, LOAD+33, LOAD+36, LOAD+39, LOAD+40, LOAD+42, LOAD+44*, LOAD+46
DA	SAVEMWR+41!
DA(1	SAVEMWR+43*
DATA	SAVEMWR+11~, SAVEMWR+48!, SAVEMWR+106, SAVEMWR+108!, SAVEMWR+120!
DATA(	SAVEMWR+49, SAVEMWR+50, SAVEMWR+51, SAVEMWR+52, SAVEMWR+54, SAVEMWR+55, SAVEMWR+57, SAVEMWR+58, SAVEMWR+60, SAVEMWR+64 , SAVEMWR+69, SAVEMWR+74, SAVEMWR+80, SAVEMWR+81, SAVEMWR+82, SAVEMWR+83, SAVEMWR+85, SAVEMWR+86, SAVEMWR+88, SAVEMWR+89 , SAVEMWR+90, SAVEMWR+91, SAVEMWR+93, SAVEMWR+94, SAVEMWR+100, SAVEMWR+102, SAVEMWR+104, SAVEMWR+109, SAVEMWR+110, SAVEMWR+111
DATA(365	SAVEMWR+121*
DD	SAVEMWR+41!
DFN	LOAD+15~, LOAD+30, LOAD+31, LOAD+33, LOAD+34, LOAD+49, LOAD+75, LOAD+76, LOAD+77, SAVEMWR+11~ , SAVEMWR+19, SAVEMWR+24, SAVEMWR+43, SAVEMWR+46, SAVEMWR+64, SAVEMWR+68, SAVEMWR+70, SAVEMWR+71, SAVEMWR+74, SAVEMWR+88 , SAVEMWR+89, SAVEMWR+90, SAVEMWR+91, SAVEMWR+93, SAVEMWR+94, SAVEMWR+125, SAVEMWR+129, SAVEMWR+134, MWRUNLOCK+1
DIC	SAVEMWR+41!, SAVEMWR+43*
DIC("DR"	SAVEMWR+42*
DIC(0	SAVEMWR+43*
DO	SAVEMWR+41!
DOBCMT	SAVEMWR+11~, SAVEMWR+70*, SAVEMWR+71
DT	LOAD+39, LOAD+40, LOAD+42, LOAD+44
DUZ	ADDCOM+6~*, ADDCOM+11
EFFDT	SAVEMWR+11~, SAVEMWR+20*, SAVEMWR+24, SAVEMWR+55
ELIG	LOAD+15~, LOAD+62*, LOAD+63
ERFLG	SAVEMWR+11~, SAVEMWR+125, SAVEMWR+126, SAVEMWR+129, SAVEMWR+130
ERROR	SAVEMWR+11~, SAVEMWR+107!, SAVEMWR+113, SAVEMWR+153~, SAVEMWR+165, SAVEMWR+166
FDA	SAVEMWR+153~, ADDCOM+2~
FDA(	SAVEMWR+156, SAVEMWR+157, SAVEMWR+158, SAVEMWR+159, SAVEMWR+160, SAVEMWR+161, SAVEMWR+162, SAVEMWR+163, ADDCOM+10, ADDCOM+11 , ADDCOM+12*
FOUND	GETGRP+1~, GETGRP+2, GETGRP+3, GETGRP+5
GIEN	GETGRP+1~, GETGRP+3*, GETGRP+4, GETGRP+5
GRPNUM	LOAD+15~, LOAD+60, LOAD+61, LOAD+62, LOAD+64, LOAD+68, SAVEMWR+19, SAVEMWR+20, SAVEMWR+21, SAVEMWR+24 , GETGRP+5
IBARR	SAVEMWR+147!
IBARR(	SAVEMWR+148*
IBAUUSR	SAVEMWR+11~, SAVEMWR+31, SAVEMWR+35, SAVEMWR+37, SAVEMWR+110, SAVEMWR+111
IBCDFN	LOAD+69~, LOAD+76, LOAD+82, SAVEMWR+44*
IBCOVP	LOAD+69~, LOAD+75*, LOAD+77
IBCPOL	LOAD+69~, LOAD+76*
IBDFN	ADDCOM~, ADDCOM+9
IBEIVUSR	SAVEMWR+11~, SAVEMWR+31, SAVEMWR+36, SAVEMWR+37, SAVEMWR+42, SAVEMWR+148, ADDCOM+6
IBEVTACT	LOAD+69~
IBEVTP0	LOAD+69~
IBEVTP1	LOAD+69~
IBEVTP2	LOAD+69~
IBEVTP3	LOAD+69~
IBEVTP7	LOAD+69~
IBFLDS	SAVEMWR+11~
IBGRP	SAVEMWR+11~, SAVEMWR+31, SAVEMWR+37, SAVEMWR+42, GETGRP+5
IBIFN	SAVEMWR+11~, SAVEMWR+147*, SAVEMWR+148
IBINS	SAVEMWR+11~, SAVEMWR+31, SAVEMWR+32, SAVEMWR+34, SAVEMWR+37, SAVEMWR+42, SAVEMWR+43, GETGRP+3
IBMSG	SAVEMWR+11~, SAVEMWR+166
IBNEW	LOAD+15~, LOAD+69~, SAVEMWR+44*
IBPOLCOM	ADDCOM~, ADDCOM+12
IBPOLDA	ADDCOM~, ADDCOM+9
IEN312	SAVEMWR+11~, SAVEMWR+44*, SAVEMWR+46, SAVEMWR+71, SAVEMWR+117, SAVEMWR+125, SAVEMWR+129, SAVEMWR+134
IENS	LOAD+15~, LOAD+34, LOAD+36, LOAD+37, LOAD+38, SAVEMWR+11~, SAVEMWR+46, SAVEMWR+49, SAVEMWR+50, SAVEMWR+51 , SAVEMWR+52, SAVEMWR+54, SAVEMWR+55, SAVEMWR+57, SAVEMWR+58, SAVEMWR+60, SAVEMWR+64, SAVEMWR+69, SAVEMWR+74, SAVEMWR+80 , SAVEMWR+81, SAVEMWR+82, SAVEMWR+83, SAVEMWR+85, SAVEMWR+86, SAVEMWR+88, SAVEMWR+89, SAVEMWR+90, SAVEMWR+91, SAVEMWR+93 , SAVEMWR+94, SAVEMWR+100, SAVEMWR+102, SAVEMWR+104, SAVEMWR+109, SAVEMWR+110, SAVEMWR+111
INSRIEN	LOAD+15~, LOAD+33*, LOAD+34
LOAD	LOAD+18!, LOAD+19, LOAD+71, XLOAD+2
MGRP	SAVEMWR+12~, SAVEMWR+16*
MWNRA	LOAD+15~, LOAD+19*
MWNRB	LOAD+15~, LOAD+19*
MWNRIEN	LOAD+15~, LOAD+26*, LOAD+27
MWNRTYP	LOAD+15~, LOAD+19, LOAD+27, LOAD+28
PIEN	LOAD+16~, LOAD+21*, LOAD+27
POLCT	LOAD+16~, LOAD+19, LOAD+59, LOAD+60, LOAD+62, LOAD+64
POLEFF	LOAD+16~, LOAD+37*, LOAD+39, LOAD+40, LOAD+44
POLICY	LOAD+16~, LOAD+18!, LOAD+49
POLICY(	LOAD+59, LOAD+60, LOAD+62, LOAD+64
POLICY("MISSING_EFFDT"	LOAD+55
POLICY("OHI"	LOAD+53
POLICY(0	LOAD+51
POLICY(1	LOAD+52
POLTERM	LOAD+16~, LOAD+38*, LOAD+40, LOAD+42, LOAD+44
PRDOB	SAVEMWR+63~*, SAVEMWR+64, SAVEMWR+68, SAVEMWR+69, SAVEMWR+70
PTLOAD	SAVEMWR+12~, SAVEMWR+14, SAVEMWR+15, SAVEMWR+24, SAVEMWR+37, SAVEMWR+107, SAVEMWR+141, SAVEMWRX+1
RDATA0	LOAD+16~, LOAD+20, LOAD+21, LOAD+22, LOAD+30, SAVEMWR+18~, SAVEMWR+26, SAVEMWR+29
RDATA1	SAVEMWR+18~, SAVEMWR+26*, SAVEMWR+63, SAVEMWR+74
RDATA12	SAVEMWR+18~, SAVEMWR+28*, SAVEMWR+101, SAVEMWR+103
RDATA13	SAVEMWR+18~, SAVEMWR+28*, SAVEMWR+52, SAVEMWR+54, SAVEMWR+58
RDATA4	SAVEMWR+18~, SAVEMWR+27*
RDATA5	SAVEMWR+18~, SAVEMWR+27*, SAVEMWR+78, SAVEMWR+80, SAVEMWR+81, SAVEMWR+82, SAVEMWR+83, SAVEMWR+85, SAVEMWR+86, SAVEMWR+99
RIEN	LOAD~, LOAD+20, LOAD+27, LOAD+49, LOAD+71, SAVEMWR~, SAVEMWR+15, SAVEMWR+26, SAVEMWR+27, SAVEMWR+28 , SAVEMWR+117, SAVEMWR+121, SAVEMWR+125, SAVEMWR+129, SAVEMWR+134, SAVEMWR+137, SAVEMWR+155, SAVEMWR+160, SAVEMWR+163, SAVEMWR+166
SOI	LOAD+16~, LOAD+23, LOAD+25, LOAD+49, SAVEMWR+12~, SAVEMWR+21*, SAVEMWR+24, SAVEMWR+51
TQN	LOAD+16~, LOAD+22, LOAD+23, SAVEMWR+12~, SAVEMWR+29, SAVEMWR+134, SAVEMWR+154, SAVEMWR+158, SAVEMWR+159, SAVEMWR+166
U	LOAD+21, LOAD+22, LOAD+26, LOAD+30, LOAD+62, SAVEMWR+19, SAVEMWR+20, SAVEMWR+21, SAVEMWR+29, SAVEMWR+52 , SAVEMWR+54, SAVEMWR+58, SAVEMWR+63, SAVEMWR+74, SAVEMWR+78, SAVEMWR+80, SAVEMWR+81, SAVEMWR+82, SAVEMWR+83, SAVEMWR+85 , SAVEMWR+86, SAVEMWR+99, SAVEMWR+101, SAVEMWR+103, SAVEMWR+137, SAVEMWR+157, GETGRP+5
WE	SAVEMWR+153~, SAVEMWR+154*, SAVEMWR+157, SAVEMWR+162
X	SAVEMWR+41!, SAVEMWR+43*
XX	SAVEMWR+97~, SAVEMWR+99, SAVEMWR+100, SAVEMWR+101, SAVEMWR+102, SAVEMWR+103*, SAVEMWR+104
Y	SAVEMWR+41!, SAVEMWR+44

Customize PDF page

Package: Integrated Billing

Routine: IBCNEHL5A

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: