Routine: PRCHAM1

Information

PRCHAM1 ;WISC/AKS,ID/RSD,SF-ISC/TKW-CONT. OF AMENDMENTS ;3/29/93 10:03

Source file <PRCHAM1.m>

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
ASK
DIE
EN1	;P.O. CANCEL
EN2	;VENDOR EDIT
EN3	;REPLACE P.O. # THIS OPTION DOESN'T SEEM TO WORK CORRECTLY.
EN4	;F.C.P. EDIT
EN5	;SHIP TO EDIT
EN6	;F.O.B. EDIT
EN7	;PROMPT PAYMENT EDIT
EN8	;EST. SHIPPING EDIT
EN9	;DESCRIPTION
EN10	;LINE ITEM ADD
EN11	;LINE ITEM DELETE
EN12	;LINE ITEM EDIT
EN13	;SOURCE CODE EDIT
EN14	;ITEM DISCOUNT ADD
EN15	;ITEM DISCOUNT DELETE
EN16	;ITEM DISCOUNT EDIT
TP
QQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Amendment Lines in file 442.2 not defined " Line Location: ASK+1
Function Call: WRITE	Prompt: !!?5,"Routine line not defined " Line Location: ASK+2
Function Call: WRITE	Prompt: !?5,"PURCHASE ORDER HAS BEEN RECEIVED, CANNOT CANCEL !",$C(7) Line Location: EN1+2
Function Call: WRITE	Prompt: ?40,"<NOTHING CANCELLED>" Line Location: EN1+3
Function Call: WRITE	Prompt: $C(7),!!!,"NOTE:",!,"Please notify the service to make any necessary adjustments to both the",!,"previous and new Fund Control Points on this order, to make sure their",!,"balances are correct!!",!! Line Location: EN4+1
Function Call: WRITE	Prompt: !!,$$ERR^PRCHQQ(ROUTINE,PRCSIG) Line Location: QQ+0
Function Call: WRITE	Prompt: !,"Notify Application Coordinator!",$C(7) Condition for execution: PRCSIG=0!(PRCSIG=-3) Line Location: QQ+0

FileNo	Call Tags
^PRCD(442.2 - [#442.2]	Classic Fileman Calls
^PRC(443.6 - [#443.6]	Classic Fileman Calls