Routine: IBCOMC1

Information

IBCOMC1 ;ALB/CMS - IDENTIFY PT BY AGE WITH OR WITHOUT INSURANCE (CON'T);10-09-98

Package	Total	Call Graph
Integrated Billing	4	ALL^IBCNS1 (ASK,HD,WRT)^IBCOMC2 $$TERMDG^IBCONS2 SCAN^IBSDU
Kernel	2	^%ZISC $$FMTE^XLFDT
Registration	2	$$LST^DGMTU (ADD,DEM)^VADPT

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: 1

Package	Total	Caller Graph
Integrated Billing	1	IBCOMC

Entry Points

Name	Comments	DBIA/ICR reference
BEG	; Entry to run Identify Patients with/without Insurance Report ; Input variables must exist: ; IBAIB - Required. How to sort ; 1= Patient Name Range 2= Terminal Digit Range ; IBRF - Required. Name or Terminal Digit Range Start value ; IBRL - Required. Name or Terminal Digit Range Go to value ; IBAGEF - Optional. Age start value or null ; IBAGEL - Optional. Age end value or null ; IBBDT - Required. Last Treated Start Date ; IBEDT - Required. Last Treated End Date
QUEQ	; Exit clean-UP
SET	; set data line for global
SETQ
DLT	; Get DFN's for Date Last Treated Range
DLTQ

External References

Name	Field # of Occurrence
^%ZISC	QUEQ+1
$$LST^DGMTU	SET+9
ALL^IBCNS1	BEG+52
ASK^IBCOMC2	BEG+62
HD^IBCOMC2	BEG+62, BEG+63
WRT^IBCOMC2	BEG+63
$$TERMDG^IBCONS2	BEG+32
SCAN^IBSDU	DLT+7
ADD^VADPT	BEG+38
DEM^VADPT	BEG+38
$$FMTE^XLFDT	SET+10, SET+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," NO RECORDS FOUND " Line Location: BEG+62
Function Call: WRITE	Prompt: ! Line Location: QUEQ+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	DLT+12
^DGPM("ATT3"	DLT+10, DLT+11
^DIC(36 - [#36]	BEG+58
^IBA(354 - [#354]	BEG+49
^TMP("IBCOMC"	BEG+23!, BEG+28, BEG+62, QUEQ+1!, SET+6, SET+7, SET+15, SET+17, DLT+1!, DLT+12*

Label References

Name	Line Occurrences
DLT	BEG+26
DLTQ	DLT+2
QUEQ	BEG+62
SET	BEG+50, BEG+54, BEG+59, BEG+60

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	BEG+19~, BEG+28*, BEG+32, BEG+49, BEG+52, SET+6, SET+7, SET+9, SET+15, SET+17
IBAGEF	BEG+46, QUEQ+1!
IBAGEL	BEG+46, QUEQ+1!
IBAIB	BEG+32, BEG+35, BEG+42, BEG+43, QUEQ+1!, SET+15, SET+17
IBBDT	QUEQ+1!, DLT+2, DLT+4, DLT+10
IBC	BEG+19~, BEG+57, BEG+58, BEG+60, SET+16, SET+17
IBC0	BEG+19~, BEG+58*, BEG+59, SET+12
IBCAT	SET+5~, SET+9*, SET+10
IBCBK	DLT+1~, DLT+3*, DLT+7
IBDA	DLT+1~, DLT+11*, DLT+12
IBDLT	BEG+19~
IBEDT	QUEQ+1!, DLT+2, DLT+4, DLT+10
IBFIL	DLT+1~, DLT+3*, DLT+7
IBGP	BEG+19~
IBI	BEG+19~
IBINS	BEG+19~, BEG+30!*
IBINS(	BEG+56, BEG+57, SET+12
IBINS(0	BEG+53, BEG+54
IBINSV	BEG+19~, BEG+23, BEG+30, BEG+49*, BEG+50, SET+11
IBOUT	BEG+22*, QUEQ+1!
IBPAGE	BEG+19~, BEG+23*
IBQUERY	DLT+1~
IBQUIT	BEG+19~, BEG+23*
IBRF	BEG+32, BEG+43, QUEQ+1!
IBRL	BEG+32, BEG+42, QUEQ+1!
IBSIN	BEG+49, BEG+50, BEG+53, BEG+54, BEG+59, BEG+60, QUEQ+1!, SET+11, SET+12, SET+16
IBSIN(	BEG+60
IBSINF	BEG+59, QUEQ+1!
IBSINL	BEG+59, QUEQ+1!
IBTD	BEG+20~, BEG+30, BEG+32, BEG+35, SET+5~, SET+8, SET+10, SET+15, SET+17
IBTD(	SET+6, SET+7, SET+8
IBTD(""	SET+8
IBTMP	BEG+20~, QUEQ+1!
IBTMP(1	SET+10*, SET+15
IBTMP(2	SET+11, SET+12, SET+17
IBVAL	DLT+1~, DLT+7
IBVAL("BDT"	DLT+4*
IBVAL("EDT"	DLT+4*
IBX	BEG+20~, BEG+56, BEG+57, SET+12, DLT+1~, DLT+10, DLT+11, DLT+12
IBXX	BEG+20~, BEG+60*
SDCNT	BEG+20~
U	BEG+22, BEG+41, BEG+59, SET+8, SET+9, SET+10, SET+11, SET+12, DLT+12
VA	BEG+20~, BEG+37!, QUEQ+1!
VADM	BEG+20~, BEG+37!, QUEQ+1!
VADM(1	BEG+41*, BEG+42, BEG+43, SET+10, SET+15, SET+17
VADM(2	SET+10
VADM(3	SET+10
VADM(4	BEG+46, SET+10
VADM(6	SET+10
VAERR	BEG+20~, BEG+37!, QUEQ+1!
VAPA	BEG+20~, BEG+37!, QUEQ+1!
VAPA(8	SET+11
X	BEG+20~, DLT+1~
Y	BEG+20~, DLT+1~

Customize PDF page

Package: Integrated Billing