HMPWB.m

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 ---HMPWB   1032     printed  Apr 09, 2024@20:59:28                                                                                                                                                                                                       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