Routine: PSIVOPT2

Information

PSIVOPT2 ;BIR/PR,MLM-OPTION DRIVER (CONT) ;02 Mar 99 / 9:27 AM

Name	Comments	DBIA/ICR reference
D	; Discontinue order.
D1
R	; Renew order.
R1	;
RD	; Delete for renew.
OK	;Print example label, run order through checker, ask if it is ok.
RI	; Reinstate Auto-DC'ed order.
UPDREN(DFN,ORD,RNWDT,PROV,OSTOPDT,PSJNOO)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Order Unchanged." Line Location: D+1
Function Call: WRITE	Prompt: !,$C(7),"Order Unchanged." Line Location: D+3
Function Call: WRITE	Prompt: !!?3,"This order contains an invalid schedule and CANNOT be renewed!" Line Location: R1+6
Function Call: WRITE	Prompt: ! Line Location: R1+10
Function Call: WRITE	Prompt: ! Line Location: OK+4
Function Call: WRITE	Prompt: !,"Start date: " Line Location: OK+4
Function Call: WRITE	Prompt: !,"Start date: " Line Location: OK+4
Function Call: WRITE	Prompt: !,"Start date: " Line Location: OK+4
Function Call: WRITE	Prompt: !,"* This change will cause a new order to be created. *" Line Location: OK+7
Function Call: WRITE	Prompt: !!,$C(7),"This order has been Auto-DC'ed." Line Location: RI+1
Function Call: WRITE	Prompt: !!,$C(7),"This order's provider is no longer valid. Please enter a valid provider." Line Location: RI+6
Function Call: WRITE	Prompt: $C(7),"Order unchanged." Line Location: RI+6