Routine: PRCPAGRG

Information

PRCPAGRG ;WISC/RFJ-autogen print items with groups not selected ;01 Dec 92

Name	Comments	DBIA/ICR reference
NOGROUP	; print groups not selected
H

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?7,"GROUP: ",$S(GNM=" ":"<< GROUP NOT DEFINED >>",1:GNM),! Line Location: NOGROUP+4
Function Call: WRITE	Prompt: !,ITEMDA,?7,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,54) Line Location: NOGROUP+6
Function Call: WRITE	Prompt: ?63,$$NSN^PRCPUX1(ITEMDA) Condition for execution: PRCP("DPTYPE")="W" Line Location: NOGROUP+6
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"AUTO-GENERATION GROUPS 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