Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IB20P618

IB20P618.m

Go to the documentation of this file. 
  1. IB20P618 ;SAB/Albany - IB*2.0*618 POST INSTALL;12/11/17 2:10pm
  1.  ;;2.0;Integrated Billing;**618**;Mar 20, 1995;Build 61
  1.  ;Per VA Directive 6402, this routine should not be modified.
  1.  Q
  1.  ;
  1. POSTINIT ;Post Install for IB*2.0*618
  1.  D BMES^XPDUTL(" >>  Starting the Post-Initialization routine for IB*2.0*618 ")
  1.  ; Adding AR CATEGORIES and REVENUE SOURCE CODES
  1.  D RTADD
  1.  D RTUPD
  1.  D ADDRS
  1.  D IBUPD^IBP618A
  1.  D ADDACT^IBP618A
  1.  D UPDACT^IBP618B
  1.  D ADDACTCH^IBP618B
  1.  D BMES^XPDUTL(" >>  End of the Post-Initialization routine for IB*2.0*618")
  1.  Q
  1.  ;
  1. RTADD ;Add New rate types to the Rate type File
  1.  ;
  1.  N LOOP,FDA,FDAIEN,DATA,BRF,ARCAT,CHK
  1.  ;
  1.  D MES^XPDUTL("     -> Adding new Rate Type entries to file 399.3 ...")
  1.  ; Add new Rate Types
  1.  F LOOP=2:1 S DATA=$T(RTDATA+LOOP) Q:$P(DATA,";",3)="END"  D
  1.  . ;Clear the array
  1.  . K FDA
  1.  . ;Check to insure that the rate type doesn't exist already
  1.  . S CHK=""  ; Initialized the check variable
  1.  . S CHK=$O(^DGCR(399.3,"B",$P(DATA,";",3),""))
  1.  . Q:CHK'=""
  1.  . ;Store in array for adding to the file (#399.3).
  1.  . S FDA(399.3,"+1,",.01)=$P(DATA,";",3)   ;Rate Type Name
  1.  . S FDA(399.3,"+1,",.02)=$P(DATA,";",4)   ;Bill Name
  1.  . S FDA(399.3,"+1,",.03)=$P(DATA,";",5)   ;Inactive Flag
  1.  . S FDA(399.3,"+1,",.04)=$P(DATA,";",6)   ;Abbreviation
  1.  . S FDA(399.3,"+1,",.05)=$P(DATA,";",7)   ;Third Party?
  1.  . S ARCAT=$P(DATA,";",8)                  ;AR Cat
  1.  . S:ARCAT'="" ARCAT=$O(^PRCA(430.2,"AC",ARCAT,""))  ;Find local IEN for AR Cat
  1.  . S FDA(399.3,"+1,",.06)=ARCAT            ;AR Cat
  1.  . S FDA(399.3,"+1,",.07)=$P(DATA,";",9)   ;Responsible?
  1.  . S FDA(399.3,"+1,",.08)=$P(DATA,";",10)  ;Reimbursable
  1.  . S FDA(399.3,"+1,",.09)=$P(DATA,";",11)  ;NSC Statement
  1.  . S FDA(399.3,"+1,",.1)=$P(DATA,";",12)   ;Electronic Transmit
  1.  . S BRF=$P(DATA,";",13)                   ;Bill Resulting From (BRF) (430.6)
  1.  . S:BRF'="" BRF=$O(^PRCA(430.6,"B",BRF,""))  ;Find local IEN for BRF
  1.  . S FDA(399.3,"+1,",.11)=BRF
  1.  . S FDA(399.3,"+1,",.12)=$P(DATA,";",14)  ;Collect?
  1.  . ;Add to the file.
  1.  . D UPDATE^DIE(,"FDA","FDAIEN")
  1.  . S FDAIEN=FDAIEN(1) K FDAIEN(1)
  1.  D MES^XPDUTL("        New Rate Types added.")
  1.  Q
  1.  ;
  1. RTDATA ; New RATE TYPE data. (Internal data format
  1.  ;;name;billname;inactive; abbreviation;thirdparty;AR Cat #;resp;reimb;nsc;etransmit;billfrom;collect?
  1.  ;;CC WORKERS' COMP;CC WORKERS' COMP;;CC WC;1;59;i;1;1;1;;
  1.  ;;CC NO-FAULT AUTO;CC NO-FAULT AUTO;;CC NF;1;60;i;1;1;1;;
  1.  ;;CC TORT FEASOR;CC TORT FEASOR;;CC TF;1;61;i;1;1;1;;
  1.  ;;CHOICE WORKERS' COMP;CHOICE WORKERS' COMP;;CCC WC;1;62;i;1;1;1;;
  1.  ;;CHOICE NO-FAULT AUTO;CHOICE NO-FAULT AUTO;;CCC NF;1;54;i;1;1;1;;
  1.  ;;CHOICE TORT FEASOR;CHOICE TORT FEASOR;;CCC TF;1;55;i;1;1;1;;
  1.  ;;CCN WORKERS' COMP;CCN WORKERS' COMP;;CCN WC;1;56;i;1;1;1;;
  1.  ;;CCN NO-FAULT AUTO;CCN NO-FAULT AUTO;;CCN NF;1;57;i;1;1;1;;
  1.  ;;CCN TORT FEASOR;CCN TORT FEASOR;;CCN TF;1;58;i;1;1;1;;
  1.  ;;CHOICE REIMB INS;CHOICE REIMB INS;;CCC REIM;1;50;i;1;1;1;HI;1
  1.  ;;CC REIMB INS;CC REIMB INS;;CC REIM;1;51;i;1;1;1;HI;1
  1.  ;;CCN REIMB INS;CCN REIMB INS;;CCN REIM;1;52;i;1;1;1;HI;1
  1.  ;;CC MTF REIMB INS;CC MTF REIMB INS;;CCD REIM;1;53;i;1;1;1;HI;1
  1.  ;;DOD DISABILITY EVALUATION;DOD DISABILITY EVALUATION;;TR IDES;1;77;i;1;1;1;HI;1
  1.  ;;DOD SPINAL CORD INJURY;DOD SPINAL CORD INJURY;;TRSPINAL;1;78;i;1;1;1;HI;1
  1.  ;;DOD TRAUMATIC BRAIN INJURY;DOD TRAUMATIC BRAIN INJURY;;TR TBI;1;79;i;1;1;1;HI;1
  1.  ;;DOD BLIND REHABILITATION;DOD BLIND REHABILITATION;;TRREHAB;1;80;i;1;1;1;HI;1
  1.  ;;TRICARE DENTAL;TRICARE DENTAL;;TR DENTAL;1;81;i;1;1;1;HI;1
  1.  ;;TRICARE PHARMACY;TRICARE PHARMACY;;TR RX;1;82;i;1;1;1;HI;1
  1.  ;;END
  1.  ;
  1. RTUPD ; Update the FEE REIMB INS entry in the Rate Type File (399.3) to inactivate
  1.  N LIEN,X,Y,DIE,DA,DR,DTOUT,DATA
  1.  ;
  1.  D MES^XPDUTL("     -> Inactivating the FEE REIMB INS Rate Type...")
  1.  S LIEN=$O(^DGCR(399.3,"B","FEE REIMB INS",""))
  1.  Q:'LIEN
  1.  ; File the update
  1.  S DR=".03////1;"
  1.  S DIE="^DGCR(399.3,",DA=LIEN
  1.  D ^DIE
  1.  ;
  1.  Q
  1. ADDRS ; Add Rate Schedules (363) for FEE REIMB INS
  1.  D MES^XPDUTL("     -> Adding new Rate Schedules to file 363 ...")
  1.  N IBA,IBCNT,IBI,IBLN,IBFN,IBRT,IBBS,IBCNTCS,IBDISP,IBJ,IBLNCS,IBCS,IBCSFN,IBADMIN,DD,DO
  1.  N DLAYGO,DIC,DIE,DA,DR,RXDT,X,Y,IBCPNM,IBEDT
  1.  S IBCNT=0
  1.  F IBI=2:1 S IBLN=$P($T(RSF+IBI),";;",2) Q:IBLN="END"  I $E(IBLN)?1A D
  1.  . ;Check for problems
  1.  . S IBBS=$P(IBLN,U,4) I IBBS'="" S IBBS=$$MCCRUTL(IBBS,13) Q:'IBBS  ;Billable service invalid
  1.  . S IBRT=$P(IBLN,U,2),IBRT=$O(^DGCR(399.3,"B",IBRT,0)) D  Q:'IBRT
  1.  .. I 'IBRT D MSG("         **** Rate Type "_$P(IBLN,U,2)_" not defined, RS "_$P(IBLN,U,1)_" not created")
  1.  .. I +$P($G(^DGCR(399.3,+IBRT,0)),U,3) S IBRT=0 D MSG("         **** Rate Type "_$P(IBLN,U,2)_" not Active, RS "_$P(IBLN,U,1)_" not created")
  1.  . ;No problems found, so create entry
  1.  . K DD,DO
  1.  . S DLAYGO=363,DIC="^IBE(363,",DIC(0)="L",X=$P(IBLN,U,1)
  1.  . D FILE^DICN K DIC,DINUM,DLAYGO
  1.  . I Y<1 K X,Y Q
  1.  . S IBFN=+Y,IBCNT=IBCNT+1
  1.  . S IBCPNM=$P(IBLN,U,5),IBEDT=$P(IBLN,U,6)
  1.  . S RXDT=$$RXDT(IBCPNM,IBEDT)
  1.  . S DR=".02////"_IBRT_";.03////"_$P(IBLN,U,3) I +IBBS S DR=DR_";.04////"_IBBS
  1.  . S DR=DR_";.05////"_$P(RXDT,U)
  1.  . I $P(RXDT,U,2) S DR=DR_";.06////"_$P(RXDT,U,2)
  1.  . I ($P(IBLN,U,1)["RX"),($G(IBDISP)]"") S DR=DR_";1.01///"_IBDISP
  1.  . I ($P(IBLN,U,1)["RX"),($G(IBADMIN)]"") S DR=DR_";1.02////"_IBADMIN
  1.  . S DIE="^IBE(363,",DA=+Y D ^DIE K DIE,DA,DR,X,Y
  1.  . S IBCNTCS=0
  1.  . ; Retrieve name of Charge Set to copy
  1.  . I IBRT="" D MSG("         **** Rate Type "_$P(IBLN,U,2)_" missing Charge Set Information, RS "_$P(IBLN,U,1)_" not created") Q
  1.  . ; add all Reasonable Charges Charge Sets to the Rate Schedule.
  1.  . S IBCNTCS=$$RSCS(IBFN,IBCPNM,$P(RXDT,U))
  1.  . D MES^XPDUTL("        Total Reasonable Charge Set"_$S(IBCNTCS=1:" ",1:"s ")_IBCNTCS_" added to Rate Schedule "_$P(IBLN,U,1)_".")
  1.  D MES^XPDUTL("        Rate Schedules completed.")
  1.  Q  ;ADDRS
  1.  ;
  1. RSCS(IBFN,IBCPNM,RXDT) ; add existing Charge Sets to FR
  1.  ; copy the Charge Sets from the corresponding RI RS (v2)
  1.  ; IBFN - Rate Schedule IEN
  1.  ; IBCPNM - Charge Set to copy
  1.  ; RXDT - last effective date of charge set being copied.
  1.  N IBCNT,IBNRS,IBRSNM,IBTY,IBVDT,IBCOPY,IBCS,IBCS0,IBXFN,IBCSFN,IBCSNM,IBCSAA,IBNAME
  1.  S (IBCNT,IBCOPY)=0
  1.  S IBNRS=$G(^IBE(363,+$G(IBFN),0)),IBRSNM=$P(IBNRS,"^",1)
  1.  S IBTY=$P(IBNRS,"^",3)
  1.  S IBVDT=RXDT
  1.  Q:IBVDT="" 0
  1.  S IBCOPY=+$$RSEXISTS(IBVDT,IBCPNM)
  1.  I 'IBCOPY G RSCSQ
  1.  I +$P($G(^IBE(363,+IBCOPY,0)),U,3)=IBTY D
  1.  . S IBXFN=0 F  S IBXFN=$O(^IBE(363,IBCOPY,11,IBXFN)) Q:'IBXFN  D
  1.  .. S IBCS=$G(^IBE(363,IBCOPY,11,IBXFN,0)),IBCSFN=+IBCS
  1.  .. I +$$RSCSFILE(IBFN,$P($G(^IBE(363.1,IBCSFN,0)),U,1),$P(IBCS,U,2)) S IBCNT=IBCNT+1
  1. RSCSQ Q IBCNT
  1.  ;
  1.  ;
  1. RSCSFILE(IBFN,IBCSNM,IBCSAA) ; Add Charge Set to a Rate Schedule
  1.  N IBX,DD,DO,DLAYGO,DIC,DA,DR,X,Y,IBCSFN S IBX=0
  1.  I $G(^IBE(363,+$G(IBFN),0))="" G RSCSFQ
  1.  I $G(IBCSNM)="" G RSCSFQ
  1.  S IBCSFN=$O(^IBE(363.1,"B",IBCSNM,0)) I 'IBCSFN G RSCSFQ
  1.  I $O(^IBE(363,IBFN,11,"B",IBCSFN,0)) G RSCSFQ
  1.  S DLAYGO=363,DA(1)=+IBFN,DIC="^IBE(363,"_DA(1)_",11,",DIC(0)="L"
  1.  S X=IBCSNM,DIC("DR")=".02///"_$G(IBCSAA),DIC("P")="363.0011P"
  1.  D ^DIC S:+Y IBX=1
  1. RSCSFQ Q IBX
  1.  ;
  1.  ;
  1. RSEXISTS(IBVDT,IBNAME) ; return RS IFN if Rate Schedule exists for Effective Date
  1.  N IBX,IBRSFN,IBRS0 S IBX=0
  1.  S IBRSFN=0 F  S IBRSFN=$O(^IBE(363,IBRSFN))  Q:'IBRSFN  D  I IBX Q
  1.  . S IBRS0=$G(^IBE(363,IBRSFN,0))
  1.  . I $P(IBRS0,U,1)=IBNAME,$P(IBRS0,U,5)=IBVDT S IBX=IBRSFN
  1.  Q IBX
  1.  ;
  1. MSG(X) ;
  1.  N IBX S IBX=$O(IBA(999999),-1) S:'IBX IBX=1 S IBX=IBX+1
  1.  S IBA(IBX)=$G(X)
  1.  Q  ;MSG
  1.  ;
  1. MCCRUTL(X,P) ; returns IFN of item in 399.1 if Name is found and piece P is true
  1.  N IBX,IBY S IBY=""
  1.  I $G(X)'="" S IBX=0 F  S IBX=$O(^DGCR(399.1,"B",X,IBX)) Q:'IBX  I $P($G(^DGCR(399.1,IBX,0)),U,+$G(P)) S IBY=IBX
  1.  Q IBY
  1.  ;
  1. RXDT(IBCPNM,IBEDT) ;Copy the active charge schedule from charge set being copied. 
  1.  ; update Fee information if Pharmacy.
  1.  N IBEFLG,IBD
  1.  S IBEDT=$G(IBEDT)  ; Set to NULL if not passed in
  1.  S IBCS=""
  1.  ;If no Effective Date sent, get the latest entry.
  1.  I IBEDT="" S IBCS=$O(^IBE(363,"B",IBCPNM,IBCS),-1)
  1.  ;If Effective date sent, loop through the entries to find the entry
  1.  ;  with the correct effective date.
  1.  I IBEDT'="" D
  1.  . S IBEFLG=0
  1.  . F  S IBCS=$O(^IBE(363,"B",IBCPNM,IBCS),-1) Q:'IBCS  D  Q:IBEFLG
  1.  .. S IBD=$G(^IBE(363,IBCS,0))
  1.  .. I $P(IBD,U,5)=IBEDT S IBEFLG=1
  1.  Q:IBCS="" ""
  1.  S IBCS0=^IBE(363,IBCS,0)
  1.  I IBCPNM["RX" S IBDISP=$P($G(^IBE(363,IBCS,1)),U,1),IBADMIN=$G(^IBE(363,IBCS,10))
  1.  Q $P(IBCS0,U,5,6)   ;return effective and end dates
  1.  ;
  1. RSF ;Rate Schedules (363) for the new Community Care Rate Types.
  1.  ;;Rate Schedule Name^Rate Type^Bill Type^Billable Service^Rate Schedule to copy for Charge Sets
  1.  ;;CCC-NF-INPT^CHOICE NO-FAULT AUTO^1^^NF-INPT
  1.  ;;CCC-NF-SNF^CHOICE NO-FAULT AUTO^1^SKILLED NURSING^NF-SNF
  1.  ;;CCC-NF-OPT^CHOICE NO-FAULT AUTO^3^^NF-OPT
  1.  ;;CCC-NF-RX^CHOICE NO-FAULT AUTO^3^^NF-RX^3140101
  1.  ;;CCC-NF-RX^CHOICE NO-FAULT AUTO^3^^NF-RX^3150101
  1.  ;;CCC-NF-RX^CHOICE NO-FAULT AUTO^3^^NF-RX^3160101
  1.  ;;CCC-NF-RX^CHOICE NO-FAULT AUTO^3^^NF-RX^3170101
  1.  ;;CCC-NF-RX^CHOICE NO-FAULT AUTO^3^^NF-RX^3180101
  1.  ;;CC-NF-INPT^CC NO-FAULT AUTO^1^^NF-INPT
  1.  ;;CC-NF-SNF^CC NO-FAULT AUTO^1^SKILLED NURSING^NF-SNF
  1.  ;;CC-NF-OPT^CC NO-FAULT AUTO^3^^NF-OPT
  1.  ;;CC-NF-RX^CC NO-FAULT AUTO^3^^NF-RX^3140101
  1.  ;;CC-NF-RX^CC NO-FAULT AUTO^3^^NF-RX^3150101
  1.  ;;CC-NF-RX^CC NO-FAULT AUTO^3^^NF-RX^3160101
  1.  ;;CC-NF-RX^CC NO-FAULT AUTO^3^^NF-RX^3170101
  1.  ;;CC-NF-RX^CC NO-FAULT AUTO^3^^NF-RX^3180101
  1.  ;;CCN-NF-INPT^CCN NO-FAULT AUTO^1^^NF-INPT
  1.  ;;CCN-NF-SNF^CCN NO-FAULT AUTO^1^SKILLED NURSING^NF-SNF
  1.  ;;CCN-NF-OPT^CCN NO-FAULT AUTO^3^^NF-OPT
  1.  ;;CCN-NF-RX^CCN NO-FAULT AUTO^3^^NF-RX^3140101
  1.  ;;CCN-NF-RX^CCN NO-FAULT AUTO^3^^NF-RX^3150101
  1.  ;;CCN-NF-RX^CCN NO-FAULT AUTO^3^^NF-RX^3160101
  1.  ;;CCN-NF-RX^CCN NO-FAULT AUTO^3^^NF-RX^3170101
  1.  ;;CCN-NF-RX^CCN NO-FAULT AUTO^3^^NF-RX^3180101
  1.  ;;CCC-RI-INPT^CHOICE REIMB INS^1^^RI-INPT
  1.  ;;CCC-RI-SNF^CHOICE REIMB INS^1^SKILLED NURSING^RI-SNF
  1.  ;;CCC-RI-OPT^CHOICE REIMB INS^3^^RI-OPT
  1.  ;;CCC-RI-RX^CHOICE REIMB INS^3^^RI-RX^3140101
  1.  ;;CCC-RI-RX^CHOICE REIMB INS^3^^RI-RX^3150101
  1.  ;;CCC-RI-RX^CHOICE REIMB INS^3^^RI-RX^3160101
  1.  ;;CCC-RI-RX^CHOICE REIMB INS^3^^RI-RX^3170101
  1.  ;;CCC-RI-RX^CHOICE REIMB INS^3^^RI-RX^3180101
  1.  ;;CC-RI-INPT^CC REIMB INS^1^^RI-INPT
  1.  ;;CC-RI-SNF^CC REIMB INS^1^SKILLED NURSING^RI-SNF
  1.  ;;CC-RI-OPT^CC REIMB INS^3^^RI-OPT
  1.  ;;CC-RI-RX^CC REIMB INS^3^^RI-RX^3140101
  1.  ;;CC-RI-RX^CC REIMB INS^3^^RI-RX^3150101
  1.  ;;CC-RI-RX^CC REIMB INS^3^^RI-RX^3160101
  1.  ;;CC-RI-RX^CC REIMB INS^3^^RI-RX^3170101
  1.  ;;CC-RI-RX^CC REIMB INS^3^^RI-RX^3180101
  1.  ;;CCN-RI-INPT^CCN REIMB INS^1^^RI-INPT
  1.  ;;CCN-RI-SNF^CCN REIMB INS^1^SKILLED NURSING^RI-SNF
  1.  ;;CCN-RI-OPT^CCN REIMB INS^3^^RI-OPT
  1.  ;;CCN-RI-RX^CCN REIMB INS^3^^RI-RX^3140101
  1.  ;;CCN-RI-RX^CCN REIMB INS^3^^RI-RX^3150101
  1.  ;;CCN-RI-RX^CCN REIMB INS^3^^RI-RX^3160101
  1.  ;;CCN-RI-RX^CCN REIMB INS^3^^RI-RX^3170101
  1.  ;;CCN-RI-RX^CCN REIMB INS^3^^RI-RX^3180101
  1.  ;;CC-DOD-INPT^CC MTF REIMB INS^1^INPATIENT^RI-INPT
  1.  ;;CC-DOD-SNF^CC MTF REIMB INS^1^SKILLED NURSING^RI-SNF
  1.  ;;CC-DOD-OPT^CC MTF REIMB INS^3^OUTPATIENT VISIT^RI-OPT
  1.  ;;CC-DOD-RX^CC MTF REIMB INS^3^^RI-RX^3140101
  1.  ;;CC-DOD-RX^CC MTF REIMB INS^3^^RI-RX^3150101
  1.  ;;CC-DOD-RX^CC MTF REIMB INS^3^^RI-RX^3160101
  1.  ;;CC-DOD-RX^CC MTF REIMB INS^3^^RI-RX^3170101
  1.  ;;CC-DOD-RX^CC MTF REIMB INS^3^^RI-RX^3180101
  1.  ;;CCC-TF-INPT^CHOICE TORT FEASOR^1^^TF-INPT
  1.  ;;CCC-TF-SNF^CHOICE TORT FEASOR^1^SKILLED NURSING^TF-SNF
  1.  ;;CCC-TF-OPT^CHOICE TORT FEASOR^3^^TF-OPT
  1.  ;;CCC-TF-RX^CHOICE TORT FEASOR^3^^TF-RX^3140101
  1.  ;;CCC-TF-RX^CHOICE TORT FEASOR^3^^TF-RX^3150101
  1.  ;;CCC-TF-RX^CHOICE TORT FEASOR^3^^TF-RX^3160101
  1.  ;;CCC-TF-RX^CHOICE TORT FEASOR^3^^TF-RX^3170101
  1.  ;;CCC-TF-RX^CHOICE TORT FEASOR^3^^TF-RX^3180101
  1.  ;;CC-TF-INPT^CC TORT FEASOR^1^^TF-INPT
  1.  ;;CC-TF-SNF^CC TORT FEASOR^1^SKILLED NURSING^TF-SNF
  1.  ;;CC-TF-OPT^CC TORT FEASOR^3^^TF-OPT
  1.  ;;CC-TF-RX^CC TORT FEASOR^3^^TF-RX^3140101
  1.  ;;CC-TF-RX^CC TORT FEASOR^3^^TF-RX^3150101
  1.  ;;CC-TF-RX^CC TORT FEASOR^3^^TF-RX^3160101
  1.  ;;CC-TF-RX^CC TORT FEASOR^3^^TF-RX^3170101
  1.  ;;CC-TF-RX^CC TORT FEASOR^3^^TF-RX^3180101
  1.  ;;CCN-TF-INPT^CCN TORT FEASOR^1^^TF-INPT
  1.  ;;CCN-TF-SNF^CCN TORT FEASOR^1^SKILLED NURSING^TF-SNF
  1.  ;;CCN-TF-OPT^CCN TORT FEASOR^3^^TF-OPT
  1.  ;;CCN-TF-RX^CCN TORT FEASOR^3^^TF-RX^3140101
  1.  ;;CCN-TF-RX^CCN TORT FEASOR^3^^TF-RX^3150101
  1.  ;;CCN-TF-RX^CCN TORT FEASOR^3^^TF-RX^3160101
  1.  ;;CCN-TF-RX^CCN TORT FEASOR^3^^TF-RX^3170101
  1.  ;;CCN-TF-RX^CCN TORT FEASOR^3^^TF-RX^3180101
  1.  ;;CCC-WC-INPT^CHOICE WORKERS' COMP^1^^WC-INPT
  1.  ;;CCC-WC-SNF^CHOICE WORKERS' COMP^1^SKILLED NURSING^WC-SNF
  1.  ;;CCC-WC-OPT^CHOICE WORKERS' COMP^3^^WC-OPT
  1.  ;;CCC-WC-RX^CHOICE WORKERS' COMP^3^^WC-RX^3140101
  1.  ;;CCC-WC-RX^CHOICE WORKERS' COMP^3^^WC-RX^3150101
  1.  ;;CCC-WC-RX^CHOICE WORKERS' COMP^3^^WC-RX^3160101
  1.  ;;CCC-WC-RX^CHOICE WORKERS' COMP^3^^WC-RX^3170101
  1.  ;;CCC-WC-RX^CHOICE WORKERS' COMP^3^^WC-RX^3180101
  1.  ;;CC-WC-INPT^CC WORKERS' COMP^1^^WC-INPT
  1.  ;;CC-WC-SNF^CC WORKERS' COMP^1^SKILLED NURSING^WC-SNF
  1.  ;;CC-WC-OPT^CC WORKERS' COMP^3^^WC-OPT
  1.  ;;CC-WC-RX^CC WORKERS' COMP^3^^WC-RX^3140101
  1.  ;;CC-WC-RX^CC WORKERS' COMP^3^^WC-RX^3150101
  1.  ;;CC-WC-RX^CC WORKERS' COMP^3^^WC-RX^3160101
  1.  ;;CC-WC-RX^CC WORKERS' COMP^3^^WC-RX^3170101
  1.  ;;CC-WC-RX^CC WORKERS' COMP^3^^WC-RX^3180101
  1.  ;;CCN-WC-INPT^CCN WORKERS' COMP^1^^WC-INPT
  1.  ;;CCN-WC-SNF^CCN WORKERS' COMP^1^SKILLED NURSING^WC-SNF
  1.  ;;CCN-WC-OPT^CCN WORKERS' COMP^3^^WC-OPT
  1.  ;;CCN-WC-RX^CCN WORKERS' COMP^3^^WC-RX^3140101
  1.  ;;CCN-WC-RX^CCN WORKERS' COMP^3^^WC-RX^3150101
  1.  ;;CCN-WC-RX^CCN WORKERS' COMP^3^^WC-RX^3160101
  1.  ;;CCN-WC-RX^CCN WORKERS' COMP^3^^WC-RX^3170101
  1.  ;;CCN-WC-RX^CCN WORKERS' COMP^3^^WC-RX^3180101
  1.  ;;DOD-DIS EXAM-OPT^DOD DISABILITY EVALUATION^3^OUTPATIENT VISIT^RI-OPT
  1.  ;;DOD-SCI-INPT^DOD SPINAL CORD INJURY^1^INPATIENT^RI-INPT
  1.  ;;DOD-SCI-OPT^DOD SPINAL CORD INJURY^3^OUTPATIENT VISIT^RI-OPT
  1.  ;;DOD-SCI-SNF^DOD SPINAL CORD INJURY^1^SKILLED NURSING^RI-SNF
  1.  ;;DOD-TBI-INPT^DOD TRAUMATIC BRAIN INJURY^1^INPATIENT^RI-INPT
  1.  ;;DOD-TBI-OPT^DOD TRAUMATIC BRAIN INJURY^3^OUTPATIENT VISIT^RI-OPT
  1.  ;;DOD-TBI-SNF^DOD TRAUMATIC BRAIN INJURY^1^SKILLED NURSING^RI-SNF
  1.  ;;DOD-BR-INPT^DOD BLIND REHABILITATION^1^INPATIENT^RI-INPT
  1.  ;;DOD-BR-OPT^DOD BLIND REHABILITATION^3^OUTPATIENT VISIT^RI-OPT
  1.  ;;DOD-BR-SNF^DOD BLIND REHABILITATION^1^SKILLED NURSING^RI-SNF
  1.  ;;TR-DENTAL^TRICARE DENTAL^3^OUTPATIENT VISIT^RI-OPT
  1.  ;;TR-PHARM^TRICARE PHARMACY^3^^RI-RX^3140101
  1.  ;;TR-PHARM^TRICARE PHARMACY^3^^RI-RX^3150101
  1.  ;;TR-PHARM^TRICARE PHARMACY^3^^RI-RX^3160101
  1.  ;;TR-PHARM^TRICARE PHARMACY^3^^RI-RX^3170101
  1.  ;;TR-PHARM^TRICARE PHARMACY^3^^RI-RX^3180101
  1.  ;;END
  1.  ;