Routine: PRCPRDI2

Information

PRCPRDI2 ;WISC/RFJ-print calculated due-ins ;30 Aug 91

Name	Comments	DBIA/ICR reference
PRINT	; called from prcprdi1 to print calculated due-ins
H
H1
UPDATE	; update due-ins and outstanding transactions

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,NSN,?20,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,20),?42,"[#",ITEMDA,"]",?49,$J($$UNITVAL^PRCPUX1($P(D,"^",14),$P(D,"^",5)," per "),13),?70,$J($$GETIN^PRCPUDUE(PRCP("I"),ITEMDA),10) Line Location: PRINT+10
Function Call: WRITE	Prompt: !?10,TRANNO,?30,$P($P($G(^PRC(442,+$P(DATA,"^",6),0)),"^"),"-",2),?37,$J($$UNITVAL^PRCPUX1($P(DATA,"^",4),$P(DATA,"^",3)," per "),13),?56,$J($P(DATA,"^",5),6),$J($P(DATA,"^",2),10) Line Location: PRINT+15
Function Call: WRITE	Prompt: ?77,"ADD" Line Location: PRINT+16
Function Call: WRITE	Prompt: ?77,"UPD" Line Location: PRINT+17
Function Call: WRITE	Prompt: " <-----*" Line Location: PRINT+19
Function Call: WRITE	Prompt: !,"DUE-INS AND OUTSTANDING TRANSACTIONS WILL NOT BE UPDATED UNTIL ENTIRE REPORT",!,"IS PRINTED." Line Location: PRINT+21
Function Call: WRITE	Prompt: !!,"DUE-INS AND OUTSTANDING TRANSACTIONS HAVE BEEN UPDATED." Line Location: PRINT+22
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"CALCULATED DUE-INS REPORT FOR: ",PRCP("IN"),?(80-$L(%)),%,!,"NSN",?20,"DESCRIPTION",?42,"[#MI]",?51,"UNIT per ISS",?70,"DUE-IN QTY",! Line Location: H+1
Function Call: WRITE	Prompt: % Line Location: H+1
Function Call: WRITE	Prompt: !?10,"TRANSACTION",?30,"PO #",?39,"UNIT per REC",?53,"CONV FACT",?66,"DUE-IN" Line Location: H1+0