Construct a ccn/ccnr object

Construct a ccn/ccnr object

Usage

ccn(x = character())

ccnr(
  ccn = character(),
  entity = character(),
  state = character(),
  number = character(),
  type = character()
)

get_index(x)

# S3 method for class 'ccn'
get_index(x, ...)

# S3 method for class 'ccnr'
get_index(x, ...)

Arguments

x: <chr> A vector of CCNs.
ccn: <chr> vector of ccns
entity: <chr> vector of ccn entity types
state: <chr> vector of state codes
number: <chr> vector of sequence numbers
type: <chr> vector of facility types
...: description

Value

An S3 vector of class <ccn> or <ccnr>

Examples

x = get_pin("ccn")
y = ccn(x)
get_index(y)
#> <ccn_vctr<index[54567]>>
#>     Supplier :  5488
#> Medicaid_Ext :     1
#> Medicare_Ext :   327
#>     Unit_Ext :    14
#>    Emergency :   166
#>     Medicare : 45249
#>        Organ :    55
#>      Subunit :    49
#>         Unit :  3218
z = as_ccnr(x)
get_index(z)
#> <ccn_rcrd<index[54567]>>
#>  Medicare : 45576
#>  Medicaid :     1
#>      Unit :  3232
#>   Subunit :    49
#>     Organ :    55
#> Emergency :   166
#>  Supplier :  5488

vctrs::vec_c(x[1:5], y[100:150], x[1:50], z[100:150])
#> <ccn_rcrd[157]>
#>   [1] 001500 001502 001503 001509 001510 010131 010138 010139 010144 010148
#>  [11] 010149 010150 010157 010158 010164 010168 010169 010173 010175 010779
#>  [21] 010780 010781 011300 011302 011304 011305 011306 011307 011308 011309
#>  [31] 011500 011501 011502 011503 011505 011506 011508 011510 011511 011512
#>  [41] 011513 011514 011516 011517 011522 011524 011526 011527 011528 011534
#>  [51] 011538 011543 011546 01014F 01019F 01021F 001500 001502 001503 001509
#>  [61] 001510 001511 001513 001514 001515 001517 001518 001524 001527 001528
#>  [71] 001529 001530 001534 001535 001536 001541 001545 001550 001552 001556
#>  [81] 001557 001561 001562 001563 001568 001570 001571 001572 001574 001575
#>  [91] 010001 010005 010006 010007 010008 010011 010012 010016 010018 010019
#> [101] 010021 010022 010023 010024 010029 010033 010131 010138 010139 010144
#> [111] 010148 010149 010150 010157 010158 010164 010168 010169 010173 010175
#> [121] 010779 010780 010781 011300 011302 011304 011305 011306 011307 011308
#> [131] 011309 011500 011501 011502 011503 011505 011506 011508 011510 011511
#> [141] 011512 011513 011514 011516 011517 011522 011524 011526 011527 011528
#> [151] 011534 011538 011543 011546 011548 011549 011558
tibble::tibble(x = x, ccn = ccn(x))
#> # A tibble: 54,567 × 2
#>    x      ccn   
#>    <chr>  <ccn> 
#>  1 001500 001500
#>  2 001502 001502
#>  3 001503 001503
#>  4 001509 001509
#>  5 001510 001510
#>  6 001511 001511
#>  7 001513 001513
#>  8 001514 001514
#>  9 001515 001515
#> 10 001517 001517
#> # ℹ 54,557 more rows