Changeset 666 for ccr/trunk/p/C0CALERT.m

Timestamp:

Jan 10, 2010, 1:13:34 PM (15 years ago)

Author:

George Lilly

Message:

updates to ALERT AND RNF for eRx

File:

• ccr/trunk/p/C0CALERT.m (modified) (2 diffs)

ccr/trunk/p/C0CALERT.m

@@ -22 +22 @@
  Q
  ;
-EXTRACT(ALTXML,DFN,ALTOUTXML) ; EXTRACT ALERTS INTO PROVIDED XML TEMPLATE
- ;
+EXTRACT(ALTXML,DFN,ALTOUTXML,CALLBK) ; EXTRACT ALERTS INTO  XML TEMPLATE
+ ; CALLBACK IF PROVIDED IS CALLED FOR EACH ALLERGY BEFORE MAPPING
  ; ALTXML AND ALTOUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
  ;
@@ -46 +46 @@
  . S @ALTVMAP@("ALERTOBJECTID")="ALERT"_ALTCNT
  . N A1 S A1=@ALTG@(ALTTMP) ; ALL THE PIECES
+ . I $D(CALLBK) D @CALLBK ;CALLBACK FOR EPRESCRIBING
  . N A2 S A2=$$GET1^DIQ(120.8,ALTTMP,"MECHANISM","I") ; MECHANISM
  . N A3 S A3=$P(A1,U,5) ; ADVERSE FLAG