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

BQITD01.m

Go to the documentation of this file.
  1. BQITD01 ;PRXM/GIS/DLS-Asthma ; 28 Mar 2006 9:17 PM
  1. ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
  1. Q
  1. ;
  1. POP(BQARY,TGLOB) ; EP
  1. ;
  1. ;Description
  1. ; Finds all patients who meet the criteria for Asthma diagnosis'
  1. ;Input
  1. ; BQARY - Array of taxonomies and other information
  1. ; TGLOB - Global where data is to be stored
  1. ; Structure:
  1. ; TGLOB(DFN,"CRITERIA",criteria or taxonomy,visit or problem ien)=date/time
  1. ;
  1. I $D(@BQARY) D
  1. . D POP^BQITDGN(BQARY,TGLOB)
  1. ;
  1. ; Finish with all the logic and have a list of patients to file
  1. Q
  1. ;
  1. PAT(DEF,BTGLOB,BDFN) ;EP -- Get value for a single patient
  1. NEW DXOK,BQDXN,BQREF
  1. S DXOK=0
  1. S BQDXN=$$GDXN^BQITUTL(DEF)
  1. ;
  1. S BQREF="BQIRY"
  1. D GDF^BQITUTL(BQDXN,BQREF)
  1. Q $$PAT^BQITDGN(BQREF,BTGLOB,BDFN)