| [613] | 1 | DGPTBE2 ;ALB/AS - ENTER BREAKEVEN VALUES FOR DRG (cont.); 28 APR 88 @ 0900
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | S DIE="^ICD(",DA=DRG,DR="13///"_DGBE D ^DIE
|
|---|
| 5 | I 'DGY F DGQRTR=1:1:4 S (DA,DGFY1)=DGFY_DGQRTR,DGBE=$P(DGVALUES,"^",6) D DIE
|
|---|
| 6 | I DGY S (DA,DGFY1)=DGFY D DIE
|
|---|
| 7 | K DGFY1,DGQRTR,DA,DIE,DR,DO Q
|
|---|
| 8 | DIE S DIE="^ICD("_DRG_",""BE"",",DA(1)=DRG I '$D(^ICD(DRG,"BE",DA,0)) S DR=".01////"_DA D ^DIE
|
|---|
| 9 | S DR="2///"_DGBE D ^DIE F DGSV=1:1:5 S DGBE=$P(DGVALUES,"^",DGSV),DA(2)=DRG,DA(1)=DGFY1,DA=DGSV,DIE="^ICD("_DRG_",""BE"","_DGFY1_",""S""," D:'$D(^ICD(DRG,"BE",DA(1),"S",DGSV,0)) ADD S DR="1///"_DGBE D ^DIE
|
|---|
| 10 | Q
|
|---|
| 11 | ADD S DR=".01////"_DA D ^DIE Q
|
|---|
