Routine: RCMSITE

Package	Total	Call Graph
VA FileMan	6	NOW^%DTC ^DIC ^DIE EN1^DIP $$GET1^DIQ ^DIR
Kernel	2	$$FMTE^XLFDT BMES^XPDUTL

Package	Total	Caller Graph
Accounts Receivable	60	PRCA AGENCY LOCATION PRCA BIL AGENCY PRCA DEACTIVATE GROUP PRCA NOTIFICATION PARAMETERS PRCA STOP SITE PRCA307P PRCAAPR1 PRCABIL1 PRCAD R INT RATE PRCAF U ADMIN.RATE PRCAFBD PRCAFBDU PRCAFUT PRCAFWO PRCAGU PRCALT2 PRCAOLD PRCAPAT1 PRCAPAY3 PRCARPU RCAEOB RCAMDTH RCBEUTR1 RCCPC0 RCCPCML RCCPCPS RCCPCSV1 RCCPW RCDMC EDIT DMC REPORT # OF DAY RCDMC EDIT RD # OF DAYS PARAME RCDMC90 RCDMCR1A RCDMCR2A RCDMCR3A RCDPESP RCDPESPC RCDPXPAY RCEVGEN RCFMOBR RCMSNUM RCNRIG RCRCACP RCRCAT RCRCREC RCRCRR RCRCRT RCRCSRV RCRCVXM RCRCXMS RCRJRCO RCRJRCOU RCRJRDEP RCRJROIG RCTC364P RCTC394P RCTCSJS0 RCTCSPD0 RCTCSPRS RCTOPD ^RCT(349
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;173,236,253,298,315,350;Mar 20, 1995;Build 66
BEG	;Start editing site paramters
ALC	;Edit ALC parameter
IRS	;Edit IRS OFFSET site parameters
Q
STAT	;Edit NOTIFICATION site parameters
Q1
GRP	;Edit AR Group Parameters
Q3
TCSP	;Edit TCSP Site enable/disable PRCA4.5350
DEA	;Deactive an AR group
SITE()	;Return site number
INT	;Print Inter/Admin/Pen effective report
UPINT	;Update Rate site parameters
Q4
EDILOCK()	; function, Update EDI Lockbox site parameters ; returns 1 on success, else "^error message"
EDITRDDT	;Update # OF DAYS FOR RD ELIG CHG RPT site parameter
Q6
GETRDDAY()	;Return # OF DAYS FOR RD ELIG CHG RPT site parameter
EDITRDAY	;Update NUMBER OF DAYS FOR DMC REPORTS site parameter.
Q7
GETRDAY()	;Return NUMBER OF DAYS FOR DMC REPORTS site parameter

Name	Field # of Occurrence
NOW^%DTC	TCSP+7
^DIC	BEG+3, GRP+2, DEA+2
^DIE	BEG+3, ALC+2, IRS+3, STAT+3, GRP+2, DEA+5, UPINT+5, EDILOCK+9, EDITRDDT+6, EDITRDAY+12
EN1^DIP	INT+2
$$GET1^DIQ	GETRDDAY+1, GETRDAY+1
^DIR	TCSP+5, DEA+3
$$FMTE^XLFDT	TCSP+4
BMES^XPDUTL	UPINT+3

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GRP+2
Function Call: WRITE	Prompt: !,"** SITE IS ACTIVATED **" Line Location: TCSP+2
Function Call: WRITE	Prompt: !,"SITE IS ",$S($P(NZ,U)="S":"STOPPED",1:"REACTIVATED")," as of ",$$FMTE^XLFDT($P(NZ,U,2)\1,"5Z")," by ",$P($G(^VA(200,$P(NZ,U,3),0)),U) Line Location: TCSP+4
Function Call: WRITE	Prompt: ! Line Location: TCSP+5
Function Call: WRITE	Prompt: !!,"* NO ACTION TAKEN *" Line Location: TCSP+6
Function Call: WRITE	Prompt: !!,"** SITE IS NOW ",$S(NZ="":"STOPPED",$P(NZ,U)="R":"STOPPED",1:"REACTIVATED")," **" Line Location: TCSP+11
Function Call: WRITE	Prompt: ! Line Location: DEA+3
Function Call: WRITE	Prompt: !!,"* NO ACTION TAKEN *" Line Location: DEA+4
Function Call: WRITE	Prompt: !!,"* Group Deactivated *" Line Location: DEA+5
Function Call: WRITE	Prompt: ! Line Location: UPINT+5
Routine Call	DIC Line Location: BEG+3 GRP+2 DEA+2
Routine Call	DIE Line Location: BEG+3 ALC+2 IRS+3 STAT+3 GRP+2 DEA+5 UPINT+5 EDILOCK+9 EDITRDDT+6 EDITRDAY+12
Routine Call	DIR Line Location: TCSP+5 DEA+3

FileNo	Call Tags
^RC(342 - [#342]	Classic Fileman Calls, GET1^DIQ
^RC(342.1 - [#342.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	SITE+1
^RC(342 - [#342]	IRS+2, STAT+2, TCSP+2, TCSP+3, TCSP+8, TCSP+9, TCSP+10*, SITE+1, UPINT+4, EDILOCK+3 , EDILOCK+4, EDITRDDT+5, EDITRDAY+11
^RC(342.1 - [#342.1]	GRP+2, DEA+3
^RC(342.2 - [#342.2]	GRP+2
^VA(200 - [#200]	TCSP+4
^XUSEC("PRCAF LATE CHARGES"	UPINT+3

Name	Line Occurrences
BEG	IRS+2, STAT+2, UPINT+4, EDILOCK+3, EDITRDDT+5, EDITRDAY+11
INT	UPINT+2
Q	IRS+2
Q1	STAT+2
Q3	GRP+2
Q4	UPINT+4
Q6	EDITRDDT+5
Q7	EDITRDAY+11

Name	Field # of Occurrence
%	TCSP+1~, TCSP+8
A	TCSP+1~, TCSP+2, TCSP+3, TCSP+8, TCSP+9, TCSP+10
BY	INT+1~, INT+2*
DA	BEG+1~, BEG+3, ALC+1~, ALC+2, IRS+1~, IRS+3, STAT+1~, STAT+3, GRP+1~, GRP+2* , TCSP+1~, DEA+1~, DEA+5, UPINT+1~, UPINT+5, EDILOCK+8~, EDILOCK+9, EDITRDDT+4~, EDITRDDT+6, EDITRDAY+10~ , EDITRDAY+12*
DIC	BEG+1~, BEG+3, ALC+1~, GRP+2!, DEA+1~, DEA+2, INT+1~, INT+2
DIC("S"	DEA+2*
DIC(0	BEG+3, GRP+2, DEA+2*
DIE	BEG+1~, BEG+3, ALC+2, IRS+1~, IRS+3, STAT+1~, STAT+3, GRP+1~, GRP+2, TCSP+1~ , DEA+1~, DEA+5, UPINT+1~, UPINT+5, EDILOCK+8~, EDILOCK+9, EDITRDDT+4~, EDITRDDT+6, EDITRDAY+10~, EDITRDAY+12
DIR	TCSP+5!, DEA+3!
DIR("A"	TCSP+5, DEA+3
DIR("B"	TCSP+5, DEA+3
DIR(0	TCSP+5, DEA+3
DLAYGO	BEG+1~, BEG+3, GRP+2
DR	BEG+1~, BEG+3, ALC+1~, ALC+2, IRS+1~, IRS+3, STAT+1~, STAT+3, GRP+1~, GRP+2* , TCSP+1~, DEA+1~, DEA+5, UPINT+1~, UPINT+5, EDILOCK+8~, EDILOCK+9, EDITRDDT+4~, EDITRDDT+6, EDITRDAY+10~ , EDITRDAY+12*
DUZ	TCSP+8, UPINT+3
FLDS	INT+1~, INT+2*
FR	INT+1~, INT+2*
GRP	DEA+1~, DEA+2*, DEA+3, DEA+5
ION	UPINT+2
IOP	UPINT+1~, UPINT+2*
L	INT+1~, INT+2*
NZ	TCSP+1~, TCSP+2, TCSP+3, TCSP+4, TCSP+5, TCSP+8, TCSP+9, TCSP+11
RSLT	EDILOCK+2~, EDILOCK+4, EDILOCK+6, EDILOCK+10*, EDILOCK+12
TO	INT+1~, INT+2*
U	TCSP+4, TCSP+5, TCSP+8, TCSP+9, TCSP+10, TCSP+11
X	BEG+1~
Y	BEG+1~, BEG+3, ALC+1~, IRS+1~, STAT+1~, GRP+1~, GRP+2, TCSP+1~, TCSP+6, DEA+1~ , DEA+2, DEA+4, DEA+5, UPINT+1~, UPINT+5, EDILOCK+8~, EDILOCK+10, EDITRDDT+4~, EDITRDAY+10~