IBTRDD1 ;ALB/AAS - CLAIMS TRACKING DENIAL/APPEAL EDIT ; 06-JUL-93
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
;;Per VHA Directive 10-93-142, this routine should not be modified.
;
% G ^IBTRD
;
QE ; -- Appeal/denial edit
N IBXX,VALMY,DA,DR,DIC,DIE
D FULL^VALM1
D QE1^IBTRD1
D BLD^IBTRDD
S VALMBCK="R"
Q
;
NX(IBTMPNM) ; -- edit next template
N IBXX,VALMY
D EN^VALM(IBTMPNM)
I '$D(IBFASTXT) D BLD^IBTRDD
S VALMBCK="R"
Q
;
EDIT(DR,BLD) ; -- edit entry point for claims tracking reviews
; -- Input IBTEMP = template name or dr string
; BLD = any non-zero value if calling routine is doing own
; rebuild
;
N IBDIF,DA,DIC,DIE,DIR,X,Y
D FULL^VALM1
L +^IBT(356.2,+IBTRC):5 I '$T D LOCKED^IBTRCD1 G EDITQ
D SAVE^IBTRCD1
S DIE="^IBT(356.2,",DA=IBTRC
D ^DIE K DA,DR,DIC,DIE
D COMP^IBTRCD1
I IBDIF=1 D UPDATE^IBTRCD1
L -^IBT(356.2,+IBTRC)
D BLD^IBTRDD:'$G(BLD)
EDITQ K ^TMP($J,"IBT")
S VALMBCK="R"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBTRDD1 1000 printed Dec 13, 2024@02:27:44 Page 2
IBTRDD1 ;ALB/AAS - CLAIMS TRACKING DENIAL/APPEAL EDIT ; 06-JUL-93
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 ;
% GOTO ^IBTRD
+1 ;
QE ; -- Appeal/denial edit
+1 NEW IBXX,VALMY,DA,DR,DIC,DIE
+2 DO FULL^VALM1
+3 DO QE1^IBTRD1
+4 DO BLD^IBTRDD
+5 SET VALMBCK="R"
+6 QUIT
+7 ;
NX(IBTMPNM) ; -- edit next template
+1 NEW IBXX,VALMY
+2 DO EN^VALM(IBTMPNM)
+3 IF '$DATA(IBFASTXT)
DO BLD^IBTRDD
+4 SET VALMBCK="R"
+5 QUIT
+6 ;
EDIT(DR,BLD) ; -- edit entry point for claims tracking reviews
+1 ; -- Input IBTEMP = template name or dr string
+2 ; BLD = any non-zero value if calling routine is doing own
+3 ; rebuild
+4 ;
+5 NEW IBDIF,DA,DIC,DIE,DIR,X,Y
+6 DO FULL^VALM1
+7 LOCK +^IBT(356.2,+IBTRC):5
IF '$TEST
DO LOCKED^IBTRCD1
GOTO EDITQ
+8 DO SAVE^IBTRCD1
+9 SET DIE="^IBT(356.2,"
SET DA=IBTRC
+10 DO ^DIE
KILL DA,DR,DIC,DIE
+11 DO COMP^IBTRCD1
+12 IF IBDIF=1
DO UPDATE^IBTRCD1
+13 LOCK -^IBT(356.2,+IBTRC)
+14 if '$GET(BLD)
DO BLD^IBTRDD
EDITQ KILL ^TMP($JOB,"IBT")
+1 SET VALMBCK="R"
+2 QUIT
