close Warning: Can't use blame annotator: 
svn blame failed on WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBTRD1.m: 'GenericSWIGWrapper' object has no attribute '_wrap'

source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBTRD1.m@ 861

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

initial load of WorldVistAEHR
File size: 3.9 KB
RevLine 
1IBTRD1 ;ALB/AAS - CLAIMS TRACKING - APPEAL/DENIAL ACTIONS ; 10-AUG-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5% G EN^IBTRD
6 ;
7AA ; -- Add Appeal entry
8 N X,Y,I,J,DA,DR,DIC,DIE,DR,DD,DO,IBQUIT,IBTRCDT,IBXX,VALMY,IBTRN,IBTRC
9 D EN^VALM2($G(XQORNOD(0)))
10 I $D(VALMY) D FULL^VALM1 S IBXX=0 F S IBXX=$O(VALMY(IBXX)) Q:'IBXX!$D(DIRUT) D
11 .S IBTRC=$P($G(^TMP("IBTRDDX",$J,+$O(^TMP("IBTRD",$J,"IDX",IBXX,0)))),"^",2)
12 .; -- must be a denial or a penalty
13 .S IBDENIAL=$O(^IBE(356.7,"ACODE",20,0))
14 .S IBPENAL=$O(^IBE(356.7,"ACODE",30,0))
15 .I '$D(^IBT(356.2,"ACT",IBDENIAL,IBTRC))&('$D(^IBT(356.2,"ACT",IBPENAL,IBTRC))) W !!,"You can only appeal a denial or an penalty." D PAUSE^VALM1 Q
16 .D AA1
17 D BLD^IBTRD
18 S VALMBCK="R"
19 Q
20 ;
21AA1 ; -- select date
22 N DIR,IBTRCDT
23 S DIR(0)="356.2,.01",DIR("A")="Select Appeal Date",DIR("B")="NOW"
24 D ^DIR K DIR
25 I $D(DIRUT)!($E(+Y,1,7)'?7N) G AA1Q
26 S IBTRCDT=+Y
27 ;
28 ; -- if not tracking id allow selecting
29 S IBTRDD=$G(^IBT(356.2,+IBTRC,0))
30 S IBTRN=$P(IBTRDD,"^",2)
31 S DFN=$P(IBTRDD,"^",5)
32 S IBPARNT=IBTRC
33 S IBCDFN=$P($G(^IBT(356.2,IBTRC,1)),"^",5)
34 ;
35 ; -- add entry
36 S IBTCOD=$S('$D(^IBT(356.2,"AP",IBTRC)):60,1:65)
37 D COM^IBTUTL3(IBTRCDT,$G(IBTRN),IBTCOD,$G(IBTRV))
38 ; -- ibtrc now entry of new appeal
39 ;
40 ; -- edit based on
41 S DIE="^IBT(356.2,",DA=IBTRC
42 L +^IBT(356.2,+IBTRC):5 I '$T D LOCKED^IBTRCD1 G AA1Q
43 S DR="[IBT ADD APPEAL]"
44 ;S DR=".18////"_IBPARNT_";1.05////"_IBCDFN_";.04;.23;.1;.25;11;.24;.19"
45 D ^DIE K DIE
46 L -^IBT(356.2,+IBTRC)
47AA1Q Q
48 ;
49DT ; -- Delete Insurance Action entry
50 I '$D(^XUSEC("IB CLAIMS SUPERVISOR",DUZ)) D SORRY^IBTRE1 G DTQ
51 D EN^VALM2($G(XQORNOD(0)))
52 N I,J,IBXX,DIR,DIRUT,IBTRN
53 I $D(VALMY) D FULL^VALM1 S IBXX=0 F S IBXX=$O(VALMY(IBXX)) Q:'IBXX!$D(DIRUT) D
54 .S IBTRC=$P($G(^TMP("IBTRDDX",$J,+$O(^TMP("IBTRD",$J,"IDX",IBXX,0)))),"^",2),IBTRN=$P($G(^IBT(356.2,+IBTRC,0)),"^",2)
55 .I $O(^IBT(356.2,"AP",IBTRC,0)) W !,"Must first delete appeals associate* d with Denials" D PAUSE^VALM1 Q
56 .;
57 .W ! S DIR(0)="Y",DIR("B")="NO",DIR("A")="Are You Sure you want to delete entry #"_IBXX
58 .D ^DIR I Y'=1 W !,"Entry #",IBXX," not Deleted!" Q
59 .D DP1^IBTRC1
60 .Q
61DTQ D BLD^IBTRD
62 S VALMBCK="R" Q
63 ;
64QE ; -- Quick edit Review entry
65 D EN^VALM2($G(XQORNOD(0)))
66 N I,J,IBXX,IBTRN,IBTRC
67 I $D(VALMY) S IBXX=0 F S IBXX=$O(VALMY(IBXX)) Q:'IBXX D
68 .S IBTRC=$P($G(^TMP("IBTRDDX",$J,+$O(^TMP("IBTRD",$J,"IDX",IBXX,0)))),"^",2),IBTRN=$P($G(^IBT(356.2,+IBTRC,0)),"^",2)
69 .D QE1
70QEQ S VALMBCK="R"
71 D BLD^IBTRD
72 Q
73 ;
74QE1 N X,Y,DA,DR,DIC,DIE
75 D EDIT^IBTRCD1("[IBT QUICK EDIT]",1)
76 Q
77 ;
78NX(IBTMPNM) ; -- Go to next template
79 ; -- Input template name
80 N I,J,IBXXC,VALMY,IBTRN
81 D EN^VALM2($G(XQORNOD(0)))
82 I $D(VALMY) S IBXXC=0 F S IBXXC=$O(VALMY(IBXXC)) Q:'IBXXC D
83 .S IBTRC=$P($G(^TMP("IBTRDDX",$J,+$O(^TMP("IBTRD",$J,"IDX",IBXXC,0)))),"^",2),IBTRN=$P($G(^IBT(356.2,+IBTRC,0)),"^",2)
84 .S:'$D(DFN) DFN=$P($G(^IBT(356.2,+IBTRC,0)),"^",5)
85 .S:'$D(IBCNS) IBCNS=$P($G(^IBT(356.2,+IBTRC,0)),"^",8)
86 .D EN^VALM(IBTMPNM)
87 .K IBAMT,IBAPR,IBADG,IBDA,IBDGCR,IBDGCRU1,IBDV,IBETYP,IBETYPD,IBI,IBICD,IBLCNT,IBSEL,IBT,IBTEXT,IBTNOD,IBTSAV,VAUTD
88 .K IBAPEAL,IBCDFN,IBCNT,IBDEN,IBDENIAL,IBDENIAL,IBPARNT,IBPEN,IBPENAL,IBTCOD,IBTRDD,IBTRSV,IBTYPE,VAINDT,VA
89 .D KVAR^VADPT
90 .Q
91 I '$D(IBFASTXT) D BLD^IBTRD
92 S VALMBCK="R"
93 Q
94 ;
95EDIT(IBTEMP) ; -- Edit entries
96 N VALMY
97 D EN^VALM2($G(XQORNOD(0)))
98 N I,J,IBXX
99 I $D(VALMY) D FULL^VALM1 S IBXX=0 F S IBXX=$O(VALMY(IBXX)) Q:'IBXX D
100 .S IBTRC=$P($G(^TMP("IBTRDDX",$J,+$O(^TMP("IBTRD",$J,"IDX",IBXX,0)))),"^",2)
101 .W !!,"Editing Entry #",IBXX,!
102 .D EDIT^IBTRCD1(IBTEMP,1)
103 S VALMBCK="R"
104 D BLD^IBTRD
105 Q
106SHOWSC ; -- show sc conditions
107 N VALMY
108 D FULL^VALM1
109 I IBTRD["DPT",$D(DFN) D SHOWSC^IBTRC1 G SHOWQ
110 ;
111 D EN^VALM2($G(XQORNOD(0)))
112 N I,J,IBXX,DFN,IBTRC
113 I $D(VALMY) D FULL^VALM1 S IBXX=0 F S IBXX=$O(VALMY(IBXX)) Q:'IBXX D
114 .S IBTRC=$P($G(^TMP("IBTRDDX",$J,+$O(^TMP("IBTRD",$J,"IDX",IBXX,0)))),"^",2)
115 .S DFN=$P($G(^IBT(356.2,+IBTRC,0)),"^",5)
116 .D SHOWSC^IBTRC1
117SHOWQ S VALMBCK="R"
118 Q
Note: See TracBrowser for help on using the repository browser.