Routine: IB20PT51

Information

IB20PT51 ;ALB/CPM - MORE IB V2.0 POST-INIT ONE-TIME ITEMS ; 28-JAN-94

Name	Comments	DBIA/ICR reference
UBFM	; Add UB-92 form type to the Form Type (#353) file.
UBFMQ
RXFT	; Add Addendum form type to the Form Type (#353) file.
RXFTE
FLAG	; Flag Telephone Stop Codes as non-billable for Means Test Billing
STOPS	; Stop codes to flag
HOLD	; Check all charges in file #350 that are on hold.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> Adding UB-92 form type to the Form Type (#353) file." Line Location: UBFM+2
Function Call: WRITE	Prompt: !!,"** ERROR: Could not add UB-92 claim form to file 353! **" Line Location: UBFM+4
Function Call: WRITE	Prompt: !!,"** ERROR: UB-92 Claim Form already defined! Check Routine. **" Line Location: UBFM+6
Function Call: WRITE	Prompt: !!,">>> Adding Addendum form type to the Form Type (#353) file." Line Location: RXFT+1
Function Call: WRITE	Prompt: !!,"** ERROR: Could not add BILL ADDENDUM claim form to file 353! **" Line Location: RXFT+3
Function Call: WRITE	Prompt: !!,"** ERROR: BILL ADDENDUM Claim Form already defined! Check Routine. **" Line Location: RXFT+5
Function Call: WRITE	Prompt: !!,">>> Flagging Telephone stop codes as non-billable for Means Test Billing..." Line Location: FLAG+1
Function Call: WRITE	Prompt: !?4,"Unable to flag the stop code '",IBS,"' (not on file)..." Line Location: FLAG+4
Function Call: WRITE	Prompt: !!,">>> Examining all charges 'on hold' in File #350..." Line Location: HOLD+2
Function Call: WRITE	Prompt: !," >> ",$S(IBCNTU:IBCNTU,1:"No")," held charge",$S(IBCNTU=1:" was",1:"s were")," updated to cancelled." Line Location: HOLD+31
Function Call: WRITE	Prompt: !," >> ",$S(IBCNTR:IBCNTR,1:"No")," held charge",$S(IBCNTR=1:" was",1:"s were")," re-indexed." Line Location: HOLD+32