RCDPURE1 ;WISC/RFJ - Process a Receipt ;Jun 06, 2014@19:11:19
Source file <RCDPURE1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PROCESS(RCRECTDA,RCSCREEN) | ; process a receipt, update ar, generate cr/tr documents to fms
; the receipt and deposit must be locked before calling this label ; if $g(rcscreen) = 1 show messages during processing ; if $g(rcscreen) = 2 store messages during processing ; |
|
| 215 | ; === print 215 report ===
|
|
| Q215 | ||
| UPDERA(RCERA) | ; Update detail posted status for ERA entry RCERA
|
|
| MSG(RCMSG,RCSCREEN,PRELINE,POSTLINE) | ; Write message or set into msg array
; RCMSG = text to write RCSCREEN = screen flag ; PRELINE = the line feeds to print before the text ; POSTLINE = the line feeds to print after the text |
|
| MSGQ | ||
| EDIT4(DA,DR,RCDR1,RCDR2,RCDR3) | ; Modify DR string for type of payment edit
; for EDI Lockbox ; Input: DA,DR Output: RCDR1,RCDR2,RCDR3 ; If type unchanged, or neither old/new are EDI Lockbox, no chk needed ; If old type is EDI Lockbox and scratch pad exists, no change allowed ; If changed to EDI Lockbox and detail already exists, no chg allowed without UNMATCH EFT key ; If changed to EDI Lockbox, ask for related EFT |
|
| SETV | ; Set up variables needed to edit change of receipt type, used in DR strings to edit AR BATCH PAYMENT (#344)
; RCO4 = existing (#.04) TYPE OF PAYMENT value, RCOE = existing (#.17) EFT RECORD value |
|
| WL(DA) | ; Function returns 0 if the worklist did not create the receipt
; or the ien of the worklist entry if it did (344.4 and 344.49 are DINUMED) |
|
| HAC(RC) | ; Returns 1 if the receipt in RC is related to a HAC EFT
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344 - [#344] | Classic Fileman Calls |
| ^RCY(344.4 - [#344.4] | Classic Fileman Calls |
