Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ($$FMTE,$$NOW)^XLFDT  ($$LJ,$$UP)^XLFSTR  DISP^XQORM1  
List Manager 3 EN^VALM  FULL^VALM1  SET^VALM10  
VA FileMan 1 ^DIR  

Caller Graph

Caller Graph Total: 38

Package Total Caller Graph
Accounts Receivable 38 RCDPE EEOB MARKED FOR AP AUDIT  RCDPE MISC REPORTS  RCDPE MISC REPORTS WIDE  RCDPE PARAMETERS REPORT  RCDPE VIEW ERA DETAIL  RCDPE8NZ  RCDPEAC  RCDPEAD1  
RCDPEADP  RCDPEAPP  RCDPEAR1  RCDPEAR2  RCDPEAR4  RCDPEDAR  RCDPEFA1  RCDPEFA3  
RCDPEFA4  RCDPEFTL  RCDPELA1  RCDPELAR  RCDPEM3  RCDPEM4  RCDPEM6  RCDPEMA1  
RCDPEMAP  RCDPENR1  RCDPENR2  RCDPEOP  RCDPESP1  RCDPESP2  RCDPESP3  RCDPESP8  
RCDPESPA  RCDPESPC  RCDPEWL0  RCDPEWL7  RCDPLPS2  RCDPRLIS  

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

External References

Name Field # of Occurrence
^DIR ASK+5, ASKLM+9, INCHMPVA+5, INTRICAR+5, EXCHMPVA+5, EXTRICAR+5
EN^VALM LMEN+5
FULL^VALM1 LMEXIT+2
SET^VALM10 LMINIT+3
$$FMTE^XLFDT NOW
$$NOW^XLFDT NOW
$$LJ^XLFSTR PAD+1
$$UP^XLFSTR UP+1
DISP^XQORM1 LMHLP+1

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
Routine Call
  • DIR
  • Line Location:
    • ASK+5
    • ASKLM+9
    • INCHMPVA+5
    • INTRICAR+5
    • EXCHMPVA+5
    • EXTRICAR+5
Routine Call
  • VALM
  • Line Location:
    • LMEN+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] PTR4302+35
^DGCR(399.3 - [#399.3] PTR4302+30
^IBM(361.1 - [#361.1] PTR4302+41
^PRCA(430.2 - [#430.2] PTR4302+26
^RCY(344 - [#344] PTR4302+58
^RCY(344.4 - [#344.4] PTR4302+48, PTR4302+51
^TMP($J SL+5*

Label References

Name Line Occurrences
$$EVALCLM CLMCHMPV+2, CLMTRICR+2
$$PTR4302 EVALCLM+8, PTR4302+31, PTR4302+37, PTR4302+43, PTR4302+54, PTR4302+60
$$UP EVALCLM+6, EVALCLM+10
ASK HDRLST+4
LMEN LMRPT+7

Naked Globals

Name Field # of Occurrence
^( PTR4302+51

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A ENDORPRT+1~*, UP~, UP+1
C LMINIT+2~*, LMINIT+3*, LMINIT+4, PTR4302+51~*, PTR4302+53*, PTR4302+54
DEFAULT ASKLM~, ASKLM+5*, ASKLM+8
DIR ASK+3~, ASKLM+4~, INCHMPVA+2~, INTRICAR+2~, EXCHMPVA+2~, EXTRICAR+2~
DIR("?" INCHMPVA+4*, INTRICAR+4*, EXCHMPVA+4*, EXTRICAR+4*
DIR("A" ASK+4*, ASKLM+7*, INCHMPVA+3*, INTRICAR+3*, EXCHMPVA+3*, EXTRICAR+3*
DIR("B" ASKLM+8*, INCHMPVA+3*, INTRICAR+3*, EXCHMPVA+3*, EXTRICAR+3*
DIR(0 ASK+5*, ASKLM+7*, INCHMPVA+3*, INTRICAR+3*, EXCHMPVA+3*, EXTRICAR+3*
DIROUT ASK+3~
DIRUT ASK+3~
DTOUT ASK+3~, ASK+6, ASKLM+9, INCHMPVA+2~, INCHMPVA+5, INTRICAR+2~, INTRICAR+5, EXCHMPVA+2~, EXCHMPVA+5, EXTRICAR+2~
, EXTRICAR+5
DUOUT ASK+3~, ASK+6, ASKLM+9, INCHMPVA+2~, INCHMPVA+5, INTRICAR+2~, INTRICAR+5, EXCHMPVA+2~, EXCHMPVA+5, EXTRICAR+2~
, EXTRICAR+5
F EVALCLM+5~, EVALCLM+7*, EVALCLM+10*, EVALCLM+11, PTR4302+11~, PTR4302+17*, PTR4302+54*
FLNTRY PTR4302~, PTR4302+17
IOF HDRLST+6
IOST ASK+2, HDRLST+4
J HDRLST+8~*, LMHDR+1~*, LMHDR+2*, LMINIT+2~*, LMINIT+3*, PTR4302+51~*
LMTMP LMEN~, LMEN+4, LMRPT~, LMRPT+6*, LMRPT+7
LNGTH PAD~, PAD+1
PF PTR4302+11~, PTR4302+36*, PTR4302+37, PTR4302+42*, PTR4302+43, PTR4302+52*, PTR4302+54, PTR4302+59*, PTR4302+60
R EVALCLM+5~, EVALCLM+8*, EVALCLM+10
RC2GLBL SL~, SL+4, SL+5
>> RCDISPTY HDRLST+4, HDRLST+6
RCFLNUM PTR4302+11~, PTR4302+17*, PTR4302+18, PTR4302+22, PTR4302+25, PTR4302+29, PTR4302+34, PTR4302+40, PTR4302+47, PTR4302+57
, PTR4302+63
RCHDR HDRLST~
RCHDR( HDRLST+8
RCHDR("XECUTE" HDRLST+7
RCHDR(0 HDRLST+8
RCIEN PTR4302+11~, PTR4302+17*, PTR4302+19, PTR4302+22, PTR4302+26, PTR4302+30, PTR4302+35, PTR4302+41, PTR4302+48, PTR4302+51
, PTR4302+58
RCLMHDR LMRPT~, LMRPT+5
RCLMHDR( LMHDR+2
RCLMHDR("TITLE" LMHDR+3
RCLMIEN CLMCHMPV~, CLMCHMPV+2, CLMTRICR~, CLMTRICR+2, EVALCLM~, EVALCLM+4, EVALCLM+7, EVALCLM+8
RCLMND LMINIT+3, LMEXIT+1, LMRPT~, LMRPT+5
RCLNCNT SL~, SL+5*
>> RCPGNUM HDRLST+4
RCSTOP HDRLST~, HDRLST+2, HDRLST+4, HDRLST+5
RSLT ASKLM+4~, ASKLM+6*, ASKLM+9*, ASKLM+10, EVALCLM+5~, EVALCLM+6*, EVALCLM+7, EVALCLM+8, EVALCLM+11*, EVALCLM+12
, INCHMPVA+2~*, INCHMPVA+5*, INCHMPVA+6, INTRICAR+2~*, INTRICAR+5*, INTRICAR+6, EXCHMPVA+2~*, EXCHMPVA+5*, EXCHMPVA+6, EXTRICAR+2~*
, EXTRICAR+5*, EXTRICAR+6, PTR4302+11~, PTR4302+17*, PTR4302+22*, PTR4302+25, PTR4302+26*, PTR4302+29, PTR4302+31*, PTR4302+34
, PTR4302+36*, PTR4302+37*, PTR4302+40, PTR4302+42*, PTR4302+43*, PTR4302+47, PTR4302+49*, PTR4302+51, PTR4302+52*, PTR4302+54*
, PTR4302+57, PTR4302+59*, PTR4302+60*, PTR4302+63*, PTR4302+65
STOP ASK~, ASK+6*
T EVALCLM+5~, EVALCLM+6*, EVALCLM+11, SL~, SL+4, SL+5
TRGTXT EVALCLM~, EVALCLM+4, EVALCLM+6
TXT PAD~, PAD+1
U PTR4302+17, PTR4302+18, PTR4302+19, PTR4302+26, PTR4302+30, PTR4302+36, PTR4302+42, PTR4302+53, PTR4302+59, PTR4302+63
>> VALM("TITLE" LMHDR+3*
>> VALMCNT LMINIT+4*
>> VALMHDR( LMHDR+2*
X ASK+3~, ASKLM+4~, INCHMPVA+2~, INTRICAR+2~, EXCHMPVA+2~, EXTRICAR+2~, LMHLP+1*, PTR4302+11~, PTR4302+26*, PTR4302+30*
, PTR4302+35*, PTR4302+36, PTR4302+41*, PTR4302+42, PTR4302+48*, PTR4302+51*, PTR4302+53, PTR4302+58*, PTR4302+59
XX LMEN+3~, LMEN+4*, LMEN+5
Y ASK+3~, ASK+6, ASKLM+4~, ASKLM+9, INCHMPVA+2~, INCHMPVA+5, INTRICAR+2~, INTRICAR+5, EXCHMPVA+2~, EXCHMPVA+5
, EXTRICAR+2~, EXTRICAR+5, LMINIT+2~, LMINIT+3*, PTR4302+11~, PTR4302+26*, PTR4302+30*, PTR4302+31, PTR4302+36*, PTR4302+37
, PTR4302+42*, PTR4302+43, PTR4302+53*, PTR4302+54, PTR4302+59*, PTR4302+60
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All