HMPWB ;;ASMR/EJK - COMMON ENTRY POINT FOR ALL WRITEBACK ACTIVITY; 12/14/2014
 ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2**;DEC 11 2014;Build 28
 ;Per VA Directive 6402, this routine should not be modified.
 ;
 ; INPUT PARAMETERS
 ;   IEN - existing allergy IEN or 0 if this is a new allergen. 
 ;   DFN - patient identifier
 ;   DATA(list) - array of related data
 ;      domain - used for determining the type of writeback data this is. 
 ;
 
Q
 
;
API(RSLT,IEN,DFN,DATA) ; MAIN ENTRY POINT FROM RPC HMP PUT OPERATIONAL DATA
 
^TMP("ZZHMPWB",$J,"DATA")=DATA
 
^TMP("ZZHMPWB",$J,"DFN")=$G(DFN)
 
^TMP("ZZHMPWB",$J,"IEN")=$G(IEN)
 
HMPAPI
 
HMP=$NA(^TMP("HMP",$J)),HMPI=0 @HMP
 
HMPAPI=$G(DATA("domain"))
 
HMPAPI="allergy" ALLERGY^HMPWB1(.RSLT,IEN,DFN,.DATA)
 
HMPAPI="demographics" DEMOG^HMPWB2(.RSLT,IEN,OL,.DATA)
 
HMPAPI="vitals" VMADD^HMPWB2(.RSLT,IEN,DFN,.DATA)
 
HMPAPI="vitals error" VMERR^HMPWB2(.RSLT,IEN,DFN,.DATA)
 
;I HMPAPI="meds" D NVAMED^HMPWB3(.RSLT,IEN,DFN,.DATA)
 
Q