RCDPEWL1 ;ALB/TMK - ELECTRONIC EOB WORKLIST SCREEN ;Jun 06, 2014@19:11:19
Source file <RCDPEWL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLD(RCSORT) | ; Build the detail display record for the WL scratch pad record
; Assume RCSCR = ien from file 344.49 ; RCSORT = "" or 'N' for no sort 'F' for 0-pays first, 'L' for last |
|
| TOPLINE(RCZ0,RCTS) | ; Function returns the top line of the EEOB display
; RCZ0 = the 0-node of the whole number entry line for the EEOB ; RCTS = the selectable line # |
|
| PHARM(RCZZ0,RCECME,RCT,ZZ1) | ;
|
|
| INIT | ;
|
|
| HDR | ;
|
|
| FNL | ; -- Clean up list
|
|
| SET(X,RCSEQ,RCSEQ1,RCZ9) | ; -- set arrays
; X = the data to set into the global ; RCSEQ = the selectable line # ; RCSEQ1 = the sub line # ; RCZ9 = reference to the line(s) in file 344.41 or to the subline in ; file 344.49 for RCSEQ having a decimal |
|
| PNM4(RCIFN,RCDA,RC) | ; Returns either the patient name or patient name/last 4
; RCIFN = ien of file 344.4 ; RCDA = ien of file 344.41 ; RC = the ien of file 430 |
|
| COBN(RC,A) | ; Return seq # of selected payer
; A = 'PST' or null to get current bill payer seq # |
|
| COPAY(RCIFN) |
