Routine: RCMSITE

Information

RCMSITE ;ALB/RRG - EDIT SITE PARAMETERS ;Jul 02, 2014@15:46:14

Source file <RCMSITE.m>

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

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