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
M ^TMP("ZZHMPWB",$J,"DATA")=DATA
S ^TMP("ZZHMPWB",$J,"DFN")=$G(DFN)
S ^TMP("ZZHMPWB",$J,"IEN")=$G(IEN)
N HMPAPI
S HMP=$NA(^TMP("HMP",$J)),HMPI=0 K @HMP
S HMPAPI=$G(DATA("domain"))
I HMPAPI="allergy" D ALLERGY^HMPWB1(.RSLT,IEN,DFN,.DATA)
I HMPAPI="demographics" D DEMOG^HMPWB2(.RSLT,IEN,OL,.DATA)
I HMPAPI="vitals" D VMADD^HMPWB2(.RSLT,IEN,DFN,.DATA)
I HMPAPI="vitals error" D VMERR^HMPWB2(.RSLT,IEN,DFN,.DATA)
;I HMPAPI="meds" D NVAMED^HMPWB3(.RSLT,IEN,DFN,.DATA)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHMPWB 1032 printed Dec 13, 2024@01:54:43 Page 2
HMPWB ;;ASMR/EJK - COMMON ENTRY POINT FOR ALL WRITEBACK ACTIVITY; 12/14/2014
+1 ;;2.0;ENTERPRISE HEALTH MANAGEMENT PLATFORM;**2**;DEC 11 2014;Build 28
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; INPUT PARAMETERS
+5 ; IEN - existing allergy IEN or 0 if this is a new allergen.
+6 ; DFN - patient identifier
+7 ; DATA(list) - array of related data
+8 ; domain - used for determining the type of writeback data this is.
+9 ;
+10 QUIT
+11 ;
API(RSLT,IEN,DFN,DATA) ; MAIN ENTRY POINT FROM RPC HMP PUT OPERATIONAL DATA
+1 MERGE ^TMP("ZZHMPWB",$JOB,"DATA")=DATA
+2 SET ^TMP("ZZHMPWB",$JOB,"DFN")=$GET(DFN)
+3 SET ^TMP("ZZHMPWB",$JOB,"IEN")=$GET(IEN)
+4 NEW HMPAPI
+5 SET HMP=$NAME(^TMP("HMP",$JOB))
SET HMPI=0
KILL @HMP
+6 SET HMPAPI=$GET(DATA("domain"))
+7 IF HMPAPI="allergy"
DO ALLERGY^HMPWB1(.RSLT,IEN,DFN,.DATA)
+8 IF HMPAPI="demographics"
DO DEMOG^HMPWB2(.RSLT,IEN,OL,.DATA)
+9 IF HMPAPI="vitals"
DO VMADD^HMPWB2(.RSLT,IEN,DFN,.DATA)
+10 IF HMPAPI="vitals error"
DO VMERR^HMPWB2(.RSLT,IEN,DFN,.DATA)
+11 ;I HMPAPI="meds" D NVAMED^HMPWB3(.RSLT,IEN,DFN,.DATA)
+12 QUIT
