Routine: PRCPAGRV

Information

PRCPAGRV ;WISC/RFJ-autogen print items with vendors not selected ;01 Dec 92

Name	Comments	DBIA/ICR reference
NOVEND	; print vendors not selected
H

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?7,"VENDOR: ",$S(VDA=0:"<< VENDOR NOT DEFINED >>",1:VNM),! Line Location: NOVEND+4
Function Call: WRITE	Prompt: !,ITEMDA,?7,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,54) Line Location: NOVEND+6
Function Call: WRITE	Prompt: ?63,$$NSN^PRCPUX1(ITEMDA) Condition for execution: PRCP("DPTYPE")="W" Line Location: NOVEND+6
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"AUTO-GENERATION VENDORS AND ITEMS NOT SELECTED",?(80-$L(%)),%,!?5,"FOR INVENTORY POINT: ",PRCP("IN"),!,"MI#",?7,"DESCRIPTION" Line Location: H+1
Function Call: WRITE	Prompt: ?63,"NSN" Condition for execution: PRCP("DPTYPE")="W" Line Location: H+1
Function Call: WRITE	Prompt: !,% Line Location: H+1