Routine: BQITD28

BQITD28 ;GDHD/HCS/ALA-Glaucoma ; 17 Oct 2016  12:31 PM

 ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72

POP(BQARY,TGLOB) ; EP

 ;Description

 ;  Finds all patients who meet the criteria for Glaucoma diagnosis'

 ;Input

 ;  BQARY - Array of taxonomies and other information

 ;  TGLOB - Global where data is to be stored

 ;          Structure:

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

 I $D(@BQARY) D

 . D POP^BQITDGN(BQARY,TGLOB)

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

PAT(DEF,BTGLOB,BDFN) ;EP -- Get value for a single patient

 NEW DXOK,BQDXN,BQREF

 S DXOK=0

 S BQDXN=$$GDXN^BQITUTL(DEF)

 S BQREF="BQIRY"

 D GDF^BQITUTL(BQDXN,BQREF)

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

BQITD28   ;GDHD/HCS/ALA-Glaucoma ; 17 Oct 2016  12:31 PM

 +1       ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72

 +2       ;

 +3        QUIT

 +4       ;

POP(BQARY,TGLOB) ; EP

 +1       ;

 +2       ;Description

 +3       ;  Finds all patients who meet the criteria for Glaucoma diagnosis'

 +4       ;Input

 +5       ;  BQARY - Array of taxonomies and other information

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

 +7       ;          Structure:

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

 +9       ;

 +10       IF $DATA(@BQARY)

               Begin DoDot:1

 +11               DO POP^BQITDGN(BQARY,TGLOB)

               End DoDot:1

 +12      ;

 +13      ; Finish with all the logic and have a list of patients to file

 +14       QUIT

 +15      ;

PAT(DEF,BTGLOB,BDFN) ;EP -- Get value for a single patient

 +1        NEW DXOK,BQDXN,BQREF

 +2        SET DXOK=0

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

 +4       ;

 +5        SET BQREF="BQIRY"

 +6        DO GDF^BQITUTL(BQDXN,BQREF)

 +7        QUIT $$PAT^BQITDGN(BQREF,BTGLOB,BDFN)

BQITD28.m