Routine: RCDPEARL

Information

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

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

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 30

Package	Total	Caller Graph
Accounts Receivable	30	RCDPE8NZ RCDPEAC RCDPEAD1 RCDPEADP RCDPEAPP RCDPEAR1 RCDPEAR2 RCDPEDAR RCDPEFA1 RCDPEFA3 RCDPEFA4 RCDPEFTL RCDPELA1 RCDPELAR RCDPEM3 RCDPEM4 RCDPEM6 RCDPEMA1 RCDPEMAP RCDPENR1 RCDPENR2 RCDPESP1 RCDPESP2 RCDPESP3 RCDPESP8 RCDPESPA 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

Customize PDF page

Package: Accounts Receivable