Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FHCLN

FHCLN.m

Go to the documentation of this file.
  1. FHCLN ; HISC/REL - Clinical Dietetics ; 2/13/19 11:54am
  1. ;;5.5;DIETETICS;**8,49**;Jan 28, 2005;Build 2
  1. ; Reference IA# 10099 [Supported] GMRADPT call
  1. ;
  1. ;2/13/2019 FH*5.5*49 INC3431411 Missing IA, Revised API Call
  1. ;2/13/2019 FH*5.5*49 INC3519667 Allergy API call not returning
  1. ; all Food Allergies
  1. ;
  1. ALG ; Get Allergies
  1. K ^TMP($J,"FHGMRAL") I $G(DFN)="" S ALG="" Q
  1. S ALG="",GMRA="0^0^111" D EN2^GMRADPT
  1. G:$O(GMRAL(0))<1 A1 F DA=0:0 S DA=$O(GMRAL(DA)) Q:DA<1 D A4 I FHOK D A3 S:ALG'="" ALG=ALG_", " S GMRA=$P(GMRAL(DA),"^",2) G:$L(ALG)+$L(GMRA)>250 A2 S ALG=ALG_GMRA
  1. A1 K GMRA,GMRAL,FHGMNUM,FHGMIEN,FHREACT,FHOK Q
  1. A2 S:$L(ALG)<246 ALG=ALG_"OTHERS" G A1
  1. A3 S FHGMNUM=$P(GMRAL(DA),"^",9) I $P(FHGMNUM,";",2)'="GMRD(120.82," Q
  1. S FHGMIEN=$P(FHGMNUM,";",1),^TMP($J,"FHGMRAL",FHGMIEN)=""
  1. A4 S FHREACT=$P(GMRAL(DA),"^",7)
  1. S FHOK=$S(FHREACT="DF":1,FHREACT="DFO":1,FHREACT="F":1,FHREACT="FO":1,1:0)