- BQIDCMPR ;PRXM/HC/ALA-"MY PATIENTS-PRIMARY or PRIMARY/SECONDARY" ; 20 Oct 2005 9:52 AM
- ;;2.3;ICARE MANAGEMENT SYSTEM;**3,4**;Apr 18, 2012;Build 66
- ;
- Q
- ;
- FND(DATA,PARMS,MPARMS,FLAG) ;EP - Find patients
- ;
- ;Description
- ; Executable to find the patients for a specific provider where the patient
- ; had NVIS number of visits for the specified time frame
- ;Input
- ; PARMS = Array of parameters and their values
- ; MPARMS = Multiple array of a parameter (not currently used for this definition)
- ; FLAG = "P" is primary only, blank is both primary and secondary
- ;Expected to return DATA
- ;
- NEW IEN,DFN,FDT,TDT,VISIT,VSDTM,Y,X,UID,NM,TMFRAME,PROV
- NEW VISITS,QFL,%DT,VDATA,TMN
- S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
- S DATA=$NA(^TMP("BQIDCMPR",UID))
- S VDATA=$NA(^TMP("BQIFND",UID))
- K @DATA,@VDATA
- ;
- I '$D(PARMS) Q
- ;
- S NM=""
- F S NM=$O(PARMS(NM)) Q:NM="" S @NM=PARMS(NM)
- ;
- I $G(DT)="" D DT^DICRW
- ;
- S TMN=$O(^BQI(90506.9,"B",TMFRAME,""))
- I TMN="" S FDT="",TDT=""
- ;
- S FDT=$P(^BQI(90506.9,TMN,0),U,3),TDT=$P(^BQI(90506.9,TMN,0),U,4)
- S FDT=$$DATE^BQIUL1(FDT),TDT=$$DATE^BQIUL1(TDT)
- ;
- ; Go through the V PROVIDER File for the designated provider and
- ; find out if they are a primary or secondary provider AND if the
- ; visit falls within the time frame
- S IEN="",FLAG=$G(FLAG,"")
- F S IEN=$O(^AUPNVPRV("B",PROV,IEN),-1) Q:IEN="" D
- . I FLAG="P",$$GET1^DIQ(9000010.06,IEN_",",.04,"I")'="P" Q
- . S VISIT=$$GET1^DIQ(9000010.06,IEN_",",.03,"I") I VISIT="" Q
- . I $$GET1^DIQ(9000010,VISIT_",",.11,"I")=1 Q
- . S VSDTM=$$GET1^DIQ(9000010,VISIT_",",.01,"I")\1 I VSDTM=0 Q
- . S DFN=$$GET1^DIQ(9000010.06,IEN_",",.02,"I") I DFN="" Q
- . ; If patient is deceased, quit
- . I $P($G(^DPT(DFN,.35)),U,1)'="" Q
- . ; If patient has no active HRNs, quit
- . I '$$HRN^BQIUL1(DFN) Q
- . ; If patient has no visit in last 3 years, quit
- . ;I '$$VTHR^BQIUL1(DFN) Q
- . ;
- . I FDT'="" S QFL=0 D Q:QFL
- .. I VSDTM'<FDT,VSDTM'>TDT Q
- .. S QFL=1
- . ; Count number of visits for a patient
- . S @VDATA@(DFN)=$G(@VDATA@(DFN))+1
- ;
- S DFN=""
- F S DFN=$O(@VDATA@(DFN)) Q:DFN="" D
- . ; if the number of visits for patient doesn't match the criteria, quit
- . I @VDATA@(DFN)<VISITS Q ;Changed from '= to <
- . S @DATA@(DFN)=""
- ;
- K @VDATA
- Q
- BQIDCMPR ;PRXM/HC/ALA-"MY PATIENTS-PRIMARY or PRIMARY/SECONDARY" ; 20 Oct 2005 9:52 AM
- +1 ;;2.3;ICARE MANAGEMENT SYSTEM;**3,4**;Apr 18, 2012;Build 66
- +2 ;
- +3 QUIT
- +4 ;
- FND(DATA,PARMS,MPARMS,FLAG) ;EP - Find patients
- +1 ;
- +2 ;Description
- +3 ; Executable to find the patients for a specific provider where the patient
- +4 ; had NVIS number of visits for the specified time frame
- +5 ;Input
- +6 ; PARMS = Array of parameters and their values
- +7 ; MPARMS = Multiple array of a parameter (not currently used for this definition)
- +8 ; FLAG = "P" is primary only, blank is both primary and secondary
- +9 ;Expected to return DATA
- +10 ;
- +11 NEW IEN,DFN,FDT,TDT,VISIT,VSDTM,Y,X,UID,NM,TMFRAME,PROV
- +12 NEW VISITS,QFL,%DT,VDATA,TMN
- +13 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
- +14 SET DATA=$NAME(^TMP("BQIDCMPR",UID))
- +15 SET VDATA=$NAME(^TMP("BQIFND",UID))
- +16 KILL @DATA,@VDATA
- +17 ;
- +18 IF '$DATA(PARMS)
- QUIT
- +19 ;
- +20 SET NM=""
- +21 FOR
- SET NM=$ORDER(PARMS(NM))
- IF NM=""
- QUIT
- SET @NM=PARMS(NM)
- +22 ;
- +23 IF $GET(DT)=""
- DO DT^DICRW
- +24 ;
- +25 SET TMN=$ORDER(^BQI(90506.9,"B",TMFRAME,""))
- +26 IF TMN=""
- SET FDT=""
- SET TDT=""
- +27 ;
- +28 SET FDT=$PIECE(^BQI(90506.9,TMN,0),U,3)
- SET TDT=$PIECE(^BQI(90506.9,TMN,0),U,4)
- +29 SET FDT=$$DATE^BQIUL1(FDT)
- SET TDT=$$DATE^BQIUL1(TDT)
- +30 ;
- +31 ; Go through the V PROVIDER File for the designated provider and
- +32 ; find out if they are a primary or secondary provider AND if the
- +33 ; visit falls within the time frame
- +34 SET IEN=""
- SET FLAG=$GET(FLAG,"")
- +35 FOR
- SET IEN=$ORDER(^AUPNVPRV("B",PROV,IEN),-1)
- IF IEN=""
- QUIT
- Begin DoDot:1
- +36 IF FLAG="P"
- IF $$GET1^DIQ(9000010.06,IEN_",",.04,"I")'="P"
- QUIT
- +37 SET VISIT=$$GET1^DIQ(9000010.06,IEN_",",.03,"I")
- IF VISIT=""
- QUIT
- +38 IF $$GET1^DIQ(9000010,VISIT_",",.11,"I")=1
- QUIT
- +39 SET VSDTM=$$GET1^DIQ(9000010,VISIT_",",.01,"I")\1
- IF VSDTM=0
- QUIT
- +40 SET DFN=$$GET1^DIQ(9000010.06,IEN_",",.02,"I")
- IF DFN=""
- QUIT
- +41 ; If patient is deceased, quit
- +42 IF $PIECE($GET(^DPT(DFN,.35)),U,1)'=""
- QUIT
- +43 ; If patient has no active HRNs, quit
- +44 IF '$$HRN^BQIUL1(DFN)
- QUIT
- +45 ; If patient has no visit in last 3 years, quit
- +46 ;I '$$VTHR^BQIUL1(DFN) Q
- +47 ;
- +48 IF FDT'=""
- SET QFL=0
- Begin DoDot:2
- +49 IF VSDTM'<FDT
- IF VSDTM'>TDT
- QUIT
- +50 SET QFL=1
- End DoDot:2
- IF QFL
- QUIT
- +51 ; Count number of visits for a patient
- +52 SET @VDATA@(DFN)=$GET(@VDATA@(DFN))+1
- End DoDot:1
- +53 ;
- +54 SET DFN=""
- +55 FOR
- SET DFN=$ORDER(@VDATA@(DFN))
- IF DFN=""
- QUIT
- Begin DoDot:1
- +56 ; if the number of visits for patient doesn't match the criteria, quit
- +57 ;Changed from '= to <
- IF @VDATA@(DFN)<VISITS
- QUIT
- +58 SET @DATA@(DFN)=""
- End DoDot:1
- +59 ;
- +60 KILL @VDATA
- +61 QUIT
