Routine: IB20PT31

Package	Total	Call Graph
VA FileMan	3	FILE^DICN ^DIE IX1^DIK
Integrated Billing	1	$$DAT1^IBOUTL

Package	Total	Caller Graph
Integrated Billing	1	IB20PT3

Entry Points

Name	Comments	DBIA/ICR reference
NEWAT	; Add new IB Action Types into file #350.1
NAT	; Action Types to add into file #350.1
NEWAC	; Add new IB Action Charges into file #350.2
NAC	; Action Charges to add into file #350.2
ATAC	; Resolve pointers to #350.1 from #350.2
CHG	;Action Charge (#350.2)^Action Type (#350.1)
ATUT	; Resolve pointers to #350.1 from #399.1
UTL	;Utility (#399.1)^Copay Action (#350.1)^Per Diem Action (#350.1)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> Adding new IB Action Types into file #350.1..." Line Location: NEWAT+1
Function Call: WRITE	Prompt: !," >> '",X,"' is already on file..." Line Location: NEWAT+4
Function Call: WRITE	Prompt: !!,">>> Adding new IB Action Charges into file #350.2..." Line Location: NEWAC+1
Function Call: WRITE	Prompt: !," >> '",X,"' for ",$$DAT1^IBOUTL($P(IBCR,"^",2))," is already on file..." Line Location: NEWAC+6
Function Call: WRITE	Prompt: !!,">>> Updating pointers to file #350.1 from file #350.2 ... " Line Location: ATAC+1
Function Call: WRITE	Prompt: "." Line Location: ATAC+6
Function Call: WRITE	Prompt: !!,">>> Updating pointers to file #350.1 from file #399.1 ... " Line Location: ATUT+1
Function Call: WRITE	Prompt: "." Line Location: ATUT+7
Function Call: WRITE	Prompt: "." Line Location: ATUT+12
Routine Call	DIE Line Location: NEWAC+9 ATAC+6 ATUT+7 ATUT+12

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	ATUT+3, ATUT+10
^IBE(350.1 - [#350.1]	NEWAT+4, NEWAT+6, ATAC+3, ATUT+4, ATUT+5, ATUT+11
^IBE(350.2 - [#350.2]	NEWAC+3, NEWAC+5, NEWAC+6, ATAC+4

Name	Field # of Occurrence
^(0	NEWAT+6*

Name	Field # of Occurrence
DA	NEWAT+6, NEWAT+8!, NEWAC+9, NEWAC+11!, ATAC+5, ATAC+6!, ATAC+7!, ATUT+6, ATUT+7!, ATUT+10* , ATUT+12, ATUT+13!
DD	NEWAT+5!, NEWAC+8!
DIC	NEWAT+5, NEWAT+6, NEWAT+8!, NEWAC+8, NEWAC+9, NEWAC+11!
DIC(0	NEWAT+5, NEWAC+8
DIE	NEWAT+8!, NEWAC+9, NEWAC+11!, ATAC+5, ATAC+6!, ATAC+7!, ATUT+6, ATUT+7!, ATUT+12, ATUT+13!
>> DIK	NEWAT+6*
DO	NEWAT+5!, NEWAC+8!
DR	NEWAT+8!, NEWAC+9, NEWAC+11!, ATAC+5, ATAC+6!, ATAC+7!, ATUT+6, ATUT+7!, ATUT+12, ATUT+13!
IBATYP	ATAC+3*, ATAC+5, ATAC+7!
IBCP	ATUT+4, ATUT+6, ATUT+11, ATUT+12, ATUT+13!
IBCR	NEWAT+2, NEWAT+3, NEWAT+6, NEWAT+7, NEWAT+8!, NEWAC+2, NEWAC+3, NEWAC+6, NEWAC+9, NEWAC+10 , NEWAC+11!
IBF	NEWAC+3*, NEWAC+4, NEWAC+11!
IBG	NEWAC+5*, NEWAC+6, NEWAC+11!
IBI	NEWAT+2, NEWAT+8!, NEWAC+2, NEWAC+11!, ATAC+2, ATAC+7!, ATUT+2, ATUT+13!
IBJ	ATAC+4*, ATAC+5, ATAC+7!
IBPD	ATUT+5*, ATUT+6, ATUT+13!
IBT	NEWAC+4, NEWAC+5, NEWAC+6, NEWAC+11!
IBUTL	ATUT+3*, ATUT+6, ATUT+13!
IBX	ATAC+2, ATAC+3, ATAC+4, ATAC+7!, ATUT+2, ATUT+3, ATUT+4, ATUT+5, ATUT+13!
X	NEWAT+3, NEWAT+4, NEWAT+8!, NEWAC+3, NEWAC+5, NEWAC+6, NEWAC+11!
Y	NEWAT+5, NEWAT+6, NEWAT+8!, NEWAC+8, NEWAC+9, NEWAC+11!