- Timestamp:
- Dec 4, 2009, 12:11:15 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCMSITE.m
r613 r623 1 RCMSITE ;ALB/RRG - EDIT SITE PARAMETERS ;03/12/02 2 V ;;4.5;Accounts Receivable;**173,236,253**;Mar 20, 1995;Build 9 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 4 BEG ;Start editing site paramters 5 N DIC,DLAYGO,X,Y,DIE,DA,DR 6 S DIC="^RC(342,",DIC(0)="QEAML",DLAYGO=342 D ^DIC I Y>0 S DA=+Y,DR=.01,DIE="^RC(342," D ^DIE 7 Q 8 ALC ;Edit ALC parameter 9 NEW DIC,DR,DA,Y 10 S DIE="^RC(342,",DA=1,DR=".07;31" D ^DIE 11 Q 12 IRS ;Edit IRS OFFSET site parameters 13 NEW DIE,DR,DA,Y 14 I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q 15 S DA=1,DR="[RCMS IRS]",DIE="^RC(342," D ^DIE 16 Q Q 17 STAT ;Edit NOTIFICATION site parameters 18 NEW DIE,DR,DA,Y 19 I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q1 20 S DA=1,DR="[RCMS NOTIFICATION]",DIE="^RC(342," D ^DIE 21 Q1 Q 22 GRP ;Edit AR Group Parameters 23 NEW DIE,DR,DA,Y 24 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 25 Q3 Q 26 DEA ;Deactive an AR group 27 NEW DIE,DIC,DA,DR,Y,GRP 28 S DIC="^RC(342.1,",DIC(0)="QEAM",DIC("S")="I $P(^(0),""^"",2)'=7" D ^DIC Q:Y<0 S GRP=+Y 29 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 30 I 'Y W !!,"*** NO ACTION TAKEN ***" Q 31 I Y S DIE="^RC(342.1,",DA=GRP,DR=".02////^S X=7" D ^DIE W !!,"*** Group Deactivated ***" 32 Q 33 SITE() ;Return site number 34 Q +$G(^DIC(4,+$P($G(^RC(342,1,0)),"^"),99)) 35 INT ;Print Inter/Admin/Pen effective report 36 NEW DIC,BY,FR,TO,FLDS,L 37 S DIC="^RC(342,",BY=.01,(FR,TO)="",FLDS="[RCMS INT/ADM/PEN]",L=0 D EN1^DIP 38 Q 39 UPINT ;Update Rate site parameters 40 NEW DIE,DR,DA,Y,IOP 41 S IOP=ION D INT 42 I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q4 43 F W ! S DA=1,DR="[RCMS RATES]",DIE="^RC(342," D ^DIE Q:$D(Y) 44 Q4 Q 45 ; 46 EDILOCK ;Update EDI Lockbox site parameters 47 N DIE,DR,DA,Y 48 I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q5 49 S DA=1,DR="[RCMS EDI LOCKBOX]",DIE="^RC(342," D ^DIE 50 Q5 Q 51 ; 52 EDITRDDT ;Update # OF DAYS FOR RD ELIG CHG RPT site parameter 53 ;This is the number of days for the Rated Disability Eligibility 54 ;Change Report to be used when the report is scheduled to be run 55 ;on a recurring basis. (Added for Hold Debt to DMC Project) 56 N DIE,DR,DA,Y 57 I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q6 58 S DA=1,DR="8.01",DIE="^RC(342," D ^DIE 59 Q6 Q 60 ; 61 GETRDDAY() ;Return # OF DAYS FOR RD ELIG CHG RPT site parameter 62 Q $$GET1^DIQ(342,1_",",8.01) 63 ; 64 EDITRDAY ;Update NUMBER OF DAYS FOR DMC REPORTS site parameter. 65 ;This is the number of days in the past bills for episodes 66 ;of care will be included for the following reports when scheduled by 67 ;IRM to be run on a recurring basis: 68 ; DMC Debt Validity Report 69 ; DMC Debt Validity Management Report 70 ; Rated Disability Eligibility Change Report 71 ;The minimum value for this field is 365 days (1 year) and the maximum 72 ;value is 3650 days (10 years). If no value is added in this field the 73 ;report will default to 365 days. (Added for Hold Debt to DMC Project) 74 N DIE,DR,DA,Y 75 I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q7 76 S DA=1,DR="8.02",DIE="^RC(342," D ^DIE 77 Q7 Q 78 ; 79 GETRDAY() ;Return NUMBER OF DAYS FOR DMC REPORTS site parameter 80 Q $$GET1^DIQ(342,1_",",8.02) 81 ; 1 RCMSITE ;ALB/RRG - EDIT SITE PARAMETERS ;03/12/02 2 V ;;4.5;Accounts Receivable;**173,236**;Mar 20, 1995 3 ;;Per VHA Directive 10-93-142, this routine should not be modified. 4 BEG ;Start editing site paramters 5 N DIC,DLAYGO,X,Y,DIE,DA,DR 6 S DIC="^RC(342,",DIC(0)="QEAML",DLAYGO=342 D ^DIC I Y>0 S DA=+Y,DR=.01,DIE="^RC(342," D ^DIE 7 Q 8 ALC ;Edit ALC parameter 9 NEW DIC,DR,DA,Y 10 S DIE="^RC(342,",DA=1,DR=".07;31" D ^DIE 11 Q 12 IRS ;Edit IRS OFFSET site parameters 13 NEW DIE,DR,DA,Y 14 I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q 15 S DA=1,DR="[RCMS IRS]",DIE="^RC(342," D ^DIE 16 Q Q 17 STAT ;Edit NOTIFICATION site parameters 18 NEW DIE,DR,DA,Y 19 I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q1 20 S DA=1,DR="[RCMS NOTIFICATION]",DIE="^RC(342," D ^DIE 21 Q1 Q 22 GRP ;Edit AR Group Parameters 23 NEW DIE,DR,DA,Y 24 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 25 Q3 Q 26 DEA ;Deactive an AR group 27 NEW DIE,DIC,DA,DR,Y,GRP 28 S DIC="^RC(342.1,",DIC(0)="QEAM",DIC("S")="I $P(^(0),""^"",2)'=7" D ^DIC Q:Y<0 S GRP=+Y 29 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 30 I 'Y W !!,"*** NO ACTION TAKEN ***" Q 31 I Y S DIE="^RC(342.1,",DA=GRP,DR=".02////^S X=7" D ^DIE W !!,"*** Group Deactivated ***" 32 Q 33 SITE() ;Return site number 34 Q +$G(^DIC(4,+$P($G(^RC(342,1,0)),"^"),99)) 35 INT ;Print Inter/Admin/Pen effective report 36 NEW DIC,BY,FR,TO,FLDS,L 37 S DIC="^RC(342,",BY=.01,(FR,TO)="",FLDS="[RCMS INT/ADM/PEN]",L=0 D EN1^DIP 38 Q 39 UPINT ;Update Rate site parameters 40 NEW DIE,DR,DA,Y,IOP 41 S IOP=ION D INT 42 I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q4 43 F W ! S DA=1,DR="[RCMS RATES]",DIE="^RC(342," D ^DIE Q:$D(Y) 44 Q4 Q 45 ; 46 EDILOCK ;Update EDI Lockbox site parameters 47 N DIE,DR,DA,Y 48 I '$D(^RC(342,1,0)) D BEG G:'$D(^RC(342,1,0)) Q5 49 S DA=1,DR="[RCMS EDI LOCKBOX]",DIE="^RC(342," D ^DIE 50 Q5 Q 51 ;
Note:
See TracChangeset
for help on using the changeset viewer.
