Routine: RCDPRPLM

Information

RCDPRPLM ; WISC/RFJ-receipt profile List Manager main routine ;31 Oct 2018 09:14:14

Package	Total	Call Graph
Accounts Receivable	5	$$ADDPTEDT^PRCAACC ($$OPTCK,SHEOB)^RCDPRPL2 $$CHECKPAY^RCDPRPL3 ($$FMSSTAT,$$ISCHMPVA,$$SELRECT)^RCDPUREC $$GETUNAPP^RCXFMSCR
List Manager	3	EN^VALM $$SETSTR^VALM1 (CNTRL,SET)^VALM10
VA FileMan	2	$$GET1^DIQ EN^DIQ1
Generic Code Sheet	1	DATA^GECSSGET

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

Package	Total	Caller Graph
Accounts Receivable	13	RCDP RECEIPT PROCESSING RCDP RECEIPT PROFILE RCDPDPLM RCDPEM0 RCDPLPL1 RCDPRLIS RCDPRPL1 RCDPRPL2 RCDPRPL3 RCDPRPL4 RCDPRPLU RCDPXPAM RCDPXPAP

Entry Points

Name	Comments	DBIA/ICR reference
RECTPROF	;EP from RECEIPT^RCDPLPL1 ; Entry point called by link payment to prevent NEWing fast exit var RCDPFXIT
INIT	;EP from ListMan template RCDP RECEIPT PROFILE MENU ; EP from CUSTOMIZ^RCDPRPL2 ; Initialization for list manager ; Input: RCRECTDA - IEN for the selected receipt (#344)
SET(STRING,LINE,COLBEG,COLEND,FIELD,ON,OFF)	; Sets a line into the body ; of the ListMan template ; Input: ; STRING - Label for the data being set ; LINE - line # being built ; COLBEG - Beginning column for the text ; COLEND - Ending column for the text ; FIELD - Field # for value being set, optional ; NOTE: if FIELD is .17 trace # is retrieved from EFT record ; ON, OFF - for text characteristics ; RCDPDATA - array for receipt being processed ; RCTRDA - IEN in TRANSACTION sub-file (#344.01)
TRCNUM(ARBPIEN)	; returns trace #, ARBPIEN is IEN in file #344 - PRCA4.5332
DIQ344(DA,DR)	; Retrieves data for fields in file #344 ; Input: DA - IEN of the receipt to retrieve data from (#344) ; DR - List of fields to retrieve data for ; Output: RCDPDATA - Array of retrieved data
DIQ34401(DA,SUBDA)	; Retrieves data for fields in the transaction subfile (#344.01) ; of the receipt file (#344) ; Input: DA - IEN of the receipt to retrieve data from (#344) ; SUBDA - IEN of the sub-file record (#344.01) ; Output: RCDPDATA - Array of retrieved data
HDR	;EP from ListMan Template RCDP RECEIPT PROFILE ; Header code for list manager display
EXIT	;EP from ListMan Template RCDP RECEIPT PROFILE ; Exit option/clean up
SP()

External References

Name	Field # of Occurrence
$$GET1^DIQ	TRCNUM+10, HDR+25, HDR+26, HDR+35, HDR+44, HDR+45, HDR+47
EN^DIQ1	DIQ344+7, DIQ34401+9
DATA^GECSSGET	INIT+134
$$ADDPTEDT^PRCAACC	INIT+11
$$OPTCK^RCDPRPL2	INIT+52, INIT+66, INIT+75, INIT+79, INIT+88, INIT+128
SHEOB^RCDPRPL2	INIT+140
$$CHECKPAY^RCDPRPL3	INIT+48
$$FMSSTAT^RCDPUREC	INIT+129, HDR+14
$$ISCHMPVA^RCDPUREC	HDR+16
$$SELRECT^RCDPUREC	RECTPROF+5
$$GETUNAPP^RCXFMSCR	INIT+29
EN^VALM	RECTPROF+7
$$SETSTR^VALM1	SET+20
CNTRL^VALM10	SET+21
SET^VALM10	SET+18, SET+19, SET+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: RECTPROF+5
Routine Call	VALM Line Location: RECTPROF+7

FileNo	Call Tags
^RCY(344 - [#344]	Classic Fileman Calls
^RCY(344.31 - [#344.31]	GET1^DIQ
^RCY(344.4 - [#344.4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344 - [#344]	INIT+12, INIT+19, INIT+24, INIT+82, INIT+83, TRCNUM+3, TRCNUM+6, HDR+11
^RCY(344.3 - [#344.3]	INIT+12, TRCNUM+7, HDR+12
^RCY(344.31 - [#344.31]	INIT+14, INIT+15, TRCNUM+8
^RCY(344.49 - [#344.49]	INIT+84
^TMP("RCDPRPLM"	INIT+6!, EXIT+2!
^TMP("VALM VIDEO"	INIT+6!
^TMP($J	INIT+10!, INIT+16*, INIT+28, INIT+97!

Label References

Name	Line Occurrences
$$SP	INIT+114, INIT+119, INIT+124, HDR+6, HDR+28, HDR+34, HDR+36, HDR+46, HDR+48
$$TRCNUM	SET+14
DIQ344	INIT+8, HDR+3
DIQ34401	INIT+20
HDR	INIT+144
SET	INIT+21, INIT+25, INIT+31, INIT+34, INIT+39, INIT+42, INIT+44, INIT+45, INIT+50, INIT+55 , INIT+57, INIT+58, INIT+61, INIT+64, INIT+73, INIT+77, INIT+80, INIT+87, INIT+89, INIT+98 , INIT+99, INIT+100, INIT+101, INIT+104, INIT+107, INIT+110, INIT+111, INIT+115, INIT+120, INIT+125 , INIT+130, INIT+131, INIT+132, INIT+133, INIT+137

Naked Globals

Name	Field # of Occurrence
^(	INIT+84
^(1	INIT+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%I	DIQ344+4~, DIQ34401+5~
ARBPIEN	TRCNUM~, TRCNUM+3, TRCNUM+6
COLBEG	SET~, SET+20, SET+21
COLEND	SET~, SET+20
D0	DIQ344+4~, DIQ34401+5~
DA	DIQ344~, DIQ344+5, DIQ34401~
DA(	DIQ34401+7*
DATE	INIT+4~, INIT+112, INIT+114, INIT+117, INIT+119, INIT+122*, INIT+124, HDR+2~
DEPIEN	TRCNUM+1~, TRCNUM+6, TRCNUM+7, HDR+2~, HDR+11, HDR+12
DIC	DIQ344+4~, DIQ344+6, DIQ34401+5~, DIQ34401+8
DIQ	DIQ344+4~, DIQ344+6, DIQ34401+5~, DIQ34401+8
DIQ(0	DIQ344+6, DIQ34401+8
DR	DIQ344~, DIQ34401+5~, DIQ34401+7*
DR(	DIQ34401+7*
DT	INIT+11
EFTFUND	INIT+4~, INIT+11*, INIT+28
EFTIEN	HDR+2~, HDR+13*, HDR+21, HDR+25, HDR+26, HDR+43, HDR+44, HDR+45, HDR+47
ERAIEN	HDR+2~, HDR+31*, HDR+33, HDR+35
FIELD	SET~, SET+13, SET+14, SET+16, SET+17, SET+18
FMSDOC	INIT+4~, INIT+129, INIT+132, INIT+133, INIT+134, HDR+2~, HDR+14, HDR+15, HDR+39, HDR+49
FMSTTR	HDR+2~, HDR+15*, HDR+33, HDR+35, HDR+43, HDR+47
GECSDA1	INIT+4~, INIT+136*, INIT+137
GECSDATA	INIT+4~, INIT+135, INIT+136, INIT+137
GECSDATA(	INIT+136, INIT+137
>> IOUOFF	INIT+111, INIT+131
>> IOUON	INIT+111, INIT+131
LINE	SET~, SET+18, SET+19, SET+20, SET+21
OFF	SET~, SET+21
ON	SET~, SET+21
PAYER	HDR+2~, HDR+25*, HDR+27
PTR	TRCNUM+1~, TRCNUM+3, TRCNUM+5, TRCNUM+7, TRCNUM+8*, TRCNUM+10
RCCANCEL	INIT+4~, INIT+23, INIT+25, INIT+76
RCDPDATA	INIT+4~, HDR+2~
RCDPDATA(	INIT+27, INIT+30, INIT+33, INIT+36, INIT+38, INIT+41, INIT+43, INIT+44, INIT+45, INIT+56 , INIT+68, INIT+69, INIT+70, INIT+75, INIT+79, INIT+82, INIT+83, INIT+91, INIT+92, INIT+94! , SET+16, DIQ34401+6!
RCDPDATA(344	INIT+54, INIT+60, INIT+63, INIT+112, INIT+113, INIT+114, INIT+117, INIT+118, INIT+122, INIT+123 , INIT+124, DIQ344+5!, HDR+6, HDR+7, HDR+10, HDR+13, HDR+16, HDR+17, HDR+28, HDR+31 , HDR+33, HDR+53, HDR+54
RCDPFCAN	INIT+4~, INIT+25*, INIT+104
RCDPFXIT	RCDPRPLM+5~, RECTPROF+8, INIT+7
RCEFT	INIT+4~, INIT+12, INIT+13, INIT+14, INIT+28, INIT+29, HDR+2~, HDR+12, HDR+21, HDR+22
RCHMP	HDR+2~, HDR+16*, HDR+20
RCLINE	INIT+4~, INIT+9, INIT+21, INIT+25, INIT+31, INIT+34, INIT+39, INIT+42, INIT+44, INIT+45 , INIT+50, INIT+55, INIT+57, INIT+58, INIT+61, INIT+64, INIT+72, INIT+73, INIT+77, INIT+80* , INIT+87, INIT+89, INIT+98, INIT+99, INIT+100, INIT+101, INIT+104, INIT+107, INIT+110, INIT+111 , INIT+115, INIT+120, INIT+125, INIT+130, INIT+131, INIT+132, INIT+133, INIT+137, INIT+143
RCRECTDA	RECTPROF+2~, RECTPROF+4, RECTPROF+5, RECTPROF+6, RECTPROF+8*, INIT+8, INIT+12, INIT+19, INIT+20, INIT+24 , INIT+29, INIT+48, INIT+54, INIT+60, INIT+63, INIT+82, INIT+83, INIT+112, INIT+113, INIT+114 , INIT+117, INIT+118, INIT+122, INIT+123, INIT+124, INIT+129, SET+14, HDR+3, HDR+6, HDR+7 , HDR+10, HDR+11, HDR+13, HDR+14, HDR+16, HDR+17, HDR+28, HDR+31, HDR+33, HDR+53 , HDR+54
RCTOT	HDR+2~, HDR+17*, HDR+20
RCTOTAL	INIT+4~
RCTOTAL(1	INIT+91*, INIT+100
RCTOTAL(2	INIT+92*, INIT+101
RCTRDA	INIT+4~, INIT+18, INIT+19, INIT+20, INIT+24, INIT+27, INIT+28, INIT+29, INIT+30, INIT+33 , INIT+36, INIT+38, INIT+41, INIT+43, INIT+44, INIT+45, INIT+48, INIT+56, INIT+68, INIT+69 , INIT+70, INIT+75, INIT+79, INIT+82, INIT+83, INIT+91, INIT+92, INIT+94, SET+16
RCZ	INIT+5~, INIT+83*, INIT+84
RCZ0	INIT+5~, INIT+83*, INIT+84
RCZ1	INIT+5~, INIT+84*
RCZ2	INIT+5~, INIT+84*, INIT+85, INIT+86, INIT+87, INIT+88, INIT+89
STRING	SET~, SET+17*, SET+18, SET+20, SET+21
SUBDA	DIQ34401~, DIQ34401+6, DIQ34401+7
TIN	HDR+24~, HDR+26*, HDR+27
TRNS	INIT+67~
TRNS("acctLkup"	INIT+68*, INIT+71
TRNS("btch#"	INIT+69*, INIT+71, INIT+73
TRNS("sq#"	INIT+70*, INIT+71, INIT+73
U	INIT+12, INIT+16, INIT+28, INIT+82, INIT+83, INIT+85, INIT+86, INIT+87, INIT+88, INIT+89 , TRCNUM+3, TRCNUM+6, HDR+11
>> VALMAR	SET+19, SET+20
>> VALMCNT	INIT+143*
>> VALMHDR(1	HDR+8*
>> VALMHDR(2	HDR+29*
>> VALMHDR(3	HDR+40*
>> VALMHDR(4	HDR+50*
>> VALMQUIT	INIT+7*
>> VALMSG	HDR+54*
X	INIT+5~, INIT+33, INIT+34, INIT+36, INIT+38, INIT+39, INIT+41, INIT+42, INIT+48, INIT+49 , INIT+56, INIT+57, INIT+76, INIT+77, INIT+110, INIT+118, INIT+119
XX	INIT+5~, INIT+28, INIT+29, INIT+30, INIT+34, INIT+49, INIT+50, INIT+57, INIT+114, INIT+115 , INIT+119, INIT+120, INIT+124, INIT+125, SET+12~, SET+14, SET+16, SET+17, HDR+2~, HDR+6* , HDR+7, HDR+8, HDR+18, HDR+20, HDR+21, HDR+22, HDR+27, HDR+28, HDR+29, HDR+32 , HDR+33, HDR+34, HDR+35, HDR+36, HDR+39, HDR+40, HDR+42, HDR+44, HDR+45, HDR+46* , HDR+47, HDR+48, HDR+49*, HDR+50
YY	DIQ344+4~
Z	INIT+5~, INIT+14, INIT+15, INIT+16, HDR+2~, HDR+10, HDR+21, HDR+22
Z0	INIT+5~, INIT+15*, INIT+16

Customize PDF page

Package: Accounts Receivable