Routine: PRCPEIPU

Information

PRCPEIPU ;WISC/RFJ/DXH - procurement source update utilities ;10.7.99

Name	Comments	DBIA/ICR reference
SETMAN(INVPT,ITEMDA,SOURCE)	; set mandatory source for inventory point
EDITSOUR(PRCPINPT,ITEMDA)	; edit procurement sources for invpt and item
UPDATE(PRCPINPT,ITEMDA)	; update the unit per receipt = unit per issue ; for all inventory points stocked by invpt prcpinpt

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"MANDATORY SOURCE (for inventory point item): ",VENOLD Line Location: SETMAN+5
Function Call: WRITE	Prompt: !!?5,"...inventory point item mandatory source being changed",!?8,"from: ",VENOLD,!?8," to: ",VENNEW Line Location: SETMAN+6
Function Call: WRITE	Prompt: !!,"updating the u/r equal to u/i *PLEASE CHECK CONVERSION FACTORS*" Line Location: UPDATE+9
Function Call: WRITE	Prompt: !,"THERE IS NOT A VENDOR DEFINED AS SUPPLY WAREHOUSE IN THE VENDOR FILE." Line Location: UPDATE+11
Function Call: WRITE	Prompt: !,$E($$INVNAME^PRCPUX1(INVPTDA),1,17),?19,"OLD U/R: ",$$UNITVAL^PRCPUX1($P(D,"^",3),$P(D,"^",2)," per "),?44,"NEW U/R: ",UI,?69,"CF: ",$P(D,"^",4) Line Location: UPDATE+14