- BQIDCAPC ;GDIT/HS/ALA-Scheduled Visits by Clinic Stop ; 21 Nov 2005 6:04 PM
- ;;2.3;ICARE MANAGEMENT SYSTEM;**3,4**;Apr 18, 2012;Build 66
- ;
- Q
- ;
- APT(DATA,PARMS,MPARMS) ;EP
- ;
- ;Description
- ; Executable to retrieve patients which have appointments in a hospital location that
- ; is associated with a clinical stop code.
- ;Input
- ; PARMS = Array of parameters and their values
- ; MPARMS = Multiple array of a parameter
- ;Expected to return DATA
- ;Parameters
- ; CLIN = Clinic Stop Code parameter
- ; LOC = Hosp Location internal entry number associated with CLIN
- ; FDT = Starting date for the FROM date parameter
- ; EDT = Ending date for the THRU date parameter
- ; DFN = Patient internal entry number
- ; APSTAT = Appointment status
- ;
- NEW II,UID
- S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
- S DATA=$NA(^TMP("BQIDCAPC",UID))
- K @DATA
- S II=0
- ;
- FND ; Find the patients with appts for one or more clinic stop codes
- NEW CLIN,FROM,THRU,LOC,NM,N,FRDT,ENDT,LABEL,APST,STOP,FDT,EDT,DFN,LABEL
- NEW STR,SLOC,STAT,APSTAT,APTYPE,APRANGE,RFROM,RTHRU
- S NM=""
- F S NM=$O(PARMS(NM)) Q:NM="" S @NM=PARMS(NM)
- I $G(APTYPE)'="" D
- . NEW MIEN,MAPS
- . S MIEN=$O(^BQI(90506,10,3,8,3,"B",APTYPE,"")) I MIEN="" Q
- . S MAPS=$P(^BQI(90506,10,3,8,3,MIEN,0),U,2)
- . F N=1:1:$L(MAPS,"~") S NM=$P($P(MAPS,"~",N),"=",1),MPARMS(NM,$P($P(MAPS,"~",N),"=",2))=""
- ;
- I $D(MPARMS("APTYPE"))>0 D
- . NEW MPM,MIEN,MAPS
- . S MPM=""
- . F S MPM=$O(MPARMS("APTYPE",MPM)) Q:MPM="" D
- .. S MIEN=$O(^BQI(90506,10,3,8,3,"B",MPM,"")) I MIEN="" Q
- .. S MAPS=$P(^BQI(90506,10,3,8,3,MIEN,0),U,2)
- .. F N=1:1:$L(MAPS,"~") S NM=$P($P(MAPS,"~",N),"=",1),MPARMS(NM,$P($P(MAPS,"~",N),"=",2))=""
- ;
- S LABEL="FND1" D
- . I $G(APSTAT)'="",APSTAT'="AC",APSTAT["C" S LABEL="FNDALL" Q
- . I $D(MPARMS("APSTAT")) D Q
- .. S APST="",STOP=""
- .. F S APST=$O(MPARMS("APSTAT",APST)) Q:APST="" D Q:STOP
- ... I APST'="AC",APST["C" S LABEL="FNDALL",STOP=1 Q
- I LABEL="FNDALL" D FNDALL Q
- I $G(CLIN)]"" D FND1
- I $D(MPARMS("CLIN")) S CLIN="" F S CLIN=$O(MPARMS("CLIN",CLIN)) Q:CLIN="" D FND1
- Q
- ;
- FND1 ; Check one clinic stop code
- ; If timeframe is selected populate start and end dates
- I $G(APRANGE)'="",$G(PPIEN)'="" D RANGE^BQIDCAH1(APRANGE,PPIEN,"APRANGE")
- S LOC=""
- F S LOC=$O(^SC("ASTOP",CLIN,LOC)) Q:LOC="" D
- . S FDT=$S($G(RFROM)'="":RFROM,1:$G(FROM))
- . S EDT=$S($G(RTHRU)'="":RTHRU,1:$G(THRU))
- . NEW APCHK
- . F S FDT=$O(^SC(LOC,"S",FDT)) Q:FDT=""!(FDT\1>EDT) D
- .. S N=0
- .. F S N=$O(^SC(LOC,"S",FDT,1,N)) Q:'N D
- ... NEW DA,IENS
- ... S DA(2)=LOC,DA(1)=FDT,DA=N,IENS=$$IENS^DILF(.DA)
- ... S DFN=$$GET1^DIQ(44.003,IENS,.01,"I") I DFN="" Q
- ... ; User may now select Living, Deceased or both as a filter so
- ... ; if no filters defined assume living patients otherwise let filter decide
- ... ;I $O(^BQICARE(OWNR,1,PLIEN,15,0))="",$P($G(^DPT(DFN,.35)),U,1)'="" Q
- ... I '$$HRN^BQIUL1(DFN) Q
- ... ; If patient has no visit in last 3 years, quit
- ... ;I '$$VTHR^BQIUL1(DFN) Q
- ... I $G(APSTAT)'="" D Q
- .... I $G(APSTAT)="AC" S APCHK=""
- .... I $G(APSTAT)'="AC" S APCHK=APSTAT
- .... I $P($G(^DPT(DFN,"S",FDT,0)),U,2)'=APCHK Q
- .... S @DATA@(DFN)=""
- ... I $D(MPARMS("APSTAT")) D Q
- .... S APST=""
- .... F S APST=$O(MPARMS("APSTAT",APST)) Q:APST="" D
- ..... I $G(APST)="AC" S APCHK=""
- ..... I $G(APST)'="AC" S APCHK=APST
- ..... I $P($G(^DPT(DFN,"S",FDT,0)),U,2)'=APCHK Q
- ..... S @DATA@(DFN)=""
- ... ;S @DATA@(DFN)=""
- Q
- ;
- FNDALL ; Loop through all patients since cancelled status selected
- ; If timeframe is selected populate start and end dates
- NEW FRDT,ENDT
- I $G(APRANGE)'="",$G(PPIEN)'="" D RANGE^BQIDCAH1(APRANGE,PPIEN,"APRANGE")
- S FRDT=$S($G(RFROM)'="":RFROM,1:$G(FROM))
- S ENDT=$S($G(RTHRU)'="":RTHRU,1:$G(THRU))
- I $G(CLIN)]"" D
- .S LOC=""
- .F S LOC=$O(^SC("ASTOP",CLIN,LOC)) Q:LOC="" S LOC(LOC)=""
- I $D(MPARMS("CLIN")) D
- . S CLIN=""
- . F S CLIN=$O(MPARMS("CLIN",CLIN)) Q:CLIN="" D
- .. S LOC=""
- .. F S LOC=$O(^SC("ASTOP",CLIN,LOC)) Q:LOC="" S LOC(LOC)=""
- NEW APCHK
- S DFN=0
- F S DFN=$O(^DPT(DFN)) Q:'DFN D
- . ; *disabled* since user may now select Living, Deceased or both as a filter
- . ;I $P($G(^DPT(DFN,.35)),U,1)'="" Q
- . I '$$HRN^BQIUL1(DFN) Q
- . ; If patient has no visit in last 3 years, quit
- . ;I '$$VTHR^BQIUL1(DFN) Q
- . S FDT=FRDT,EDT=ENDT
- . F S FDT=$O(^DPT(DFN,"S",FDT)) Q:'FDT!(FDT\1>EDT) D
- .. S STR=$G(^DPT(DFN,"S",FDT,0)) I STR="" Q
- .. S SLOC=$P(STR,U),STAT=$P(STR,U,2) I SLOC="" Q
- .. I '$D(LOC(SLOC)) Q
- .. I $D(APSTAT) D Q
- ... I APSTAT="AC",STAT'="" Q
- ... I STAT'=APSTAT Q
- ... S @DATA@(DFN)=""
- .. I $D(MPARMS("APSTAT")) D Q
- ... I STAT'="",'$D(MPARMS("APSTAT",STAT)) Q
- ... I STAT="",'$D(MPARMS("APSTAT","AC")) Q
- ... S @DATA@(DFN)=""
- .. S @DATA@(DFN)=""
- Q
- BQIDCAPC ;GDIT/HS/ALA-Scheduled Visits by Clinic Stop ; 21 Nov 2005 6:04 PM
- +1 ;;2.3;ICARE MANAGEMENT SYSTEM;**3,4**;Apr 18, 2012;Build 66
- +2 ;
- +3 QUIT
- +4 ;
- APT(DATA,PARMS,MPARMS) ;EP
- +1 ;
- +2 ;Description
- +3 ; Executable to retrieve patients which have appointments in a hospital location that
- +4 ; is associated with a clinical stop code.
- +5 ;Input
- +6 ; PARMS = Array of parameters and their values
- +7 ; MPARMS = Multiple array of a parameter
- +8 ;Expected to return DATA
- +9 ;Parameters
- +10 ; CLIN = Clinic Stop Code parameter
- +11 ; LOC = Hosp Location internal entry number associated with CLIN
- +12 ; FDT = Starting date for the FROM date parameter
- +13 ; EDT = Ending date for the THRU date parameter
- +14 ; DFN = Patient internal entry number
- +15 ; APSTAT = Appointment status
- +16 ;
- +17 NEW II,UID
- +18 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
- +19 SET DATA=$NAME(^TMP("BQIDCAPC",UID))
- +20 KILL @DATA
- +21 SET II=0
- +22 ;
- FND ; Find the patients with appts for one or more clinic stop codes
- +1 NEW CLIN,FROM,THRU,LOC,NM,N,FRDT,ENDT,LABEL,APST,STOP,FDT,EDT,DFN,LABEL
- +2 NEW STR,SLOC,STAT,APSTAT,APTYPE,APRANGE,RFROM,RTHRU
- +3 SET NM=""
- +4 FOR
- SET NM=$ORDER(PARMS(NM))
- IF NM=""
- QUIT
- SET @NM=PARMS(NM)
- +5 IF $GET(APTYPE)'=""
- Begin DoDot:1
- +6 NEW MIEN,MAPS
- +7 SET MIEN=$ORDER(^BQI(90506,10,3,8,3,"B",APTYPE,""))
- IF MIEN=""
- QUIT
- +8 SET MAPS=$PIECE(^BQI(90506,10,3,8,3,MIEN,0),U,2)
- +9 FOR N=1:1:$LENGTH(MAPS,"~")
- SET NM=$PIECE($PIECE(MAPS,"~",N),"=",1)
- SET MPARMS(NM,$PIECE($PIECE(MAPS,"~",N),"=",2))=""
- End DoDot:1
- +10 ;
- +11 IF $DATA(MPARMS("APTYPE"))>0
- Begin DoDot:1
- +12 NEW MPM,MIEN,MAPS
- +13 SET MPM=""
- +14 FOR
- SET MPM=$ORDER(MPARMS("APTYPE",MPM))
- IF MPM=""
- QUIT
- Begin DoDot:2
- +15 SET MIEN=$ORDER(^BQI(90506,10,3,8,3,"B",MPM,""))
- IF MIEN=""
- QUIT
- +16 SET MAPS=$PIECE(^BQI(90506,10,3,8,3,MIEN,0),U,2)
- +17 FOR N=1:1:$LENGTH(MAPS,"~")
- SET NM=$PIECE($PIECE(MAPS,"~",N),"=",1)
- SET MPARMS(NM,$PIECE($PIECE(MAPS,"~",N),"=",2))=""
- End DoDot:2
- End DoDot:1
- +18 ;
- +19 SET LABEL="FND1"
- Begin DoDot:1
- +20 IF $GET(APSTAT)'=""
- IF APSTAT'="AC"
- IF APSTAT["C"
- SET LABEL="FNDALL"
- QUIT
- +21 IF $DATA(MPARMS("APSTAT"))
- Begin DoDot:2
- +22 SET APST=""
- SET STOP=""
- +23 FOR
- SET APST=$ORDER(MPARMS("APSTAT",APST))
- IF APST=""
- QUIT
- Begin DoDot:3
- +24 IF APST'="AC"
- IF APST["C"
- SET LABEL="FNDALL"
- SET STOP=1
- QUIT
- End DoDot:3
- IF STOP
- QUIT
- End DoDot:2
- QUIT
- End DoDot:1
- +25 IF LABEL="FNDALL"
- DO FNDALL
- QUIT
- +26 IF $GET(CLIN)]""
- DO FND1
- +27 IF $DATA(MPARMS("CLIN"))
- SET CLIN=""
- FOR
- SET CLIN=$ORDER(MPARMS("CLIN",CLIN))
- IF CLIN=""
- QUIT
- DO FND1
- +28 QUIT
- +29 ;
- FND1 ; Check one clinic stop code
- +1 ; If timeframe is selected populate start and end dates
- +2 IF $GET(APRANGE)'=""
- IF $GET(PPIEN)'=""
- DO RANGE^BQIDCAH1(APRANGE,PPIEN,"APRANGE")
- +3 SET LOC=""
- +4 FOR
- SET LOC=$ORDER(^SC("ASTOP",CLIN,LOC))
- IF LOC=""
- QUIT
- Begin DoDot:1
- +5 SET FDT=$SELECT($GET(RFROM)'="":RFROM,1:$GET(FROM))
- +6 SET EDT=$SELECT($GET(RTHRU)'="":RTHRU,1:$GET(THRU))
- +7 NEW APCHK
- +8 FOR
- SET FDT=$ORDER(^SC(LOC,"S",FDT))
- IF FDT=""!(FDT\1>EDT)
- QUIT
- Begin DoDot:2
- +9 SET N=0
- +10 FOR
- SET N=$ORDER(^SC(LOC,"S",FDT,1,N))
- IF 'N
- QUIT
- Begin DoDot:3
- +11 NEW DA,IENS
- +12 SET DA(2)=LOC
- SET DA(1)=FDT
- SET DA=N
- SET IENS=$$IENS^DILF(.DA)
- +13 SET DFN=$$GET1^DIQ(44.003,IENS,.01,"I")
- IF DFN=""
- QUIT
- +14 ; User may now select Living, Deceased or both as a filter so
- +15 ; if no filters defined assume living patients otherwise let filter decide
- +16 ;I $O(^BQICARE(OWNR,1,PLIEN,15,0))="",$P($G(^DPT(DFN,.35)),U,1)'="" Q
- +17 IF '$$HRN^BQIUL1(DFN)
- QUIT
- +18 ; If patient has no visit in last 3 years, quit
- +19 ;I '$$VTHR^BQIUL1(DFN) Q
- +20 IF $GET(APSTAT)'=""
- Begin DoDot:4
- +21 IF $GET(APSTAT)="AC"
- SET APCHK=""
- +22 IF $GET(APSTAT)'="AC"
- SET APCHK=APSTAT
- +23 IF $PIECE($GET(^DPT(DFN,"S",FDT,0)),U,2)'=APCHK
- QUIT
- +24 SET @DATA@(DFN)=""
- End DoDot:4
- QUIT
- +25 IF $DATA(MPARMS("APSTAT"))
- Begin DoDot:4
- +26 SET APST=""
- +27 FOR
- SET APST=$ORDER(MPARMS("APSTAT",APST))
- IF APST=""
- QUIT
- Begin DoDot:5
- +28 IF $GET(APST)="AC"
- SET APCHK=""
- +29 IF $GET(APST)'="AC"
- SET APCHK=APST
- +30 IF $PIECE($GET(^DPT(DFN,"S",FDT,0)),U,2)'=APCHK
- QUIT
- +31 SET @DATA@(DFN)=""
- End DoDot:5
- End DoDot:4
- QUIT
- +32 ;S @DATA@(DFN)=""
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +33 QUIT
- +34 ;
- FNDALL ; Loop through all patients since cancelled status selected
- +1 ; If timeframe is selected populate start and end dates
- +2 NEW FRDT,ENDT
- +3 IF $GET(APRANGE)'=""
- IF $GET(PPIEN)'=""
- DO RANGE^BQIDCAH1(APRANGE,PPIEN,"APRANGE")
- +4 SET FRDT=$SELECT($GET(RFROM)'="":RFROM,1:$GET(FROM))
- +5 SET ENDT=$SELECT($GET(RTHRU)'="":RTHRU,1:$GET(THRU))
- +6 IF $GET(CLIN)]""
- Begin DoDot:1
- +7 SET LOC=""
- +8 FOR
- SET LOC=$ORDER(^SC("ASTOP",CLIN,LOC))
- IF LOC=""
- QUIT
- SET LOC(LOC)=""
- End DoDot:1
- +9 IF $DATA(MPARMS("CLIN"))
- Begin DoDot:1
- +10 SET CLIN=""
- +11 FOR
- SET CLIN=$ORDER(MPARMS("CLIN",CLIN))
- IF CLIN=""
- QUIT
- Begin DoDot:2
- +12 SET LOC=""
- +13 FOR
- SET LOC=$ORDER(^SC("ASTOP",CLIN,LOC))
- IF LOC=""
- QUIT
- SET LOC(LOC)=""
- End DoDot:2
- End DoDot:1
- +14 NEW APCHK
- +15 SET DFN=0
- +16 FOR
- SET DFN=$ORDER(^DPT(DFN))
- IF 'DFN
- QUIT
- Begin DoDot:1
- +17 ; *disabled* since user may now select Living, Deceased or both as a filter
- +18 ;I $P($G(^DPT(DFN,.35)),U,1)'="" Q
- +19 IF '$$HRN^BQIUL1(DFN)
- QUIT
- +20 ; If patient has no visit in last 3 years, quit
- +21 ;I '$$VTHR^BQIUL1(DFN) Q
- +22 SET FDT=FRDT
- SET EDT=ENDT
- +23 FOR
- SET FDT=$ORDER(^DPT(DFN,"S",FDT))
- IF 'FDT!(FDT\1>EDT)
- QUIT
- Begin DoDot:2
- +24 SET STR=$GET(^DPT(DFN,"S",FDT,0))
- IF STR=""
- QUIT
- +25 SET SLOC=$PIECE(STR,U)
- SET STAT=$PIECE(STR,U,2)
- IF SLOC=""
- QUIT
- +26 IF '$DATA(LOC(SLOC))
- QUIT
- +27 IF $DATA(APSTAT)
- Begin DoDot:3
- +28 IF APSTAT="AC"
- IF STAT'=""
- QUIT
- +29 IF STAT'=APSTAT
- QUIT
- +30 SET @DATA@(DFN)=""
- End DoDot:3
- QUIT
- +31 IF $DATA(MPARMS("APSTAT"))
- Begin DoDot:3
- +32 IF STAT'=""
- IF '$DATA(MPARMS("APSTAT",STAT))
- QUIT
- +33 IF STAT=""
- IF '$DATA(MPARMS("APSTAT","AC"))
- QUIT
- +34 SET @DATA@(DFN)=""
- End DoDot:3
- QUIT
- +35 SET @DATA@(DFN)=""
- End DoDot:2
- End DoDot:1
- +36 QUIT
