RCDPBTLM ;WISC/RFJ - bill transactions List Manager top routine ;1 Jun 99
Source file <RCDPBTLM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT | ; initialization for list manager list
; requires rcbillda ; PRCA*3.5*315 - Replaced "^" with VA Standard Variable U throughout |
|
| HDR | ; header code for list manager display
; requires rcbillda |
|
| EXIT | ; exit list manager option and clean up
|
|
| SELBILL() | ; select a bill
; returns -1 for timeout or ^, 0 for no selection, or ien of bill |
|
| GETTRANS(BILLDA) | ; original amount goes first for bill
; returns list of transactions in ; rclist(date,tranda)=trantype ^ principle ^ interest ^ admin ; returns principle balance ^ interest balance ^ admin balance ; ^ marshall fee balance ^ court cost balance |
|
| TRANVALU(TRANDA) | ; return the transaction value as displayed (with + or - sign)
|
|
| SELECME() | ;
; function takes the user input of the ECME # to return a valid ien of file 430 ; if an invalid ECME is evaluated then the process keeps asking the user for ECME # ; until a valid ECME# is entered or until the user enters a U or null value ; output - returns the IEN of the record entry in the ACCOUNT RECEIVABLE file (#430) or "??" |
|
| RET |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^PRCA(430 - [#430] | Classic Fileman Calls |
