source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBTRDD.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1IBTRDD ;ALB/AAS - CLAIMS TRACKING, EXPANDED APPEALS - DENIALS ; 02-JUL-1993
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5% ;
6EN ; -- main entry point for IBT EXPAND/EDIT DENIALS
7 I '$D(DT) D DT^DICRW
8 K XQORS,VALMEVL
9 I '$G(IBTRC) G EN^IBTRD
10 D EN^VALM("IBT EXPAND/EDIT DENIALS")
11 Q
12 ;
13HDR ; -- header code
14 D PID^VADPT
15 S VALMHDR(1)="Expanded Appeal/Denial for: "_$$PT^IBTUTL1(DFN)_" ROI: "_$$EXPAND^IBTRE(356,.31,+$P($G(^IBT(356,+$G(IBTRN),0)),"^",31))
16 S VALMHDR(2)=" for: "_$$EXPAND^IBTRE(356,.18,$P(IBTRND,"^",18))_" on "_$$DAT1^IBOUTL($P(IBTRND,"^",6),2)
17 Q
18 ;
19INIT ; -- init variables and list array
20 N IBTRCD,IBTRCD1,IBTRN,IBTRND,DFN
21 K VALMQUIT
22 S VALMCNT=0,VALMBG=1
23 D BLD,HDR
24 Q
25 ;
26BLD ; -- build display
27 K ^TMP("IBTRDD",$J),^TMP("IBTRDDX",$J)
28 D KILL^VALM10()
29 S IBTRCD=$G(^IBT(356.2,+IBTRC,0)),IBTRCD1=$G(^(1))
30 S IBTRN=$P(IBTRCD,"^",2),DFN=$P(IBTRCD,"^",5)
31 S IBTRND=$G(^IBT(356,+IBTRN,0))
32 F I=1:1:30 D BLANK^IBTRED(.I)
33 S VALMCNT=30
34 S VAINDT=+IBTRCD+.24
35 S VA200="" D INP^VADPT
36 D ACTION^IBTRCD,VISIT,CLIN,INS,USER,APADD,COMM,CONT
37 Q
38 ;
39COMM ; -- comment display
40 N OFFEST,START
41 S START=31,OFFSET=2
42 D COM1^IBTRCD0
43 Q
44 ;
45CONT ; -- contact info display
46 N OFFEST,START
47 S START=23,OFFSET=45
48 D CON1^IBTRCD0
49 Q
50 ;
51HIST ; --history display
52 N OFFEST,START
53 S START=31,OFFSET=2
54 ;
55 Q
56 ;
57CLIN ; -- clinical data display
58 N OFFSET,START
59 S START=9,OFFSET=2
60 D CLIN1^IBTRED0
61 Q
62 ;
63APADD ; -- Appeals Address Display
64 N OFFSET,START
65 S START=9,OFFSET=45
66 D AP1^IBTRCD0
67 Q
68 ;
69USER ; -- User display
70 N OFFSET,START
71 S START=23,OFFSET=2
72 D USER1^IBTRCD0
73 Q
74 ;
75INS ; -- Ins. Co. Display
76 N OFFSET,START,IBCDFND,IBPHONE
77 S START=17,OFFSET=2
78 D ENINS^IBTRCD0
79 Q
80 ;
81VISIT ; -- Visit information
82 N OFFSET,START,VAIN,VAINDT,IBETYP
83 ;S VAINDT=+IBTRCD+.24
84 ;D INP^VADPT
85 S START=1,OFFSET=2
86 S IBETYP=$G(^IBE(356.6,+$P(IBTRND,"^",18),0))
87 D VISIT^IBTRED
88 I $D(VAIN(11)) D SET^IBCNSP(START+5,OFFSET," Attending: "_$P(VAIN(11),"^",2))
89 Q
90 ;
91HELP ; -- help code
92 S X="?" D DISP^XQORM1 W !!
93 Q
94 ;
95EXIT ; -- exit code
96 K VALMQUIT,IBTRC,IBTRCD,IBTRCD1
97 K ^TMP("IBTRDD",$J),^TMP("IBTRDDX",$J)
98 D CLEAN^VALM10,FULL^VALM1
99 Q
Note: See TracBrowser for help on using the repository browser.