Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: RCDPEARL

Package: Accounts Receivable

Routine: RCDPEARL


Information

RCDPEARL ;ALB/HRUBOVCAK - Misc. Report utilities for ListMan, etc. ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEARL.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDRLST+6
Function Call: WRITE
  • Prompt: !,RCHDR(J)
  • Line Location: HDRLST+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: LMHLP+1
Function Call: WRITE
  • Prompt: !,T
  • Line Location: SL+4
Info |  Source |  Entry Points |  Interaction Calls