Routine: IBORAT1C

Information

IBORAT1C ;ALB/RJS - OUTPUT ROUTINE FOR IB ACTION CHARGES - 2/26/92

Name	Comments	DBIA/ICR reference
INIT	;
IBSPEC	;
END	;
IBSPEC2	;
OUTPUT	;
LINE	;
SUBHEAD	;
HEADING	;
IBTITLE	; initial form feeds to crts subsequent form feeds to all
DATES	;
SELECT(IBEFFDAT)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?2,Y,?22,"$",$P(^TMP($J,IBROUT,IBSPEC,IBEFFDAT),U,2) Line Location: LINE+5
Function Call: WRITE	Prompt: ?32,"$",$P(^(IBEFFDAT),U,3) Line Location: LINE+6
Function Call: WRITE	Prompt: !!,IBSPEC,!,?2,"Effective Date",?22,"Amount",?32,"Additional Amount" Line Location: SUBHEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEADING+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)["C-"!(IBPAGE>1) Line Location: IBTITLE+1
Function Call: WRITE	Prompt: IBTODAY,?25,IBTITLE,?68," PAGE ",IBPAGE Line Location: IBTITLE+1
Function Call: WRITE	Prompt: IBX Line Location: IBTITLE+3
Function Call: WRITE	Prompt: !,?25," Rates in effect on: ",IBSDATE,! Line Location: DATES+1
Function Call: WRITE	Prompt: !,?25," Rates in effect from: ",IBSDATE Line Location: DATES+2
Function Call: WRITE	Prompt: !,?25," to: ",IBEDATE,! Line Location: DATES+3