diff --git a/p/C0CRXNRD.m b/p/C0CRXNRD.m index 3e72f08..8e15e7d 100644 --- a/p/C0CRXNRD.m +++ b/p/C0CRXNRD.m @@ -49,12 +49,11 @@ READNDC(PATH) ; Open and read NDC/RxNorm/VANDF relationship file: RXNSAT.RRF . N LINE R LINE . IF $$STATUS^%ZISH QUIT . U $P W I U IO - . IF LINE'["NDC|VANDF" U $P W ?20,"No NDC Here :-)",! U IO QUIT + . IF LINE'["NDC|RXNORM" U $P W ?20,"No NDC Here :-)",! U IO QUIT . ; Otherwise, we are good to go - . U $P W ?20,"Found VUID/NDC Set",! U IO - . N RXCUI,VUID,NDC ; Fileman fields below + . U $P W ?20,"Found RXNORM/NDC Set",! U IO + . N RXCUI,NDC ; Fileman fields below . S RXCUI=$P(LINE,"|",1) ; .01 - . S VUID=$P(LINE,"|",6) ; 1 . S NDC=$P(LINE,"|",11) ; 2 . ; Using classic call to update. . N DIC,X,DA,DR @@ -63,9 +62,8 @@ READNDC(PATH) ; Open and read NDC/RxNorm/VANDF relationship file: RXNSAT.RRF . D FILE^DICN . I Y<1 U $P W !,"THERE IS TROUBLE IN RIVER CITY",! BREAK . S DIE=DIC,DA=$P(Y,"^") - . S DR="1////^S X=VUID;2////^S X=NDC" + . S DR="2////^S X=NDC" . D ^DIE D CLOSE^%ZISH("FILE") U $P ; reset back to principle device - - + QUIT diff --git a/p/DCO_Sam_Habiel.txt b/p/DCO_Sam_Habiel.txt new file mode 100644 index 0000000..db1e76e --- /dev/null +++ b/p/DCO_Sam_Habiel.txt @@ -0,0 +1,28 @@ + Developer's Certificate of Origin 1.1 + + By making a contribution to this project, I certify that: + + (a) The contribution was created in whole or in part by me and I + have the right to submit it under the open source license + indicated in the file; or + + (b) The contribution is based upon previous work that, to the best + of my knowledge, is covered under an appropriate open source + license and I have the right under that license to submit that + work with modifications, whether created in whole or in part + by me, under the same open source license (unless I am + permitted to submit under a different license), as indicated + in the file; or + + (c) The contribution was provided directly to me by some other + person who certified (a), (b) or (c) and I have not modified + it. + + (d) I understand and agree that this project and the contribution + are public and that a record of the contribution (including all + personal information I submit with it, including my sign-off) is + maintained indefinitely and may be redistributed consistent with + this project or the open source license(s) involved. + +Signed-off-by: Sam Habiel + sam dot habiel at gmail dot com