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

FHOMAPI.m

Go to the documentation of this file.
  1. FHOMAPI ;Hines OIFO/RTK OUTPATIENT MEALS/CPRS API's ;8/26/03 10:15
  1. ;;5.5;DIETETICS;**2**;Jan 28, 2005
  1. ;
  1. AUTH(DUZ) ;Check whether USER (DUZ) has FHAUTH key: 1=YES, 0=NO
  1. N FHAU S FHAU=0
  1. I $D(^XUSEC("FHAUTH",DUZ)) S FHAU=1
  1. Q FHAU
  1. DIETLST ;Build list of allowable outpatient diets from site parameters
  1. K FHDIET,SPDIETS S SPDIETS=$P($G(^FH(119.9,1,0)),U,2,6)_"^"_$P($G(^FH(119.9,1,1)),U,1,10)
  1. F A=1:1:15 S AB=$P(SPDIETS,U,A) I AB'="" S FHN=$P($G(^FH(111,AB,0)),U,1),FHDIET(A)=AB_"^"_FHN
  1. Q
  1. MAXDAYS(FHLOC) ;Returns max number of days a recurring meal may be ordered
  1. N FHMAXD S FHMAXD=365 I FHLOC="" Q FHMAXD
  1. S FHLOC=$O(^FH(119.6,"AL",FHLOC,""))
  1. I 'FHLOC Q FHMAXD
  1. S FHMAXD=$P($G(^FH(119.6,FHLOC,1)),U,2) I FHMAXD="" S FHMAXD=365
  1. Q FHMAXD
  1. NFSLOC(FHLOC) ;Returns NFS location name given HOSP LOCATION pointer
  1. I FHLOC="" Q ""
  1. S FHLOC=$O(^FH(119.6,"AL",FHLOC,""))
  1. I 'FHLOC Q ""
  1. S FHLNAME=$P($G(^FH(119.6,FHLOC,0)),U,1)
  1. Q FHLNAME