BQITD12.m

BQITD12 ;PRXM/HC/ALA-Tobacco Users (Smokers) ; 02 Mar 2006  1:17 PM

 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 Q

 ;

POP(BQARY,TGLOB) ; EP -- By population

 ;

 ;Description

 ;  Finds all patients who meet the criteria for Tobacco Users

 ;Input

 ;  BQARY - Array of taxonomies and other information

 ;  TGLOB - Global where data is to be stored and passed back

 ;          to calling routine

 ;          Structure:

 ;          TGLOB(DFN,"CRITERIA",criteria or taxonomy,visit or problem ien)=date/time

 ;Variables

 ;  TAX - Taxonomy name

 ;  NIT - Number of iterations

 ;  TMFRAME - Time frame of check

 ;  FREF - File Number reference

 ;  PLFLG - Problem File flag

 ;  GREF - Global reference

 ;  TREF - Taxonomy temp reference

 ;

 ;  Clean up all current entries

 NEW DXNN,TDFN,DA,DIK,RGIEN

 ;

 I $D(@BQARY) D

 . D POP^BQITDGN(.BQARY,.TGLOB)

 ;

 ; Finish with all the logic and have a list of patients to file from TGLOB

 Q

 ;

PAT(DEF,TGLOB,BDFN) ; EP -- By patient

 ; Called by BQITREDU to determine if patient is smoker

 NEW DXOK,BQDXN,BQREF

 S DXOK=0

 S BQDXN=$$GDXN^BQITUTL(DEF)

 ;

 S BQREF="BQIRY"

 D GDF^BQITUTL(BQDXN,BQREF)

 Q $$PAT^BQITDGN(BQREF,TGLOB,BDFN)

BQITD12   ;PRXM/HC/ALA-Tobacco Users (Smokers) ; 02 Mar 2006  1:17 PM

 +1       ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 +2        QUIT 

 +3       ;

POP(BQARY,TGLOB) ; EP -- By population

 +1       ;

 +2       ;Description

 +3       ;  Finds all patients who meet the criteria for Tobacco Users

 +4       ;Input

 +5       ;  BQARY - Array of taxonomies and other information

 +6       ;  TGLOB - Global where data is to be stored and passed back

 +7       ;          to calling routine

 +8       ;          Structure:

 +9       ;          TGLOB(DFN,"CRITERIA",criteria or taxonomy,visit or problem ien)=date/time

 +10      ;Variables

 +11      ;  TAX - Taxonomy name

 +12      ;  NIT - Number of iterations

 +13      ;  TMFRAME - Time frame of check

 +14      ;  FREF - File Number reference

 +15      ;  PLFLG - Problem File flag

 +16      ;  GREF - Global reference

 +17      ;  TREF - Taxonomy temp reference

 +18      ;

 +19      ;  Clean up all current entries

 +20       NEW DXNN,TDFN,DA,DIK,RGIEN

 +21      ;

 +22       IF $DATA(@BQARY)

               Begin DoDot:1

 +23               DO POP^BQITDGN(.BQARY,.TGLOB)

               End DoDot:1

 +24      ;

 +25      ; Finish with all the logic and have a list of patients to file from TGLOB

 +26       QUIT 

 +27      ;

PAT(DEF,TGLOB,BDFN) ; EP -- By patient

 +1       ; Called by BQITREDU to determine if patient is smoker

 +2        NEW DXOK,BQDXN,BQREF

 +3        SET DXOK=0

 +4        SET BQDXN=$$GDXN^BQITUTL(DEF)

 +5       ;

 +6        SET BQREF="BQIRY"

 +7        DO GDF^BQITUTL(BQDXN,BQREF)

 +8        QUIT $$PAT^BQITDGN(BQREF,TGLOB,BDFN)