Routine: IBCNSOK

Information

IBCNSOK ;ALB/AAS - Patient Insurance consistency checker ; 2/22/93

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC DT^DICRW ^DIE DT^DIQ ^DIR
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$FMTE^XLFDT
Registration	2	PID^VADPT PAUSE^VALM1
Integrated Billing	1	$$CHIP^IBCNSU

Name	Comments	DBIA/ICR reference
SET
END
HDR	; -- Print header
FIX	; -- reset pointer correctly
UP
DEV
ONE	; -- print one line
REPORT	; -- Okay now tell us about the errors
ERR3	; -- dangle insurance node left
ERR2	; -- wrong insurance pointer
ERR1	; -- no group plan pointer
DQ	; -- entry point from task man

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Patient file update queued as task ",ZTSK Line Location: DEV+4
Function Call: WRITE	Prompt: !!,"No Errors Found!" Line Location: REPORT+4
Function Call: WRITE	Prompt: ?68,$E($P(IBCPOLD,"^",4)_"("_$P($G(^DIC(36,+IBCPOLD,0)),"^"),1,33)_")" Line Location: ONE+7
Function Call: WRITE	Prompt: ?105,$E($P(IBCPOLD,"^",4)_"("_$P($G(^DIC(36,+IBCPOLD,0)),"^"),1,20)_")" Line Location: ONE+9
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"....task stoped at user request" Line Location: HDR+8
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIE Line Location: FIX+8
Routine Call	DIR Line Location: UP+3
Routine Call	%ZIS Line Location: DEV

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	ONE+5, ONE+7, ONE+9
^DPT - [#2]	DQ+11, DQ+14, DQ+15, ERR3+2!, SET, ONE+2, ONE+4
^IBA(355.3 - [#355.3]	DQ+17, FIX+5, ONE+6, ONE+8
^TMP(	REPORT+4, REPORT+5, REPORT+6, REPORT+7
^TMP("IBCNS-ERR"	%+1!, END!, SET*

Name	Field # of Occurrence
^(	REPORT+7

Name	Field # of Occurrence
>> %	DQ+3, REPORT+1
%ZIS	DEV*, END+3!
DA	END+3!, DQ+8~, FIX+6*, FIX+8!
DA(1	FIX+6*
DFN	DQ+8~, DQ+9, DQ+11, DQ+14, DQ+15, ERR3+2, FIX+6, SET, REPORT+6*, REPORT+7 , ONE+2, ONE+4
DIC	END+3!, DQ+8~, FIX+8!
DIE	END+3!, DQ+8~, FIX+6*, FIX+8!
DIR	UP+3!, END+3!
DIR("?"	UP+2*
DIR("A"	UP+1*
DIR("B"	UP+1*
DIR(0	UP+1*
DIRUT	UP+4, END+3!, HDR+2
DR	END+3!, DQ+8~, FIX+7*, FIX+8!
DT	%
I	END+3!
IBCDFN	END+3!, DQ+8~, DQ+11, DQ+14, DQ+15, ERR3+2, FIX+6, SET, REPORT+7, ONE+4
IBCDFND	END+3!, DQ+8~, DQ+14, DQ+15, DQ+17, DQ+18, DQ+19, FIX+3, FIX+5, ONE+4 , ONE+5
IBCNT	DQ+8~, DQ+9, DQ+11
IBCNTI	END+3!, DQ+8~, DQ+9, DQ+11
IBCNTP	END+3!, DQ+8~, DQ+9*
IBCNTPP	END+3!, DQ+8~, DQ+9, DQ+12, DQ+13
IBCOPOL2	END+3!
IBCPOL	END+3!, DQ+8~, DQ+17, DQ+19, FIX+1, FIX+3, FIX+4, FIX+5, FIX+7, SET
>> IBCPOL2	FIX+1*, SET
>> IBCPOLD	ONE+6, ONE+7, ONE+8, ONE+9
>> IBDATA	REPORT+7*, ONE+6, ONE+8, ONE+11
>> IBHDT	REPORT+1*, HDR+5
IBI	END+3!, DQ+8~
>> IBPAG	REPORT+1, HDR+2, HDR+3, HDR+4, HDR+5
>> IBQUIT	DQ+2, HDR+1, HDR+2, HDR+8*
>> IBSPDT	DQ+3*, DQ+7
>> IBUPDAT	UP, UP+4, DQ+6, ERR3+2, FIX+8, ONE+10
IBUPDT	END+3!
IO	DQ+1
IO("Q"	DEV+1!
IOF	HDR+3
IOM	HDR+5, HDR+7
IOST	HDR+2, HDR+3
J	END+3!
>> NAME	REPORT+3, REPORT+5, REPORT+6, REPORT+7
NODE	END+3!, ERR1+1, ERR2+1, ERR3+1, SET, REPORT+3, REPORT+4, REPORT+5, REPORT+6, REPORT+7
>> POP	DEV
>> VA("PID"	ONE+3
X	END+3!
Y	UP+4, END+3!, DQ+7*
>> ZTDESC	DEV+2*
>> ZTIO	DEV+2*
>> ZTQUEUED	END+1, DQ+4, DQ+12, ERR3+2, FIX+8, HDR+8
>> ZTREQ	END+1*
>> ZTRTN	DEV+2*
>> ZTSAVE("IB*"	DEV+2*
ZTSK	DEV+4!
>> ZTSTOP	HDR+8*