Routine: IBFBWL2

Package	Total	Call Graph
Integrated Billing	5	($$CVEDT,CL)^IBACV DISP^IBARXEU ALL^IBCNS1 (GETAUTH,GETPAY,GETST)^IBFBUTIL $$DAT1^IBOUTL
List Manager	3	EN^VALM ($$FDATE,FULL)^VALM1 SET^VALM10
Kernel	2	^%ZISC DISP^XQORM1
CPT HCPCS Codes	1	$$CPT^ICPTCOD
DRG Grouper	1	$$ICDDATA^ICDXCODE
Registration	1	ELIG^VADPT
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Integrated Billing	2	IB BILLING WORKLIST EXPAND IB BILLING WORKLIST EXPAND REFRESH
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BILLING WORKLIST EXPAND
HDR	; -- header code
INIT	; -- init variables and list array ; input - ^TMP("IBFBWE",$J)=DFN^IBNAME^IBAUTH ; output - Expanded worklist screen
BLD	; build data to display
BLDEXP	; Build expand screen
GETSC	; Get SC and STA
GETSTA	; Get Special Authority Eligibility
GETSTA1	; Set in ^TMP("IBFBWE",$J)
GETINS	; Get insurance information
REFRESH	; Special Expand Screen Refresh
HELP	; -- help code
EXIT	; -- exit code

Name	Field # of Occurrence
^%ZISC	EXIT+2
$$GET1^DIQ	BLD+6, BLD+11, BLD+12, BLD+13, BLD+27, BLD+60, BLD+63, BLD+71, GETINS+20
$$CVEDT^IBACV	GETSTA+7
CL^IBACV	GETSTA+5
DISP^IBARXEU	BLD+78
ALL^IBCNS1	GETINS+2
GETAUTH^IBFBUTIL	BLD+15
GETPAY^IBFBUTIL	BLD+29
GETST^IBFBUTIL	BLD+28
$$DAT1^IBOUTL	GETINS+15, GETINS+16
$$ICDDATA^ICDXCODE	BLD+90, BLD+93
$$CPT^ICPTCOD	BLD+43
ELIG^VADPT	BLD+5
EN^VALM	EN+1
$$FDATE^VALM1	BLD+30, GETINS+19
FULL^VALM1	BLDEXP+1
SET^VALM10	BLDEXP+9
DISP^XQORM1	HELP+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+2
Routine Call	VALM Line Location: EN+1

FileNo	Call Tags
161.01	GET1^DIQ
^FBAAV - [#161.2]	GET1^DIQ
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^IBFB(360 - [#360]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(31 - [#31]	GETSC+8
^DIC(36 - [#36]	GETINS+9
^DPT - [#2]	GETSC+6, GETSC+7, GETSC+8
^IBFB(360 - [#360]	BLD+26
^TMP("IBFBWE"	INIT+3, INIT+5, BLD+8, BLD+9, BLD+14, BLD+21, BLD+33, BLD+34, BLD+35, BLD+36 , BLD+46, BLD+48, BLD+49, BLD+50, BLD+51, BLD+53, BLD+55, BLD+58, BLD+61, BLD+64 , BLD+66, BLD+69, BLD+72, BLD+75, BLD+77, BLD+81, BLD+83, BLD+85, BLD+87, BLD+96 , BLD+97, BLD+101, BLD+102, BLDEXP+6, BLDEXP+7, GETSC+3, GETSC+5, GETSC+6, GETSC+10, GETSC+11 , GETSTA+14, GETSTA1+1, GETSTA1+2, GETINS+4, GETINS+21, GETINS+22, GETINS+23, GETINS+24, GETINS+25, GETINS+26 , GETINS+27*, REFRESH+1!, EXIT+1!

Name	Line Occurrences
BLD	INIT+7, REFRESH+2
BLDEXP	INIT+11, REFRESH+6
GETINS	INIT+10, REFRESH+5
GETSC	INIT+8, REFRESH+3
GETSTA	INIT+9, REFRESH+4
GETSTA1	GETSTA+6, GETSTA+7, GETSTA+8, GETSTA+9, GETSTA+10, GETSTA+11, GETSTA+12, GETSTA+13

Name	Field # of Occurrence
CNT	INIT+4~, BLD+4, BLD+8, BLD+9, BLD+14, BLD+21, BLD+33, BLD+34, BLD+35, BLD+36* , BLD+46, BLD+48, BLD+49, BLD+50, BLD+51, BLD+53, BLD+55, BLD+58, BLD+61, BLD+64 , BLD+66, BLD+69, BLD+72, BLD+75, BLD+77, BLD+81, BLD+83, BLD+85, BLD+87, BLD+96 , BLD+97, BLD+101, BLD+102, GETSC+3, GETSC+5, GETSC+6, GETSC+10, GETSC+11, GETSTA+14, GETSTA1+1 , GETSTA1+2, GETINS+4, GETINS+21, GETINS+22, GETINS+23, GETINS+24, GETINS+25, GETINS+26, GETINS+27*
DFN	INIT+4~, INIT+6, BLD+6, BLD+8, BLD+9, BLD+10, BLD+14, BLD+21, BLD+26, BLD+33 , BLD+34, BLD+35, BLD+36, BLD+46, BLD+48, BLD+49, BLD+50, BLD+51, BLD+53, BLD+55 , BLD+58, BLD+61, BLD+64, BLD+66, BLD+69, BLD+72, BLD+75, BLD+77, BLD+78, BLD+81 , BLD+83, BLD+85, BLD+87, BLD+96, BLD+97, BLD+101, BLD+102, BLDEXP+3, BLDEXP+6, BLDEXP+7 , GETSC+3, GETSC+5, GETSC+6, GETSC+7, GETSC+8, GETSC+10, GETSC+11, GETSTA+5, GETSTA+7, GETSTA+14 , GETSTA1+1, GETSTA1+2, GETINS+2, GETINS+4, GETINS+21, GETINS+22, GETINS+23, GETINS+24, GETINS+25, GETINS+26 , GETINS+27
ECNT	INIT+4~, INIT+5*, INIT+6, BLDEXP+3
EXDTCK	GETINS+1~, GETINS+12*, GETINS+13
FIRST	GETSC+1~, GETSC+2, GETSC+10, GETSTA+1~, GETSTA+4, GETSTA1+1
FOUND	GETSTA+1~, GETSTA+3, GETSTA+14, GETSTA1+1
IB7078	BLD+1~, BLD+65*, BLD+66
IBADT	GETSTA+1~, GETSTA+2*, GETSTA+5, GETSTA+7
IBARR	GETSTA+1~, GETSTA+5
IBARR(1	GETSTA+8
IBARR(2	GETSTA+9
IBARR(3	GETSTA+6
IBARR(4	GETSTA+10
IBARR(5	GETSTA+12
IBARR(6	GETSTA+13
IBARR(7	GETSTA+7
IBARR(8	GETSTA+11
IBARRAY	BLD+1~
IBARRAY(	BLD+17, BLD+18, BLD+19, BLD+20, BLD+52, BLD+54, BLD+56, BLD+57, BLD+65, BLD+67 , BLD+68, BLD+82, BLD+84, BLD+86, BLD+88, BLD+89, BLD+90, BLD+93, BLD+97, BLD+99 , BLD+100
IBAUTH	INIT+4~, INIT+6, BLD+8, BLD+9, BLD+10, BLD+14, BLD+21, BLD+27, BLD+33, BLD+34 , BLD+35, BLD+36, BLD+46, BLD+48, BLD+49, BLD+50, BLD+51, BLD+53, BLD+55, BLD+58 , BLD+61, BLD+64, BLD+66, BLD+69, BLD+72, BLD+75, BLD+77, BLD+81, BLD+83, BLD+85 , BLD+87, BLD+96, BLD+97, BLD+101, BLD+102, BLDEXP+3, BLDEXP+6, BLDEXP+7, GETSC+3, GETSC+5 , GETSC+6, GETSC+10, GETSC+11, GETSTA+14, GETSTA1+1, GETSTA1+2, GETINS+4, GETINS+21, GETINS+22, GETINS+23 , GETINS+24, GETINS+25, GETINS+26, GETINS+27
IBCP	BLD+1~, BLD+79*, BLD+81
IBD	GETSC+1~, GETSC+9*, GETSC+10, GETSC+11
IBDIV	BLD+3~, BLD+11*, BLD+14
IBDIV2	BLD+3~, BLD+12*, BLD+13
IBDX1	BLD+1~, BLD+82*, BLD+83
IBDX2	BLD+1~, BLD+84*, BLD+85
IBDX3	BLD+1~, BLD+86*, BLD+87
IBEFF	GETINS+1~, GETINS+15*, GETINS+24
IBEND	BLD+1~, BLD+18*
IBENDX	BLD+1~, BLD+20*, BLD+21
IBEXP	GETINS+1~, GETINS+16*, GETINS+25
IBFBA	INIT+4~, INIT+6*, BLD+24, BLD+25
IBFBCPT	BLD+1~, BLD+42, BLD+43, BLD+44, BLD+46
IBFBCPTD	BLD+1~, BLD+43*, BLD+44
IBFILL	BLD+1~
IBFP	BLD+1~, BLD+52*, BLD+53
IBFPNO	BLD+1~, BLD+35, BLD+36
IBFPNOT	BLD+1~, BLD+31, BLD+32, BLD+33
IBGRP	GETINS+1~, GETINS+11*, GETINS+23
IBI	GETSC+1~, GETSC+7*, GETSC+8
IBICDDX	BLD+1~, BLD+88, BLD+95, BLD+96
IBICDDXD	BLD+1~, BLD+90, BLD+91, BLD+92, BLD+93, BLD+94, BLD+95
IBIEN	BLD+1~, BLD+10*, BLD+11, BLD+12, BLD+15, BLD+17, BLD+18, BLD+19, BLD+20, BLD+52 , BLD+54, BLD+56, BLD+57, BLD+65, BLD+67, BLD+68, BLD+82, BLD+84, BLD+86, BLD+88 , BLD+89, BLD+90, BLD+93, BLD+97, BLD+99, BLD+100
IBINS	GETINS+1~, GETINS+4
IBINS(	GETINS+5, GETINS+6, GETINS+7, GETINS+8
IBINS0	GETINS+1~, GETINS+6*, GETINS+9, GETINS+11, GETINS+12, GETINS+15, GETINS+16
IBINS1	GETINS+1~, GETINS+7*, GETINS+17, GETINS+18
IBINS7	GETINS+1~, GETINS+8*, GETINS+10
IBINSCO	GETINS+1~, GETINS+9*, GETINS+21
IBINSYES	GETINS+1~, GETINS+3, GETINS+14, GETINS+27
IBINV	BLD+1~, BLD+23*, BLD+34, BLD+38
IBINVPD	BLD+1~, BLD+47*, BLD+48
IBMT	BLD+1~, BLD+76*, BLD+77
IBNAME	INIT+4~, INIT+6, BLD+7, BLD+8, BLD+9, BLD+14, BLD+21, BLD+33, BLD+34, BLD+35 , BLD+36, BLD+46, BLD+48, BLD+49, BLD+50, BLD+51, BLD+53, BLD+55, BLD+58, BLD+61 , BLD+64, BLD+66, BLD+69, BLD+72, BLD+75, BLD+77, BLD+81, BLD+83, BLD+85, BLD+87 , BLD+96, BLD+97, BLD+101, BLD+102, BLDEXP+3, BLDEXP+6, BLDEXP+7, GETSC+3, GETSC+5, GETSC+6 , GETSC+10, GETSC+11, GETSTA+14, GETSTA1+1, GETSTA1+2, GETINS+4, GETINS+21, GETINS+22, GETINS+23, GETINS+24 , GETINS+25, GETINS+26, GETINS+27
IBNPI	BLD+1~, BLD+70, BLD+71, BLD+72
IBPAYX	BLD+1~, BLD+39, BLD+40, BLD+41, BLD+42, BLD+47, BLD+49, BLD+50, BLD+51
IBPUR	BLD+2~, BLD+54*, BLD+55
IBREF	BLD+2~, BLD+67*, BLD+69
IBREFA	BLD+2~, BLD+68*, BLD+71
IBREM	BLD+2~, BLD+98, BLD+99, BLD+100
IBREM1	BLD+2~, BLD+98, BLD+101
IBREMARK	BLD+2~, BLD+100*, BLD+101, BLD+102
IBRET	BLD+2~
IBRET(	BLD+40, BLD+41, BLD+42, BLD+47, BLD+49, BLD+50, BLD+51
IBSC	GETSC+1~, GETSC+4*, GETSC+5
IBSC1	GETSC+1~
IBSS	BLD+2~, BLD+7*, BLD+8
IBSSLE	BLD+2~, BLD+6*, BLD+7
IBSSLS	BLD+3~, BLD+6*, BLD+7
IBSSX	BLD+2~, BLD+6*, BLD+7, BLD+9
IBST	INIT+4~, BLD+17, BLD+23, BLD+30, BLD+41, BLD+43, BLD+78, BLD+93, GETSTA+2, GETINS+13
IBSTNUM	BLD+3~, BLD+13*, BLD+14
IBSTX	BLD+2~, BLD+19, BLD+21, BLD+30, BLD+35, BLD+36
IBSUB	GETINS+1~, GETINS+10*, GETINS+22
IBTAX	BLD+2~, BLD+74*, BLD+75
IBVERBY	GETINS+1~, GETINS+18, GETINS+20, GETINS+26
IBVERDT	GETINS+1~, GETINS+17, GETINS+19, GETINS+26
IBVND	BLD+2~, BLD+56*, BLD+58
IBVNDA	BLD+2~, BLD+57*, BLD+60, BLD+63
IBVNPI	BLD+2~, BLD+59, BLD+60, BLD+61
IBVTAX	BLD+3~, BLD+62, BLD+63, BLD+64
>> IBWLTYP	BLD+16, BLD+22
IBX	BLD+3~, BLD+26, BLD+27, GETSC+1~, GETSC+8, GETSC+9, GETINS+1~, GETINS+3, GETINS+5, GETINS+6 , GETINS+7, GETINS+8
IBXX	BLD+3~, BLD+24, BLD+27, BLD+28, BLD+29, BLDEXP+2~, BLDEXP+5, BLDEXP+6, BLDEXP+7
IBY	GETSC+1~, GETSC+8, GETSC+9, GETSTA+1~, GETSTA+6, GETSTA+7, GETSTA+8, GETSTA+9, GETSTA+10, GETSTA+11* , GETSTA+12, GETSTA+13, GETSTA1+1, GETSTA1+2
LINE	INIT+4~, BLDEXP+7*, BLDEXP+9
U	INIT+6, BLD+44, BLD+76, BLD+79, BLD+91, BLD+94, BLDEXP+3, GETSC+4, GETSC+9, GETINS+9 , GETINS+10, GETINS+11, GETINS+12, GETINS+15, GETINS+16, GETINS+17, GETINS+18
VA	BLD+3~
VAEL	INIT+4~
VAEL(3	GETSC+3, GETSC+4
VAEL(9	BLD+76
>> VALM("TITLE"	HDR+1*
>> VALMBCK	INIT+12, REFRESH+7, EXIT+3*
>> VALMCNT	BLDEXP+4, BLDEXP+8, BLDEXP+9, BLDEXP+10*
X	BLD+79, HELP+1~, HELP+2*

Name

Field # of Occurrence

CNT

INIT+4~, BLD+4*, BLD+8*, BLD+9*, BLD+14*, BLD+21*, BLD+33*, BLD+34*, BLD+35*, BLD+36*
, BLD+46*, BLD+48*, BLD+49*, BLD+50*, BLD+51*, BLD+53*, BLD+55*, BLD+58*, BLD+61*, BLD+64*
, BLD+66*, BLD+69*, BLD+72*, BLD+75*, BLD+77*, BLD+81*, BLD+83*, BLD+85*, BLD+87*, BLD+96*
, BLD+97*, BLD+101*, BLD+102*, GETSC+3*, GETSC+5*, GETSC+6*, GETSC+10*, GETSC+11*, GETSTA+14*, GETSTA1+1*
, GETSTA1+2*, GETINS+4*, GETINS+21*, GETINS+22*, GETINS+23*, GETINS+24*, GETINS+25*, GETINS+26*, GETINS+27*

DFN

INIT+4~, INIT+6*, BLD+6, BLD+8, BLD+9, BLD+10, BLD+14, BLD+21, BLD+26, BLD+33
, BLD+34, BLD+35, BLD+36, BLD+46, BLD+48, BLD+49, BLD+50, BLD+51, BLD+53, BLD+55
, BLD+58, BLD+61, BLD+64, BLD+66, BLD+69, BLD+72, BLD+75, BLD+77, BLD+78, BLD+81
, BLD+83, BLD+85, BLD+87, BLD+96, BLD+97, BLD+101, BLD+102, BLDEXP+3*, BLDEXP+6, BLDEXP+7
, GETSC+3, GETSC+5, GETSC+6, GETSC+7, GETSC+8, GETSC+10, GETSC+11, GETSTA+5, GETSTA+7, GETSTA+14
, GETSTA1+1, GETSTA1+2, GETINS+2, GETINS+4, GETINS+21, GETINS+22, GETINS+23, GETINS+24, GETINS+25, GETINS+26
, GETINS+27

ECNT

INIT+4~, INIT+5*, INIT+6, BLDEXP+3

EXDTCK

GETINS+1~, GETINS+12*, GETINS+13

FIRST

GETSC+1~, GETSC+2*, GETSC+10*, GETSTA+1~, GETSTA+4*, GETSTA1+1*

FOUND

GETSTA+1~, GETSTA+3*, GETSTA+14, GETSTA1+1*

IB7078

BLD+1~, BLD+65*, BLD+66

IBADT

GETSTA+1~, GETSTA+2*, GETSTA+5, GETSTA+7

IBARR

GETSTA+1~, GETSTA+5

IBARR(1

GETSTA+8

IBARR(2

GETSTA+9

IBARR(3

GETSTA+6

IBARR(4

GETSTA+10

IBARR(5

GETSTA+12

IBARR(6

GETSTA+13

IBARR(7

GETSTA+7

IBARR(8

GETSTA+11

IBARRAY

BLD+1~

IBARRAY(

BLD+17, BLD+18, BLD+19, BLD+20, BLD+52, BLD+54, BLD+56, BLD+57, BLD+65, BLD+67
, BLD+68, BLD+82, BLD+84, BLD+86, BLD+88, BLD+89, BLD+90, BLD+93, BLD+97, BLD+99
, BLD+100

IBAUTH

INIT+4~, INIT+6*, BLD+8, BLD+9, BLD+10, BLD+14, BLD+21, BLD+27, BLD+33, BLD+34
, BLD+35, BLD+36, BLD+46, BLD+48, BLD+49, BLD+50, BLD+51, BLD+53, BLD+55, BLD+58
, BLD+61, BLD+64, BLD+66, BLD+69, BLD+72, BLD+75, BLD+77, BLD+81, BLD+83, BLD+85
, BLD+87, BLD+96, BLD+97, BLD+101, BLD+102, BLDEXP+3*, BLDEXP+6, BLDEXP+7, GETSC+3, GETSC+5
, GETSC+6, GETSC+10, GETSC+11, GETSTA+14, GETSTA1+1, GETSTA1+2, GETINS+4, GETINS+21, GETINS+22, GETINS+23
, GETINS+24, GETINS+25, GETINS+26, GETINS+27

IBCP

BLD+1~, BLD+79*, BLD+81

IBD

GETSC+1~, GETSC+9*, GETSC+10, GETSC+11

IBDIV

BLD+3~, BLD+11*, BLD+14

IBDIV2

BLD+3~, BLD+12*, BLD+13

IBDX1

BLD+1~, BLD+82*, BLD+83

IBDX2

BLD+1~, BLD+84*, BLD+85

IBDX3

BLD+1~, BLD+86*, BLD+87

IBEFF

GETINS+1~, GETINS+15*, GETINS+24

IBEND

BLD+1~, BLD+18*

IBENDX

BLD+1~, BLD+20*, BLD+21

IBEXP

GETINS+1~, GETINS+16*, GETINS+25

IBFBA

INIT+4~, INIT+6*, BLD+24, BLD+25

IBFBCPT

BLD+1~, BLD+42*, BLD+43, BLD+44*, BLD+46

IBFBCPTD

BLD+1~, BLD+43*, BLD+44

IBFILL

BLD+1~

IBFP

BLD+1~, BLD+52*, BLD+53

IBFPNO

BLD+1~, BLD+35, BLD+36

IBFPNOT

BLD+1~, BLD+31*, BLD+32*, BLD+33

IBGRP

GETINS+1~, GETINS+11*, GETINS+23

IBI

GETSC+1~, GETSC+7*, GETSC+8

IBICDDX

BLD+1~, BLD+88*, BLD+95*, BLD+96

IBICDDXD

BLD+1~, BLD+90*, BLD+91*, BLD+92, BLD+93*, BLD+94*, BLD+95

IBIEN

BLD+1~, BLD+10*, BLD+11, BLD+12, BLD+15, BLD+17, BLD+18, BLD+19, BLD+20, BLD+52
, BLD+54, BLD+56, BLD+57, BLD+65, BLD+67, BLD+68, BLD+82, BLD+84, BLD+86, BLD+88
, BLD+89, BLD+90, BLD+93, BLD+97, BLD+99, BLD+100

IBINS

GETINS+1~, GETINS+4

IBINS(

GETINS+5, GETINS+6, GETINS+7, GETINS+8

IBINS0

GETINS+1~, GETINS+6*, GETINS+9, GETINS+11, GETINS+12, GETINS+15, GETINS+16

IBINS1

GETINS+1~, GETINS+7*, GETINS+17, GETINS+18

IBINS7

GETINS+1~, GETINS+8*, GETINS+10

IBINSCO

GETINS+1~, GETINS+9*, GETINS+21