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

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

initial load of WorldVistAEHR

File size: 3.2 KB
Line 
1IBTRV1 ;ALB/AAS - CLAIMS TRACKING - REVIEW ACTIONS ; 14-JUL-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^IBTRV
6 ;
7DT ; -- Delete tracking entry
8 I '$D(^XUSEC("IB CLAIMS SUPERVISOR",DUZ)) D SORRY^IBTRE1 G DTQ
9 D EN^VALM2($G(XQORNOD(0)))
10 N I,J,IBXX,DIR,DIRUT
11 I $D(VALMY) D FULL^VALM1 S IBXX=0 F S IBXX=$O(VALMY(IBXX)) Q:'IBXX!$D(DIRUT) D
12 .S IBTRV=$P($G(^TMP("IBTRVDX",$J,+$O(^TMP("IBTRV",$J,"IDX",IBXX,0)))),"^",2)
13 .I $O(^IBT(356.2,"AD",IBTRV,0)) W !!,*7,"There are Insurance Reviews associated with this entry."
14 .W ! S DIR(0)="Y",DIR("B")="NO",DIR("A")="Are You Sure you want to delete entry #"_IBXX
15 .D ^DIR I Y'=1 W !,"Entry #",IBXX," not Deleted!" Q
16 .D DP1
17 .Q
18DTQ D BLD^IBTRV
19 S VALMBCK="R" Q
20 ;
21DP1 ; -- actual deletion
22 N DA,DIC,DIK
23 ;
24 ; -- delete reviews, communications,
25 N IBI,IBCNT
26 S (IBI,IBCNT)=0 F S IBI=$O(^IBT(356.2,"AD",IBTRV,IBI)) Q:'IBI D
27 .S DA=IBI,DIK="^IBT(356.2," D ^DIK
28 .S IBCNT=IBCNT+1
29 I IBCNT W !,"Number of Insurance Reviews Deleted: ",IBCNT
30 ;
31 ; -- delete entry in review file
32 S DA=IBTRV,DIK="^IBT(356.1," D ^DIK
33 W !,"Entry ",IBXX," Deleted"
34 Q
35 ;
36QE ; -- Quick edit Review entry
37 D EN^VALM2($G(XQORNOD(0)))
38 N I,J,IBXX
39 I $D(VALMY) D FULL^VALM1 S IBXX=0 F S IBXX=$O(VALMY(IBXX)) Q:'IBXX D
40 .S IBTRV=$P($G(^TMP("IBTRVDX",$J,+$O(^TMP("IBTRV",$J,"IDX",IBXX,0)))),"^",2)
41 .D QE1
42QEQ S VALMBCK="R"
43 D BLD^IBTRV
44 Q
45 ;
46QE1 N X,Y,DA,DR,DIC,DIE,IBSPEC,IBPROV,IBUNIT,IBADT,IBSEL
47 S DIE="^IBT(356.1,",DA=IBTRV
48 S IBTRTP=$P($G(^IBE(356.11,+$P($G(^IBT(356.1,IBTRV,0)),"^",22),0)),"^",2)
49 S IBPROV="",IBSPEC="",IBATD=""
50 I 'IBTRTP Q
51 D @(IBTRTP_"^IBTRV3") ;sets up dr string for review type
52 S DR=DR_"1.15;1.17;.21////10;.21;.2;"
53 D EDIT^IBTRVD1(.DR,1)
54 Q ; -- don't always ask clinical info
55 I $$TRTP^IBTRE1(IBTRN)<3 D ;clinical info only on inpt/outpt
56 .; -- diagnosis edit
57 .D EN^IBTRE3(IBTRN) Q:$G(IBSEL)["^"
58 .;
59 .; -- procedure edit / only inpt. / outpt use add/edit
60 .I $$TRTP^IBTRE1(IBTRN)<2 D EN^IBTRE4(IBTRN) Q:$G(IBSEL)["^"
61 .;
62 .; -- provider edit
63 .D EN^IBTRE5(IBTRN)
64 Q
65 ;
66NX(IBTMPNM) ; -- Go to next template
67 ; -- Input template name
68 N VALMY,I,J,IBXXV
69 D EN^VALM2($G(XQORNOD(0)))
70 I $D(VALMY) S IBXXV=0 F S IBXXV=$O(VALMY(IBXXV)) Q:'IBXXV D
71 .S IBTRV=$P($G(^TMP("IBTRVDX",$J,$O(^TMP("IBTRV",$J,"IDX",IBXXV,0)))),"^",2)
72 .D EN^VALM(IBTMPNM)
73 .K IBAMT,IBAPR,IBADG,IBDA,IBDGCR,IBDGCRU1,IBDV,IBETYP,IBETYPD,IBI,IBICD,IBLCNT,IBSEL,IBT,IBTEXT,IBTNOD,IBTSAV,VAUTD
74 .K IBAPEAL,IBCDFN,IBCNT,IBDEN,IBDENIAL,IBDENIAL,IBPARNT,IBPEN,IBPENAL,IBTCOD,IBTRDD,IBTRSV,IBTYPE,VAINDT,VA
75 .D KVAR^VADPT
76 .Q
77 I '$D(IBFASTXT) D BLD^IBTRV
78 S VALMBCK="R"
79 Q
80 ;
81EDIT(IBTEMP) ; -- Edit entries
82 D EN^VALM2($G(XQORNOD(0)))
83 N I,J,IBXX
84 I $D(VALMY) D FULL^VALM1 S IBXX=0 F S IBXX=$O(VALMY(IBXX)) Q:'IBXX D
85 .S IBTRV=$P($G(^TMP("IBTRVDX",$J,+$O(^TMP("IBTRV",$J,"IDX",IBXX,0)))),"^",2)
86 .W !!,"Editing Entry #",IBXX,!
87 .D EDIT^IBTRVD1(IBTEMP,1)
88 S VALMBCK="R"
89 D BLD^IBTRV
90 Q
91 ;
92CP ; -- change patient from within insurance reviews
93 N VALMQUIT,IBDFN,IBY,IBTRNOLD
94 D FULL^VALM1
95 S IBDFN=DFN D PAT^IBCNSM
96 I $D(VALMQUIT) S DFN=IBDFN
97 S IBTRNOLD=IBTRN K IBTRN
98 D TRAC^IBTRV
99 I '$G(IBTRN) S DFN=IBDFN,IBTRN=IBTRNOLD
100 S IBTRND=$G(^IBT(356,+IBTRN,0))
101 D HDR^IBTRV,BLD^IBTRV
102 S VALMBCK="R"
103CPQ Q
Note: See TracBrowser for help on using the repository browser.