| 1 | FBUCED1 ;ALBISC/TET - EDIT UNAUTHORIZED CLAIM, cont'd
|
|---|
| 2 | ;;3.5;FEE BASIS;;JAN 30, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | DEL ;deletes unauthorized claim(s); if any pending info will delete also
|
|---|
| 5 | ;only claims which have not been dispositioned can be deleted.
|
|---|
| 6 | N FBACT,FBO,DIRUT,DTOUT,DUOUT,Y S FBACT="DEL",FBO="5^10^30^" D LOOKUP^FBUCUTL3(FBO) G END^FBUCED:FBOUT!('+$G(FBARY))
|
|---|
| 7 | N FBALL,FBDA,FBI,FBNODE,FBOUT,FBPL,FBW,FBZ S (FBALL,FBOUT)=0 D PARSE^FBUCUTL4(FBARY)
|
|---|
| 8 | S FBI=0 F S FBI=$O(^TMP("FBARY",$J,FBI)) Q:'FBI S FBNODE=$G(^(FBI)),FBDA=+$P(FBNODE,";"),FBZ=$$FBZ^FBUCUTL(FBDA) I FBZ]"" D G:FBOUT DELQ
|
|---|
| 9 | .N FBDISP,FBGROUP D LINE^FBUCUTL4(FBNODE,FBI,FBPL,FBW)
|
|---|
| 10 | .N Y,DIRUT,DTOUT,DUOUT S DIR("A")="Are you sure you wish to delete",DIR("B")="Y",DIR(0)="Y" D ^DIR K DIR S:$D(DIRUT) FBOUT=1 Q:'Y
|
|---|
| 11 | .D GROUP^FBUCUTL7(FBZ,FBDA),DISPLAY^FBUCUTL7(FBDA,.FBGROUP,"^5^10^30^",+$P(FBZ,U,11))
|
|---|
| 12 | .I $$PRIME^FBUCUTL4(FBDA,FBZ) D PRIME^FBUCLNK1(.FBGROUP,FBDA,FBZ)
|
|---|
| 13 | .I +FBDISP D Q:FBOUT
|
|---|
| 14 | ..N DA,DIK,FBDIRA,FBI S FBDIRA="Shall all of these claims be deleted"
|
|---|
| 15 | ..D READ^FBUCUTL7(FBDIRA,.FBOUT,.FBDISP) Q:FBOUT!('FBALL)
|
|---|
| 16 | ..S FBI=0,DIK="^FB583(" F S FBI=$O(FBGROUP(FBI)) Q:'FBI I FBI'=FBDA S DA=FBI D ^DIK I $$PEND^FBUCUTL(FBDA) D PENDDEL(FBI)
|
|---|
| 17 | .W !,"Deleting claim" W $S('FBALL:"...",1:" and associated claims not dispositioned ...") S DA=FBDA,DIK="^FB583(" D ^DIK K DA,DIK
|
|---|
| 18 | .I $$PEND^FBUCUTL(FBDA) D PENDDEL(FBDA)
|
|---|
| 19 | DELQ D END^FBUCED Q
|
|---|
| 20 | PENDDEL(FBDA) ;delete pending information on unauthorized claim
|
|---|
| 21 | ;INPUT: FBDA = internal entry number of unauthorized claim
|
|---|
| 22 | ;OUTPUT: none - pending information is deleted from file 162.8
|
|---|
| 23 | Q:'$G(FBDA) N FBPEND,DA,DIK S DIK="^FBAA(162.8,",FBPEND=0
|
|---|
| 24 | F S FBPEND=$O(^FBAA(162.8,"AC",FBDA,0)) Q:'FBPEND S DA=FBPEND D ^DIK K DA
|
|---|
| 25 | Q
|
|---|
