Routine: IBCNSC2

Package	Total	Call Graph
Integrated Billing	3	(BUILD,HDR,RPTASK,VERIFY)^IBCNSC3 ($$DAT1,PAUSE)^IBOUTL $$EXPAND^IBTRE
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	PAUSE^VALM1
VA Fileman	1	^DIR

Package

Total

Call Graph

(BUILD,HDR,RPTASK,VERIFY)^IBCNSC3 ($$DAT1,PAUSE)^IBOUTL $$EXPAND^IBTRE

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

PAUSE^VALM1

^DIR

Package	Total	Caller Graph
Integrated Billing	1	IBCNSC1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
RESET	; -- change global if ins. co. activated or inactivated
AP	; -- ask if user wishes to print patients with inactivated insurance
R1Q
UPDATE	; -- update patient file
DEV	; -- ask for device
START	; -- activate or inactivate insurance co. if necessary
EXIT	; -- kill variables -- IBCNS used by IBCNSC so don't want to kill here
PRINT	; -- print list of patients covered by inactivated insurance company
MAIN	; -- main flow control
R2Q

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	START+2, RESET+2*
^DPT("AB"	UPDATE+3
^TMP($J	PRINT+4, PRINT+5, EXIT+2!

Name	Field # of Occurrence
>> %ZIS	DEV+2*
DFN	MAIN+2~, UPDATE+3, PRINT+4, PRINT+5
DIR	START+10!, AP+4!
DIR("?"	START+7, START+8, START+9*
DIR("A"	START+6, AP+2
DIR("B"	START+5, AP+2
DIR(0	START+6, AP+2
DIRUT	START+10, AP+4, EXIT+3!
IBA	START+3*, START+6, EXIT+3!
IBB	START+3, START+4, START+6, EXIT+3!
IBC	UPDATE+3*, UPDATE+4, AP+2, EXIT+3!
>> IBCNS	START+2, RESET+2, UPDATE+3
IBCO	EXIT+3!
IBD	PRINT+4*, PRINT+5, EXIT+3!
IBEF	EXIT+3!
IBEX	EXIT+3!
IBIND	EXIT+3!
IBN	START+2*, START+6, EXIT+3!
IBNA	PRINT+4*, PRINT+5, PRINT+7, EXIT+3!
IBNO	EXIT+3!
IBPAG	EXIT+3!
IBQUIT	MAIN+2~, MAIN+3, MAIN+4, START+10, START+11, UPDATE+4, AP+4, DEV+2*, PRINT+4, EXIT+3!
IBR	EXIT+3!
IBST	PRINT+5*, PRINT+7, EXIT+3!
IBV	MAIN+4, START+2, START+3, START+4, START+11, START+12, RESET+2, UPDATE+4, PRINT+8, EXIT+3!
IBV1	START+2*, RESET+2, EXIT+3!
IBVER	START+3, START+11, START+12, EXIT+3!
IO	DEV+4
IO("Q"	DEV+3!
IOSL	PRINT+6
IOST	PRINT+8
>> POP	DEV+2
U	START+2, RESET+2
X	EXIT+3!
Y	START+11, START+12, AP+5, EXIT+3!
>> ZTDESC	DEV+3*
>> ZTQUEUED	R2Q
>> ZTREQ	R2Q*
>> ZTRTN	DEV+3*
>> ZTSAVE("IB*"	DEV+3*
ZTSK	DEV+3!

Information