Routine: IBYPPD

Information

IBYPPD ;ALB/ARH - IB*2*175 POST INIT: TORT/INTERAGENCY RATES JAN 2004 ; 03/06/02

Source file <IBYPPD.m>

Package	Total	Call Graph
Integrated Billing	2	(ADDRS,ADDRSI)^IBYPPD1 ADDCI^IBYPPD2
VA FileMan	2	FILE^DICN ^DIE
Kernel	1	MES^XPDUTL

Name	Comments	DBIA/ICR reference
POST	;
ADDBS	; Add Bedsection (399.1, .12=1)
BSQ
MCCRUTL(X,P)	; returns IFN of item in 399.1 if Name is found and piece P is true
MSG(X)	;
BSF	; Bedsections (399.1,.12): name ^ abbreviation

FileNo	Call Tags
^DGCR(399.1 - [#399.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	MCCRUTL+2

Name	Field # of Occurrence
DA	ADDBS+1~, ADDBS+10*!
DD	ADDBS+1~, ADDBS+7!
DIC	ADDBS+1~, ADDBS+7*!
DIC(0	ADDBS+7*
DIE	ADDBS+1~, ADDBS+10*!
DLAYGO	ADDBS+1~, ADDBS+7*
DO	ADDBS+1~, ADDBS+7!
DR	ADDBS+1~, ADDBS+10*!
IBA	POST+1~, POST+2!, POST+13!, ADDBS+1~, BSQ!
IBA(	MSG+2*
IBA(1	POST+2, POST+13, BSQ*
IBA(2	POST+2, POST+13
IBA(3	POST+2, POST+13
IBA(999999	MSG+1
IBCNT	ADDBS+1~, ADDBS+8, BSQ
IBEFFDT	POST+1~, POST+4*, POST+7, POST+10, POST+11
IBFN	ADDBS+1~, ADDBS+8*, ADDBS+10
IBI	ADDBS+1~, ADDBS+3*
IBLN	ADDBS+1~, ADDBS+3*, ADDBS+5, ADDBS+7, ADDBS+10
IBX	MCCRUTL+1~, MCCRUTL+2, MSG+1~, MSG+2
IBY	MCCRUTL+1~, MCCRUTL+2, MCCRUTL+3
P	MCCRUTL~, MCCRUTL+2
U	ADDBS+5, ADDBS+7, ADDBS+10, MCCRUTL+2
X	ADDBS+1~, ADDBS+7*!, ADDBS+10!, MCCRUTL~, MCCRUTL+2, MSG~, MSG+2
Y	ADDBS+1~, ADDBS+7!, ADDBS+8, ADDBS+10!

Name	Field # of Occurrence
$T(BSF+IBI	ADDBS+3