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 |
|