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

BQITD12.m

Go to the documentation of this file. 
  1. BQITD12 ;PRXM/HC/ALA-Tobacco Users (Smokers) ; 02 Mar 2006  1:17 PM
  1.  ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
  1.  Q
  1.  ;
  1. POP(BQARY,TGLOB) ; EP -- By population
  1.  ;
  1.  ;Description
  1.  ;  Finds all patients who meet the criteria for Tobacco Users
  1.  ;Input
  1.  ;  BQARY - Array of taxonomies and other information
  1.  ;  TGLOB - Global where data is to be stored and passed back
  1.  ;          to calling routine
  1.  ;          Structure:
  1.  ;          TGLOB(DFN,"CRITERIA",criteria or taxonomy,visit or problem ien)=date/time
  1.  ;Variables
  1.  ;  TAX - Taxonomy name
  1.  ;  NIT - Number of iterations
  1.  ;  TMFRAME - Time frame of check
  1.  ;  FREF - File Number reference
  1.  ;  PLFLG - Problem File flag
  1.  ;  GREF - Global reference
  1.  ;  TREF - Taxonomy temp reference
  1.  ;
  1.  ;  Clean up all current entries
  1.  NEW DXNN,TDFN,DA,DIK,RGIEN
  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 from TGLOB
  1.  Q
  1.  ;
  1. PAT(DEF,TGLOB,BDFN) ; EP -- By patient
  1.  ; Called by BQITREDU to determine if patient is smoker
  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,TGLOB,BDFN)