source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCMSITE.m@ 619

RCMSITE ;ALB/RRG - EDIT SITE PARAMETERS ;03/12/02
V       ;;4.5;Accounts Receivable;**173,236,253**;Mar 20, 1995;Build 9
        ;;Per VHA Directive 2004-038, this routine should not be modified.
BEG     ;Start editing site paramters
        N DIC,DLAYGO,X,Y,DIE,DA,DR
        S DIC="^RC(342,",DIC(0)="QEAML",DLAYGO=342 D ^DIC I Y>0 S DA=+Y,DR=.01,DIE="^RC(342," D ^DIE
        Q
ALC     ;Edit ALC parameter
        NEW DIC,DR,DA,Y
        S DIE="^RC(342,",DA=1,DR=".07;31" D ^DIE
        Q
IRS     ;Edit IRS OFFSET site parameters
        NEW DIE,DR,DA,Y
        I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q
        S DA=1,DR="[RCMS IRS]",DIE="^RC(342," D ^DIE
Q       Q
STAT    ;Edit NOTIFICATION site parameters
        NEW DIE,DR,DA,Y
        I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q1
        S DA=1,DR="[RCMS NOTIFICATION]",DIE="^RC(342," D ^DIE
Q1      Q
GRP     ;Edit AR Group Parameters
        NEW DIE,DR,DA,Y
        F  W ! S DIC(0)="QEAML",DIC="^RC(342.1,",DLAYGO=342.1 D ^DIC K DIC G:Y<0 Q3 S DA=+Y,DIE="^RC(342.1,",DR=$P($G(^RC(342.2,+$P(^RC(342.1,+Y,0),"^",2),1)),"^") I DR]"" D ^DIE
Q3      Q
DEA     ;Deactive an AR group
        NEW DIE,DIC,DA,DR,Y,GRP
        S DIC="^RC(342.1,",DIC(0)="QEAM",DIC("S")="I $P(^(0),""^"",2)'=7" D ^DIC Q:Y<0  S GRP=+Y
        W ! S DIR("A")="Are you sure you want to Deactive Group '"_$P(^RC(342.1,GRP,0),"^")_"'",DIR(0)="Y",DIR("B")="NO" D ^DIR K DIR
        I 'Y W !!,"*** NO ACTION TAKEN ***" Q
        I Y S DIE="^RC(342.1,",DA=GRP,DR=".02////^S X=7" D ^DIE W !!,"*** Group Deactivated ***"
        Q
SITE()  ;Return site number
        Q +$G(^DIC(4,+$P($G(^RC(342,1,0)),"^"),99))
INT     ;Print Inter/Admin/Pen effective report
        NEW DIC,BY,FR,TO,FLDS,L
        S DIC="^RC(342,",BY=.01,(FR,TO)="",FLDS="[RCMS INT/ADM/PEN]",L=0 D EN1^DIP
        Q
UPINT   ;Update Rate site parameters
        NEW DIE,DR,DA,Y,IOP
        S IOP=ION D INT
        I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q4
        F  W ! S DA=1,DR="[RCMS RATES]",DIE="^RC(342," D ^DIE Q:$D(Y)
Q4      Q
        ;
EDILOCK ;Update EDI Lockbox site parameters
        N DIE,DR,DA,Y
        I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q5
        S DA=1,DR="[RCMS EDI LOCKBOX]",DIE="^RC(342," D ^DIE
Q5      Q
        ;
EDITRDDT        ;Update # OF DAYS FOR RD ELIG CHG RPT site parameter
        ;This is the number of days for the Rated Disability Eligibility
        ;Change Report to be used when the report is scheduled to be run
        ;on a recurring basis. (Added for Hold Debt to DMC Project)
        N DIE,DR,DA,Y
        I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q6
        S DA=1,DR="8.01",DIE="^RC(342," D ^DIE
Q6      Q
        ;
GETRDDAY()      ;Return # OF DAYS FOR RD ELIG CHG RPT site parameter
        Q $$GET1^DIQ(342,1_",",8.01)
        ;
EDITRDAY        ;Update NUMBER OF DAYS FOR DMC REPORTS site parameter.
        ;This is the number of days in the past bills for episodes
        ;of care will be included for the following reports when scheduled by
        ;IRM to be run on a recurring basis:
        ;   DMC Debt Validity Report
        ;   DMC Debt Validity Management Report
        ;   Rated Disability Eligibility Change Report
        ;The minimum value for this field is 365 days (1 year) and the maximum
        ;value is 3650 days (10 years). If no value is added in this field the
        ;report will default to 365 days. (Added for Hold Debt to DMC Project)
        N DIE,DR,DA,Y
        I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q7
        S DA=1,DR="8.02",DIE="^RC(342," D ^DIE
Q7      Q
        ;
GETRDAY()       ;Return NUMBER OF DAYS FOR DMC REPORTS site parameter
        Q $$GET1^DIQ(342,1_",",8.02)
        ;