Changeset 1616 for fmts/trunk/p/C0XPT0.m

Timestamp:

Apr 10, 2013, 9:50:51 PM (11 years ago)

Author:

Sam Habiel

Message:

Now code add drugs to drug file. Still needs lot more work.

File:

• fmts/trunk/p/C0XPT0.m (modified) (2 diffs)

fmts/trunk/p/C0XPT0.m

@@ -1 @@
-C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-02-21  4:52 PM
+C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-04-10  4:23 PM
  ;;1.1;FILEMAN TRIPLE STORE;;
  ;
@@ -26 +26 @@
  SET PARAM("MRN")=$$MRN(DEM)
  NEW RETURN
+ WRITE !!,PARAM("NAME"),!
  D ADDPT(.RETURN,.PARAM)
  N DFN S DFN=$P(RETURN(1),U,2)