Routine: IBACCWLBILLVE

Information

IBACCWLBILLVE ;EDE/TAZ - ACC (Automated Community Care) Claims - VIEW ENCOUNTER ; 12-SEP-2023 ; 12-SEP-2023

Package	Total	Call Graph
List Manager	3	EN^VALM ($$SETFLD,$$SETSTR,PAUSE)^VALM1 (CLEAN,CNTRL,SET)^VALM10
Kernel	2	($$FMTE,$$HL7TFM)^XLFDT DISP^XQORM1
Integrated Billing	1	($$DISUSERGROUP,GETINCLUSIONS)^IBACCWLBILLVE1A
VA FileMan	1	$$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Integrated Billing	5	IBACC WL VE BILLING IBACCWLAIVIEW IBACCWLBILLVE1 IBACCWLBILLVE2 IBACCWLBILLVE3

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
HDR	; -- header code
INIT	;EP -- init variables and list array
INITQ	;Exit
AMT	;Display Amount Patient Paid
CL1	;Institutional Claim Code
CN1	;Display Contract Information
CR1	;Display Ambulance Transport Information
CR2	;Spinal Manipulation Service Information
CR3	;Durable Medical Equipment Certification
CTP	;Drug Quantity
DMG	;Demographics
DN1	;Orthodontic Total Months of Treatment
DN2	;Tooth Status
FRM	;Supporting Documentation
HL	;Display HL Record
LIN	;Drug Identification
LQ	;Form Identification Code
LX	;Service Line Number
MEA	;Test Results
MOA	;Outpatient Adjudication Information
N3	;Address line 1
N4	;City, State, and Zip
OI	;Other Insurance Coverage Information
PAT	;Display Patient Segment
PER	;Submitter EDI Contact Information
PRV	;Provider Specialty
PS1	;Purchased Service Information
QTY	;Ambulance Patient Count
TOO	;Tooth Information
DATE(DATE,TYPE)	;Format Date/Time
DATEQ	;
DOL(DATA)	;Format Dollars
NAME(DATA)	;Format Person Name
PHONE(NUM)	;Format phone number
YN(YN)	;Translate Yes/No element
ZIP(ZIP)	;Format Zip Code
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
SET(TITLE,VALUE,BLANK,HEADER)	;
SETQ	;
SET1(TITLE,VALUE)	;

External References

Name	Field # of Occurrence
$$GET1^DIQ	INIT+5, INIT+6, INIT+26, INIT+46
$$DISUSERGROUP^IBACCWLBILLVE1A	INIT+11
GETINCLUSIONS^IBACCWLBILLVE1A	INIT+13
EN^VALM	EN+6
$$SETFLD^VALM1	SET1+1, SET1+2
$$SETSTR^VALM1	SET+27
PAUSE^VALM1	INIT+20
CLEAN^VALM10	EXIT+4
CNTRL^VALM10	SET+26
SET^VALM10	INITQ+1, SET+19, SET+28, SET1+3
$$FMTE^XLFDT	DATE+5, DATE+7
$$HL7TFM^XLFDT	DATE+5, DATE+7
DISP^XQORM1	HELP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+3
Routine Call	VALM Line Location: EN+6

FileNo	Call Tags
^IBA(364.9 - [#364.9]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBA(364.9 - [#364.9]	INIT+27

Label References

Name	Line Occurrences
$$DATE	DMG+1, FRM+4, PAT+10
$$DOL	AMT+1, CN1+10, MOA+2, MOA+8, MOA+9, PS1+2
$$PHONE	PER+6, PER+7
$$YN	DN1+3, FRM+2, OI+1
$$ZIP	N4+1
@(	INIT+37
DATEQ	DATE+3, DATE+4
SET	INIT+39, INIT+40, AMT+1, CL1+1, CL1+2, CL1+3, CN1+1, CN1+10, CN1+11, CN1+12 , CN1+13, CN1+14, CR1+1, CR1+2, CR1+9, CR1+10, CR1+11, CR2+1, CR2+10, CR2+11 , CR3+1, CR3+6, CTP+2, DMG+1, DMG+2, DMG+3, DMG+4, DN1+1, DN1+2, DN1+3 , DN2+1, DN2+2, DN2+5, FRM+1, FRM+2, FRM+3, FRM+4, FRM+5, HL+3, LIN+1 , LIN+10, LQ+1, LQ+4, LX+1, MEA+1, MEA+5, MOA+1, MOA+2, MOA+3, MOA+4 , MOA+5, MOA+6, MOA+7, MOA+8, MOA+9, N3+1, N3+2, N4+1, OI+1, OI+2 , OI+3, PAT+1, PAT+10, PAT+11, PAT+12, PER+2, PER+4, PER+5, PER+6, PER+7 , PRV+1, PRV+7, PS1+1, PS1+2, QTY+2, TOO+2, TOO+4, TOO+5
SET1	SET+40, SET+44
SETQ	SET+20

Naked Globals

Name	Field # of Occurrence
^(	INIT+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADD	QTY+1~, QTY+2, QTY+3, QTY+4, QTY+5*
BLANK	SET~, SET+13, SET+19
CLM	INIT+1~, INIT+25*
CLMCNT	INIT+1~, INIT+25, INIT+27
CNT	TOO+1~, TOO+5*
CODE	INIT+1~, AMT+1, AMT+2, AMT+3, AMT+4, AMT+5, AMT+6, AMT+7, AMT+8, AMT+9* , AMT+10, CN1+1, CN1+2, CN1+3, CN1+4, CN1+5, CN1+6, CN1+7, CN1+8, CN1+9 , CR1+2, CR1+3, CR1+4, CR1+5, CR1+6, CR1+7, CR1+8, CR2+1, CR2+2, CR2+3 , CR2+4, CR2+5, CR2+6, CR2+7, CR2+8, CR2+9, CR3+1, CR3+2, CR3+3, CR3+4 , CR3+5, DN1+1, DN1+2, DN1+3, DN2+2, DN2+3, DN2+4, DN2+5, DN2+6, FRM+2 , FRM+3, FRM+4, FRM+5, HL+1, HL+2, LIN+1, LIN+2, LIN+3, LIN+4, LIN+5* , LIN+6, LIN+7, LIN+8, LIN+9, LQ+1, LQ+2, LQ+3, MEA+1, MEA+2, MEA+3 , MEA+4, MEA+5, MEA+6, MEA+7, MEA+8, MEA+9, MEA+10, MEA+11, MOA+1, MOA+2 , MOA+3, MOA+4, MOA+5, MOA+6, MOA+7, MOA+8, MOA+9, OI+2, OI+3, OI+4 , OI+5, PAT+1, PAT+2, PAT+3, PAT+4, PAT+5, PAT+6, PAT+7, PAT+8, PAT+9 , PRV+1, PRV+2, PRV+3, PRV+4, PRV+5, PRV+6, QTY+2, QTY+3, QTY+4, TOO+2 , TOO+3, TOO+5
COL	SET+1~, SET+24*, SET+26, SET+27
D	EN+1~, INIT+1~, INIT+24*, INIT+28, AMT+1, CL1+1, CL1+2, CL1+3, CN1+1, CN1+10 , CN1+11, CN1+12, CN1+13, CN1+14, CR1+1, CR1+2, CR1+9, CR1+10, CR1+11, CR2+1 , CR2+10, CR2+11, CR3+1, CR3+6, CTP+2, DMG+1, DMG+2, DMG+3, DMG+4, DN1+1 , DN1+2, DN1+3, DN2+1, DN2+2, DN2+5, FRM+1, FRM+2, FRM+3, FRM+4, FRM+5 , HL+1, LIN+1, LIN+10, LQ+1, LQ+4, LX+1, MEA+1, MEA+5, MOA+1, MOA+2 , MOA+3, MOA+4, MOA+5, MOA+6, MOA+7, MOA+8, MOA+9, N3+1, N3+2, N4+1 , OI+1, OI+2, OI+3, PAT+1, PAT+10, PAT+11, PAT+12, PER+2, PER+4, PER+5 , PER+6, PER+7, PRV+1, PRV+7, PS1+1, PS1+2, QTY+2, TOO+2, TOO+4, TOO+5 , NAME+2, SET+11, SET+12
D1	EN+1~, INIT+1~, INIT+24, CTP+2, TOO+5, DATE+1~, DATE+3, DATE+5, DATE+6, DATE+7* , DATEQ+1
DATA	INIT+27, INIT+28, AMT+1, CL1+1, CL1+2, CL1+3, CN1+1, CN1+10, CN1+11, CN1+12 , CN1+13, CN1+14, CR1+1, CR1+2, CR1+9, CR1+10, CR1+11, CR2+1, CR2+10, CR2+11 , CR3+1, CR3+6, CTP+2, DMG+1, DMG+2, DMG+3, DMG+4, DN1+1, DN1+2, DN1+3 , DN2+1, DN2+2, DN2+5, FRM+1, FRM+2, FRM+3, FRM+4, FRM+5, HL+1, LIN+1 , LIN+10, LQ+1, LQ+4, LX+1, MEA+1, MEA+5, MOA+1, MOA+2, MOA+3, MOA+4 , MOA+5, MOA+6, MOA+7, MOA+8, MOA+9, N3+1, N3+2, N4+1, OI+1, OI+2 , OI+3, PAT+1, PAT+10, PAT+11, PAT+12, PER+2, PER+4, PER+5, PER+6, PER+7 , PRV+1, PRV+7, PS1+1, PS1+2, QTY+2, TOO+2, TOO+4, TOO+5, DOL~, DOL+1 , DOL+2, NAME~, NAME+2, SET+11, SET+12
DATE	DATE~, DATE+3, DATE+5, DATE+6, DATE+7
DIAGPTRARR	INIT+2~
DIR	INIT+19~
DISUSERGROUP	INIT+3~, INIT+11*, INIT+12
FIRST	NAME+1~, NAME+2*, NAME+3
HEADER	SET~, SET+13, SET+14, SET+20
HI	INIT+1~, INIT+25*
HL	INIT+1~, INIT+25*
>> IBACCWLBILLVELEV	EN+4, EXIT+2, EXIT+3*
>> IBENCIFN	INIT+5, INIT+6, INIT+26, INIT+27, INIT+43, INIT+45, INIT+46
IBFORM	INIT+2~, INIT+5*, INIT+7, INIT+13, INIT+17
IBIFN	INIT+44~, INIT+46*, INIT+47
IBINOUT	INIT+3~, INIT+6*, INIT+7, INIT+13, INIT+18
IBPARENT	EN+3~*
IBTYPEFORM	INIT+3~, INIT+7*
INCLUDE	INIT+13~, INIT+15
INCLUDE(	SET+11, SET+12, SET+13, SET+16, SET+21, SET+31, SET+34, SET+35, SET+42
IOD	INIT+1~, INIT+26*
IOM	SET+24
>> IORVOFF	SET+26
>> IORVON	SET+26
J	SET+38~, SET+40*, SET+41
LAST	NAME+1~, NAME+2*, NAME+3
>> LASTSECTIONHEAD	SET+11, SET+12, SET+14*, SET+15, SET+16, SET+21, SET+31, SET+33, SET+34, SET+35 , SET+42
LINEVAR	INIT+1~, HL+2, HL+3, SET+30, SET1+1, SET1+2, SET1+3
MI	NAME+1~, NAME+2*, NAME+3
NODE	INIT+1~, INIT+28, INIT+30, INIT+31, INIT+33, INIT+34, INIT+36*, INIT+37
NUM	PHONE~, PHONE+1
PCE	PER+1~, PER+3*, PER+4, PER+5, PER+6, PER+7, SET+38~
SBR	EN+1~, INIT+1~, INIT+25*, SET+8
>> SESSIONKEY	INIT+10
>> STOP	SET+8, SET+21
SUF	NAME+1~, NAME+2*, NAME+3
T1	SET+1~, SET+39, SET+40, SET+41
TAX	INIT+1~
TITLE	QTY+1~, QTY+2, QTY+3, QTY+4, SET~, SET+3, SET+4, SET+8, SET+12, SET+13 , SET+14, SET+15, SET+16, SET+22, SET+24, SET+25, SET+27, SET+28, SET+31, SET+33 , SET+34, SET+35, SET+37, SET+40, SET+41, SET+43, SET+44, SET1~, SET1+1
TSC	TOO+1~, TOO+5, TOO+6, TOO+7, TOO+8, TOO+9, TOO+10, TOO+11, TOO+12
TYPE	DATE~, DATE+2*, DATE+3, DATE+4, DATE+6
U	SET+11, SET+12, SET+16, SET+34, SET+35
UNIT	CTP+1~, CTP+2, CTP+3, CTP+4, CTP+5, CTP+6, CTP+7, CTP+8*
USERGROUP	INIT+3~, INIT+10*, INIT+11, INIT+13
>> VALM("TITLE"	INIT+12*
VALMAR	EN+1~, INIT+43, INIT+45, INIT+47, INITQ+1
>> VALMBCK	INIT+21*
VALMCNT	EN+1~, INIT+25, SET+19, SET+23, SET+26, SET+28, SET1+3
VALMHDR	EN+1~
VALMHDR(1	HDR+2*
>> VALMQUIT	EXIT+2*
VALMSG	EN+1~
VALUE	SET~, SET+3, SET+4, SET+34, SET+44, SET1~, SET1+2
WIDTH	SET+1~, SET+25*, SET+26, SET+27
X	HELP+2~, HELP+3*
YN	YN~, YN+1
ZIP	ZIP~, ZIP+1

Customize PDF page

Package: Integrated Billing