1 | IBAECU1 ;ALB/BGA-LONG TERM IDENTIFICATION UTILITIES ; 09-OCT-01
|
---|
2 | ;;2.0;INTEGRATED BILLING;**164,171,176,332,364**;21-MAR-94;Build 7
|
---|
3 | ;;Per VHA Directive 2004-038, this routine should not be modified.
|
---|
4 | ; This is a utility program to support IBAECU calls
|
---|
5 | ;
|
---|
6 | ;
|
---|
7 | ;
|
---|
8 | STDATE() ; -- legislative start date for Long Term Care Billing
|
---|
9 | ; Start Date is June 17,2002 when the LTC REG becomes Law
|
---|
10 | ;
|
---|
11 | Q 3020617 ;
|
---|
12 | ;
|
---|
13 | ;
|
---|
14 | ;
|
---|
15 | STOP ; Listed below are stop codes and their associated LTC charge type
|
---|
16 | C190 ;;DG LTC OPT ADHC NEW
|
---|
17 | C319 ;;DG LTC OPT GEM NEW
|
---|
18 | ;;DG LTC OPT RESPITE NEW
|
---|
19 | ;;
|
---|
20 | ;
|
---|
21 | ;
|
---|
22 | SPEC ; Listed below are the treating specialties and their charge type
|
---|
23 | T31 ;;DG LTC INPT GEM NEW
|
---|
24 | T32 ;;DG LTC INPT GEM NEW
|
---|
25 | T33 ;;DG LTC INPT GEM NEW
|
---|
26 | T34 ;;DG LTC INPT GEM NEW
|
---|
27 | T35 ;;DG LTC INPT GEM NEW
|
---|
28 | T37 ;;DG LTC INPT DOM NEW
|
---|
29 | T42 ;;DG LTC INPT NHCU NEW
|
---|
30 | T43 ;;DG LTC INPT NHCU NEW
|
---|
31 | T44 ;;DG LTC INPT NHCU NEW
|
---|
32 | T45 ;;DG LTC INPT NHCU NEW
|
---|
33 | T46 ;;DG LTC INPT NHCU NEW
|
---|
34 | T47 ;;DG LTC INPT RESPITE NEW
|
---|
35 | T64 ;;DG LTC INPT NHCU NEW
|
---|
36 | T66 ;;DG LTC INPT NHCU NEW
|
---|
37 | T67 ;;DG LTC INPT NHCU NEW
|
---|
38 | T68 ;;DG LTC INPT NHCU NEW
|
---|
39 | T69 ;;DG LTC INPT NHCU NEW
|
---|
40 | T80 ;;DG LTC INPT NHCU NEW
|
---|
41 | T81 ;;DG LTC INPT NHCU NEW
|
---|
42 | T83 ;;DG LTC INPT RESPITE NEW
|
---|
43 | T85 ;;DG LTC INPT DOM NEW
|
---|
44 | T86 ;;DG LTC INPT DOM NEW
|
---|
45 | T87 ;;DG LTC INPT DOM NEW
|
---|
46 | T88 ;;DG LTC INPT DOM NEW
|
---|
47 | T95 ;;DG LTC INPT NHCU NEW
|
---|
48 | T96 ;;DG LTC INPT NHCU NEW
|
---|
49 | T100 ;;DG LTC INPT NHCU NEW
|
---|
50 | T101 ;;DG LTC INPT NHCU NEW
|
---|
51 | T102 ;;DG LTC INPT GEM NEW
|
---|
52 | ;;
|
---|
53 | ;
|
---|
54 | ;
|
---|