Routine: RCDPURE1

Information

RCDPURE1 ;WISC/RFJ - Process a Receipt ;Jun 06, 2014@19:11:19

Package	Total	Call Graph
Accounts Receivable	8	$$FPS^RCAMFN01 $$PROCESS^RCBEPAY ($$EDILB,$$HACEFT)^RCDPEU $$OPTCK^RCDPRPL2 MARKPROC^RCDPUREC $$LDATE^RCRJR $$BUILDCR^RCXFMSCR $$GETTR^RCXFMST1
Kernel	2	^%ZISC ^%ZTLOAD
VA FileMan	2	DD^%DT ^DIE
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: 6

Package	Total	Caller Graph
Accounts Receivable	6	RCDPEAP RCDPEM0 RCDPEWL5 RCDPRPL3 RCDPUREC RCDPXPAP

Entry Points

Name	Comments	DBIA/ICR reference
PROCESS(RCRECTDA,RCSCREEN)	; process a receipt, update ar, generate cr/tr documents to fms ; the receipt and deposit must be locked before calling this label ; if $g(rcscreen) = 1 show messages during processing ; if $g(rcscreen) = 2 store messages during processing ;
215	; === print 215 report ===
Q215
UPDERA(RCERA)	; Update detail posted status for ERA entry RCERA
MSG(RCMSG,RCSCREEN,PRELINE,POSTLINE)	; Write message or set into msg array ; RCMSG = text to write RCSCREEN = screen flag ; PRELINE = the line feeds to print before the text ; POSTLINE = the line feeds to print after the text
MSGQ
EDIT4(DA,DR,RCDR1,RCDR2,RCDR3)	; Modify DR string for type of payment edit ; for EDI Lockbox ; Input: DA,DR Output: RCDR1,RCDR2,RCDR3 ; If type unchanged, or neither old/new are EDI Lockbox, no chk needed ; If old type is EDI Lockbox and scratch pad exists, no change allowed ; If changed to EDI Lockbox and detail already exists, no chg allowed without UNMATCH EFT key ; If changed to EDI Lockbox, ask for related EFT
SETV	; Set up variables needed to edit change of receipt type, used in DR strings to edit AR BATCH PAYMENT (#344) ; RCO4 = existing (#.04) TYPE OF PAYMENT value, RCOE = existing (#.17) EFT RECORD value
WL(DA)	; Function returns 0 if the worklist did not create the receipt ; or the ien of the worklist entry if it did (344.4 and 344.49 are DINUMED)
HAC(RC)	; Returns 1 if the receipt in RC is related to a HAC EFT

External References

Name	Field # of Occurrence
DD^%DT	PROCESS+121
^%ZISC	215+7
^%ZTLOAD	215+7
^DIE	PROCESS+117, PROCESS+118, UPDERA+3
DATA^GECSSGET	PROCESS+98
$$FPS^RCAMFN01	PROCESS+121
$$PROCESS^RCBEPAY	PROCESS+60
$$EDILB^RCDPEU	PROCESS+38
$$HACEFT^RCDPEU	PROCESS+86
$$OPTCK^RCDPRPL2	215+3
MARKPROC^RCDPUREC	PROCESS+34, PROCESS+126
$$LDATE^RCRJR	PROCESS+121
$$BUILDCR^RCXFMSCR	PROCESS+105
$$GETTR^RCXFMST1	PROCESS+107

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: PROCESS+121
Function Call: WRITE	Prompt: ! Line Location: MSG+8
Function Call: WRITE	Prompt: RCMSG Line Location: MSG+9
Function Call: WRITE	Prompt: ! Line Location: MSG+10
Routine Call	DIE Line Location: PROCESS+117 PROCESS+118 UPDERA+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344 - [#344]	PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+39, PROCESS+43, PROCESS+49, PROCESS+59, PROCESS+67, PROCESS+82, PROCESS+86 , PROCESS+95, PROCESS+118, SETV+2, HAC+4
^RCY(344.3 - [#344.3]	HAC+6
^RCY(344.31 - [#344.31]	PROCESS+118, HAC+4
^RCY(344.4 - [#344.4]	PROCESS+117, WL+3
^TMP("RCDPE-RECEIPT-ERROR"	PROCESS+6!, PROCESS+45, PROCESS+52, PROCESS+61, PROCESS+89, PROCESS+112*
^TMP("RCDPEMSG"	MSG+11, MSG+12, MSG+13
^TMP($J	PROCESS+6!, MSG+11, MSG+12, MSG+13*

Label References

Name	Line Occurrences
215	PROCESS+83, PROCESS+87
MSG	PROCESS+25, PROCESS+27, PROCESS+44, PROCESS+51, PROCESS+56, PROCESS+66, PROCESS+67, PROCESS+68, PROCESS+69, PROCESS+70 , PROCESS+71, PROCESS+72, PROCESS+73, PROCESS+74, PROCESS+75, PROCESS+79, PROCESS+88, PROCESS+100, PROCESS+101, PROCESS+109 , PROCESS+112, PROCESS+116, PROCESS+121, PROCESS+127, 215+1, 215+4, Q215
MSGQ	MSG+7
Q215	PROCESS+127
UPDERA	PROCESS+46, PROCESS+53, PROCESS+78

Naked Globals

Name	Field # of Occurrence
^(	PROCESS+49

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	PROCESS+115~, PROCESS+117, PROCESS+118, UPDERA+2~, UPDERA+3*, EDIT4~, SETV+2, WL~, WL+3
DEVICE	215+2~, 215+3*, 215+4, 215+6
DIE	PROCESS+115~, PROCESS+117, PROCESS+118, UPDERA+2~, UPDERA+3*
DIQ2	PROCESS+98~
DR	PROCESS+115~, PROCESS+117, PROCESS+118, UPDERA+2~, UPDERA+3*, EDIT4~, EDIT4+10, EDIT4+12, EDIT4+14, EDIT4+17 , EDIT4+24
DT	PROCESS+121
FMSDOCNO	PROCESS+92~, PROCESS+95*, PROCESS+98
GECSDATA	PROCESS+92~, PROCESS+100, PROCESS+101, PROCESS+105, PROCESS+107
HAC	HAC+1~, HAC+2, HAC+6, HAC+7
POSTLINE	MSG~, MSG+6
PRELINE	MSG~, MSG+6
RC	HAC~, HAC+4
RCCMTFLG	PROCESS+5~, PROCESS+7, PROCESS+11, PROCESS+28
RCDPETY	PROCESS+82~*, PROCESS+83
RCDPFPAY	PROCESS+5~, PROCESS+49*, PROCESS+50
RCDR	EDIT4+7~
RCDR1	EDIT4~, EDIT4+8, EDIT4+17
RCDR2	EDIT4~, EDIT4+8, EDIT4+18, EDIT4+20, EDIT4+21, EDIT4+23*
RCDR3	EDIT4~, EDIT4+8, EDIT4+24
RCEFT	PROCESS+5~, PROCESS+38*, PROCESS+73, PROCESS+86, PROCESS+104, PROCESS+105, PROCESS+127
RCERA	PROCESS+5~, PROCESS+39*, PROCESS+46, PROCESS+53, PROCESS+78, UPDERA~, UPDERA+3
RCERROR	PROCESS+5~, PROCESS+59, PROCESS+60*, PROCESS+61, PROCESS+64, PROCESS+70
RCI	PROCESS+5~, PROCESS+19*
RCJ	PROCESS+5~, PROCESS+22*, PROCESS+23
RCLST	EDIT4+7~, EDIT4+12*, EDIT4+24
RCM	EDIT4+7~, SETV+3*
RCM1	EDIT4+7~, SETV+4*
RCM2	EDIT4+7~, SETV+5*
RCM3	EDIT4+7~, SETV+6*
RCMSG	PROCESS+5~, PROCESS+21, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+27, PROCESS+44, PROCESS+45, PROCESS+51 , PROCESS+52, PROCESS+56, PROCESS+66, PROCESS+67, PROCESS+68, PROCESS+69, PROCESS+70, PROCESS+71, PROCESS+72, PROCESS+73* , PROCESS+74, PROCESS+75, PROCESS+88, PROCESS+100, PROCESS+101, PROCESS+112, PROCESS+121*, MSG~, MSG+9, MSG+12
RCN4	EDIT4+7~
RCNE	EDIT4+7~
RCNO	EDIT4+7~
RCO4	EDIT4+7~, SETV+2*
RCOE	EDIT4+7~, SETV+2*
RCP	EDIT4+7~, EDIT4+10*, EDIT4+17, EDIT4+18, EDIT4+20, EDIT4+21, EDIT4+23
RCPAYDA	PROCESS+5~, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+17, PROCESS+49, PROCESS+59, PROCESS+60, PROCESS+67
RCPAYDT0	PROCESS+5~, PROCESS+14*, PROCESS+17
RCPAYDT1	PROCESS+5~, PROCESS+15*, PROCESS+17
RCPOST	MSG+5~, MSG+6*, MSG+10, MSG+13
RCPRE	MSG+5~, MSG+6*, MSG+8, MSG+11
RCRECTDA	PROCESS~, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+34, PROCESS+38, PROCESS+39, PROCESS+43, PROCESS+49, PROCESS+59 , PROCESS+60, PROCESS+67, PROCESS+82, PROCESS+86, PROCESS+95, PROCESS+105, PROCESS+107, PROCESS+117, PROCESS+118, PROCESS+126 , 215+6
RCSCREEN	PROCESS~, PROCESS+11, PROCESS+20, PROCESS+25, PROCESS+27, PROCESS+44, PROCESS+51, PROCESS+56, PROCESS+65, PROCESS+66 , PROCESS+67, PROCESS+68, PROCESS+69, PROCESS+70, PROCESS+71, PROCESS+72, PROCESS+73, PROCESS+74, PROCESS+75, PROCESS+79 , PROCESS+88, PROCESS+100, PROCESS+101, PROCESS+109, PROCESS+112, PROCESS+114, PROCESS+116, PROCESS+119, PROCESS+121, PROCESS+127 , 215+1, 215+4, Q215, MSG~, MSG+4, MSG+7
RCSTRT	EDIT4+7~, EDIT4+12, EDIT4+14, EDIT4+17, EDIT4+24
RCSUSPAR	PROCESS+5~, PROCESS+12*
RCSUSPAR(	PROCESS+17*, PROCESS+19, PROCESS+22
REFMS	PROCESS+92~, PROCESS+98*, PROCESS+121
RESULT	PROCESS+92~, PROCESS+105, PROCESS+107, PROCESS+109, PROCESS+112*, PROCESS+114, PROCESS+116, PROCESS+126
U	PROCESS+17, PROCESS+39, PROCESS+86, PROCESS+118, SETV+2, HAC+4, HAC+6
X	SETV+2~*
Y	PROCESS+120~, PROCESS+121*
Z	PROCESS+115~, PROCESS+118, MSG+5~, MSG+8, MSG+10, MSG+11, MSG+13, EDIT4+7~, EDIT4+10, EDIT4+12* , EDIT4+13, WL+2~, WL+3, WL+4, HAC+1~, HAC+4, HAC+6*
Z0	EDIT4+7~, EDIT4+14*
>> ZTDTH	215+6*
>> ZTIO	215+6*
>> ZTRTN	215+6*
>> ZTSAVE("RCTYPE"	215+6*
>> ZTSAVE("RECEIPDA"	215+6*

Customize PDF page

Package: Accounts Receivable

Routine: RCDPURE1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: