BQITD081 ;APTIV/HC/DB-HIV/AIDS Definition (cont) ; 04 Jun 2008 9:01 AM
;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
; Utilities called by BQITD08
;
Q
;
POV(DFN,GLOB,TMREF,DXOK) ; EP - Process HIV/AIDS POV date logic
;
; At least two POVs ever at least 60 days apart
;
; Input
; DFN - patient whose HIV/AIDS POVs are being examined
; GLOB - Global where data is to be stored
; Structure:
; GLOB(DFN,"CRITERIA",criteria or taxonomy,visit ien)=date/time
; TMREF - Global used to temporarily store diagnoses that may meet the
; POV logic and, if so, will be stored in GLOB
; DXOK - If set to '1', patient meets the POV logic for HIV/AIDS - value
; may be returned (if called by PAT subroutine)
; Variables
; NOK - If set to '1', no diagnoses remaining that will meet the date logic
; LDX - Most recent diagnosis that meets the POV criteria
; FDX - Other diagnosis that must be compared to LDX to determine if they
; meet the date logic
N NOK,LDX,FDX,DX
I $G(@TMREF@(DFN))<2 K @TMREF@(DFN) Q
S DXOK=0,NOK=0
F D Q:DXOK!NOK K @TMREF@(DFN,LDX)
. S LDX=$O(@TMREF@(DFN,"A"),-1) I LDX="" S NOK=1 Q
. S FDX=LDX
. F S FDX=$O(@TMREF@(DFN,FDX),-1) Q:FDX="" D Q:DXOK
.. I $$FMDIFF^XLFDT(LDX,FDX,1)>59 S DXOK=1 D
... ; Delete remaining entries from temporary file
... S DX=""
... F S DX=$O(@TMREF@(DFN,DX)) Q:DX="" I DX'=LDX,DX'=FDX K @TMREF@(DFN,DX)
; Update global with criteria
I DXOK D
. M @GLOB@(DFN)=@TMREF@(DFN)
. NEW IEN,FREF,EXDT
. S VSDT="",EXDT=""
. F S VSDT=$O(@TMREF@(DFN,VSDT)) Q:VSDT="" D
.. S TIEN="" F S TIEN=$O(@TMREF@(DFN,VSDT,TIEN)) Q:TIEN="" D
... S VISIT=$P(@TMREF@(DFN,VSDT,TIEN),U,2),VTYP=$P(@TMREF@(DFN,VSDT,TIEN),U,1)
... S IEN=$P(@TMREF@(DFN,VSDT,TIEN),U,4),FREF=$P(@TMREF@(DFN,VSDT,TIEN),U,5)
... S @GLOB@(DFN,"CRITERIA",TAX,VTYP,VISIT,IEN)=VSDT_U_EXDT_U_IEN_U_FREF
Q
;
CDVL(DFN,GLOB,TMREF,DXOK) ; EP - Process CD4/Viral Load date logic
;
; At least two CD4 or Viral Load lab tests in the past two years
; at least 60 days apart
; Note: one CD4 and one Viral Load lab test in the past two years
; at least 60 days apart also meet this criteria
;
; Input
; DFN - patient whose CD4 and Viral Load lab tests are being examined
; GLOB - Global where data is to be stored
; Structure:
; GLOB(DFN,"CRITERIA",criteria or taxonomy,visit ien)=date/time
; TMREF - Global used to temporarily store diagnoses that may meet the
; POV logic and, if so, will be stored in GLOB
; DXOK - If set to '1', patient meets the lab test logic for HIV/AIDS
; - value may be returned (if called by PAT subroutine)
; Variables
; NOK - If set to '1', no lab tests remaining that will meet the date logic
; LDX - Most recent lab test that meets the POV criteria
; FDX - Other lab test that must be compared to LDX to determine if they
; meet the date logic
N NOK,LDX,FDX,DX,ENDT
I $G(@TMREF@(DFN))<2 K @TMREF@(DFN) Q
S ENDT=$$FMADD^XLFDT(DT,-730) ; Can only be within the past 2 years
S DXOK=0,NOK=0
F D Q:DXOK!NOK K @TMREF@(DFN,LDX)
. S LDX=$O(@TMREF@(DFN,"A"),-1) I LDX<ENDT S NOK=1 Q
. S FDX=LDX
. F S FDX=$O(@TMREF@(DFN,FDX),-1) Q:FDX<ENDT D Q:DXOK
.. I $$FMDIFF^XLFDT(LDX,FDX,1)>59 S DXOK=1 D
... ; Delete remaining entries from temporary file
... S DX=""
... F S DX=$O(@TMREF@(DFN,DX)) Q:DX="" I DX'=LDX,DX'=FDX K @TMREF@(DFN,DX)
; Update global with criteria
I DXOK D
. M @GLOB@(DFN)=@TMREF@(DFN)
. NEW IEN,FREF,EXDT
. S VSDT="",EXDT=""
. F S VSDT=$O(@TMREF@(DFN,VSDT)) Q:VSDT="" D
.. S TIEN="" F S TIEN=$O(@TMREF@(DFN,VSDT,TIEN)) Q:TIEN="" D
... S VISIT=$P(@TMREF@(DFN,VSDT,TIEN),U,2),VTYP=$P(@TMREF@(DFN,VSDT,TIEN),U,1)
... S IEN=$P(@TMREF@(DFN,VSDT,TIEN),U,4),FREF=$P(@TMREF@(DFN,VSDT,TIEN),U,5)
... S @GLOB@(DFN,"CRITERIA",TAX,VTYP,VISIT,IEN)=VSDT_U_EXDT_U_IEN_U_FREF
Q
BQITD081 ;APTIV/HC/DB-HIV/AIDS Definition (cont) ; 04 Jun 2008 9:01 AM
+1 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
+2 ; Utilities called by BQITD08
+3 ;
+4 QUIT
+5 ;
POV(DFN,GLOB,TMREF,DXOK) ; EP - Process HIV/AIDS POV date logic
+1 ;
+2 ; At least two POVs ever at least 60 days apart
+3 ;
+4 ; Input
+5 ; DFN - patient whose HIV/AIDS POVs are being examined
+6 ; GLOB - Global where data is to be stored
+7 ; Structure:
+8 ; GLOB(DFN,"CRITERIA",criteria or taxonomy,visit ien)=date/time
+9 ; TMREF - Global used to temporarily store diagnoses that may meet the
+10 ; POV logic and, if so, will be stored in GLOB
+11 ; DXOK - If set to '1', patient meets the POV logic for HIV/AIDS - value
+12 ; may be returned (if called by PAT subroutine)
+13 ; Variables
+14 ; NOK - If set to '1', no diagnoses remaining that will meet the date logic
+15 ; LDX - Most recent diagnosis that meets the POV criteria
+16 ; FDX - Other diagnosis that must be compared to LDX to determine if they
+17 ; meet the date logic
+18 NEW NOK,LDX,FDX,DX
+19 IF $GET(@TMREF@(DFN))<2
KILL @TMREF@(DFN)
QUIT
+20 SET DXOK=0
SET NOK=0
+21 FOR
Begin DoDot:1
+22 SET LDX=$ORDER(@TMREF@(DFN,"A"),-1)
IF LDX=""
SET NOK=1
QUIT
+23 SET FDX=LDX
+24 FOR
SET FDX=$ORDER(@TMREF@(DFN,FDX),-1)
IF FDX=""
QUIT
Begin DoDot:2
+25 IF $$FMDIFF^XLFDT(LDX,FDX,1)>59
SET DXOK=1
Begin DoDot:3
+26 ; Delete remaining entries from temporary file
+27 SET DX=""
+28 FOR
SET DX=$ORDER(@TMREF@(DFN,DX))
IF DX=""
QUIT
IF DX'=LDX
IF DX'=FDX
KILL @TMREF@(DFN,DX)
End DoDot:3
End DoDot:2
IF DXOK
QUIT
End DoDot:1
IF DXOK!NOK
QUIT
KILL @TMREF@(DFN,LDX)
+29 ; Update global with criteria
+30 IF DXOK
Begin DoDot:1
+31 MERGE @GLOB@(DFN)=@TMREF@(DFN)
+32 NEW IEN,FREF,EXDT
+33 SET VSDT=""
SET EXDT=""
+34 FOR
SET VSDT=$ORDER(@TMREF@(DFN,VSDT))
IF VSDT=""
QUIT
Begin DoDot:2
+35 SET TIEN=""
FOR
SET TIEN=$ORDER(@TMREF@(DFN,VSDT,TIEN))
IF TIEN=""
QUIT
Begin DoDot:3
+36 SET VISIT=$PIECE(@TMREF@(DFN,VSDT,TIEN),U,2)
SET VTYP=$PIECE(@TMREF@(DFN,VSDT,TIEN),U,1)
+37 SET IEN=$PIECE(@TMREF@(DFN,VSDT,TIEN),U,4)
SET FREF=$PIECE(@TMREF@(DFN,VSDT,TIEN),U,5)
+38 SET @GLOB@(DFN,"CRITERIA",TAX,VTYP,VISIT,IEN)=VSDT_U_EXDT_U_IEN_U_FREF
End DoDot:3
End DoDot:2
End DoDot:1
+39 QUIT
+40 ;
CDVL(DFN,GLOB,TMREF,DXOK) ; EP - Process CD4/Viral Load date logic
+1 ;
+2 ; At least two CD4 or Viral Load lab tests in the past two years
+3 ; at least 60 days apart
+4 ; Note: one CD4 and one Viral Load lab test in the past two years
+5 ; at least 60 days apart also meet this criteria
+6 ;
+7 ; Input
+8 ; DFN - patient whose CD4 and Viral Load lab tests are being examined
+9 ; GLOB - Global where data is to be stored
+10 ; Structure:
+11 ; GLOB(DFN,"CRITERIA",criteria or taxonomy,visit ien)=date/time
+12 ; TMREF - Global used to temporarily store diagnoses that may meet the
+13 ; POV logic and, if so, will be stored in GLOB
+14 ; DXOK - If set to '1', patient meets the lab test logic for HIV/AIDS
+15 ; - value may be returned (if called by PAT subroutine)
+16 ; Variables
+17 ; NOK - If set to '1', no lab tests remaining that will meet the date logic
+18 ; LDX - Most recent lab test that meets the POV criteria
+19 ; FDX - Other lab test that must be compared to LDX to determine if they
+20 ; meet the date logic
+21 NEW NOK,LDX,FDX,DX,ENDT
+22 IF $GET(@TMREF@(DFN))<2
KILL @TMREF@(DFN)
QUIT
+23 ; Can only be within the past 2 years
SET ENDT=$$FMADD^XLFDT(DT,-730)
+24 SET DXOK=0
SET NOK=0
+25 FOR
Begin DoDot:1
+26 SET LDX=$ORDER(@TMREF@(DFN,"A"),-1)
IF LDX<ENDT
SET NOK=1
QUIT
+27 SET FDX=LDX
+28 FOR
SET FDX=$ORDER(@TMREF@(DFN,FDX),-1)
IF FDX<ENDT
QUIT
Begin DoDot:2
+29 IF $$FMDIFF^XLFDT(LDX,FDX,1)>59
SET DXOK=1
Begin DoDot:3
+30 ; Delete remaining entries from temporary file
+31 SET DX=""
+32 FOR
SET DX=$ORDER(@TMREF@(DFN,DX))
IF DX=""
QUIT
IF DX'=LDX
IF DX'=FDX
KILL @TMREF@(DFN,DX)
End DoDot:3
End DoDot:2
IF DXOK
QUIT
End DoDot:1
IF DXOK!NOK
QUIT
KILL @TMREF@(DFN,LDX)
+33 ; Update global with criteria
+34 IF DXOK
Begin DoDot:1
+35 MERGE @GLOB@(DFN)=@TMREF@(DFN)
+36 NEW IEN,FREF,EXDT
+37 SET VSDT=""
SET EXDT=""
+38 FOR
SET VSDT=$ORDER(@TMREF@(DFN,VSDT))
IF VSDT=""
QUIT
Begin DoDot:2
+39 SET TIEN=""
FOR
SET TIEN=$ORDER(@TMREF@(DFN,VSDT,TIEN))
IF TIEN=""
QUIT
Begin DoDot:3
+40 SET VISIT=$PIECE(@TMREF@(DFN,VSDT,TIEN),U,2)
SET VTYP=$PIECE(@TMREF@(DFN,VSDT,TIEN),U,1)
+41 SET IEN=$PIECE(@TMREF@(DFN,VSDT,TIEN),U,4)
SET FREF=$PIECE(@TMREF@(DFN,VSDT,TIEN),U,5)
+42 SET @GLOB@(DFN,"CRITERIA",TAX,VTYP,VISIT,IEN)=VSDT_U_EXDT_U_IEN_U_FREF
End DoDot:3
End DoDot:2
End DoDot:1
+43 QUIT
