Routine: PRCPRADP

Information

PRCPRADP ;WISC/RFJ-adjustment voucher recap (primary,second) ;25 May 93

Name	Comments	DBIA/ICR reference
DQ	; queue starts here ; adjusment voucher recap for primary,secondary (called from prcpradj)
Q
H

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+22
Function Call: WRITE	Prompt: !!?5,"ADJ SUMMARY",?20,$J("PLUS ADJUSTMENTS",20),$J("MINUS ADJUSTMENTS",20),$J("DIFFERENCE",20) Line Location: DQ+34
Function Call: WRITE	Prompt: !?5,"TOTAL",?20,$J(TOTALP,20,2),$J(TOTALM,20,2),$J(TOTALP+TOTALM,20,2) Line Location: DQ+35
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"ADJUSTMENT VOUCHER RECAP FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !?5,"ADJUSTMENTS FOR MONTH-YEAR: ",DATEREPT Line Location: H+2
Function Call: WRITE	Prompt: !?1,"* ONLY SUMMARY OF ADJUSTMENTS PRINTED *",!,% Line Location: H+4
Function Call: WRITE	Prompt: !,"DESCRIPTION",?33,"MI",$J("ISSUE",15) Line Location: H+5
Function Call: WRITE	Prompt: !?30,"TRAN#",?40,"DT",$J("UNITS",8),$J("QUANTITY",10),$J("INV VALUE",12),$J("RC",3),$J("USER",5) Line Location: H+6
Function Call: WRITE	Prompt: !,% Line Location: H+7