nx_ciq_field_clinical.nx source

1// nx_ciq_field_clinical.nx -- CIQ field INGEST for the CLINICAL body-map / pain-tracker market (5th market, 2// completes all 5 flagships). Sovereign seg_store, namespace "clinical", markets read-append. HONEST: Nishi's 3// clinical body-map is EARLY (FHIR/SNOMED/LOINC substrate designed, body-map charting early, device-lane 4// fail-closed/dark until approvals) -- immature EXECUTION + uncertified, but a strong INTEGRITY/SOVEREIGNTY 5// vision (sovereign stack, ALCOA+ append-only, synthetic-first no-PHI, honest accuracy framing, CID 6// provenance). vs epic/cerner (mature certified EHRs), openemr (open EHR). Incumbents=public facts; Nishi 7// level-2 cite the design organ (nx_clin) / sovereign substrate. Expect Nishi=VISIONARY. license_tier: ORIGINAL expect_exit: 0 8import "nx_syscalls.nx" 9import "nx_canon_cid.nx" 10import "nx_seg_store.nx" 11import "nx_uxf_decode.nx" 12const FC_MAGIC_2048: i64 = 2048 13const FC_MAGIC_1024: i64 = 1024 14const FC_MAGIC_8192: i64 = 8192 15 16const FC_STORE: *u8 = "knowledge/store/ciq-" 17 18func cfw(fd: i64, s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(fd,s,n); return 0 } 19func fc_streq(a: *u8, b: *u8) -> i64 { var i: i64=0; while a[i]!=(0 as u8){ if a[i]!=b[i]{return 0} i=i+1 } if b[i]!=(0 as u8){return 0} return 1 } 20func fc_copy(src: *u8, dst: *u8) -> i64 { var i: i64=0; while src[i]!=(0 as u8){ dst[i]=src[i]; i=i+1 } dst[i]=0 as u8; return i } 21func fc_contains(hay: *u8, needle: *u8) -> i64 { var i: i64=0; while hay[i]!=(0 as u8){ var j: i64=0; var ok: i64=1; while needle[j]!=(0 as u8){ if hay[i+j]!=needle[j]{ ok=0; j=0; while needle[j]!=(0 as u8){j=j+1} } else { j=j+1 } } if ok==1 { return 1 } i=i+1 } return 0 } 22 23func fc_row(w: *i64, caps: *u8, coff: *i64, nm: *u8, axs: *u8, wts: *u8, cells: *u8) -> i64 { 24 let rk: *i64 = sys_mmap(8 * 8) as *i64 25 let rv: *i64 = sys_mmap(8 * 8) as *i64 26 rk[0] = "ax" as *u8 as i64; rv[0] = axs as i64 27 rk[1] = "wt" as *u8 as i64; rv[1] = wts as i64 28 rk[2] = "cells" as *u8 as i64; rv[2] = cells as i64 29 let recb: *u8 = sys_mmap(FC_MAGIC_2048) 30 let recl: i64 = canon_encode(rk, rv, 3, recb) 31 let kb: *u8 = sys_mmap(128); var ko: i64 = 0 32 ko = ss_cat(kb, ko, "ciq:clinical:cap:" as *u8); ko = ss_cat(kb, ko, nm); kb[ko] = 0 as u8 33 ss_add(w, 1, kb, recb, recl) 34 var o: i64 = coff[0]; o = ss_cat(caps, o, nm); caps[o] = 44 as u8; coff[0] = o + 1 35 return 0 36} 37 38func fc_register(w: *i64, mkt: *u8) -> i64 { 39 let gp: *i64 = sys_mmap(8) as *i64; let gl: *i64 = sys_mmap(8) as *i64 40 let dk: *i64 = sys_mmap(8 * 16) as *i64; let dv: *i64 = sys_mmap(8 * 16) as *i64 41 let cur: *u8 = sys_mmap(FC_MAGIC_1024); cur[0] = 0 as u8 42 if ss_get(FC_STORE, "ciq:markets" as *u8, gp, gl) == 1 { 43 let mnf: i64 = canon_decode(gp[0] as *u8, gl[0], dk, dv, 16) 44 var f: i64 = 0; while f < mnf { if fc_streq(dk[f] as *u8, "list" as *u8) == 1 { fc_copy(dv[f] as *u8, cur) } f = f + 1 } 45 } 46 if fc_contains(cur, mkt) == 0 { 47 var ce: i64 = 0; while cur[ce] != (0 as u8) { ce = ce + 1 } 48 if ce > 0 { cur[ce] = 44 as u8; ce = ce + 1 } 49 var k: i64 = 0; while mkt[k] != (0 as u8) { cur[ce] = mkt[k]; ce = ce + 1; k = k + 1 } 50 cur[ce] = 0 as u8 51 } 52 let gk: *i64 = sys_mmap(8 * 2) as *i64; let gv: *i64 = sys_mmap(8 * 2) as *i64 53 gk[0] = "list" as *u8 as i64; gv[0] = cur as i64 54 let gb: *u8 = sys_mmap(FC_MAGIC_1024); let gl2: i64 = canon_encode(gk, gv, 1, gb) 55 ss_add(w, 1, "ciq:markets" as *u8, gb, gl2) 56 return 0 57} 58 59func main() -> i64 { 60 let w: *i64 = ss_begin() 61 let caps: *u8 = sys_mmap(FC_MAGIC_8192) 62 let coff: *i64 = sys_mmap(8) as *i64; coff[0] = 0 63 64 // name ax wt nishi;epic;cerner;openemr 65 fc_row(w, caps, coff, "fhir-snomed-loinc-standards" as *u8, "E" as *u8, "3" as *u8, "1;2!public;2!public;1" as *u8) 66 fc_row(w, caps, coff, "body-map-pain-charting" as *u8, "E" as *u8, "3" as *u8, "1;1;1;0" as *u8) 67 fc_row(w, caps, coff, "longitudinal-charting" as *u8, "E" as *u8, "2" as *u8, "1;2!public;2!public;1" as *u8) 68 fc_row(w, caps, coff, "clinical-decision-support" as *u8, "E" as *u8, "2" as *u8, "0;2!public;2!public;0" as *u8) 69 fc_row(w, caps, coff, "regulatory-compliance-hipaa" as *u8, "E" as *u8, "3" as *u8, "1;2!public;2!public;1" as *u8) 70 fc_row(w, caps, coff, "ehr-integration" as *u8, "E" as *u8, "2" as *u8, "0;2!public;2!public;1" as *u8) 71 fc_row(w, caps, coff, "multi-specialty-support" as *u8, "E" as *u8, "2" as *u8, "1;2!public;2!public;1" as *u8) 72 73 fc_row(w, caps, coff, "sovereign-stack-no-vendor-lockin" as *u8, "V" as *u8, "3" as *u8, "2!sovereign;0;0;1" as *u8) 74 fc_row(w, caps, coff, "append-only-alcoa-integrity" as *u8, "V" as *u8, "3" as *u8, "2!nx_clin;1;1;0" as *u8) 75 fc_row(w, caps, coff, "synthetic-first-no-phi" as *u8, "V" as *u8, "2" as *u8, "2!sovereign;0;0;0" as *u8) 76 fc_row(w, caps, coff, "patient-data-ownership" as *u8, "V" as *u8, "2" as *u8, "1;0;0;1" as *u8) 77 fc_row(w, caps, coff, "honest-accuracy-framing" as *u8, "V" as *u8, "2" as *u8, "2!nx_clin;0;0;0" as *u8) 78 fc_row(w, caps, coff, "content-addressed-provenance" as *u8, "V" as *u8, "2" as *u8, "2!sovereign;0;0;0" as *u8) 79 80 caps[coff[0]] = 0 as u8 81 82 let mk: *i64 = sys_mmap(8 * 4) as *i64; let mv: *i64 = sys_mmap(8 * 4) as *i64 83 mk[0] = "entities" as *u8 as i64; mv[0] = "nishi,epic,cerner,openemr" as *u8 as i64 84 mk[1] = "caps" as *u8 as i64; mv[1] = caps as i64 85 let mb: *u8 = sys_mmap(FC_MAGIC_8192); let ml: i64 = canon_encode(mk, mv, 2, mb) 86 ss_add(w, 1, "ciq:clinical:meta" as *u8, mb, ml) 87 fc_register(w, "clinical" as *u8) 88 ss_commit(FC_STORE, w, sys_now_ms()) 89 90 let gp: *i64 = sys_mmap(8) as *i64; let gl: *i64 = sys_mmap(8) as *i64 91 var st: i64 = 1 92 if ss_get(FC_STORE, "ciq:clinical:cap:honest-accuracy-framing" as *u8, gp, gl) != 1 { st = 0 } 93 cfw(1, "CIQ-FIELD-CLINICAL stored=13 caps (sovereign seg_store) + markets read-append " as *u8) 94 if st == 1 { cfw(1, "selftest=OK verdict=GREEN\n" as *u8); sys_exit(0); return 0 } 95 cfw(1, "selftest=FAIL verdict=RED\n" as *u8); sys_exit(1); return 1 96}