Routine: PRCHE2

Information

PRCHE2 ;WISC/DJM,ID/RSD,SF-ISC/TKW-REMOVE 2237 FROM PO/PUT IN FILE 443 ;08/11/93 3:18 PM

Source file <PRCHE2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the Order number where the 2237 information resides." Line Location: EN+0
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: EN+3
Function Call: WRITE	Prompt: !?3,"This Purchase Order contains no 2237 !",$C(7) Line Location: EN+4
Function Call: WRITE	Prompt: !?3,"This Purchase Order contains the following 2237's : " Line Location: EN+5
Function Call: WRITE	Prompt: !?3,"Enter the 2237 reference number you want to remove. You cannot",!," remove the PRIMARY 2237 unless you remove all other 2237s.",! Line Location: EN1+0
Function Call: READ	Formatting: ! Prompt: "2237 REFERENCE NUMBER: " Variable: X Timeout: DTIME Line Location: EN1+1
Function Call: WRITE	Prompt: " ??",$C(7),!?3,"You must enter the entire 2237 reference number. Choose from: ",! Line Location: EN1+2
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: EN1+3
Function Call: WRITE	Prompt: !!,$C(7),"There are NO items from this 2237 on this Purchase Order!!",! Line Location: EN1+5
Function Call: WRITE	Prompt: !?5,I,".",?12,$P(PRCHI(I),"^",2) Line Location: EN1+6
Function Call: WRITE	Prompt: !!,"You may need to edit P.O. Comments!",! Line Location: PRCS2+8
Function Call: WRITE	Prompt: !?5,$P(^(0),U,1) Line Location: HLP+0
Function Call: WRITE	Prompt: " PRIMARY",$C(7) Condition for execution: PRCHP=X Line Location: HLP+0