IB20P570 ;ALB/CXW - IB*2*570 POST INIT:COST-BASED/INTERAGENCY/CONDITION;7/7/16
;;2.0;INTEGRATED BILLING;**570**;21-MAR-94;Build 22
;;Per VA Directive 6402, this routine should not be modified.
;
;
; Add CY2016 Cost Based/Interagency Charges to Charge Master 363.2
; Add condition code(s) in mccr utility file 399.1
Q
POST ;
N IBEFFDT,IBA,U S U="^"
D MSG(" IB*2.0*570 Post-Install .....")
S IBEFFDT=3160707 ; effective date of 07/07/2016
D ADDCI(IBEFFDT) ; add Charge Items (363.2) with new 66 rates
D MCCR ; effective date of 07/01/2016
D MSG(" IB*2*570 Post-Install Complete")
Q
;
ADDCI(IBEFFDT) ; Add Charge Items (363.2) needs Charge Sets, pass in the effective date of the new charges
N IBC,IBCHG,IBCNT,IBCNT1,IBCI,IBCS,IBDFLTDT,IBDT,IBFN,IBI,IBLN,IBPE,IBRVCD,IBX,IBXRF,IBZ,DA,DD,DO,DLAYGO,DIC,DIE,DR,X,Y
;
D MSG("")
S (IBCNT,IBCNT1)=0,IBDFLTDT=+$G(IBEFFDT)
I 'IBDFLTDT D MSG("** Error: No Effective Date, No Charges Added") G CIQ
;
F IBI=1:1 S IBLN=$P($T(CIF+IBI),";;",2) Q:+IBLN!(IBLN="") I $E(IBLN)?1A D SETCI
;
I +IBCNT1 D MSG(" "_IBCNT1_" Duplicate Charge Items already exist, not re-added")
;
CIQ D MSG(" >> "_IBCNT_" Cost Based/Interagency Charge Items added (#363.2).")
D MSG("")
Q
;
SETCI ; set Charge Item (duplicates based on item, CS, eff dt, rev cd)
;
S IBCS=$P(IBLN,U,2),IBCS=+$O(^IBE(363.1,"B",IBCS,0)) I 'IBCS D MSG("** Error: Charge Set "_$P(IBLN,U,2)_" undefined") Q
S IBCI=+$$MCCRUTL($P(IBLN,U,1),5) I 'IBCI D MSG("** Error: Bed Section "_$P(IBLN,U,1)_" undefined") Q
S IBDT=IBDFLTDT I +$P(IBLN,U,3) S IBDT=+$P(IBLN,U,3)
S IBRVCD=$$RVCD($P(IBLN,U,4))
S IBCHG=+$P(IBLN,U,5)
S IBXRF="AIVDTS"_IBCS
;
S IBX=0 F S IBX=$O(^IBA(363.2,IBXRF,IBCI,-IBDT,IBX)) Q:'IBX S IBZ=$G(^IBA(363.2,IBX,0)) I $P(IBZ,U,6)=IBRVCD D
. S IBCI=0,IBCNT1=IBCNT1+1 I +$P(IBZ,U,5)'=IBCHG D MSG("** Error: Item exists, wrong charge: "_IBLN)
Q:'IBCI
;
K DD,DO S DLAYGO=363.2,DIC="^IBA(363.2,",DIC(0)="L",X=IBCI_";DGCR(399.1," D FILE^DICN K DIC
I Y<1 D MSG("** Error: when adding the charge item "_$P(IBLN,U,2)_" with rate "_IBCHG_" to the file, Log a ticket!") K X,Y Q
S IBFN=+Y,IBCNT=IBCNT+1
;
S DR=".02///"_IBCS_";.03///"_IBDT_";.05///"_IBCHG I +IBRVCD S DR=DR_";.06///"_IBRVCD
S DIE="^IBA(363.2,",DA=+IBFN D ^DIE K DIE,DA,DR,X,Y
Q
;
;
MCCRUTL(IBC,IBPE) ; returns IEN in 399.1 if Name is found and piece P is true
N IBX,IBY S IBY=""
I $G(IBC)'="" S IBX=0 F S IBX=$O(^DGCR(399.1,"B",IBC,IBX)) Q:'IBX I $P($G(^DGCR(399.1,IBX,0)),U,+$G(IBPE)) S IBY=IBX
Q IBY
;
EXCODE(IBC,IBPE) ; returns IEN in 399.1 if Code is found and piece P is true
N IBX,IBY S IBY=""
I $G(IBC)'="" S IBX=0 F S IBX=$O(^DGCR(399.1,"C",IBC,IBX)) Q:'IBX I $P($G(^DGCR(399.1,IBX,0)),U,+$G(IBPE)) S IBY=IBX
Q IBY
;
RVCD(RVCD) ; returns IFN if revenue code is valid and active
N IBX,IBY S IBY=""
I +$G(RVCD) S IBX=$G(^DGCR(399.2,+RVCD,0)) I +$P(IBX,U,3) S IBY=+RVCD
Q IBY
;
MCCR ; Condition code flag in field #.22/piece 15
N IBC,IBCD,IBCNT,IBFD,IBPE,IBI,IBLN,DA,DD,DO,DLAYGO,DIC,DIE,DR,X,Y
S IBCNT=0,IBPE=15,IBFD=.22
F IBI=1:1 S IBLN=$P($T(CONU+IBI),";;",2) Q:IBLN="QUIT" D
. S IBCD=$P(IBLN,U)_" "_$P(IBLN,U,2)
. I (+$$MCCRUTL($P(IBLN,U,2),IBPE))!(+$$EXCODE($P(IBLN,U),IBPE)) D MSG(" #"_IBCD_" already exists, not re-added") Q
. K DD,DO S DLAYGO=399.1,DIC="^DGCR(399.1,",DIC(0)="L",X=$P(IBLN,U,2)
. D FILE^DICN I Y<1 D MSG("** Error: when adding Condition #"_IBCD_" to the file, Log a ticket!") K X,Y Q
. S DA=+Y,DIE=DIC,DR=".02///"_$P(IBLN,U,1)_";"_IBFD_"///"_1
. D ^DIE K DIE,DR,DA,X,Y
. S IBCNT=IBCNT+1
D MSG(" >> "_IBCNT_" Condition Code added (#399.1).")
D MSG("")
Q
;
MSG(IBA) ;
D MES^XPDUTL(IBA)
Q
CONU ; Condition code^name
;;54^NO SKILL HH VISITS IN BILL PERIOD. POLICY EXCEPT DOC AT HHA.
;;QUIT
;
CIF ; 68 Charge Items (363.2): Bedsection ^ Charge Set ^Effective Date ^ Revenue Code ^ Charge
;;
TORT ;; Cost Based (Tortiously Liable) - All Inclusive
;;
;;ALCOHOL AND DRUG TREATMENT^TL-INPT (INCLUSIVE)^^^1861
;;BLIND REHABILITATION^TL-INPT (INCLUSIVE)^^^1741
;;GENERAL MEDICAL CARE^TL-INPT (INCLUSIVE)^^^3720
;;INTERMEDIATE CARE^TL-INPT (INCLUSIVE)^^^2233
;;NEUROLOGY^TL-INPT (INCLUSIVE)^^^3564
;;NURSING HOME CARE^TL-INPT (INCLUSIVE)^^^1197
;;POLYTRAUMA INPATIENT^TL-INPT (INCLUSIVE)^^^3227
;;PRRTP^TL-INPT (INCLUSIVE)^^^695
;;PSYCHIATRIC CARE^TL-INPT (INCLUSIVE)^^^1771
;;REHABILITATION MEDICINE^TL-INPT (INCLUSIVE)^^^2477
;;SPINAL CORD INJURY CARE^TL-INPT (INCLUSIVE)^^^2631
;;SURGICAL CARE^TL-INPT (INCLUSIVE)^^^5910
;;
;; Non-Professional: Nursing/Room/Board 101 & Ancillary 240
;;ALCOHOL AND DRUG TREATMENT^TL-INPT (NPF)^^101^1252
;;ALCOHOL AND DRUG TREATMENT^TL-INPT (NPF)^^240^431
;;BLIND REHABILITATION^TL-INPT (NPF)^^101^736
;;BLIND REHABILITATION^TL-INPT (NPF)^^240^865
;;GENERAL MEDICAL CARE^TL-INPT (NPF)^^101^2306
;;GENERAL MEDICAL CARE^TL-INPT (NPF)^^240^969
;;INTERMEDIATE CARE^TL-INPT (NPF)^^101^1795
;;INTERMEDIATE CARE^TL-INPT (NPF)^^240^328
;;NEUROLOGY^TL-INPT (NPF)^^101^2101
;;NEUROLOGY^TL-INPT (NPF)^^240^941
;;NURSING HOME CARE^TL-INPT (NPF)^^101^998
;;NURSING HOME CARE^TL-INPT (NPF)^^240^162
;;POLYTRAUMA INPATIENT^TL-INPT (NPF)^^101^1874
;;POLYTRAUMA INPATIENT^TL-INPT (NPF)^^240^986
;;PRRTP^TL-INPT (NPF)^^101^578
;;PRRTP^TL-INPT (NPF)^^240^73
;;PSYCHIATRIC CARE^TL-INPT (NPF)^^101^1325
;;PSYCHIATRIC CARE^TL-INPT (NPF)^^240^279
;;REHABILITATION MEDICINE^TL-INPT (NPF)^^101^1439
;;REHABILITATION MEDICINE^TL-INPT (NPF)^^240^757
;;SPINAL CORD INJURY CARE^TL-INPT (NPF)^^101^1643
;;SPINAL CORD INJURY CARE^TL-INPT (NPF)^^240^662
;;SURGICAL CARE^TL-INPT (NPF)^^101^3466
;;SURGICAL CARE^TL-INPT (NPF)^^240^1793
;;
;; Professional Physician
;;ALCOHOL AND DRUG TREATMENT^TL-INPT (PF)^^^178
;;BLIND REHABILITATION^TL-INPT (PF)^^^140
;;GENERAL MEDICAL CARE^TL-INPT (PF)^^^445
;;INTERMEDIATE CARE^TL-INPT (PF)^^^110
;;NEUROLOGY^TL-INPT (PF)^^^522
;;NURSING HOME CARE^TL-INPT (PF)^^^37
;;POLYTRAUMA INPATIENT^TL-INPT (PF)^^^367
;;PRRTP^TL-INPT (PF)^^^44
;;PSYCHIATRIC CARE^TL-INPT (PF)^^^167
;;REHABILITATION MEDICINE^TL-INPT (PF)^^^281
;;SPINAL CORD INJURY CARE^TL-INPT (PF)^^^326
;;SURGICAL CARE^TL-INPT (PF)^^^651
;;
;; Outpatient Care Other
;;OUTPATIENT DENTAL^TL-OPT DENTAL^^^335
;;OUTPATIENT VISIT^TL-OPT VST^^^335
;;PM&RS OUTPATIENT VISIT^TL-OPT VST PM&RS^^^537
;;POLYTRAUMA OUTPATIENT VISIT^TL-OPT VST POLYTRAUMA^^^212
;;
IA ;; Interagency
;;
;;ALCOHOL AND DRUG TREATMENT^IA-INPT^^^1765
;;BLIND REHABILITATION^IA-INPT^^^1653
;;GENERAL MEDICAL CARE^IA-INPT^^^3553
;;INTERMEDIATE CARE^IA-INPT^^^2126
;;NEUROLOGY^IA-INPT^^^3401
;;NURSING HOME CARE^IA-INPT^^^1138
;;POLYTRAUMA INPATIENT^IA-INPT^^^3057
;;PRRTP^IA-INPT^^^662
;;PSYCHIATRIC CARE^IA-INPT^^^1679
;;REHABILITATION MEDICINE^IA-INPT^^^2354
;;SPINAL CORD INJURY CARE^IA-INPT^^^2502
;;SURGICAL CARE^IA-INPT^^^5642
;;OUTPATIENT DENTAL^IA-OPT DENTAL^^^319
;;OUTPATIENT VISIT^IA-OPT VST^^^319
;;PM&RS OUTPATIENT VISIT^IA-OPT VST PM&RS^^^510
;;POLYTRAUMA OUTPATIENT VISIT^IA-OPT VST POLYTRAUMA^^^199
;;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P570 7313 printed Apr 09, 2024@21:31:27 Page 2
IB20P570 ;ALB/CXW - IB*2*570 POST INIT:COST-BASED/INTERAGENCY/CONDITION;7/7/16
+1 ;;2.0;INTEGRATED BILLING;**570**;21-MAR-94;Build 22
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;
+5 ; Add CY2016 Cost Based/Interagency Charges to Charge Master 363.2
+6 ; Add condition code(s) in mccr utility file 399.1
+7 QUIT
POST ;
+1 NEW IBEFFDT,IBA,U
SET U="^"
+2 DO MSG(" IB*2.0*570 Post-Install .....")
+3 ; effective date of 07/07/2016
SET IBEFFDT=3160707
+4 ; add Charge Items (363.2) with new 66 rates
DO ADDCI(IBEFFDT)
+5 ; effective date of 07/01/2016
DO MCCR
+6 DO MSG(" IB*2*570 Post-Install Complete")
+7 QUIT
+8 ;
ADDCI(IBEFFDT) ; Add Charge Items (363.2) needs Charge Sets, pass in the effective date of the new charges
+1 NEW IBC,IBCHG,IBCNT,IBCNT1,IBCI,IBCS,IBDFLTDT,IBDT,IBFN,IBI,IBLN,IBPE,IBRVCD,IBX,IBXRF,IBZ,DA,DD,DO,DLAYGO,DIC,DIE,DR,X,Y
+2 ;
+3 DO MSG("")
+4 SET (IBCNT,IBCNT1)=0
SET IBDFLTDT=+$GET(IBEFFDT)
+5 IF 'IBDFLTDT
DO MSG("** Error: No Effective Date, No Charges Added")
GOTO CIQ
+6 ;
+7 FOR IBI=1:1
SET IBLN=$PIECE($TEXT(CIF+IBI),";;",2)
if +IBLN!(IBLN="")
QUIT
IF $EXTRACT(IBLN)?1A
DO SETCI
+8 ;
+9 IF +IBCNT1
DO MSG(" "_IBCNT1_" Duplicate Charge Items already exist, not re-added")
+10 ;
CIQ DO MSG(" >> "_IBCNT_" Cost Based/Interagency Charge Items added (#363.2).")
+1 DO MSG("")
+2 QUIT
+3 ;
SETCI ; set Charge Item (duplicates based on item, CS, eff dt, rev cd)
+1 ;
+2 SET IBCS=$PIECE(IBLN,U,2)
SET IBCS=+$ORDER(^IBE(363.1,"B",IBCS,0))
IF 'IBCS
DO MSG("** Error: Charge Set "_$PIECE(IBLN,U,2)_" undefined")
QUIT
+3 SET IBCI=+$$MCCRUTL($PIECE(IBLN,U,1),5)
IF 'IBCI
DO MSG("** Error: Bed Section "_$PIECE(IBLN,U,1)_" undefined")
QUIT
+4 SET IBDT=IBDFLTDT
IF +$PIECE(IBLN,U,3)
SET IBDT=+$PIECE(IBLN,U,3)
+5 SET IBRVCD=$$RVCD($PIECE(IBLN,U,4))
+6 SET IBCHG=+$PIECE(IBLN,U,5)
+7 SET IBXRF="AIVDTS"_IBCS
+8 ;
+9 SET IBX=0
FOR
SET IBX=$ORDER(^IBA(363.2,IBXRF,IBCI,-IBDT,IBX))
if 'IBX
QUIT
SET IBZ=$GET(^IBA(363.2,IBX,0))
IF $PIECE(IBZ,U,6)=IBRVCD
Begin DoDot:1
+10 SET IBCI=0
SET IBCNT1=IBCNT1+1
IF +$PIECE(IBZ,U,5)'=IBCHG
DO MSG("** Error: Item exists, wrong charge: "_IBLN)
End DoDot:1
+11 if 'IBCI
QUIT
+12 ;
+13 KILL DD,DO
SET DLAYGO=363.2
SET DIC="^IBA(363.2,"
SET DIC(0)="L"
SET X=IBCI_";DGCR(399.1,"
DO FILE^DICN
KILL DIC
+14 IF Y<1
DO MSG("** Error: when adding the charge item "_$PIECE(IBLN,U,2)_" with rate "_IBCHG_" to the file, Log a ticket!")
KILL X,Y
QUIT
+15 SET IBFN=+Y
SET IBCNT=IBCNT+1
+16 ;
+17 SET DR=".02///"_IBCS_";.03///"_IBDT_";.05///"_IBCHG
IF +IBRVCD
SET DR=DR_";.06///"_IBRVCD
+18 SET DIE="^IBA(363.2,"
SET DA=+IBFN
DO ^DIE
KILL DIE,DA,DR,X,Y
+19 QUIT
+20 ;
+21 ;
MCCRUTL(IBC,IBPE) ; returns IEN in 399.1 if Name is found and piece P is true
+1 NEW IBX,IBY
SET IBY=""
+2 IF $GET(IBC)'=""
SET IBX=0
FOR
SET IBX=$ORDER(^DGCR(399.1,"B",IBC,IBX))
if 'IBX
QUIT
IF $PIECE($GET(^DGCR(399.1,IBX,0)),U,+$GET(IBPE))
SET IBY=IBX
+3 QUIT IBY
+4 ;
EXCODE(IBC,IBPE) ; returns IEN in 399.1 if Code is found and piece P is true
+1 NEW IBX,IBY
SET IBY=""
+2 IF $GET(IBC)'=""
SET IBX=0
FOR
SET IBX=$ORDER(^DGCR(399.1,"C",IBC,IBX))
if 'IBX
QUIT
IF $PIECE($GET(^DGCR(399.1,IBX,0)),U,+$GET(IBPE))
SET IBY=IBX
+3 QUIT IBY
+4 ;
RVCD(RVCD) ; returns IFN if revenue code is valid and active
+1 NEW IBX,IBY
SET IBY=""
+2 IF +$GET(RVCD)
SET IBX=$GET(^DGCR(399.2,+RVCD,0))
IF +$PIECE(IBX,U,3)
SET IBY=+RVCD
+3 QUIT IBY
+4 ;
MCCR ; Condition code flag in field #.22/piece 15
+1 NEW IBC,IBCD,IBCNT,IBFD,IBPE,IBI,IBLN,DA,DD,DO,DLAYGO,DIC,DIE,DR,X,Y
+2 SET IBCNT=0
SET IBPE=15
SET IBFD=.22
+3 FOR IBI=1:1
SET IBLN=$PIECE($TEXT(CONU+IBI),";;",2)
if IBLN="QUIT"
QUIT
Begin DoDot:1
+4 SET IBCD=$PIECE(IBLN,U)_" "_$PIECE(IBLN,U,2)
+5 IF (+$$MCCRUTL($PIECE(IBLN,U,2),IBPE))!(+$$EXCODE($PIECE(IBLN,U),IBPE))
DO MSG(" #"_IBCD_" already exists, not re-added")
QUIT
+6 KILL DD,DO
SET DLAYGO=399.1
SET DIC="^DGCR(399.1,"
SET DIC(0)="L"
SET X=$PIECE(IBLN,U,2)
+7 DO FILE^DICN
IF Y<1
DO MSG("** Error: when adding Condition #"_IBCD_" to the file, Log a ticket!")
KILL X,Y
QUIT
+8 SET DA=+Y
SET DIE=DIC
SET DR=".02///"_$PIECE(IBLN,U,1)_";"_IBFD_"///"_1
+9 DO ^DIE
KILL DIE,DR,DA,X,Y
+10 SET IBCNT=IBCNT+1
End DoDot:1
+11 DO MSG(" >> "_IBCNT_" Condition Code added (#399.1).")
+12 DO MSG("")
+13 QUIT
+14 ;
MSG(IBA) ;
+1 DO MES^XPDUTL(IBA)
+2 QUIT
CONU ; Condition code^name
+1 ;;54^NO SKILL HH VISITS IN BILL PERIOD. POLICY EXCEPT DOC AT HHA.
+2 ;;QUIT
+3 ;
CIF ; 68 Charge Items (363.2): Bedsection ^ Charge Set ^Effective Date ^ Revenue Code ^ Charge
+1 ;;
TORT ;; Cost Based (Tortiously Liable) - All Inclusive
+1 ;;
+2 ;;ALCOHOL AND DRUG TREATMENT^TL-INPT (INCLUSIVE)^^^1861
+3 ;;BLIND REHABILITATION^TL-INPT (INCLUSIVE)^^^1741
+4 ;;GENERAL MEDICAL CARE^TL-INPT (INCLUSIVE)^^^3720
+5 ;;INTERMEDIATE CARE^TL-INPT (INCLUSIVE)^^^2233
+6 ;;NEUROLOGY^TL-INPT (INCLUSIVE)^^^3564
+7 ;;NURSING HOME CARE^TL-INPT (INCLUSIVE)^^^1197
+8 ;;POLYTRAUMA INPATIENT^TL-INPT (INCLUSIVE)^^^3227
+9 ;;PRRTP^TL-INPT (INCLUSIVE)^^^695
+10 ;;PSYCHIATRIC CARE^TL-INPT (INCLUSIVE)^^^1771
+11 ;;REHABILITATION MEDICINE^TL-INPT (INCLUSIVE)^^^2477
+12 ;;SPINAL CORD INJURY CARE^TL-INPT (INCLUSIVE)^^^2631
+13 ;;SURGICAL CARE^TL-INPT (INCLUSIVE)^^^5910
+14 ;;
+15 ;; Non-Professional: Nursing/Room/Board 101 & Ancillary 240
+16 ;;ALCOHOL AND DRUG TREATMENT^TL-INPT (NPF)^^101^1252
+17 ;;ALCOHOL AND DRUG TREATMENT^TL-INPT (NPF)^^240^431
+18 ;;BLIND REHABILITATION^TL-INPT (NPF)^^101^736
+19 ;;BLIND REHABILITATION^TL-INPT (NPF)^^240^865
+20 ;;GENERAL MEDICAL CARE^TL-INPT (NPF)^^101^2306
+21 ;;GENERAL MEDICAL CARE^TL-INPT (NPF)^^240^969
+22 ;;INTERMEDIATE CARE^TL-INPT (NPF)^^101^1795
+23 ;;INTERMEDIATE CARE^TL-INPT (NPF)^^240^328
+24 ;;NEUROLOGY^TL-INPT (NPF)^^101^2101
+25 ;;NEUROLOGY^TL-INPT (NPF)^^240^941
+26 ;;NURSING HOME CARE^TL-INPT (NPF)^^101^998
+27 ;;NURSING HOME CARE^TL-INPT (NPF)^^240^162
+28 ;;POLYTRAUMA INPATIENT^TL-INPT (NPF)^^101^1874
+29 ;;POLYTRAUMA INPATIENT^TL-INPT (NPF)^^240^986
+30 ;;PRRTP^TL-INPT (NPF)^^101^578
+31 ;;PRRTP^TL-INPT (NPF)^^240^73
+32 ;;PSYCHIATRIC CARE^TL-INPT (NPF)^^101^1325
+33 ;;PSYCHIATRIC CARE^TL-INPT (NPF)^^240^279
+34 ;;REHABILITATION MEDICINE^TL-INPT (NPF)^^101^1439
+35 ;;REHABILITATION MEDICINE^TL-INPT (NPF)^^240^757
+36 ;;SPINAL CORD INJURY CARE^TL-INPT (NPF)^^101^1643
+37 ;;SPINAL CORD INJURY CARE^TL-INPT (NPF)^^240^662
+38 ;;SURGICAL CARE^TL-INPT (NPF)^^101^3466
+39 ;;SURGICAL CARE^TL-INPT (NPF)^^240^1793
+40 ;;
+41 ;; Professional Physician
+42 ;;ALCOHOL AND DRUG TREATMENT^TL-INPT (PF)^^^178
+43 ;;BLIND REHABILITATION^TL-INPT (PF)^^^140
+44 ;;GENERAL MEDICAL CARE^TL-INPT (PF)^^^445
+45 ;;INTERMEDIATE CARE^TL-INPT (PF)^^^110
+46 ;;NEUROLOGY^TL-INPT (PF)^^^522
+47 ;;NURSING HOME CARE^TL-INPT (PF)^^^37
+48 ;;POLYTRAUMA INPATIENT^TL-INPT (PF)^^^367
+49 ;;PRRTP^TL-INPT (PF)^^^44
+50 ;;PSYCHIATRIC CARE^TL-INPT (PF)^^^167
+51 ;;REHABILITATION MEDICINE^TL-INPT (PF)^^^281
+52 ;;SPINAL CORD INJURY CARE^TL-INPT (PF)^^^326
+53 ;;SURGICAL CARE^TL-INPT (PF)^^^651
+54 ;;
+55 ;; Outpatient Care Other
+56 ;;OUTPATIENT DENTAL^TL-OPT DENTAL^^^335
+57 ;;OUTPATIENT VISIT^TL-OPT VST^^^335
+58 ;;PM&RS OUTPATIENT VISIT^TL-OPT VST PM&RS^^^537
+59 ;;POLYTRAUMA OUTPATIENT VISIT^TL-OPT VST POLYTRAUMA^^^212
+60 ;;
IA ;; Interagency
+1 ;;
+2 ;;ALCOHOL AND DRUG TREATMENT^IA-INPT^^^1765
+3 ;;BLIND REHABILITATION^IA-INPT^^^1653
+4 ;;GENERAL MEDICAL CARE^IA-INPT^^^3553
+5 ;;INTERMEDIATE CARE^IA-INPT^^^2126
+6 ;;NEUROLOGY^IA-INPT^^^3401
+7 ;;NURSING HOME CARE^IA-INPT^^^1138
+8 ;;POLYTRAUMA INPATIENT^IA-INPT^^^3057
+9 ;;PRRTP^IA-INPT^^^662
+10 ;;PSYCHIATRIC CARE^IA-INPT^^^1679
+11 ;;REHABILITATION MEDICINE^IA-INPT^^^2354
+12 ;;SPINAL CORD INJURY CARE^IA-INPT^^^2502
+13 ;;SURGICAL CARE^IA-INPT^^^5642
+14 ;;OUTPATIENT DENTAL^IA-OPT DENTAL^^^319
+15 ;;OUTPATIENT VISIT^IA-OPT VST^^^319
+16 ;;PM&RS OUTPATIENT VISIT^IA-OPT VST PM&RS^^^510
+17 ;;POLYTRAUMA OUTPATIENT VISIT^IA-OPT VST POLYTRAUMA^^^199
+18 ;;
+19 QUIT
