Routine: PRCHNPO6

Information

PRCHNPO6 ;WISC/RHD-MISCELLANEOUS ROUTINES FROM P.O.ADD/EDIT 442 ;6/22/94 3:19 PM

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;129,173;Oct 20, 2000;Build 9
EN1	;INPUT TRANSFORM FOR FILE 442, P.O.DATE #.1
EN2	;SCREEN--P.O.#['X' (FRESH FOOD) OR 'Z' (CASCA)--INVOICE ADDRESS="FISCAL", P.O.#['C' (CERT.INV.)--MOP='CERT.INV.', INV.ADDR.="FISCAL", IMPREST FUNDS--INV.ADDR.="".
EN20
EN3	;SCREEN FCP--CALLED FROM PRCHNPO3
EN4	;SCREEN FCP FOR SPECIAL P.O.NUMBERS--Z0=1ST 2 DIGITS OF P.O.NO.,Z1=FCP
TRUE
FALSE
EN5	;FILE #442, FIELD #1 (FCP) ONLINE HELP
EST	;Find Line Item # for Field #13.1
EN7	;FILE 442, PKG.MULT. #3.1
EN8	;FILE 442, P.O.NO. .01 CALLED BY THE SCREEN ON THE .01 FIELD
EN9	;FILE 442, MAX.ORD.QTY.#9.6
ER
ER1
ER2
ER3
SPRMK	;FORMAT & DISPLAY REMARKS FROM REQUEST TO PO
SP1
END

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Method of Processing="_$P(^PRCD(442.5,Z2,0),U,1) Line Location: EN20+0
Function Call: WRITE	Prompt: $C(7),"ANOTHER USER IS IS EDITING FILE 442 CONTROL NODE! Please retry in a minute." Line Location: EN8+7
Function Call: WRITE	Prompt: !," ** Error in Discount ",PRCH,", item ",PRCHN," has a unit cost of zero ",$C(7) Line Location: ER+0
Function Call: WRITE	Prompt: !," ** Error in Discount ",PRCH,", item ",PRCHN," has been changed. Discount will be deleted",!?4,"and must be re-edited!",$C(7) Line Location: ER1+0
Function Call: WRITE	Prompt: !," Type Code is undefined.",$C(7) Line Location: ER2+0
Function Call: WRITE	Prompt: !,"2237 Special Remarks: " Line Location: SPRMK+2
Function Call: WRITE	Prompt: !,"Would you like to transfer the Special Remarks to the New P.O. Comments" Line Location: SP1+0
Function Call: WRITE	Prompt: !,"Enter 'Y' to have the Special Remarks added to the end of the P.O. Comments.",! Line Location: SP1+1