Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBTRDD

IBTRDD.m

Go to the documentation of this file.
  1. IBTRDD ;ALB/AAS - CLAIMS TRACKING, EXPANDED APPEALS - DENIALS ; 02-JUL-1993
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. % ;
  1. EN ; -- main entry point for IBT EXPAND/EDIT DENIALS
  1. I '$D(DT) D DT^DICRW
  1. K XQORS,VALMEVL
  1. I '$G(IBTRC) G EN^IBTRD
  1. D EN^VALM("IBT EXPAND/EDIT DENIALS")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. D PID^VADPT
  1. S VALMHDR(1)="Expanded Appeal/Denial for: "_$$PT^IBTUTL1(DFN)_" ROI: "_$$EXPAND^IBTRE(356,.31,+$P($G(^IBT(356,+$G(IBTRN),0)),"^",31))
  1. S VALMHDR(2)=" for: "_$$EXPAND^IBTRE(356,.18,$P(IBTRND,"^",18))_" on "_$$DAT1^IBOUTL($P(IBTRND,"^",6),2)
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. N IBTRCD,IBTRCD1,IBTRN,IBTRND,DFN
  1. K VALMQUIT
  1. S VALMCNT=0,VALMBG=1
  1. D BLD,HDR
  1. Q
  1. ;
  1. BLD ; -- build display
  1. K ^TMP("IBTRDD",$J),^TMP("IBTRDDX",$J)
  1. D KILL^VALM10()
  1. S IBTRCD=$G(^IBT(356.2,+IBTRC,0)),IBTRCD1=$G(^(1))
  1. S IBTRN=$P(IBTRCD,"^",2),DFN=$P(IBTRCD,"^",5)
  1. S IBTRND=$G(^IBT(356,+IBTRN,0))
  1. F I=1:1:30 D BLANK^IBTRED(.I)
  1. S VALMCNT=30
  1. S VAINDT=+IBTRCD+.24
  1. S VA200="" D INP^VADPT
  1. D ACTION^IBTRCD,VISIT,CLIN,INS,USER,APADD,COMM,CONT
  1. Q
  1. ;
  1. COMM ; -- comment display
  1. N OFFEST,START
  1. S START=31,OFFSET=2
  1. D COM1^IBTRCD0
  1. Q
  1. ;
  1. CONT ; -- contact info display
  1. N OFFEST,START
  1. S START=23,OFFSET=45
  1. D CON1^IBTRCD0
  1. Q
  1. ;
  1. HIST ; --history display
  1. N OFFEST,START
  1. S START=31,OFFSET=2
  1. ;
  1. Q
  1. ;
  1. CLIN ; -- clinical data display
  1. N OFFSET,START
  1. S START=9,OFFSET=2
  1. D CLIN1^IBTRED0
  1. Q
  1. ;
  1. APADD ; -- Appeals Address Display
  1. N OFFSET,START
  1. S START=9,OFFSET=45
  1. D AP1^IBTRCD0
  1. Q
  1. ;
  1. USER ; -- User display
  1. N OFFSET,START
  1. S START=23,OFFSET=2
  1. D USER1^IBTRCD0
  1. Q
  1. ;
  1. INS ; -- Ins. Co. Display
  1. N OFFSET,START,IBCDFND,IBPHONE
  1. S START=17,OFFSET=2
  1. D ENINS^IBTRCD0
  1. Q
  1. ;
  1. VISIT ; -- Visit information
  1. N OFFSET,START,VAIN,VAINDT,IBETYP
  1. ;S VAINDT=+IBTRCD+.24
  1. ;D INP^VADPT
  1. S START=1,OFFSET=2
  1. S IBETYP=$G(^IBE(356.6,+$P(IBTRND,"^",18),0))
  1. D VISIT^IBTRED
  1. I $D(VAIN(11)) D SET^IBCNSP(START+5,OFFSET," Attending: "_$P(VAIN(11),"^",2))
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. K VALMQUIT,IBTRC,IBTRCD,IBTRCD1
  1. K ^TMP("IBTRDD",$J),^TMP("IBTRDDX",$J)
  1. D CLEAN^VALM10,FULL^VALM1
  1. Q