- 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 Jan 18, 2025@03:28:55 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