source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBUCED1.m@ 1524

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1FBUCED1 ;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.
4DEL ;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)
19DELQ D END^FBUCED Q
20PENDDEL(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
Note: See TracBrowser for help on using the repository browser.