RCDPEMA ;ALB/PJH - AUTO-POSTING RECEIPT CREATION ;Oct 15, 2014@12:37:52
Source file <RCDPEMA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RCPTDET(RCRZ,RECTDA1,RCLINES,RCER) | ; Adds detail to a receipt based on file 344.49 and exceptions in array RCLINES
; RCRZ = ien of ERA entry in file 344.49 ; RECTDA1 = ien of receipt entry in file 344 ; RCER = error array returned if passed by reference ; RCLINES = array to indicate which scratchpad lines can be posted (assigned a receipt) |
|
| SPLIT(Z,Z1,RCERA) | ;Check if worklist was split to single claim
|
|
| DET(RCZ,RCR,RECTDA1,RCTRANDA) | ; Store receipt detail
; RCZ = ien of entry file 344.49 ; RCR = ien of entry in file 344.491 ; RECTDA1 = ien of entry in file 344 ; RCTRANDA = ien of entry in subfile 344.01 |
|
| BLDRCPT(RCERA,RCDUZ) | ; Create a receipt for Auto Posting ERA with multiple Receipts - alpha char at the 10th character
; LAYGO new entry to AR BATCH PAYMENT file (#344) ; input - RCERA = Pointer to 344.4 ; returns new IEN on success, else zero ; called by auto-post process (RCDPEAP) |
|
| GETREC(RCERA) | ; returns the receipt number
; input - RCERA = ien of entry in 344.4 ; output - returns the receipt number in external form |
| FileNo | Call Tags |
|---|---|
| ^RCY(344 - [#344] | Classic Fileman Calls |
| 344.41 | GET1^DIQ |
| 344.491 | GET1^DIQ |
