| 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 |  ;
 | 
|---|