source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTTRIM.m@ 1800

Last change on this file since 1800 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 835 bytes
Line 
1DGPTTRIM ;ALB/JDS - SET UP DRG INFO ; 26 AUG 84 14:16
2 ;;5.3;Registration;**158,606**;Aug 13, 1993
3 ;
4 W !!,"SET UP DRG VALUES FOR FISCAL YEARS",!!
5FY R !,"Fiscal year to set up data for: ",DGFY:DTIME G Q:DGFY=""!(DGFY["^") I DGFY'?2N W !!,"Enter the fiscal year as 'NN' (ex: '84' for fiscal year 1984).",*7,*7,! G FY
6 S DGFY2K=$$DGY2K^DGPTOD0(DGFY)
7ASK ;W !! S DIC="^ICD(",DIC(0)="AEQMZ" D ^DIC G Q:Y'>0 S DGDRG=^ICD(+Y,0)
8 W !! S DIC="^ICD(",DIC(0)="AEQMZ" D ^DIC G Q:Y'>0 S DGDRG=$$DRG^ICDGTDRG(+Y)
9 W !!,"**National DRG Values - not editable**",!?5,$J("WWU: ",16),$P(DGDRG,U,2),!?5,$J("Low Trim Days: ",16),$P(DGDRG,U,3),!?5,$J("High Trim Days: ",16),$P(DGDRG,U,4),!?5,$J("ALOS: ",16),$P(DGDRG,U,8),!!
10 S DA=+Y,DR="20///"_DGFY,DR(2,80.22)="6;7",DIE=DIC D ^DIE S:'$D(Y) ^ICD("AFY",DGFY2K)="" G ASK
11Q K DA,DGDRG,DGFY,DIC,DIE,DR,Y Q
Note: See TracBrowser for help on using the repository browser.