Changeset 369 for ccr/trunk/p

Timestamp:

Feb 15, 2009, 6:06:34 PM (16 years ago)

Author:

Sam Habiel

Message:

Added "DCO_Sam_Habiel.txt"

Location:

ccr/trunk/p

Files:

• C0CRXNRD.m (modified) (2 diffs)
• DCO_Sam_Habiel.txt (added)

ccr/trunk/p/C0CRXNRD.m

@@ -50 +50 @@
  . 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.
@@ -64 +63 @@
  . 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