| [613] | 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 | ; | 
|---|