Routine: RCRJRCO

Package	Total	Call Graph
Accounts Receivable	4	$$SITE^RCMSITE $$LDATE^RCRJR $$PREVMONT^RCRJRBD START^RCRJRCOL
VA FileMan	2	(,DD)^%DT ^DIR
Generic Code Sheet	1	KEYLOOK^GECSSGET
Kernel	1	^%ZTLOAD

Package	Total	Caller Graph
Accounts Receivable	8	PRCA FMS NDB,SV,WR REGEN RCEXINAD RCNRIG RCRJRCO1 RCRJRCOC RCRJROIG RCXFMSSV RCYPO237

Name	Comments	DBIA/ICR reference
DQ	; start collection of monthly data ; datemoyr is for the month and year to run collector (ex 2971000) ; rcrjfsv and rcrjfwr are flags to stop the sv and wr documents ; rcrjfbdr is a flag to stop the rebuild of the bad debt report
ASKNDB(REPORT)	; ask to resend to national database ; report = AR1 or AR2 ; 1 is yes, otherwise no
ASKBDR()	; ask to rebuild the bad debt report ; 1 is yes, otherwise no
ASKOKAY(DATEMOYR)	; ask if its okay ; 1 is yes, otherwise no
ASKTRANS()	; ask if its okay to retransmit document to FMS ; 1 is yes, otherwise no
ASKOIG()	; ask to resend to oig ; 1 is yes, otherwise no
PAEFFDT()
ADJFUND(RCFUND)	;
NOHSIF()	;

Name	Field # of Occurrence
^%DT	RCRJRCO+28
DD^%DT	RCRJRCO+31, ASKOKAY+3, ASKTRANS+3
^%ZTLOAD	RCRJRCO+122, DQ+23
^DIR	ASKNDB+6, ASKBDR+5, ASKOKAY+6, ASKTRANS+6, ASKOIG+5
KEYLOOK^GECSSGET	RCRJRCO+35, RCRJRCO+49, RCRJRCO+63, RCRJRCO+77
$$SITE^RCMSITE	DQ+17
$$LDATE^RCRJR	RCRJRCO+23, RCRJRCO+24, DQ+8, DQ+9, DQ+12
$$PREVMONT^RCRJRBD	RCRJRCO+23, DQ+12
START^RCRJRCOL	DQ+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will re-run the AR Data Collector, extracting data from" Line Location: RCRJRCO+8
Function Call: WRITE	Prompt: !,"the AR database and sending the data to the National Database and FMS." Line Location: RCRJRCO+9
Function Call: WRITE	Prompt: !,"It will also re-generate the Bad Debt Report and the OIG Extract." Line Location: RCRJRCO+10
Function Call: WRITE	Prompt: !!,"This option will perform the following tasks:",! Line Location: RCRJRCO+11
Function Call: WRITE	Prompt: !," 1. Re-send the data to the National Database. The data will only be" Line Location: RCRJRCO+12
Function Call: WRITE	Prompt: !," re-sent if you answer YES to the prompt. The data will only be" Line Location: RCRJRCO+13
Function Call: WRITE	Prompt: !," accepted in the NDB if the month-year has not been closed (in the NDB)." Line Location: RCRJRCO+14
Function Call: WRITE	Prompt: !," 2. Re-send the data to FMS on the SV and WR documents. The data" Line Location: RCRJRCO+15
Function Call: WRITE	Prompt: !," will only be re-sent if it has not been previously accepted by FMS." Line Location: RCRJRCO+16
Function Call: WRITE	Prompt: !," 3. Re-send the OIG Extract. If the selected month is the end of the" Line Location: RCRJRCO+17
Function Call: WRITE	Prompt: !," quarter (December, March, June, or September), the OIG Extract can" Line Location: RCRJRCO+18
Function Call: WRITE	Prompt: !," be re-generated." Line Location: RCRJRCO+19
Function Call: WRITE	Prompt: ! Line Location: RCRJRCO+28
Function Call: WRITE	Prompt: !!,"The SV document has been transmitted to fms, document number: "_GECSDATA("2100.1",GECSDATA,".01","E") Line Location: RCRJRCO+37
Function Call: WRITE	Prompt: !,"The SV document has been ACCEPTED in FMS and will not be resent." Line Location: RCRJRCO+39
Function Call: WRITE	Prompt: !,"The SV document has REJECTED and will be RETRANSMITTED." Line Location: RCRJRCO+42
Function Call: WRITE	Prompt: !,"The SV document has NOT been ACCEPTED in FMS." Line Location: RCRJRCO+43
Function Call: WRITE	Prompt: !!,"The WR document has been transmitted to fms, document number: "_GECSDATA("2100.1",GECSDATA,".01","E") Line Location: RCRJRCO+51
Function Call: WRITE	Prompt: !,"The WR document has been ACCEPTED in FMS and will not be resent." Line Location: RCRJRCO+53
Function Call: WRITE	Prompt: !,"The WR document has REJECTED and will be RETRANSMITTED." Line Location: RCRJRCO+56
Function Call: WRITE	Prompt: !,"The WR document has NOT been ACCEPTED in FMS." Line Location: RCRJRCO+57
Function Call: WRITE	Prompt: !!,"The Bad Debt SV document has been transmitted to fms, document number: "_GECSDATA("2100.1",GECSDATA,".01","E") Line Location: RCRJRCO+65
Function Call: WRITE	Prompt: !,"The Bad Debt SV document has been ACCEPTED in FMS and will not be resent." Line Location: RCRJRCO+67
Function Call: WRITE	Prompt: !,"The Bad Debt SV document has REJECTED and will be RETRANSMITTED." Line Location: RCRJRCO+70
Function Call: WRITE	Prompt: !,"The Bad Debt SV document has NOT been ACCEPTED in FMS." Line Location: RCRJRCO+71
Function Call: WRITE	Prompt: !!,"The TR document has been transmitted to fms, document number: "_GECSDATA("2100.1",GECSDATA,".01","E") Line Location: RCRJRCO+79
Function Call: WRITE	Prompt: !,"The TR document has been ACCEPTED in FMS and will not be resent." Line Location: RCRJRCO+81
Function Call: WRITE	Prompt: !,"The TR document has REJECTED and will be RETRANSMITTED." Line Location: RCRJRCO+84
Function Call: WRITE	Prompt: !,"The TR document has NOT been ACCEPTED in FMS." Line Location: RCRJRCO+85
Function Call: WRITE	Prompt: !!,"No reports have been selected for retransmission." Line Location: RCRJRCO+106
Function Call: WRITE	Prompt: !!,"This option will retransmit the following monthly reports:" Line Location: RCRJRCO+108
Function Call: WRITE	Prompt: !," AR1 to the NDB." Line Location: RCRJRCO+109
Function Call: WRITE	Prompt: !," AR2 to the NDB." Line Location: RCRJRCO+110
Function Call: WRITE	Prompt: !," SV document to FMS." Line Location: RCRJRCO+111
Function Call: WRITE	Prompt: !," WR document to FMS." Line Location: RCRJRCO+112
Function Call: WRITE	Prompt: !," TR document to FMS." Line Location: RCRJRCO+113
Function Call: WRITE	Prompt: !," rebuild the Bad Debt Report." Line Location: RCRJRCO+114
Function Call: WRITE	Prompt: !," resend the OIG Extract." Line Location: RCRJRCO+115
Function Call: WRITE	Prompt: !!,"This will be queued to run in the background. When it completes," Line Location: RCRJRCO+118
Function Call: WRITE	Prompt: !,"a mail message will be sent to the mail group RC AR DATA COLLECTOR." Line Location: RCRJRCO+119
Function Call: WRITE	Prompt: !!,"Queued to run in task ",$G(ZTSK) Line Location: RCRJRCO+123
Function Call: WRITE	Prompt: ! Line Location: ASKNDB+6
Function Call: WRITE	Prompt: ! Line Location: ASKBDR+5
Function Call: WRITE	Prompt: ! Line Location: ASKOKAY+6
Function Call: WRITE	Prompt: ! Line Location: ASKOIG+5
Routine Call	DIR Line Location: ASKNDB+6 ASKBDR+5 ASKOKAY+6 ASKTRANS+6 ASKOIG+5

Name	Line Occurrences
$$ASKNDB	RCRJRCO+92, RCRJRCO+96
$$ASKOIG	RCRJRCO+102
$$ASKOKAY	RCRJRCO+117
$$ASKTRANS	RCRJRCO+44, RCRJRCO+58, RCRJRCO+72, RCRJRCO+86
$$NOHSIF	RCRJRCO+6, DQ+6
$$PAEFFDT	ADJFUND+1, NOHSIF+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RCRJRCO+4~, RCRJRCO+44, RCRJRCO+45, RCRJRCO+58, RCRJRCO+59, RCRJRCO+72, RCRJRCO+73, RCRJRCO+86, RCRJRCO+87, RCRJRCO+92* , RCRJRCO+93, RCRJRCO+96, RCRJRCO+97, RCRJRCO+101, RCRJRCO+102, RCRJRCO+103, DQ+4~
%DT	RCRJRCO+4~, RCRJRCO+27*
%DT("A"	RCRJRCO+26*
%DT(0	RCRJRCO+25*
%X	RCRJRCO+4~
%Y	RCRJRCO+4~
DA347	RCRJRCO+4~
DATEBEG	DQ+4~, DQ+12*, DQ+29
DATEEND	DQ+4~, DQ+8, DQ+9, DQ+12, DQ+29
DATEMOYR	RCRJRCO+4~, RCRJRCO+23, RCRJRCO+24, RCRJRCO+31, RCRJRCO+35, RCRJRCO+49, RCRJRCO+63, RCRJRCO+77, RCRJRCO+117, DQ+8 , DQ+9, ASKOKAY~, ASKOKAY+3, ASKTRANS+3
DIQ2	RCRJRCO+4~, ASKNDB+3~, ASKBDR+2~, ASKOKAY+2~, ASKTRANS+2~, ASKOIG+2~
DIR	ASKNDB+3~, ASKBDR+2~, ASKOKAY+2~, ASKTRANS+2~, ASKOIG+2~
DIR("A"	ASKNDB+5, ASKBDR+4, ASKOKAY+5, ASKTRANS+5, ASKOIG+4*
DIR("B"	ASKNDB+4, ASKBDR+3, ASKOKAY+4, ASKTRANS+4, ASKOIG+3*
DIR(0	ASKNDB+4, ASKBDR+3, ASKOKAY+4, ASKTRANS+4, ASKOIG+3*
DIRUT	ASKNDB+3~, ASKBDR+2~, ASKOKAY+2~, ASKTRANS+2~, ASKOIG+2~
DT	RCRJRCO+23, RCRJRCO+24, DQ+9, ADJFUND+1, NOHSIF+1
DTOUT	ASKNDB+3~, ASKNDB+7, ASKBDR+2~, ASKBDR+6, ASKOKAY+2~, ASKOKAY+7, ASKTRANS+2~, ASKTRANS+7, ASKOIG+2~, ASKOIG+6
DUOUT	ASKNDB+3~, ASKNDB+7, ASKBDR+2~, ASKBDR+6, ASKOKAY+2~, ASKOKAY+7, ASKTRANS+2~, ASKTRANS+7, ASKOIG+2~, ASKOIG+6
FMSDOCNO	RCRJRCO+4~
GECSDATA	RCRJRCO+4~, RCRJRCO+34!, RCRJRCO+36, RCRJRCO+37, RCRJRCO+38, RCRJRCO+41, RCRJRCO+44!, RCRJRCO+48!, RCRJRCO+50, RCRJRCO+51 , RCRJRCO+52, RCRJRCO+55, RCRJRCO+58!, RCRJRCO+62!, RCRJRCO+64, RCRJRCO+65, RCRJRCO+66, RCRJRCO+69, RCRJRCO+72!, RCRJRCO+76! , RCRJRCO+78, RCRJRCO+79, RCRJRCO+80, RCRJRCO+83, RCRJRCO+86!
GECSDATA(	RCRJRCO+38, RCRJRCO+41, RCRJRCO+52, RCRJRCO+55, RCRJRCO+66, RCRJRCO+69, RCRJRCO+80, RCRJRCO+83
GECSDATA("2100.1"	RCRJRCO+37, RCRJRCO+51, RCRJRCO+65, RCRJRCO+79
LASTMONT	RCRJRCO+4~, RCRJRCO+23, RCRJRCO+24, RCRJRCO+25
PRCASITE	DQ+4~, DQ+17*, DQ+29
RCFUND	ADJFUND~, ADJFUND+1, ADJFUND+2, ADJFUND+3
RCNOHSIF	RCRJRCO+4~, RCRJRCO+6*, RCRJRCO+77, RCRJRCO+89
RCRJFAR1	RCRJRCO+4~, RCRJRCO+93*, RCRJRCO+106, RCRJRCO+109, DQ+26
RCRJFAR2	RCRJRCO+4~, RCRJRCO+97*, RCRJRCO+106, RCRJRCO+110, DQ+20
RCRJFBDR	RCRJRCO+4~, RCRJRCO+68, RCRJRCO+73, RCRJRCO+106, RCRJRCO+114, DQ+26
RCRJFOIG	RCRJRCO+4~, RCRJRCO+100, RCRJRCO+103, RCRJRCO+106, RCRJRCO+115, DQ+26
RCRJFSV	RCRJRCO+4~, RCRJRCO+40, RCRJRCO+45, RCRJRCO+106, RCRJRCO+111, DQ+26
RCRJFTR	RCRJRCO+4~, RCRJRCO+82, RCRJRCO+87, RCRJRCO+89, RCRJRCO+106, RCRJRCO+113, DQ+6, DQ+26
RCRJFWR	RCRJRCO+4~, RCRJRCO+54, RCRJRCO+59, RCRJRCO+106, RCRJRCO+112, DQ+26
REPORT	ASKNDB~, ASKNDB+5
X	RCRJRCO+4~, DQ+4~, ASKNDB+3~, ASKBDR+2~, ASKOKAY+2~, ASKTRANS+2~, ASKOIG+2~
Y	RCRJRCO+4~, RCRJRCO+29, RCRJRCO+31, ASKNDB+3~, ASKNDB+7, ASKNDB+8, ASKBDR+2~, ASKBDR+6, ASKBDR+7, ASKOKAY+2~ , ASKOKAY+3, ASKOKAY+5, ASKOKAY+7, ASKOKAY+8, ASKTRANS+2~, ASKTRANS+3, ASKTRANS+7, ASKTRANS+8, ASKOIG+2~, ASKOIG+6 , ASKOIG+7
>> ZTDESC	RCRJRCO+120, DQ+21
>> ZTDTH	RCRJRCO+120, DQ+21
>> ZTIO	RCRJRCO+120, DQ+21
>> ZTRTN	RCRJRCO+120, DQ+21
>> ZTSAVE("DATEBEG"	DQ+22*
>> ZTSAVE("DATEEND"	DQ+22*
>> ZTSAVE("DATEMOYR"	RCRJRCO+121*
>> ZTSAVE("PRCASITE"	DQ+22*
>> ZTSAVE("RCRJF*"	RCRJRCO+121*
>> ZTSAVE("ZTREQ"	RCRJRCO+121, DQ+22
ZTSK	RCRJRCO+4~, RCRJRCO+123

Customize PDF page

Package: Accounts Receivable

Routine: RCRJRCO

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: