- BQITD01 ;PRXM/GIS/DLS-Asthma ; 28 Mar 2006 9:17 PM
- ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
- Q
- ;
- POP(BQARY,TGLOB) ; EP
- ;
- ;Description
- ; Finds all patients who meet the criteria for Asthma 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
- Q
- ;
- 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)
- BQITD01 ;PRXM/GIS/DLS-Asthma ; 28 Mar 2006 9:17 PM
- +1 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
- +2 QUIT
- +3 ;
- POP(BQARY,TGLOB) ; EP
- +1 ;
- +2 ;Description
- +3 ; Finds all patients who meet the criteria for Asthma 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)