Routine: IB20PT31

Information

IB20PT31 ;ALB/CPM - IB V2.0 POST INIT, RESOLVE TABLE POINTERS ; 02-SEP-93

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