Routine: PRCPECPS

Information

PRCPECPS ;WISC/RFJ-copy items from secondary to secondary;1/4/99 1440

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;1;Oct 20, 2000
ASKFROM	; ask inventory point to copy from
ASKTO	; ask inventory point to copy to
EXIT
ADDITEM(INVPT,ITEMDA)	; automatically adds item to inventory point

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS OPTION SHOULD ONLY BE USED BY A PRIMARY INVENTORY POINT." Line Location: V+5
Function Call: WRITE	Prompt: ! Line Location: ASKFROM+2
Function Call: WRITE	Prompt: !?5,"Number of items currently stored: ",ITEMCNT Line Location: ASKFROM+8
Function Call: WRITE	Prompt: ! Line Location: ASKTO+2
Function Call: WRITE	Prompt: !?5,"Number of items currently stored: ",ITEMCNT Line Location: ASKTO+21
Function Call: WRITE	Prompt: !,$$INVNAME^PRCPUX1(PRCPINTO)," has outstanding orders. You may overwrite" Line Location: ASKTO+25
Function Call: WRITE	Prompt: !,"but cannot delete items already stored here." Line Location: ASKTO+26
Function Call: WRITE	Prompt: ! Line Location: ASKTO+30
Function Call: WRITE	Prompt: ! Line Location: ASKTO+37
Function Call: WRITE	Prompt: !! Line Location: ASKTO+40
Function Call: WRITE	Prompt: !!,"Deleting Items. . . ." Line Location: ASKTO+46
Function Call: WRITE	Prompt: !,"Deletions complete",! Line Location: ASKTO+53
Function Call: WRITE	Prompt: !!!,"Copying Items. . . ." Line Location: ASKTO+55
Function Call: WRITE	Prompt: !!,"Copy Completed !" Line Location: ASKTO+82