Routine: PRCV442B

Information

PRCV442B ;WOIFO/CC-GET DATA WHEN ITEM DELETED, SET UP AUDIT FILE;1/29/05

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;81,86;Oct 20, 2000
RRAUD(POIEN,PRCV,PRCVCR,PRCVDAT)	; add deleted Receiving Report to audit file
DELAUD(PRCVID,PRCVDATE,PRCVDUZ,POIEN,PRCVITEM,PRCVIT)	; UPDATE AUDIT FILE FOR DELETED ITEMS
DELITEM(POIEN)	; delete line item, get key info for DYNAMED ; called from "AK" cross ref in DD - .01 of file 442.01 (Item multiple)
DELITEM1
DELJOB	; send deleted item's info to DynaMed (collected by DELITEM subroutine) ; called from protocol PRCV 442 ITEM DELETE and jobbed by TaskMan ; builds ; PRCVI (string for each item) ; DM DOC ID ^ Item ien ^ line item # ^ 2237 ien ^ UOP ^ qty ordered ; ^ unit price ^ NIF ^ pkg mult ^ qty rec'd ^ total item cost ^ ; total discount ^ delivery date ; PRCV (header) variable - ; PO# ^ txn type ^ DUZ ^ vendor IEN ^ FMS vendor # ^Alt add ind ^ ; txn D/T ^ Station# ^ Purchasing Station
DELJOB1
MAIL(PRCVCODE,PRCVPIEN,PRCVID,PRCVITEM)	; PREPARE VALUES FOR MESSAGE TO USERS
TMPERR	;
FCP(PRCVPO)	; return FCP for PO#
Q