IBTRDD1.m

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

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