PRCH0A ;WISC/PLT-UTILITY FOR PRCH-ROUTINE ;6/28/96 09:07
Source file <PRCH0A.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| V | ;;5.1;IFCAP;;Oct 20, 2000
|
|
| EN | ;Count reconciliation record
|
|
| RECCT(PRCA) | ;prca = user ri, ef value: ^1=count reconcile records by user, ^2=earliest statement date, ^3=latest statement date (fm date)
|
|
| APPCT(PRCA) | ;prca = user ri, count ready approved order by user
|
|
| DD(PRCA,PRCB) | ;ef value = ~1 dd1 segment, ~2 dd2 segment of ET
|
|
| DDA4406(PRCA) | ;ev-value dda-segment (see et-dda doc)
|
|
| DDA442(PRCA) | ;ev-value dda-segment (see et-dda doc)
|
|
| PIECE(A,B,C) | ;set piece in variable PRCDDA, A-VALUE, B-PPECE #, C-LENGTH
|
|
| EM(PRCA) | ;ef valaue = E if original, M if modification; PRCA is cc-doc id
|
|
| FP(PRCA) | ;ef value ^1 = if final pay, 0 if not, ^2=total payment, ^3=old p.o. status code
|
|
| LUHN(A,B) | ;ef value ^1=1 if check digit is true, 0 if false, ^2=check digit
|
|
| CCN(A) | ;ef = "*" if invalid charge card number
|
|
| CCNR(A) | ;ef = "*" if replaced charge card number is on in file
|
|
| ST(A) | ;ef = "*" if STATION # not in file, = "" if defined
|
|
| STR(A,B) | ;ef value = "#" if replaced card station # not equal B, else = nil
|
|
| FC(A) | ;ef = "*" if FUND CODE not in file, ="" if defined
|
|
| FCR(A,B) | ;ef= "#" if replaced card fund code is different B, else =nil
|
|
| ACC(A) | ;ef = "*" if acc not in file, = "" if defined
|
|
| ACCR(A,B) | ;ef= "#" if replaced card ACCcode is different B, else =nil
|
|
| CC(A) | ;ef = "*" if cost center not in file, ="" if defined
|
|
| CCR(A,B) | ;ef value="#" if replaced card cc not equal B, else= nil
|
|
| BOC(A,B) | ;ef = "*" if boc not in file, ="" if defined
|
|
| BOCR(A,B) | ;ef value = "#" if replaced card boc not equal B, else = nil
|
|
| UFCP(A,B,C) | ;ef value = "#" if user code is not in fcp, else = nil
|
|
| FFVV(A,B,X) | ;ef= ^1=1 if valid, else =0, ^2=internal value if valid
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
