iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added "DCO_Sam_Habiel.txt"

This commit is contained in:
sam 2009-02-15 23:06:34 +00:00
parent e08eb643c7
commit ebb8eaf7fd
2 changed files with 33 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
p/C0CRXNRD.m
View File

@ -49,12 +49,11 @@ READNDC(PATH) ; Open and read NDC/RxNorm/VANDF relationship file: RXNSAT.RRF
. N LINE R LINE . N LINE R LINE
. IF $$STATUS^%ZISH QUIT . IF $$STATUS^%ZISH QUIT
. U $P W I U IO . 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 . ; Otherwise, we are good to go
. U $P W ?20,"Found VUID/NDC Set",! U IO . U $P W ?20,"Found RXNORM/NDC Set",! U IO
. N RXCUI,VUID,NDC ; Fileman fields below . N RXCUI,NDC ; Fileman fields below
. S RXCUI=$P(LINE,"|",1) ; .01 . S RXCUI=$P(LINE,"|",1) ; .01
. S VUID=$P(LINE,"|",6) ; 1
. S NDC=$P(LINE,"|",11) ; 2 . S NDC=$P(LINE,"|",11) ; 2
. ; Using classic call to update. . ; Using classic call to update.
. N DIC,X,DA,DR . N DIC,X,DA,DR
@ -63,9 +62,8 @@ READNDC(PATH) ; Open and read NDC/RxNorm/VANDF relationship file: RXNSAT.RRF
. D FILE^DICN . D FILE^DICN
. I Y<1 U $P W !,"THERE IS TROUBLE IN RIVER CITY",! BREAK . I Y<1 U $P W !,"THERE IS TROUBLE IN RIVER CITY",! BREAK
. S DIE=DIC,DA=$P(Y,"^") . 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 ^DIE
D CLOSE^%ZISH("FILE") D CLOSE^%ZISH("FILE")
U $P ; reset back to principle device U $P ; reset back to principle device
QUIT

28
p/DCO_Sam_Habiel.txt Normal file
View File

@ -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