Routine: RCDPBTLM

Information

RCDPBTLM ;WISC/RFJ - bill transactions List Manager top routine ;1 Jun 99

Package	Total	Call Graph
Accounts Receivable	6	$$COMP3^PRCAAPR $$IBEEOBCK^PRCAAPR1 SET^RCDPAPLI $$ACCNTHDR^RCDPAPLM DIQ430^RCDPBPLM $$TRANBAL^RCRJRCOT
VA FileMan	3	^DIC $$GET1^DIQ ^DIR
Integrated Billing	1	$$REC^IBRFN
List Manager	1	EN^VALM

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

Package	Total	Caller Graph
Accounts Receivable	20	PRCA399F PRCAI16A RCBDBBAL RCBDFST1 RCBDPSLM RCBECHGE RCBEIB RCBEUBIL RCBEUTRA RCCPCPS RCDP BILL TRANSACTIONS RCDP TRANSACTIONS LIST RCDPBPL1 RCDPBPLI RCDPBPLM RCDPBTL1 RCDPTPLM RCEXINAD RCKATP RCYPO237

Entry Points

Name	Comments	DBIA/ICR reference
INIT	; initialization for list manager list ; requires rcbillda ; PRCA3.5315 - Replaced "^" with VA Standard Variable U throughout
HDR	; header code for list manager display ; requires rcbillda
EXIT	; exit list manager option and clean up
SELBILL()	; select a bill ; returns -1 for timeout or ^, 0 for no selection, or ien of bill
GETTRANS(BILLDA)	; original amount goes first for bill ; returns list of transactions in ; rclist(date,tranda)=trantype ^ principle ^ interest ^ admin ; returns principle balance ^ interest balance ^ admin balance ; ^ marshall fee balance ^ court cost balance
TRANVALU(TRANDA)	; return the transaction value as displayed (with + or - sign)
SELECME()	; ; function takes the user input of the ECME # to return a valid ien of file 430 ; if an invalid ECME is evaluated then the process keeps asking the user for ECME # ; until a valid ECME# is entered or until the user enters a U or null value ; output - returns the IEN of the record entry in the ACCOUNT RECEIVABLE file (#430) or "??"
RET

External References

Name	Field # of Occurrence
^DIC	SELBILL+16
$$GET1^DIQ	GETTRANS+16
^DIR	SELBILL+9, RET
$$REC^IBRFN	RET+2
$$COMP3^PRCAAPR	HDR+11
$$IBEEOBCK^PRCAAPR1	HDR+12
SET^RCDPAPLI	INIT+25, INIT+27, INIT+28, INIT+29, INIT+30, INIT+31, INIT+34, INIT+38, INIT+40, INIT+41 , INIT+42, INIT+43, INIT+57, INIT+59, INIT+60, INIT+61, INIT+62
$$ACCNTHDR^RCDPAPLM	HDR+7
DIQ430^RCDPBPLM	HDR+4, GETTRANS+7
$$TRANBAL^RCRJRCOT	TRANVALU+2
EN^VALM	RCDPBTLM+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: RCDPBTLM+11
Function Call: WRITE	Prompt: !!,"??" Line Location: RET+3
Function Call: WRITE	Prompt: !!,$P($G(^PRCA(430,+RCBILL,0)),U)," " Line Location: RET+4
Routine Call	DIC Line Location: SELBILL+16
Routine Call	DIR Line Location: SELBILL+9 RET
Routine Call	VALM Line Location: RCDPBTLM+13

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^PRCA(430 - [#430]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCA(430 - [#430]	INIT+47, INIT+51, HDR+6, RET+4
^PRCA(430.3 - [#430.3]	GETTRANS+20
^PRCA(433 - [#433]	GETTRANS+13, GETTRANS+14, GETTRANS+17, TRANVALU+6
^TMP("RCDPBTLM"	INIT+4!, INIT+24*, EXIT+1!
^TMP("RCDPBTLMX"	EXIT+1!
^TMP("VALM VIDEO"	INIT+4!

Label References

Name	Line Occurrences
$$GETTRANS	INIT+15
$$SELBILL	RCDPBTLM+11
$$SELECME	SELBILL+11
$$TRANVALU	GETTRANS+19
HDR	INIT+66
RET	RET+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HDR+2~, HDR+9, HDR+13, HDR+14, HDR+18, SELBILL+2~, GETTRANS+5~, GETTRANS+32
%Y	SELBILL+2~
ADMBAL	GETTRANS+5~, GETTRANS+10, GETTRANS+26, GETTRANS+35
ADMIN	INIT+3~, INIT+33*, INIT+34
AMTDISP	GETTRANS+5~, TRANVALU+18!, TRANVALU+20*, TRANVALU+22
BILLDA	GETTRANS~, GETTRANS+7, GETTRANS+11, GETTRANS+13, GETTRANS+30, GETTRANS+33
C	SELBILL+2~
CCBAL	GETTRANS+5~, GETTRANS+10, GETTRANS+28, GETTRANS+35
DATA	HDR+2~, HDR+7*, HDR+13, HDR+14, HDR+18
DATA0	GETTRANS+5~, GETTRANS+14*, GETTRANS+15
DATA1	GETTRANS+5~, GETTRANS+17*, GETTRANS+18, GETTRANS+20
DATE	INIT+3~, INIT+17, INIT+18, INIT+28, INIT+29, INIT+30, INIT+31, INIT+33, GETTRANS+5~, GETTRANS+18 , GETTRANS+20, GETTRANS+21, GETTRANS+30, GETTRANS+32, GETTRANS+33
DIC	SELBILL+2~, SELBILL+12*
DIC("A"	SELBILL+12*
DIC("W"	SELBILL+13*
DIC(0	SELBILL+12*
DIR	SELBILL+4~, SELBILL+9!, SELECME+5~
DIR("A"	SELBILL+6, SELECME+7
DIR("B"	SELBILL+8*
DIR(0	SELBILL+7, SELECME+6
DIRUT	SELBILL+4~, SELBILL+9, SELECME+5~, RET
DPTNOFZK	SELBILL+3~*
DPTNOFZY	SELBILL+3~*
DTOUT	SELBILL+2~, SELBILL+17
DUOUT	SELBILL+2~, SELBILL+17
INTBAL	GETTRANS+5~, GETTRANS+10, GETTRANS+25, GETTRANS+35
>> IORVOFF	INIT+25, HDR+18
>> IORVON	INIT+25, HDR+18
MFBAL	GETTRANS+5~, GETTRANS+10, GETTRANS+27, GETTRANS+35
>> PRCOUT	HDR+11, HDR+12, HDR+13
PRINBAL	GETTRANS+5~, GETTRANS+10, GETTRANS+11, GETTRANS+24*, GETTRANS+35
RCBEFLUP	SELBILL+2~, SELBILL+15*
RCBILL	SELECME+5~, RET+2*, RET+3, RET+4, RET+5
RCBILLDA	RCDPBTLM+8~, RCDPBTLM+10, RCDPBTLM+11, RCDPBTLM+12, RCDPBTLM+15*, INIT+15, INIT+47, INIT+51, HDR+4, HDR+6 , HDR+11, HDR+12, HDR+13, HDR+14
RCDATA7	INIT+46~, INIT+47, INIT+51, INIT+52, INIT+53, INIT+54, INIT+60, INIT+61, INIT+62
RCDEBTDA	HDR+2~, HDR+6*, HDR+7
RCDPDATA	HDR+2~, GETTRANS+5~
RCDPDATA(430	HDR+13, HDR+14, GETTRANS+11, GETTRANS+30, GETTRANS+33
RCDPFXIT	RCDPBTLM+8~, RCDPBTLM+15, INIT+7
RCECME	SELECME+5~, RET+1*, RET+2
RCFOUT	INIT+46~, INIT+52, INIT+53, INIT+54*, INIT+55
RCLINE	INIT+3~, INIT+10, INIT+19, INIT+25, INIT+27, INIT+28, INIT+29, INIT+30, INIT+31, INIT+34 , INIT+37, INIT+38, INIT+39, INIT+40, INIT+41, INIT+42, INIT+43, INIT+56, INIT+57, INIT+58 , INIT+59, INIT+60, INIT+61, INIT+62, INIT+65
RCLIST	INIT+3~, GETTRANS+9!
RCLIST(	INIT+17, INIT+18, INIT+29, INIT+30, INIT+31, INIT+33, GETTRANS+20, GETTRANS+21, GETTRANS+33*
RCLIST(0	GETTRANS+32
RCTOTAL	INIT+3~, INIT+15*, INIT+41, INIT+42, INIT+43, INIT+52, INIT+53, INIT+54, HDR+18
RCTRAN	INIT+3~, INIT+12, INIT+23, INIT+24, INIT+25
RCTRANDA	INIT+3~, INIT+18*, INIT+22, INIT+24, INIT+27, INIT+29, INIT+30, INIT+31, INIT+33
RCUSER	GETTRANS+5~, GETTRANS+15, GETTRANS+16, GETTRANS+21
RCY	SELBILL+4~, SELBILL+10*, SELBILL+11
TRANDA	GETTRANS+5~, GETTRANS+13*, GETTRANS+14, GETTRANS+17, GETTRANS+19, GETTRANS+20, GETTRANS+21, TRANVALU~, TRANVALU+2, TRANVALU+6
TYPE	TRANVALU+1~, TRANVALU+6*, TRANVALU+7, TRANVALU+19
U	INIT+29, INIT+30, INIT+31, INIT+33, INIT+41, INIT+42, INIT+43, INIT+51, INIT+52, INIT+53 , INIT+54, INIT+60, INIT+61, INIT+62, HDR+6, HDR+13, HDR+14, HDR+18, GETTRANS+15, GETTRANS+18 , GETTRANS+20, GETTRANS+21, GETTRANS+24, GETTRANS+25, GETTRANS+26, GETTRANS+27, GETTRANS+28, GETTRANS+35, TRANVALU+4, TRANVALU+6 , TRANVALU+8, TRANVALU+9, TRANVALU+10, TRANVALU+11, TRANVALU+12, TRANVALU+20, TRANVALU+22, RET+4
>> VALMCNT	INIT+65*
>> VALMHDR(1	HDR+13*
>> VALMHDR(2	HDR+14*
>> VALMHDR(3	HDR+18*
>> VALMQUIT	INIT+7*
>> VALMSG	HDR+16*
VALUE	GETTRANS+5~, GETTRANS+19, GETTRANS+20, GETTRANS+24, GETTRANS+25, GETTRANS+26, GETTRANS+27, GETTRANS+28, TRANVALU+1~, TRANVALU+2 , TRANVALU+4, TRANVALU+8, TRANVALU+9, TRANVALU+10, TRANVALU+11, TRANVALU+12, TRANVALU+20, TRANVALU+21, TRANVALU+22
X	SELBILL+2~
Y	SELBILL+2~, SELBILL+10, SELBILL+17*, SELBILL+18, SELECME+5~, RET+1

Customize PDF page

Package: Accounts Receivable