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

Timestamp:

Feb 21, 2013, 7:57:31 PM (12 years ago)

Author:

Sam Habiel

Message:

Medications: Can now add a fake prescription to the record

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-19  2:14 PM
+C0XPT0 ; VEN/SMH - Get patient data and do something about it ;2013-02-21  4:52 PM
  ;;1.1;FILEMAN TRIPLE STORE;;
  ;
@@ -5 +5 @@
  NEW RETURN
  DO GRAPHS^C0XGET1(.RETURN) ; TODO: Return could be a global due to large data.
- N I S I="" F  S I=$O(RETURN(I)) Q:I=""  D  ; For each IEN
- . N G S G=""  F  S G=$O(RETURN(I,G)) Q:G=""  D  ; For each graph tied to IEN
+ N C0XI S C0XI="" F  S C0XI=$O(RETURN(C0XI)) Q:C0XI=""  D  ; For each IEN
+ . N G S G=""  F  S G=$O(RETURN(C0XI,G)) Q:G=""  D  ; For each graph tied to IEN
  . . D PROGRAPH(G) ; Process Graph
  QUIT