BQITD15.m

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