| 1 | FBNHRDEL ;AISC/CMR - DELETION OF CNH RATE ; 6/14/93 9:20
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | CONTR S DIC="^FBAA(161.21,",DIC(0)="AEMQ",DIC("A")="Select Contract: " D ^DIC K DIC Q:$D(DTOUT)!($D(DUOUT))!(Y=-1)
|
|---|
| 5 | S FBCIEN=+Y,FBCNUM=$P(Y,U,2)
|
|---|
| 6 | G END:'$D(^FBAA(161.21,FBCIEN,0)) S FBVIEN=$P(^(0),U,4),FBRATE=1
|
|---|
| 7 | RATE K FBX D DISPLAY^FBAAVD1 G END:'FBRATE
|
|---|
| 8 | S FBCTR=0 F FBI=1:1 S FBDRATE=$P(FBX,U,FBI) Q:'FBDRATE I FBDRATE=FBRATE S FBCTR=FBCTR+1
|
|---|
| 9 | I FBCTR>1 G DEL
|
|---|
| 10 | S FBART=0
|
|---|
| 11 | F S FBART=$O(^FBAA(161.23,"AE",FBCNUM,FBART)) Q:'FBART D
|
|---|
| 12 | .I FBART=FBRATE S FBRCK=1 Q
|
|---|
| 13 | I $G(FBRCK) K FBRCK G NODEL
|
|---|
| 14 | DEL S FBI=0,FBI=$O(^FBAA(161.22,"AD",FBCIEN,FBRATE,FBI)) G END:'FBI S DIK="^FBAA(161.22,",DA=FBI D ^DIK K DIK
|
|---|
| 15 | W !!,"Rate Deleted."
|
|---|
| 16 | ;
|
|---|
| 17 | END K FBCIEN,FBCNUM,Y,FBVIEN,FBRATE,FBCTR,FBI,FBDRATE,FBX,FBART,FBRCK,DUOUT,DTOUT,DA
|
|---|
| 18 | Q
|
|---|
| 19 | NODEL W !!,*7,"Rate is currently being used. You CANNOT delete this rate!!",!
|
|---|
| 20 | G END
|
|---|
