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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBTRDD1   1000     printed  Apr 09, 2024@21:17:12                                                                                                                                                                                                     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