RCDPEARL ;ALB/HRUBOVCAK - Misc. Report utilities for ListMan, etc. ;Jun 06, 2014@19:11:19
Source file <RCDPEARL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASK(STOP) | ; Ask to continue
; STOP passed by ref., returned as 1 if timeout or user enters '^' |
|
| ASKLM(DEFAULT) | ; Extrinsic function, ask for ListMan display using ^DIR
; Input: DEFAULT - 1 - Default 'YES', 0 - Default 'NO' ; Optional defaults to 0 ; Returns: 0 - No, 1 - YES, -1 on timeout or '^' |
|
| CLMCHMPV(RCLMIEN) | ; boolean function, returns true if CHAMPVA claim, else false
; RCLMIEN - file entry, format: 'file #;ien' (see PTR4302 comments) |
|
| CLMTRICR(RCLMIEN) | ; boolean function, returns true if TRICARE claim, else false
; RCLMIEN - file entry, format: 'file #;ien' (see PTR4302 comments) |
|
| ENDORPRT() | ; extrinsic variable, formatted for 80 column display
|
|
| EVALCLM(RCLMIEN,TRGTXT) | ; boolean function, case insensitive
; returns 1 if claim has target text, else false (error messages evaluate as false) ; RCLMIEN (required) - file entry, format: 'file #;ien' (see PTR4302 comments) ; TRGTXT (required) - target text |
|
| INCHMPVA() | ; function, include CHAMPVA question
; returns zero = No, 1 = yes, -1 on timeout or '^' |
|
| INTRICAR() | ; function, include TRICARE question
; returns zero = No, 1 = yes, -1 on timeout or '^' |
|
| EXCHMPVA() | ; function, exclude CHAMPVA question - EP RCDPEM4
; returns zero = No, 1 = yes, -1 on timeout or '^' |
|
| EXTRICAR() | ; function, exclude TRICARE question - EP RCDPEM4
; returns zero = No, 1 = yes, -1 on timeout or '^' |
|
| HDRLST(RCSTOP,RCHDR) | ; write the header in RCHDR
; RCSTOP, RCHDR passed by ref. |
|
| LMEN(LMTMP) | ; Invoke ListMan for RCDPE MISC REPORTS list template
; Input: LMTMP - Name of a different listman template to use ; Optional, defaults to "" |
|
| LMHDR | ; ListMan header
|
|
| LMINIT | ; set up ListMan array, invoked from inside List Template
|
|
| LMHLP | ; ListMan help
|
|
| LMEXIT | ; performed on exiting ListMan screen
|
|
| LMEXPND | ; expand code for ListMan
|
|
| LMRPT(RCLMHDR,RCLMND,LMTMP) | ; Generate ListMan display
; Input: RCLMHDR - Header text, passed by ref. (required) ; RCLMND - Storage node for ListMan data (required) ; LMTMP - Name of a listman template to use ; Optional, defaults to "" |
|
| NOW() | ||
| PAD(TXT,LNGTH) | ; function, pad TXT with spaces to LNGTH
|
|
| PTR4302(FLNTRY) | ; function, returns entry from 430.2 or error message
; FLNTRY - file entry (required), format: 'file #;ien' ; on success returns 'ien^name' else '^error message' ; file number and ien can be from: ; ^PRCA(430.2,0) = ACCOUNTS RECEIVABLE CATEGORY^430.2I ; ^DGCR(399.3,0) = RATE TYPE^399.3I^ ; ^DGCR(399,0) = BILL/CLAIMS^399I ; ^IBM(361.1,0) = EXPLANATION OF BENEFITS^361.1PI^ ; ^RCY(344.4,0) = ELECTRONIC REMITTANCE ADVICE^344.4I ; ^RCY(344,0) = AR BATCH PAYMENT^344I |
|
| SL(T,RCLNCNT,RC2GLBL) | ; Set text into global or write line
; T = text to output ; RCLNCNT = line counter, passed by ref. (optional) ; RC2GLBL = if non-null indicates output to global, no writes |
|
| UP(A) | ; Returns UPPERCASE
|
|
| DEBEFT(RC0) | ; Add minus sign for debit amounts PRCA*4.5*432
; Input: RC0 - Initially set to node 0 (zero) of #344.31 entry, EDI THIRD PARTY EFT DETAIL FILE ; Output: RC0 - Add minus sign for negative dollar amounts ; Piece 7 of RC0, #.07, AMOUNT OF PAYMENT ; Piece 16 of RC0, #3, DEBIT/CREDIT FLAG |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
