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