RCDPEAA2 ;ALB/KML - APAR Screen - SELECTED EOB ;Jun 06, 2014@19:11:19
Source file <RCDPEAA2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT(RCIENS) | ; Entry point for List template to build the display of the EEOB on APAR
; ; Input - RCIENS = ien of entry in file 344.49^ien of 344.491^selectable line item from listman screen |
|
| BLD(RCIENS) | ; Display selected EEOB on APAR screen
|
|
| SET(X,RCSEQ,RCSEQ1,RCZ9) | ; -- set ListManager 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 |
|
| TOPLINE(RCZ0) | ; Function returns the top line of the EEOB display
; RCZ0 = the 0-node of the whole number entry line for the EEOB |
|
| SLINE(ZIN,ZARR,FLN,SLN) | ;
; ZIN - Input string; ZARR - Array output of lines ; FLN - First line length ; SLN - Subsequent line lengths ; Assumes ZIN max length is 132 characters and FLN and SLN variables will make ZIN fit in 3 lines. |
|
| CLINES(RCZZ0,RCT,ZZ1) | ; called from BLD ; set up the claim information lines
; ; Input - RCZZ0 = zero node data at 344.491 ; RCT = sub line # ; ZZ1 = reference to the to the subline in ; file 344.49 for RCSEQ having a decimal |
|
| REVLINES(RCSCR,RCZZ0,RCT,ZZ1) | ;called from BLD; set up the reviewed lines
; ; Input - RCSCR = ien of 344.49 (and 344.4) ; RCZZ0 = zero node data at 344.491 ; RCT = sub line # ; ZZ1 = reference to the to the subline in ; file 344.49 for RCSEQ having a decimal |
|
| ADJLINES(RCZZ0,RCT,ZZ1) | ; called from BLD; set up the adjustment lines
; ; Input - RCZZ0 = zero node data at 344.491 ; RCT = sub line # ; ZZ1 = reference to the to the subline in ; file 344.49 for RCSEQ having a decimal |
|
| RXLINES(RCZZ0,RCECME,RCT,ZZ1) | ; called from BLD ; set up the Pharmacy lines
|
|
| HDR | ; Creates header lines for the selected EEOB display
|
|
| RCPTS(RCDA,RC0) | ; pull list of 'other receipt #s
; input - RCDA = ien of entry in 344.4 ; RC0 = data string at zero node of entry in 344.4 ; output - RCPTS = returns list of receipts stored at 344.4,.08 and 344.48 multiple |
|
| RCPTSQ | ;
|
|
| EXIT | ; -- Clean up list
|
|
| 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) | ||
| MARK(RCIENS) | ;EP - Protocol action - RCDPE MARK FOR AUTO POST
; Mark for Auto-Post - EEOB on APAR gets marked for auto-post if it passes ; autoposting validation ; Input: RCIENS - Internal IEN of entry in file 344.49^ien of ; 344.491^selectable line item from listman screen |
|
| MARKQ | ;
|
|
| NOLOCK | ; entry cannot be locked
|
|
| VIEWERA(RCIENS) | ; View/Print ERA - protocol entry from APAR EEOB List screen and APAR - EEOB ITEM - SCRATCHPAD screen
|
|
| VALID(RCSCR,SCRLINE,RCARRAY) | ;Validates Scratchpad line - Used by APAR/Mark for Auto-post - split from RCDPEAP - PRCA*4.5*326
|
|
| UPDERA(ERAIEN,RCDUZ) | ; Update MARK FOR AUTOPOST USER top level ERA with DUZ from detail line. PRCA*4.5*326
; MARK FOR AUTOPOST USER is required at ERA level for initial receipt and AR transaction crreation ; so the MARK FOR AUTOPOST USER at the top level will be equal to the last detail line marekd for autopost |
|
| IEN41(IEN,LINE) | ; Given a scratch pad line, find the original ERA detail line. PRCA*4.5*332
; Input: IEN - Internal Entry number of ERA scratchpad from file 344.49 ; LINE - Line from ERA scratchpad file 344.49 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
