- BQITD15 ;GDIT/HS/ALA-CKD Stage 5 ; 27 Jan 2015 3:04 PM
- ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72
- ;
- ;
- POP(BQARY,TGLOB) ; EP -- By population
- ;
- ;Description
- ; Finds all patients who meet the criteria for Chronic Kidney Disease Stage 5
- ;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
- I $D(@BQARY) D
- . D POP^BQITDGN(BQARY,TGLOB)
- ;
- ; Finish with all the logic and have a list of patients to file
- ; If already ESRD, then cannot be at Stage 5
- NEW TDFN,TDXNCN
- S TDFN="",TDXNCN=$$GDXN^BQITUTL("End Stage Renal Disease")
- F S TDFN=$O(@TGLOB@(TDFN)) Q:'TDFN D
- . ; If the patient has been tagged as ESRD
- . I $$ATAG^BQITDUTL(TDFN,TDXNCN) K @TGLOB@(TDFN)
- Q
- ;
- PAT(DEF,BTGLOB,BDFN) ; EP -- By patient
- NEW DXOK,BQDXN,BQREF
- S DXOK=0
- S BQDXN=$$GDXN^BQITUTL(DEF)
- ;
- S BQREF="BQIRY"
- D GDF^BQITUTL(BQDXN,BQREF)
- S DXOK=$$PAT^BQITDGN(BQREF,BTGLOB,BDFN)
- ; if the person has already been identified as End Stage Renal Disease (ESRD)
- F TDXNCN="End Stage Renal Disease" D
- . I $$ATAG^BQITDUTL(BDFN,TDXNCN) S DXOK=0
- Q DXOK
- BQITD15 ;GDIT/HS/ALA-CKD Stage 5 ; 27 Jan 2015 3:04 PM
- +1 ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72
- +2 ;
- +3 ;
- POP(BQARY,TGLOB) ; EP -- By population
- +1 ;
- +2 ;Description
- +3 ; Finds all patients who meet the criteria for Chronic Kidney Disease Stage 5
- +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 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 ; If already ESRD, then cannot be at Stage 5
- +15 NEW TDFN,TDXNCN
- +16 SET TDFN=""
- SET TDXNCN=$$GDXN^BQITUTL("End Stage Renal Disease")
- +17 FOR
- SET TDFN=$ORDER(@TGLOB@(TDFN))
- IF 'TDFN
- QUIT
- Begin DoDot:1
- +18 ; If the patient has been tagged as ESRD
- +19 IF $$ATAG^BQITDUTL(TDFN,TDXNCN)
- KILL @TGLOB@(TDFN)
- End DoDot:1
- +20 QUIT
- +21 ;
- PAT(DEF,BTGLOB,BDFN) ; EP -- By 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 SET DXOK=$$PAT^BQITDGN(BQREF,BTGLOB,BDFN)
- +8 ; if the person has already been identified as End Stage Renal Disease (ESRD)
- +9 FOR TDXNCN="End Stage Renal Disease"
- Begin DoDot:1
- +10 IF $$ATAG^BQITDUTL(BDFN,TDXNCN)
- SET DXOK=0
- End DoDot:1
- +11 QUIT DXOK