code wiki / (root) / nx_medbill_cli.nx
`nx_medbill_cli.nx` source

↩ module page · 627 lines · 26705 B
1// nx_medbill_cli.nx -- M1 front door: drive the medical-billing code-pack store from the command line
2// (features-must-be-frontend-testable). Two verbs over the DURABLE store knowledge/store/medbill-:
3//   nx_medbill_cli ingest                 -- load knowledge/medbill/codes_seed.list (data): 3-field rows
4//                                            ingest official NLM responses, 4-field rows store curated
5//                                            entries with visible provenance. Idempotent (latest-wins).
6//   nx_medbill_cli lookup <code>          -- decode one code: CODE (SYSTEM): descriptor [source: cite]
7//                                            unknown code prints UNKNOWN and exits 1 (never fabricates).
8// license_tier: ORIGINAL
9import "nx_syscalls.nx"
10import "nx_itoa_lib.nx"   // shared MSB-first emitter (zero-alloc)
11import "nx_medbill_codes.nx"
12import "nx_medbill_recon.nx"
13import "nx_fin_audit.nx"
14import "nx_fin_dispute.nx"
15import "nx_medbill_charity.nx"
16import "nx_medbill_appeal.nx"
17import "nx_medbill_nsa.nx"
18import "nx_medbill_civic.nx"
19import "nx_healthhelp_site.nx"
20const K_MAGIC_262144: i64 = 262144
21const K_MAGIC_1024: i64 = 1024
22const K_MAGIC_4096: i64 = 4096
23const K_MAGIC_10000: i64 = 10000
24const K_MAGIC_2048: i64 = 2048
25const K_MAGIC_16384: i64 = 16384
26const K_MAGIC_19000101: i64 = 19000101
27const K_MAGIC_40000: i64 = 40000
28const K_MAGIC_65536: i64 = 65536
29
30func c_puts(s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } sys_write(1, s, n); return 0 }
31// MIGRATED to the shared emitter (debt 1785563586). The old body mmapped a scratch buffer
32// per call and never freed it. At PAGE granularity that is 4096B leaked PER CALL -- the
33// defect that took 28.5GB of a 36GB host in nx_ts_lumadiff (2MB input, ~3.66M calls).
34// nxi_* is MSB-first, allocates NOTHING, and emits identical bytes including the sign.
35func c_putn(v: i64) -> i64 { nxi_out(v); return 0 }
36
37// copy line[a..b) field split on '|': fill up to 4 field buffers, return field count
38func cli_split(line: *u8, ln: i64, f0: *u8, f1: *u8, f2: *u8, f3: *u8) -> i64 {
  var fi: i64 = 0
  var o: i64 = 0
  var i: i64 = 0
  while i < ln {
      if line[i] == (0x7c as u8) {
          if fi == 0 { f0[o] = 0 as u8 }
          if fi == 1 { f1[o] = 0 as u8 }
          if fi == 2 { f2[o] = 0 as u8 }
          if fi == 3 { f3[o] = 0 as u8 }
          fi = fi + 1
          o = 0
      } else {
          if fi == 0 { f0[o] = line[i]; o = o + 1 }
          if fi == 1 { f1[o] = line[i]; o = o + 1 }
          if fi == 2 { f2[o] = line[i]; o = o + 1 }
          if fi == 3 { f3[o] = line[i]; o = o + 1 }
      }
      i = i + 1
  }
  if fi == 0 { f0[o] = 0 as u8 }
  if fi == 1 { f1[o] = 0 as u8 }
  if fi == 2 { f2[o] = 0 as u8 }
  if fi == 3 { f3[o] = 0 as u8 }
  return fi + 1
63}
64
65func cli_ingest(prefix: *u8) -> i64 {
  let cap: i64 = K_MAGIC_262144
  let buf: *u8 = sys_mmap(cap)
  let n: i64 = mbc_read_all("knowledge/medbill/codes_seed.list\x00" as *u8, buf, cap)
  if n <= 0 { c_puts("SEED-LIST READ-FAIL knowledge/medbill/codes_seed.list\n" as *u8); return 1 }
  let f0: *u8 = sys_mmap(K_MAGIC_1024)
  let f1: *u8 = sys_mmap(K_MAGIC_1024)
  let f2: *u8 = sys_mmap(K_MAGIC_1024)
  let f3: *u8 = sys_mmap(K_MAGIC_1024)
  let line: *u8 = sys_mmap(K_MAGIC_4096)
  var ok: i64 = 0
  var miss: i64 = 0
  var i: i64 = 0
  while i < n {
      var e: i64 = i
      var stop: i64 = 0
      while stop == 0 {
          if e >= n { stop = 1 } else {
              if buf[e] == (0x0a as u8) { stop = 1 } else { e = e + 1 }
          }
      }
      let ln: i64 = e - i
      if ln > 2 {
          if buf[i] != (35 as u8) {
              var j: i64 = 0
              while j < ln { line[j] = buf[i + j]; j = j + 1 }
              line[ln] = 0 as u8
              let nf: i64 = cli_split(line, ln, f0, f1, f2, f3)
              if nf == 3 {
                  let r: i64 = mbc_ingest_nlm(prefix, f2, f0, f1)
                  if r == 1 { ok = ok + 1; c_puts("  ingested " as *u8); c_puts(f0); c_puts(" (" as *u8); c_puts(f1); c_puts(") official NLM\n" as *u8) }
                  else { miss = miss + 1; c_puts("  MISS " as *u8); c_puts(f0); c_puts(" rc=" as *u8); c_putn(r); c_puts("\n" as *u8) }
              }
              if nf == 4 {
                  let r2: i64 = mbc_put(prefix, f0, f1, f2, f3)
                  if r2 == 0 { ok = ok + 1; c_puts("  stored   " as *u8); c_puts(f0); c_puts(" (" as *u8); c_puts(f1); c_puts(") curated\n" as *u8) }
                  else { miss = miss + 1; c_puts("  STORE-FAIL " as *u8); c_puts(f0); c_puts("\n" as *u8) }
              }
          }
      }
      i = e + 1
  }
  c_puts("nx_medbill ingest: ok=" as *u8)
  c_putn(ok)
  c_puts(" miss=" as *u8)
  c_putn(miss)
  c_puts("\n" as *u8)
  if miss == 0 { return 0 }
  return 1
114}
115
116// cents -> $D.CC
117func c_money(v: i64) -> i64 {
  c_puts("$" as *u8)
  c_putn(v / 100)
  c_puts("." as *u8)
  let cc: i64 = v % 100
  if cc < 10 { c_puts("0" as *u8) }
  c_putn(cc)
  return 0
125}
126// yyyymmdd -> MM/DD/YYYY
127func c_date(d: i64) -> i64 {
  let mo: i64 = (d / 100) % 100
  let dy: i64 = d % 100
  if mo < 10 { c_puts("0" as *u8) }
  c_putn(mo)
  c_puts("/" as *u8)
  if dy < 10 { c_puts("0" as *u8) }
  c_putn(dy)
  c_puts("/" as *u8)
  c_putn(d / K_MAGIC_10000)
  return 0
138}
139// numeric code string -> i64, or -1 if not all digits
140func c_codenum(s: *u8) -> i64 {
  var v: i64 = 0
  var i: i64 = 0
  while s[i] != (0 as u8) { if mbr_is_digit(s[i]) == 0 { return 0 - 1 } v = v * 10 + ((s[i] as i64) - 48); i = i + 1 }
  return v
145}
146
147// print one parsed claim line + its M1 decode from the durable pack
148func cli_rline(prefix: *u8, ctx: *i64, i: i64, rec: *u8) -> i64 {
  c_puts("  " as *u8)
  c_date(mbr_geti(ctx, 2, i))
  c_puts("  " as *u8)
  let code: *u8 = mbr_code_at(ctx, i)
  c_puts(code)
  c_puts(" x" as *u8)
  c_putn(mbr_geti(ctx, 3, i))
  c_puts("  " as *u8)
  c_money(mbr_geti(ctx, 6, i))
  let l: i64 = mbc_get(prefix, code, rec, K_MAGIC_2048)
  if l < 0 { c_puts("  -- (code not in local pack)" as *u8) } else {
      let fld: *u8 = sys_mmap(K_MAGIC_1024)
      mbc_field(rec, 1, fld, K_MAGIC_1024)
      c_puts("  -- " as *u8)
      c_puts(fld)
  }
  c_puts("\n" as *u8)
  return 0
167}
168
169func cli_review(prefix: *u8, billpath: *u8, eobpath: *u8, haveeob: i64) -> i64 {
  let cap: i64 = K_MAGIC_262144
  let btxt: *u8 = sys_mmap(cap)
  let bn: i64 = mbc_read_all(billpath, btxt, cap)
  if bn <= 0 { c_puts("BILL READ-FAIL\n" as *u8); return 1 }
  let b: *i64 = mbr_ctx_new(256)
  let nb: i64 = mbr_parse(btxt, bn, b)
  c_puts("BILL " as *u8)
  c_puts(billpath)
  c_puts(": " as *u8)
  c_putn(nb)
  c_puts(" claim lines\n" as *u8)
  let rec: *u8 = sys_mmap(K_MAGIC_2048)
  var i: i64 = 0
  while i < nb { cli_rline(prefix, b, i, rec); i = i + 1 }
184
  // R5 duplicate audit always runs (needs no rule pack)
  let ncodes: *i64 = sys_mmap(8 * 256) as *i64
  var ci: i64 = 0
  while ci < nb { let cv: i64 = c_codenum(mbr_code_at(b, ci)); ncodes[ci] = cv; ci = ci + 1 }
  let didx: *i64 = sys_mmap(8 * 64) as *i64
  let damt: *i64 = sys_mmap(8 * 64) as *i64
  let doc: *i64 = sys_mmap(8 * 64) as *i64
  let dup: i64 = aud_duplicates(ncodes, b[2] as *i64, b[6] as *i64, nb, didx, damt, doc)
  var pot: i64 = 0
  if dup > 0 {
      c_puts("AUDIT duplicates: " as *u8)
      c_putn(dup)
      c_puts(" repeat line(s)\n" as *u8)
      var di: i64 = 0
      while di < dup {
          c_puts("  DUPLICATE line " as *u8)
          c_putn(didx[di])
          c_puts(" (" as *u8)
          let dcode: *u8 = mbr_code_at(b, didx[di])
          c_puts(dcode)
          c_puts(") repeat charge " as *u8)
          c_money(doc[di])
          c_puts("\n" as *u8)
          pot = pot + doc[di]
          di = di + 1
      }
  } else { c_puts("AUDIT duplicates: none\n" as *u8) }
212
  if haveeob == 1 {
      let etxt: *u8 = sys_mmap(cap)
      let en: i64 = mbc_read_all(eobpath, etxt, cap)
      if en <= 0 { c_puts("EOB READ-FAIL\n" as *u8); return 1 }
      let e: *i64 = mbr_ctx_new(256)
      let ne: i64 = mbr_parse(etxt, en, e)
      c_puts("EOB " as *u8)
      c_puts(eobpath)
      c_puts(": " as *u8)
      c_putn(ne)
      c_puts(" claim lines\n" as *u8)
      let ftyp: *i64 = sys_mmap(8 * 128) as *i64
      let fidx: *i64 = sys_mmap(8 * 128) as *i64
      let famt: *i64 = sys_mmap(8 * 128) as *i64
      let nf: i64 = mbr_recon(b, e, ftyp, fidx, famt)
      c_puts("RECON flags: " as *u8)
      c_putn(nf)
      c_puts("\n" as *u8)
      var rtot: i64 = 0
      var fi: i64 = 0
      while fi < nf {
          c_puts("  FLAG line " as *u8)
          c_putn(fidx[fi])
          c_puts(" (" as *u8)
          let fcode: *u8 = mbr_code_at(b, fidx[fi])
          c_puts(fcode)
          c_puts(") " as *u8)
          if ftyp[fi] == 1 { c_puts("NOT ON EOB " as *u8) }
          if ftyp[fi] == 2 { c_puts("BILLED MISMATCH vs EOB " as *u8) }
          if ftyp[fi] == 3 { c_puts("ABOVE EOB-ALLOWED " as *u8) }
          c_money(famt[fi])
          c_puts("\n" as *u8)
          rtot = rtot + famt[fi]
          fi = fi + 1
      }
      c_puts("TOTAL flagged vs EOB: " as *u8)
      c_money(rtot)
      c_puts("\n" as *u8)
  }
  c_puts("NOTE decision-support only, not professional or legal advice; verify findings with your provider and plan before disputing.\n" as *u8)
  return 0
254}
255
256// M2c: parse bill+EOB, assemble a NON-OVERLAPPING finding set (duplicate wins over its own NOT-ON-EOB
257// flag so no line is double-counted), render the R8 dispute letter to stdout. Placeholders keep the
258// patient's specifics out of the tool (PRIVACY: operator fills them in when reviewing). disp_build can
259// never send anything -- it writes text into a buffer; the human decides (never-brick #26).
260func cli_letter(billpath: *u8, eobpath: *u8) -> i64 {
  let cap: i64 = K_MAGIC_262144
  let btxt: *u8 = sys_mmap(cap)
  let bn: i64 = mbc_read_all(billpath, btxt, cap)
  if bn <= 0 { c_puts("BILL READ-FAIL\n" as *u8); return 1 }
  let etxt: *u8 = sys_mmap(cap)
  let en: i64 = mbc_read_all(eobpath, etxt, cap)
  if en <= 0 { c_puts("EOB READ-FAIL\n" as *u8); return 1 }
  let b: *i64 = mbr_ctx_new(256)
  let e: *i64 = mbr_ctx_new(256)
  let nb: i64 = mbr_parse(btxt, bn, b)
  mbr_parse(etxt, en, e)
272
  // duplicate audit findings first (structural, strongest ground)
  let ncodes: *i64 = sys_mmap(8 * 256) as *i64
  var ci: i64 = 0
  while ci < nb { let cv: i64 = c_codenum(mbr_code_at(b, ci)); ncodes[ci] = cv; ci = ci + 1 }
  let didx: *i64 = sys_mmap(8 * 64) as *i64
  let damt: *i64 = sys_mmap(8 * 64) as *i64
  let doc: *i64 = sys_mmap(8 * 64) as *i64
  let dup: i64 = aud_duplicates(ncodes, b[2] as *i64, b[6] as *i64, nb, didx, damt, doc)
281
  let reasons: *i64 = sys_mmap(8 * 128) as *i64
  let cpts: *i64 = sys_mmap(8 * 128) as *i64
  let fdates: *i64 = sys_mmap(8 * 128) as *i64
  let amounts: *i64 = sys_mmap(8 * 128) as *i64
  let dupline: *i64 = sys_mmap(8 * 256) as *i64
  var nf: i64 = 0
  var di: i64 = 0
  while di < dup {
      let ln: i64 = didx[di]
      if ncodes[ln] >= 0 {
          reasons[nf] = 1
          cpts[nf] = ncodes[ln]
          fdates[nf] = mbr_geti(b, 2, ln)
          amounts[nf] = doc[di]
          dupline[ln] = 1
          nf = nf + 1
      }
      di = di + 1
  }
301
  // reconciliation flags (skip lines already claimed as duplicates -- no double-count)
  let ftyp: *i64 = sys_mmap(8 * 128) as *i64
  let fidx: *i64 = sys_mmap(8 * 128) as *i64
  let famt: *i64 = sys_mmap(8 * 128) as *i64
  let nr: i64 = mbr_recon(b, e, ftyp, fidx, famt)
  var skipped: i64 = 0
  var fi: i64 = 0
  while fi < nr {
      let ln2: i64 = fidx[fi]
      if dupline[ln2] == 1 { fi = fi + 1 } else {
          if ncodes[ln2] < 0 { skipped = skipped + 1; fi = fi + 1 } else {
              var rs: i64 = 0
              if ftyp[fi] == 3 { rs = 5 }
              if ftyp[fi] == 1 { rs = 6 }
              if rs > 0 {
                  reasons[nf] = rs
                  cpts[nf] = ncodes[ln2]
                  fdates[nf] = mbr_geti(b, 2, ln2)
                  amounts[nf] = famt[fi]
                  nf = nf + 1
              }
              fi = fi + 1
          }
      }
  }
  if nf == 0 { c_puts("No disputable findings; no letter generated.\n" as *u8); return 0 }
  if skipped > 0 { c_puts("NOTE: alpha-code lines were flagged but omitted from the letter (numeric CPT only in v1).\n" as *u8) }
329
  let letter: *u8 = sys_mmap(K_MAGIC_16384)
  let ll: i64 = disp_build("[PATIENT NAME]\x00" as *u8, "[PROVIDER NAME]\x00" as *u8, "[ACCOUNT NUMBER]\x00" as *u8, reasons, cpts, fdates, amounts, nf, letter)
  c_puts("----- dispute letter (review, fill placeholders, then send yourself) -----\n" as *u8)
  sys_write(1, letter, ll)
  c_puts("----- end letter -----\n" as *u8)
  c_puts("NOTE decision-support only, not professional or legal advice; verify findings with your provider and plan before sending.\n" as *u8)
  return 0
337}
338
339func c_atoi(s: *u8) -> i64 {
  var v: i64 = 0
  var i: i64 = 0
  while s[i] != (0 as u8) { if mbr_is_digit(s[i]) == 0 { return 0 - 1 } v = v * 10 + ((s[i] as i64) - 48); i = i + 1 }
  return v
344}
345
346// M-ADV1: charity-care screen + 501(r) FAP request letter
347func cli_charity(income: i64, household: i64, region: *u8) -> i64 {
  let fpl: i64 = mbch_fpl("knowledge/medbill/fpl.list\x00" as *u8, region, household)
  if fpl < 0 { c_puts("FPL lookup failed (region or household invalid)\n" as *u8); return 1 }
  let pct: i64 = mbch_pct(income, fpl)
  c_puts("CHARITY-CARE SCREEN: income $" as *u8)
  c_putn(income)
  c_puts(", household " as *u8)
  c_putn(household)
  c_puts(" -> HHS poverty guideline $" as *u8)
  c_putn(fpl)
  c_puts(" -> " as *u8)
  c_putn(pct)
  c_puts(" percent of FPL\n" as *u8)
  c_puts("Common hospital FAP tiers: free care around/below 200 percent, discounted care to 300-400 percent (each hospital sets its own policy - ask for theirs).\n" as *u8)
  let letter: *u8 = sys_mmap(K_MAGIC_16384)
  let ll: i64 = mbch_letter(income, household, pct, letter)
  c_puts("----- financial assistance request letter (review, fill placeholders, send yourself) -----\n" as *u8)
  sys_write(1, letter, ll)
  c_puts("----- end letter -----\n" as *u8)
  c_puts("NOTE decision-support only, not professional or legal advice.\n" as *u8)
  return 0
368}
369
370// M-ADV2: denial internal-appeal letter with computed deadline
371func cli_appeal(reason: i64, denial: i64) -> i64 {
  if denial < K_MAGIC_19000101 { c_puts("denial date must be YYYYMMDD\n" as *u8); return 1 }
  let letter: *u8 = sys_mmap(K_MAGIC_16384)
  let ll: i64 = mba_letter(reason, denial, letter)
  c_puts("----- internal appeal letter (review, fill placeholders, send yourself) -----\n" as *u8)
  sys_write(1, letter, ll)
  c_puts("----- end letter -----\n" as *u8)
  c_puts("Reasons: 1 not-medically-necessary, 2 experimental, 3 out-of-network, 4 prior-auth-missing, 5 coding-error.\n" as *u8)
  c_puts("NOTE decision-support only, not professional or legal advice.\n" as *u8)
  return 0
381}
382
383// ADV3: classify the billing situation to its federal protection and render the matching letter
384func cli_nsa(flags: *i64, over: i64, bill: i64) -> i64 {
  let route: i64 = nsa_classify(flags, over, K_MAGIC_40000)
  c_puts("NSA SITUATION ROUTE: " as *u8)
  c_putn(route)
  if route == 1 { c_puts(" (No Surprises Act - emergency: balance billing prohibited)\n" as *u8) }
  if route == 2 { c_puts(" (No Surprises Act - OON provider at in-network facility)\n" as *u8) }
  if route == 3 { c_puts(" (Patient-Provider Dispute Resolution - uninsured, billed over the Good Faith Estimate)\n" as *u8) }
  if route == 4 { c_puts(" (no situation-specific shield - use review/letter/appeal/charity)\n" as *u8) }
  let letter: *u8 = sys_mmap(K_MAGIC_16384)
  let ll: i64 = nsa_letter(route, over, bill, letter)
  c_puts("----- letter/guidance (review, fill placeholders, send yourself) -----\n" as *u8)
  sys_write(1, letter, ll)
  c_puts("----- end -----\nNOTE decision-support only, not professional or legal advice.\n" as *u8)
  return 0
398}
399
400// ADV5: civic escalation -- route + letter, opt-in case ledger, accountability board
401func cli_civic_route(issue: i64) -> i64 {
  let ch: i64 = cv_route(issue)
  if ch < 0 { c_puts("unknown issue (1 insurer-misconduct, 2 NSA-violation, 3 charity-501r, 4 collections-credit, 5 fraud, 6 reform-story)\n" as *u8); return 1 }
  let days: i64 = cv_expect("knowledge/medbill/civic_channels.list\x00" as *u8, ch)
  c_puts("CIVIC ROUTE: channel " as *u8)
  c_putn(ch)
  c_puts(", expected response window " as *u8)
  c_putn(days)
  c_puts(" days (data pack)\n" as *u8)
  let letter: *u8 = sys_mmap(K_MAGIC_16384)
  let ll: i64 = cv_letter(issue, letter)
  c_puts("----- complaint pattern (YOURS to review, complete, and send - nothing is sent for you) -----\n" as *u8)
  sys_write(1, letter, ll)
  c_puts("----- end -----\nNOTE decision-support only, not professional or legal advice. Facts only; you choose what to share and where.\n" as *u8)
  return 0
416}
417func cli_civic_open(prefix: *u8, id: *u8, issue: i64, sent: i64) -> i64 {
  let rc: i64 = cv_case_open(prefix, id, issue, sent)
  if rc != 0 { c_puts("open failed (unknown issue or store error)\n" as *u8); return 1 }
  let man: *u8 = sys_mmap(K_MAGIC_4096)
  let ml: i64 = cv_get(prefix, "_manifest\x00" as *u8, man, K_MAGIC_4096)
  if ml < 0 { man[0] = 0 as u8 }
  if mbc_contains(man, id) == 0 {
      let man2: *u8 = sys_mmap(K_MAGIC_4096)
      var o: i64 = mbc_app(man2, 0, man)
      man2[o] = 32 as u8
      o = o + 1
      o = mbc_app(man2, o, id)
      man2[o] = 0 as u8
      cv_w(prefix, "_manifest\x00" as *u8, man2)
  }
  c_puts("CASE OPENED (you sent it; the ledger only records your action): " as *u8)
  c_puts(id)
  c_puts("\n" as *u8)
  return 0
436}
437func cli_civic_board(prefix: *u8, today: i64) -> i64 {
  let man: *u8 = sys_mmap(K_MAGIC_4096)
  if cv_get(prefix, "_manifest\x00" as *u8, man, K_MAGIC_4096) < 0 { c_puts("no civic cases yet\n" as *u8); return 0 }
  let CH: *u8 = "knowledge/medbill/civic_channels.list\x00" as *u8
  let rec: *u8 = sys_mmap(512)
  let id: *u8 = sys_mmap(128)
  let tal: *i64 = sys_mmap(8 * 8) as *i64
  c_puts("CIVIC ACCOUNTABILITY BOARD (are they moving?)\n" as *u8)
  var i: i64 = 0
  var go: i64 = 1
  while go == 1 {
      while man[i] == (32 as u8) { i = i + 1 }
      if man[i] == (0 as u8) { go = 0 } else {
      var k: i64 = 0
      var t: i64 = 1
      while t == 1 {
          if man[i] == (0 as u8) { t = 0 } else {
              if man[i] == (32 as u8) { t = 0 } else {
                  if k < 120 { id[k] = man[i]; k = k + 1 }
                  i = i + 1
              }
          }
      }
      id[k] = 0 as u8
      if k > 0 {
          if cv_get(prefix, id, rec, 512) > 0 {
              let ch: i64 = cv_f(rec, 1)
              let sent: i64 = cv_f(rec, 2)
              let status: i64 = cv_f(rec, 3)
              let days: i64 = cv_expect(CH, ch)
              let v: i64 = cv_verdict(status, sent, days, today)
              c_puts("  " as *u8)
              c_puts(id)
              c_puts(": channel " as *u8)
              c_putn(ch)
              c_puts(" sent " as *u8)
              c_putn(sent)
              c_puts(" status " as *u8)
              c_putn(status)
              c_puts(" follow-up " as *u8)
              c_putn(cv_followup(sent, days))
              if v == 1 { c_puts("  MOVING\n" as *u8) }
              if v == 2 { c_puts("  PENDING\n" as *u8) }
              if v == 3 { c_puts("  OVERDUE-UNRESPONSIVE\n" as *u8) }
              if v == 4 { c_puts("  CLOSED-NO-ACTION\n" as *u8) }
              tal[v] = tal[v] + 1
          }
      }
      }
  }
  c_puts("TALLY: moving=" as *u8)
  c_putn(tal[1])
  c_puts(" pending=" as *u8)
  c_putn(tal[2])
  c_puts(" overdue=" as *u8)
  c_putn(tal[3])
  c_puts(" no-action=" as *u8)
  c_putn(tal[4])
  c_puts("\nMeasured from your own sent/response dates - the movement verdict is mechanical, not asserted.\n" as *u8)
  return 0
497}
498
499// ADV4: append a deadline EVENT to the medbill calendar file (the vizsla-calendar record contract:
500// EVENT <id> <YYYY-MM-DD> <start_min> <dur_min> <title>). The GATED vizsla engines do the rest:
501// nx_vizsla_calendar load -> cal: records; nx_vizsla_remind due -> lead-day notices, sent-once ledger.
502// Loose coupling by artifact contract; the system remembers the window so the patient does not.
503func cli_deadline(kind: *u8, base: i64, channel: i64) -> i64 {
  var days: i64 = 0 - 1
  if mbc_streq(kind, "appeal\x00" as *u8) == 1 { days = 180 }
  if mbc_streq(kind, "ppdr\x00" as *u8) == 1 { days = 120 }
  if mbc_streq(kind, "civic\x00" as *u8) == 1 { days = cv_expect("knowledge/medbill/civic_channels.list\x00" as *u8, channel) }
  if days < 0 { c_puts("kind must be appeal|ppdr|civic <channel>\n" as *u8); return 1 }
  let due: i64 = mba_add_days(base, days)
  let path: *u8 = "knowledge/medbill/deadlines.cal\x00" as *u8
  let cap: i64 = K_MAGIC_262144
  let buf: *u8 = sys_mmap(cap)
  var n: i64 = mbc_read_all(path, buf, cap)
  if n < 0 { n = 0 }
  var o: i64 = n
  o = mbc_app(buf, o, "EVENT mb-\x00" as *u8)
  o = mbc_app(buf, o, kind)
  buf[o] = 45 as u8
  o = o + 1
  o = mba_date(buf, o, base)
  buf[o] = 32 as u8
  o = o + 1
  o = mba_date(buf, o, due)
  o = mbc_app(buf, o, " 540 30 medbill-\x00" as *u8)
  o = mbc_app(buf, o, kind)
  o = mbc_app(buf, o, "-deadline-act-now\x00" as *u8)
  buf[o] = 10 as u8
  o = o + 1
  let fd: i64 = sys_openat_wr(path, 0x1a4)
  if fd < 0 { c_puts("deadline file WRITE-FAIL\n" as *u8); return 1 }
  sys_write(fd, buf, o)
  sys_close(fd)
  c_puts("DEADLINE FILED: " as *u8)
  c_puts(kind)
  c_puts(" window ends " as *u8)
  let d2: *u8 = sys_mmap(32)
  let dl: i64 = mba_date(d2, 0, due)
  sys_write(1, d2, dl)
  c_puts(" -> knowledge/medbill/deadlines.cal (load into the vizsla calendar; remind engine surfaces it at 14/7/1/0-day leads)\n" as *u8)
  return 0
541}
542
543func cli_lookup(prefix: *u8, code: *u8) -> i64 {
  let rec: *u8 = sys_mmap(K_MAGIC_2048)
  let fld: *u8 = sys_mmap(K_MAGIC_1024)
  let l: i64 = mbc_get(prefix, code, rec, K_MAGIC_2048)
  if l < 0 {
      c_puts(code)
      c_puts(": UNKNOWN (not in the local code pack; the decoder never fabricates)\n" as *u8)
      return 1
  }
  c_puts(code)
  c_puts(" (" as *u8)
  mbc_field(rec, 0, fld, K_MAGIC_1024)
  c_puts(fld)
  c_puts("): " as *u8)
  mbc_field(rec, 1, fld, K_MAGIC_1024)
  c_puts(fld)
  c_puts("  [source: " as *u8)
  mbc_field(rec, 2, fld, K_MAGIC_1024)
  c_puts(fld)
  c_puts("]\n" as *u8)
  return 0
564}
565
566func main(argc: i64, argv: *i64) -> i64 {
  let prefix: *u8 = "knowledge/store/medbill-\x00" as *u8
  if argc >= 2 {
      let verb: *u8 = argv[1] as *u8
      if mbc_streq(verb, "ingest\x00" as *u8) == 1 { return cli_ingest(prefix) }
      if mbc_streq(verb, "lookup\x00" as *u8) == 1 {
          if argc >= 3 { return cli_lookup(prefix, argv[2] as *u8) }
      }
      if mbc_streq(verb, "review\x00" as *u8) == 1 {
          if argc >= 4 { return cli_review(prefix, argv[2] as *u8, argv[3] as *u8, 1) }
          if argc >= 3 { return cli_review(prefix, argv[2] as *u8, "\x00" as *u8, 0) }
      }
      if mbc_streq(verb, "letter\x00" as *u8) == 1 {
          if argc >= 4 { return cli_letter(argv[2] as *u8, argv[3] as *u8) }
      }
      if mbc_streq(verb, "charity\x00" as *u8) == 1 {
          if argc >= 4 {
              var reg: *u8 = "contiguous\x00" as *u8
              if argc >= 5 { reg = argv[4] as *u8 }
              return cli_charity(c_atoi(argv[2] as *u8), c_atoi(argv[3] as *u8), reg)
          }
      }
      if mbc_streq(verb, "appeal\x00" as *u8) == 1 {
          if argc >= 4 { return cli_appeal(c_atoi(argv[2] as *u8), c_atoi(argv[3] as *u8)) }
      }
      if mbc_streq(verb, "nsa\x00" as *u8) == 1 {
          if argc >= 9 {
              let f: *i64 = sys_mmap(8 * 8) as *i64
              f[0] = c_atoi(argv[2] as *u8)
              f[1] = c_atoi(argv[3] as *u8)
              f[2] = c_atoi(argv[4] as *u8)
              f[3] = c_atoi(argv[5] as *u8)
              f[4] = c_atoi(argv[6] as *u8)
              return cli_nsa(f, c_atoi(argv[7] as *u8), c_atoi(argv[8] as *u8))
          }
      }
      if mbc_streq(verb, "civic\x00" as *u8) == 1 {
          if argc >= 3 {
              let sub: *u8 = argv[2] as *u8
              if mbc_streq(sub, "route\x00" as *u8) == 1 { if argc >= 4 { return cli_civic_route(c_atoi(argv[3] as *u8)) } }
              if mbc_streq(sub, "open\x00" as *u8) == 1 { if argc >= 6 { return cli_civic_open(prefix, argv[3] as *u8, c_atoi(argv[4] as *u8), c_atoi(argv[5] as *u8)) } }
              if mbc_streq(sub, "update\x00" as *u8) == 1 { if argc >= 6 { if cv_case_set(prefix, argv[3] as *u8, c_atoi(argv[4] as *u8), c_atoi(argv[5] as *u8)) == 0 { c_puts("updated\n" as *u8); return 0 } c_puts("update failed\n" as *u8); return 1 } }
              if mbc_streq(sub, "board\x00" as *u8) == 1 { if argc >= 4 { return cli_civic_board(prefix, c_atoi(argv[3] as *u8)) } }
          }
      }
      if mbc_streq(verb, "portal\x00" as *u8) == 1 {
          let pg: *u8 = sys_mmap(K_MAGIC_65536)
          let pl: i64 = hh_page(pg)
          sys_write(1, pg, pl)
          return 0
      }
      if mbc_streq(verb, "deadline\x00" as *u8) == 1 {
          if argc >= 4 {
              var chn: i64 = 0
              if argc >= 5 { chn = c_atoi(argv[4] as *u8) }
              return cli_deadline(argv[2] as *u8, c_atoi(argv[3] as *u8), chn)
          }
      }
  }
  c_puts("usage: nx_medbill_cli ingest | lookup <code> | review <bill.txt> [eob.txt] | letter <bill.txt> <eob.txt> | charity <income> <household> [region] | appeal <reason> <denialYYYYMMDD> | nsa <emerg> <oon> <innetfac> <insured> <gfe> <over_cents> <billYYYYMMDD> | civic route <issue> / open <id> <issue> <sentYMD> / update <id> <status> <YMD> / board <todayYMD>\n" as *u8)
  return 1
627}
nx_medbill_cli.nx source

`nx_medbill_cli.nx` source
