source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBTRDD1.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: 961 bytes
Line 
1IBTRDD1 ;ALB/AAS - CLAIMS TRACKING DENIAL/APPEAL EDIT ; 06-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 ^IBTRD
6 ;
7QE ; -- Appeal/denial edit
8 N IBXX,VALMY,DA,DR,DIC,DIE
9 D FULL^VALM1
10 D QE1^IBTRD1
11 D BLD^IBTRDD
12 S VALMBCK="R"
13 Q
14 ;
15NX(IBTMPNM) ; -- edit next template
16 N IBXX,VALMY
17 D EN^VALM(IBTMPNM)
18 I '$D(IBFASTXT) D BLD^IBTRDD
19 S VALMBCK="R"
20 Q
21 ;
22EDIT(DR,BLD) ; -- edit entry point for claims tracking reviews
23 ; -- Input IBTEMP = template name or dr string
24 ; BLD = any non-zero value if calling routine is doing own
25 ; rebuild
26 ;
27 N IBDIF,DA,DIC,DIE,DIR,X,Y
28 D FULL^VALM1
29 L +^IBT(356.2,+IBTRC):5 I '$T D LOCKED^IBTRCD1 G EDITQ
30 D SAVE^IBTRCD1
31 S DIE="^IBT(356.2,",DA=IBTRC
32 D ^DIE K DA,DR,DIC,DIE
33 D COMP^IBTRCD1
34 I IBDIF=1 D UPDATE^IBTRCD1
35 L -^IBT(356.2,+IBTRC)
36 D BLD^IBTRDD:'$G(BLD)
37EDITQ K ^TMP($J,"IBT")
38 S VALMBCK="R"
39 Q
Note: See TracBrowser for help on using the repository browser.