- BQIDCREM ;GDIT/HS/ALA-Reminders Panel Definition ; 07 Dec 2012 2:18 PM
- ;;2.5;ICARE MANAGEMENT SYSTEM;**2**;May 24, 2016;Build 14
- ;
- Q
- ;
- EN(DATA,PARMS,MPARMS) ;EP - Find records
- ;
- ;Description
- ; Executable that finds all patients who have a reminder
- ;Input
- ; PARMS = Array of parameters and their values
- ; MPARMS = Multiple array of a parameter
- ;Expected to return FDATA
- ;
- NEW UID,VDATA,DFN,RIEN,PTMFRAME,PVISITS,FUT,OVD,RMDFROM,RMDTHRU
- NEW CAT,TYP,PROV,NOTA,SPEC,QFL,VISIT,VSDTM,RMDRANGE
- S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
- S DATA=$NA(^TMP("BQIDCREM",UID))
- S FDATA=$NA(^TMP("BQIFND",UID))
- S VDATA=$NA(^TMP("BQIVIS",UID))
- S DCRIT=$NA(^TMP("BQICRIT",UID))
- K @DATA,@DCRIT,@VDATA,@FDATA
- ;
- ; Set the parameters into variables
- I '$D(PARMS) Q
- ;
- S NM="" F S NM=$O(PARMS(NM)) Q:NM="" S @NM=PARMS(NM)
- S REMCODE=$G(REMCODE,""),OVD=$G(OVD,""),FUT=$G(FUT,"")
- S PROV=$G(PROV,""),RMDFROM=$G(RMDFROM,""),RMDTHRU=$G(RMDTHRU,"")
- I $G(RMDRANGE)'="" D
- . I $G(PPIEN)'="" D RANGE^BQIDCAH1(RMDRANGE,PPIEN,"RMDRANGE")
- . S RFDT=$S($G(RFROM)'="":RFROM,1:$G(RMDFROM))
- . S REDT=$S($G(RTHRU)'="":RTHRU,1:$G(RMDTHRU))
- I $G(RMDFROM)'="" S RFDT=RMDFROM,REDT=$G(RMDTHRU)
- D PROV
- ;
- I $D(MPARMS("REMCODE")) D Q
- . S REMCODE=""
- . F S REMCODE=$O(MPARMS("REMCODE",REMCODE)) Q:REMCODE="" D SRC
- D SRC
- K @FDATA
- Q
- ;
- SRC ;EP - Search and find
- I $D(@FDATA) S DFN="" D
- . F S DFN=$O(@FDATA@(DFN)) Q:DFN="" D RMF
- Q
- ;
- RMF ;EP - Find reminder
- S RIEN=$O(^BQIPAT(DFN,40,"B",REMCODE,""))
- I RIEN="" Q
- S RDATA=$G(^BQIPAT(DFN,40,RIEN,0)) I RDATA="" Q
- I $P(RDATA,U,3)=""!($P(RDATA,U,3)="N/A") Q
- ;
- I FUT'="" D Q
- . I $P(RDATA,U,3)="DUE NOW" Q
- . ;I $P(RDATA,U,3)="RESOLVED" S @DATA@(DFN)="" Q
- . I $P(RDATA,U,3)="RESOLVED" Q
- . I $P(RDATA,U,3)="DONE" Q
- . I $P(RDATA,U,4)'="" D
- .. I $G(RFDT)'="" D
- ... I $P(RDATA,U,4)<RFDT!($P(RDATA,U,4)>REDT) Q
- ... S @DATA@(DFN)="",@DCRIT@("REM",DFN,REMCODE)=""
- .. I $G(RFDT)="",$P(RDATA,U,4)>DT S @DATA@(DFN)="",@DCRIT@("REM",DFN,REMCODE)="" Q
- ;
- I OVD'="" D Q
- . I $P(RDATA,U,3)="RESOLVED" Q
- . I $P(RDATA,U,3)="DONE" Q
- . I $P(RDATA,U,4)>DT Q
- . S @DATA@(DFN)="",@DCRIT@("REM",DFN,REMCODE)=""
- Q
- ;
- PROV ;EP -
- ;
- NEW TMFRAME,VISITS,FDT,TDT,IEN,RFROM,RTHRU
- I $G(DT)="" D DT^DICRW
- S VISITS=$G(PVISITS,"")
- I $G(PPIEN)'="",$G(PTMFRAME)'="" D RANGE^BQIDCAH1(PTMFRAME,PPIEN,"PTMFRAME")
- S FDT=$S($G(RFROM)'="":RFROM,1:$G(PFROM))
- S TDT=$S($G(RTHRU)'="":RTHRU,1:$G(PTHRU))
- S TDT=DT
- I $G(PROV)'="" D PV Q
- Q
- ;
- ; 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
- PV ;
- S IEN=""
- F S IEN=$O(^AUPNVPRV("B",PROV,IEN),-1) Q:IEN="" D
- . S VISIT=$$GET1^DIQ(9000010.06,IEN_",",.03,"I") I VISIT="" 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
- . ;
- . 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 @FDATA@(DFN)=""
- ;
- K @VDATA
- Q
- BQIDCREM ;GDIT/HS/ALA-Reminders Panel Definition ; 07 Dec 2012 2:18 PM
- +1 ;;2.5;ICARE MANAGEMENT SYSTEM;**2**;May 24, 2016;Build 14
- +2 ;
- +3 QUIT
- +4 ;
- EN(DATA,PARMS,MPARMS) ;EP - Find records
- +1 ;
- +2 ;Description
- +3 ; Executable that finds all patients who have a reminder
- +4 ;Input
- +5 ; PARMS = Array of parameters and their values
- +6 ; MPARMS = Multiple array of a parameter
- +7 ;Expected to return FDATA
- +8 ;
- +9 NEW UID,VDATA,DFN,RIEN,PTMFRAME,PVISITS,FUT,OVD,RMDFROM,RMDTHRU
- +10 NEW CAT,TYP,PROV,NOTA,SPEC,QFL,VISIT,VSDTM,RMDRANGE
- +11 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
- +12 SET DATA=$NAME(^TMP("BQIDCREM",UID))
- +13 SET FDATA=$NAME(^TMP("BQIFND",UID))
- +14 SET VDATA=$NAME(^TMP("BQIVIS",UID))
- +15 SET DCRIT=$NAME(^TMP("BQICRIT",UID))
- +16 KILL @DATA,@DCRIT,@VDATA,@FDATA
- +17 ;
- +18 ; Set the parameters into variables
- +19 IF '$DATA(PARMS)
- QUIT
- +20 ;
- +21 SET NM=""
- FOR
- SET NM=$ORDER(PARMS(NM))
- IF NM=""
- QUIT
- SET @NM=PARMS(NM)
- +22 SET REMCODE=$GET(REMCODE,"")
- SET OVD=$GET(OVD,"")
- SET FUT=$GET(FUT,"")
- +23 SET PROV=$GET(PROV,"")
- SET RMDFROM=$GET(RMDFROM,"")
- SET RMDTHRU=$GET(RMDTHRU,"")
- +24 IF $GET(RMDRANGE)'=""
- Begin DoDot:1
- +25 IF $GET(PPIEN)'=""
- DO RANGE^BQIDCAH1(RMDRANGE,PPIEN,"RMDRANGE")
- +26 SET RFDT=$SELECT($GET(RFROM)'="":RFROM,1:$GET(RMDFROM))
- +27 SET REDT=$SELECT($GET(RTHRU)'="":RTHRU,1:$GET(RMDTHRU))
- End DoDot:1
- +28 IF $GET(RMDFROM)'=""
- SET RFDT=RMDFROM
- SET REDT=$GET(RMDTHRU)
- +29 DO PROV
- +30 ;
- +31 IF $DATA(MPARMS("REMCODE"))
- Begin DoDot:1
- +32 SET REMCODE=""
- +33 FOR
- SET REMCODE=$ORDER(MPARMS("REMCODE",REMCODE))
- IF REMCODE=""
- QUIT
- DO SRC
- End DoDot:1
- QUIT
- +34 DO SRC
- +35 KILL @FDATA
- +36 QUIT
- +37 ;
- SRC ;EP - Search and find
- +1 IF $DATA(@FDATA)
- SET DFN=""
- Begin DoDot:1
- +2 FOR
- SET DFN=$ORDER(@FDATA@(DFN))
- IF DFN=""
- QUIT
- DO RMF
- End DoDot:1
- +3 QUIT
- +4 ;
- RMF ;EP - Find reminder
- +1 SET RIEN=$ORDER(^BQIPAT(DFN,40,"B",REMCODE,""))
- +2 IF RIEN=""
- QUIT
- +3 SET RDATA=$GET(^BQIPAT(DFN,40,RIEN,0))
- IF RDATA=""
- QUIT
- +4 IF $PIECE(RDATA,U,3)=""!($PIECE(RDATA,U,3)="N/A")
- QUIT
- +5 ;
- +6 IF FUT'=""
- Begin DoDot:1
- +7 IF $PIECE(RDATA,U,3)="DUE NOW"
- QUIT
- +8 ;I $P(RDATA,U,3)="RESOLVED" S @DATA@(DFN)="" Q
- +9 IF $PIECE(RDATA,U,3)="RESOLVED"
- QUIT
- +10 IF $PIECE(RDATA,U,3)="DONE"
- QUIT
- +11 IF $PIECE(RDATA,U,4)'=""
- Begin DoDot:2
- +12 IF $GET(RFDT)'=""
- Begin DoDot:3
- +13 IF $PIECE(RDATA,U,4)<RFDT!($PIECE(RDATA,U,4)>REDT)
- QUIT
- +14 SET @DATA@(DFN)=""
- SET @DCRIT@("REM",DFN,REMCODE)=""
- End DoDot:3
- +15 IF $GET(RFDT)=""
- IF $PIECE(RDATA,U,4)>DT
- SET @DATA@(DFN)=""
- SET @DCRIT@("REM",DFN,REMCODE)=""
- QUIT
- End DoDot:2
- End DoDot:1
- QUIT
- +16 ;
- +17 IF OVD'=""
- Begin DoDot:1
- +18 IF $PIECE(RDATA,U,3)="RESOLVED"
- QUIT
- +19 IF $PIECE(RDATA,U,3)="DONE"
- QUIT
- +20 IF $PIECE(RDATA,U,4)>DT
- QUIT
- +21 SET @DATA@(DFN)=""
- SET @DCRIT@("REM",DFN,REMCODE)=""
- End DoDot:1
- QUIT
- +22 QUIT
- +23 ;
- PROV ;EP -
- +1 ;
- +2 NEW TMFRAME,VISITS,FDT,TDT,IEN,RFROM,RTHRU
- +3 IF $GET(DT)=""
- DO DT^DICRW
- +4 SET VISITS=$GET(PVISITS,"")
- +5 IF $GET(PPIEN)'=""
- IF $GET(PTMFRAME)'=""
- DO RANGE^BQIDCAH1(PTMFRAME,PPIEN,"PTMFRAME")
- +6 SET FDT=$SELECT($GET(RFROM)'="":RFROM,1:$GET(PFROM))
- +7 SET TDT=$SELECT($GET(RTHRU)'="":RTHRU,1:$GET(PTHRU))
- +8 SET TDT=DT
- +9 IF $GET(PROV)'=""
- DO PV
- QUIT
- +10 QUIT
- +11 ;
- +12 ; Go through the V PROVIDER File for the designated provider and
- +13 ; find out if they are a primary or secondary provider AND if the
- +14 ; visit falls within the time frame
- PV ;
- +1 SET IEN=""
- +2 FOR
- SET IEN=$ORDER(^AUPNVPRV("B",PROV,IEN),-1)
- IF IEN=""
- QUIT
- Begin DoDot:1
- +3 SET VISIT=$$GET1^DIQ(9000010.06,IEN_",",.03,"I")
- IF VISIT=""
- QUIT
- +4 SET VSDTM=$$GET1^DIQ(9000010,VISIT_",",.01,"I")\1
- IF VSDTM=0
- QUIT
- +5 SET DFN=$$GET1^DIQ(9000010.06,IEN_",",.02,"I")
- IF DFN=""
- QUIT
- +6 ;
- +7 IF FDT'=""
- SET QFL=0
- Begin DoDot:2
- +8 IF VSDTM'<FDT
- IF VSDTM'>TDT
- QUIT
- +9 SET QFL=1
- End DoDot:2
- IF QFL
- QUIT
- +10 ; Count number of visits for a patient
- +11 SET @VDATA@(DFN)=$GET(@VDATA@(DFN))+1
- End DoDot:1
- +12 ;
- +13 SET DFN=""
- +14 FOR
- SET DFN=$ORDER(@VDATA@(DFN))
- IF DFN=""
- QUIT
- Begin DoDot:1
- +15 ; if the number of visits for patient doesn't match the criteria, quit
- +16 ;Changed from '= to <
- IF @VDATA@(DFN)<VISITS
- QUIT
- +17 SET @FDATA@(DFN)=""
- End DoDot:1
- +18 ;
- +19 KILL @VDATA
- +20 QUIT
