ADEKRP5 ; IHS/HQT/MJL - PRINT COMPILED REPORTS ; [ 03/24/1999 9:04 AM ]
;;6.0;ADE;**15,26**;JAN 01, 2004;Build 13
;;IHS/OIT/GAB 10.2014 Modified for 2015 Code Updates - PATCH 26
;
CF(ADEPER,ADEYQ) ;EP
;BASIC MEASURES REPORTS
N ADE,ADEM,ADEPC
;
I ADEPER="ANNUAL" D
. S ADEPER="^TMP(""ADEP"",ADEU,""CF"",ADEYQ)"
. S ADEPC=2
E D
. S ADEPER="^TMP(""ADEP"",ADEU,""CFQ"",ADEYQ)"
. S ADEPC=1
;
D CONST
;
;Report Global is:
;ADEREP("ADEP",ADEU,"CF",ADEYQ,"1-PTS")="Ind^Non-Indian^Total" (ANNUAL)
;ADEREP("ADEP",ADEU,"CFQ",ADEYQ,"1-PTS")="Ind^Non-Indian^Total" (QR)
; ...,".5-3YU")="Indian^Non-Indian^Total"
; ...,".55-3YU")="Indian^Non-Indian^Total"
; ...,"1.7-NEW USERS")="Indian^Non-Indian^Total"
; ...,"1.75-NEW USERS")="Indian^Non-Indian^Total"
; ...,"2-VIS")="Indian^Non-Indian^Total"
; ...,"5.2-EXAM")
; ...,"5.5-PTC")
; ...,"3-SVC")
; ...,"4-MIN")
;IHS/OIT/GAB 11.2014 added the 9986 code to the below line for comment information for 2015 Code Updates PATCH #26
; ...,"5-BA")="Total # of 9130 & 9986 codes"
; ...,"6-DDAY")="Total Dentist Days"
;----- BEGIN IHS
; ...,"7-RVU")=Relative Value Unit"
;
;Get FACILITY USER count
;Only for ANNUAL rept
I ADEPC=2 D
. S $P(@ADEPER@(".5-3YU"),U,4)="FACILITY USERS PAST "_$S(ADEPC=2:"36",1:"12")_" MONTHS"
. S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YU IND"),"0:125")
. S $P(@ADEPER@(".5-3YU"),U,1)=$P(ADEM,U,ADEPC+1)
. S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YU NON-IND"),"0:125")
. S $P(@ADEPER@(".5-3YU"),U,2)=$P(ADEM,U,ADEPC+1)
. S $P(@ADEPER@(".5-3YU"),U,3)=$P(@ADEPER@(".5-3YU"),U,1)+$P(@ADEPER@(".5-3YU"),U,2)
;
S $P(@ADEPER@(".55-3YU"),U,4)="FACILITY USERS "_$S(ADEPC=2:"PAST 12 MONTHS",1:"THIS QUARTER")
S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YU IND"),"0:125")
S $P(@ADEPER@(".55-3YU"),U,1)=$P(ADEM,U,ADEPC)
S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YU NON-IND"),"0:125")
S $P(@ADEPER@(".55-3YU"),U,2)=$P(ADEM,U,ADEPC)
S $P(@ADEPER@(".55-3YU"),U,3)=$P(@ADEPER@(".55-3YU"),U,1)+$P(@ADEPER@(".55-3YU"),U,2)
;
;Get DENTAL PATIENT count
;ANNUAL Period only
I ADEPC=2 D
. S $P(@ADEPER@("1-PTS"),U,4)="DENTAL USERS PAST "_$S(ADEPC=2:"36",1:"12")_" MONTHS"
. S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("PTS IND"),"0:125")
. S $P(@ADEPER@("1-PTS"),U,1)=$P(ADEM,U,ADEPC+1)
. S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("PTS NON-IND"),"0:125")
. S $P(@ADEPER@("1-PTS"),U,2)=$P(ADEM,U,ADEPC+1)
. S $P(@ADEPER@("1-PTS"),U,3)=$P(@ADEPER@("1-PTS"),U,1)+$P(@ADEPER@("1-PTS"),U,2)
;
S $P(@ADEPER@("1.5-PTS"),U,4)="DENTAL USERS "_$S(ADEPC=2:"PAST 12 MONTHS",1:"THIS QUARTER")
S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("PTS IND"),"0:125")
S $P(@ADEPER@("1.5-PTS"),U,1)=$P(ADEM,U,ADEPC)
S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("PTS NON-IND"),"0:125")
S $P(@ADEPER@("1.5-PTS"),U,2)=$P(ADEM,U,ADEPC)
S $P(@ADEPER@("1.5-PTS"),U,3)=$P(@ADEPER@("1.5-PTS"),U,1)+$P(@ADEPER@("1.5-PTS"),U,2)
;NEW DENTAL USERS
;ANNUAL Period only
I ADEPC=2 D
. S $P(@ADEPER@("1.7-NEW USERS"),U,4)="NEW USERS PAST "_$S(ADEPC=2:"36",1:"12")_" MONTHS"
. S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YR NEW IND"),"0:125")
. S $P(@ADEPER@("1.7-NEW USERS"),U,1)=$P(ADEM,U,ADEPC+1)
. S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YR NEW NON-IND"),"0:125")
. S $P(@ADEPER@("1.7-NEW USERS"),U,2)=$P(ADEM,U,ADEPC+1)
. S $P(@ADEPER@("1.7-NEW USERS"),U,3)=$P(@ADEPER@("1.7-NEW USERS"),U,1)+$P(@ADEPER@("1.7-NEW USERS"),U,2)
;
S $P(@ADEPER@("1.75-NEW USERS"),U,4)="NEW USERS "_$S(ADEPC=2:"PAST 12 MONTHS",1:"THIS QUARTER")
S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YR NEW IND"),"0:125")
S $P(@ADEPER@("1.75-NEW USERS"),U,1)=$P(ADEM,U,ADEPC)
S ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YR NEW NON-IND"),"0:125")
S $P(@ADEPER@("1.75-NEW USERS"),U,2)=$P(ADEM,U,ADEPC)
S $P(@ADEPER@("1.75-NEW USERS"),U,3)=$P(@ADEPER@("1.75-NEW USERS"),U,1)+$P(@ADEPER@("1.75-NEW USERS"),U,2)
;
;
D EXT^ADEKRP51
Q
;
CONST ;EP
;Constants
S ADE("3YU IND")=".1."
S ADE("3YU NON-IND")=".2."
S ADE("PTS ALL")=".6."
S ADE("PTS IND")=".4."
S ADE("PTS NON-IND")=".5."
S ADE("VIS IND")=".17."
S ADE("VIS NON-IND")=".18."
S ADE("PTC IND")=".15."
S ADE("PTC NON-IND")=".16."
S ADE("SVC IND")=".20."
S ADE("SVC NON-IND")=".21."
S ADE("MIN IND")=".22."
S ADE("MIN NON-IND")=".23."
S ADE("BA")=".19."
S ADE("DDAY")=".24."
S ADE("EXAM IND")=".25."
S ADE("EXAM NON-IND")=".26."
S ADE("FY NEW IND")=".27."
S ADE("FY NEW NON-IND")=".28."
S ADE("3YR NEW IND")=".29."
S ADE("3YR NEW NON-IND")=".30."
S ADE("EMERG VIS IND")=".31."
S ADE("EMERG VIS NON-IND")=".32."
;----- BEGIN IHS MODIFICATIONS ADE*6.0*15
S ADE("RVU IND")=".33."
S ADE("RVU NON-IND")=".34."
;----- IHS/OIT/GAB ADDED BELOW FOR 2015 CDT CODE UPDATES
S ADE("BA2")=".35."
;----- END IHS MODIFICATIONS
Q
ADEKRP5 ; IHS/HQT/MJL - PRINT COMPILED REPORTS ; [ 03/24/1999 9:04 AM ]
+1 ;;6.0;ADE;**15,26**;JAN 01, 2004;Build 13
+2 ;;IHS/OIT/GAB 10.2014 Modified for 2015 Code Updates - PATCH 26
+3 ;
CF(ADEPER,ADEYQ) ;EP
+1 ;BASIC MEASURES REPORTS
+2 NEW ADE,ADEM,ADEPC
+3 ;
+4 IF ADEPER="ANNUAL"
Begin DoDot:1
+5 SET ADEPER="^TMP(""ADEP"",ADEU,""CF"",ADEYQ)"
+6 SET ADEPC=2
End DoDot:1
+7 IF '$TEST
Begin DoDot:1
+8 SET ADEPER="^TMP(""ADEP"",ADEU,""CFQ"",ADEYQ)"
+9 SET ADEPC=1
End DoDot:1
+10 ;
+11 DO CONST
+12 ;
+13 ;Report Global is:
+14 ;ADEREP("ADEP",ADEU,"CF",ADEYQ,"1-PTS")="Ind^Non-Indian^Total" (ANNUAL)
+15 ;ADEREP("ADEP",ADEU,"CFQ",ADEYQ,"1-PTS")="Ind^Non-Indian^Total" (QR)
+16 ; ...,".5-3YU")="Indian^Non-Indian^Total"
+17 ; ...,".55-3YU")="Indian^Non-Indian^Total"
+18 ; ...,"1.7-NEW USERS")="Indian^Non-Indian^Total"
+19 ; ...,"1.75-NEW USERS")="Indian^Non-Indian^Total"
+20 ; ...,"2-VIS")="Indian^Non-Indian^Total"
+21 ; ...,"5.2-EXAM")
+22 ; ...,"5.5-PTC")
+23 ; ...,"3-SVC")
+24 ; ...,"4-MIN")
+25 ;IHS/OIT/GAB 11.2014 added the 9986 code to the below line for comment information for 2015 Code Updates PATCH #26
+26 ; ...,"5-BA")="Total # of 9130 & 9986 codes"
+27 ; ...,"6-DDAY")="Total Dentist Days"
+28 ;----- BEGIN IHS
+29 ; ...,"7-RVU")=Relative Value Unit"
+30 ;
+31 ;Get FACILITY USER count
+32 ;Only for ANNUAL rept
+33 IF ADEPC=2
Begin DoDot:1
+34 SET $PIECE(@ADEPER@(".5-3YU"),U,4)="FACILITY USERS PAST "_$SELECT(ADEPC=2:"36",1:"12")_" MONTHS"
+35 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YU IND"),"0:125")
+36 SET $PIECE(@ADEPER@(".5-3YU"),U,1)=$PIECE(ADEM,U,ADEPC+1)
+37 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YU NON-IND"),"0:125")
+38 SET $PIECE(@ADEPER@(".5-3YU"),U,2)=$PIECE(ADEM,U,ADEPC+1)
+39 SET $PIECE(@ADEPER@(".5-3YU"),U,3)=$PIECE(@ADEPER@(".5-3YU"),U,1)+$PIECE(@ADEPER@(".5-3YU"),U,2)
End DoDot:1
+40 ;
+41 SET $PIECE(@ADEPER@(".55-3YU"),U,4)="FACILITY USERS "_$SELECT(ADEPC=2:"PAST 12 MONTHS",1:"THIS QUARTER")
+42 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YU IND"),"0:125")
+43 SET $PIECE(@ADEPER@(".55-3YU"),U,1)=$PIECE(ADEM,U,ADEPC)
+44 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YU NON-IND"),"0:125")
+45 SET $PIECE(@ADEPER@(".55-3YU"),U,2)=$PIECE(ADEM,U,ADEPC)
+46 SET $PIECE(@ADEPER@(".55-3YU"),U,3)=$PIECE(@ADEPER@(".55-3YU"),U,1)+$PIECE(@ADEPER@(".55-3YU"),U,2)
+47 ;
+48 ;Get DENTAL PATIENT count
+49 ;ANNUAL Period only
+50 IF ADEPC=2
Begin DoDot:1
+51 SET $PIECE(@ADEPER@("1-PTS"),U,4)="DENTAL USERS PAST "_$SELECT(ADEPC=2:"36",1:"12")_" MONTHS"
+52 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("PTS IND"),"0:125")
+53 SET $PIECE(@ADEPER@("1-PTS"),U,1)=$PIECE(ADEM,U,ADEPC+1)
+54 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("PTS NON-IND"),"0:125")
+55 SET $PIECE(@ADEPER@("1-PTS"),U,2)=$PIECE(ADEM,U,ADEPC+1)
+56 SET $PIECE(@ADEPER@("1-PTS"),U,3)=$PIECE(@ADEPER@("1-PTS"),U,1)+$PIECE(@ADEPER@("1-PTS"),U,2)
End DoDot:1
+57 ;
+58 SET $PIECE(@ADEPER@("1.5-PTS"),U,4)="DENTAL USERS "_$SELECT(ADEPC=2:"PAST 12 MONTHS",1:"THIS QUARTER")
+59 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("PTS IND"),"0:125")
+60 SET $PIECE(@ADEPER@("1.5-PTS"),U,1)=$PIECE(ADEM,U,ADEPC)
+61 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("PTS NON-IND"),"0:125")
+62 SET $PIECE(@ADEPER@("1.5-PTS"),U,2)=$PIECE(ADEM,U,ADEPC)
+63 SET $PIECE(@ADEPER@("1.5-PTS"),U,3)=$PIECE(@ADEPER@("1.5-PTS"),U,1)+$PIECE(@ADEPER@("1.5-PTS"),U,2)
+64 ;NEW DENTAL USERS
+65 ;ANNUAL Period only
+66 IF ADEPC=2
Begin DoDot:1
+67 SET $PIECE(@ADEPER@("1.7-NEW USERS"),U,4)="NEW USERS PAST "_$SELECT(ADEPC=2:"36",1:"12")_" MONTHS"
+68 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YR NEW IND"),"0:125")
+69 SET $PIECE(@ADEPER@("1.7-NEW USERS"),U,1)=$PIECE(ADEM,U,ADEPC+1)
+70 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YR NEW NON-IND"),"0:125")
+71 SET $PIECE(@ADEPER@("1.7-NEW USERS"),U,2)=$PIECE(ADEM,U,ADEPC+1)
+72 SET $PIECE(@ADEPER@("1.7-NEW USERS"),U,3)=$PIECE(@ADEPER@("1.7-NEW USERS"),U,1)+$PIECE(@ADEPER@("1.7-NEW USERS"),U,2)
End DoDot:1
+73 ;
+74 SET $PIECE(@ADEPER@("1.75-NEW USERS"),U,4)="NEW USERS "_$SELECT(ADEPC=2:"PAST 12 MONTHS",1:"THIS QUARTER")
+75 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YR NEW IND"),"0:125")
+76 SET $PIECE(@ADEPER@("1.75-NEW USERS"),U,1)=$PIECE(ADEM,U,ADEPC)
+77 SET ADEM=$$GETCNT^ADEKRP(ADEYQ,ADE("3YR NEW NON-IND"),"0:125")
+78 SET $PIECE(@ADEPER@("1.75-NEW USERS"),U,2)=$PIECE(ADEM,U,ADEPC)
+79 SET $PIECE(@ADEPER@("1.75-NEW USERS"),U,3)=$PIECE(@ADEPER@("1.75-NEW USERS"),U,1)+$PIECE(@ADEPER@("1.75-NEW USERS"),U,2)
+80 ;
+81 ;
+82 DO EXT^ADEKRP51
+83 QUIT
+84 ;
CONST ;EP
+1 ;Constants
+2 SET ADE("3YU IND")=".1."
+3 SET ADE("3YU NON-IND")=".2."
+4 SET ADE("PTS ALL")=".6."
+5 SET ADE("PTS IND")=".4."
+6 SET ADE("PTS NON-IND")=".5."
+7 SET ADE("VIS IND")=".17."
+8 SET ADE("VIS NON-IND")=".18."
+9 SET ADE("PTC IND")=".15."
+10 SET ADE("PTC NON-IND")=".16."
+11 SET ADE("SVC IND")=".20."
+12 SET ADE("SVC NON-IND")=".21."
+13 SET ADE("MIN IND")=".22."
+14 SET ADE("MIN NON-IND")=".23."
+15 SET ADE("BA")=".19."
+16 SET ADE("DDAY")=".24."
+17 SET ADE("EXAM IND")=".25."
+18 SET ADE("EXAM NON-IND")=".26."
+19 SET ADE("FY NEW IND")=".27."
+20 SET ADE("FY NEW NON-IND")=".28."
+21 SET ADE("3YR NEW IND")=".29."
+22 SET ADE("3YR NEW NON-IND")=".30."
+23 SET ADE("EMERG VIS IND")=".31."
+24 SET ADE("EMERG VIS NON-IND")=".32."
+25 ;----- BEGIN IHS MODIFICATIONS ADE*6.0*15
+26 SET ADE("RVU IND")=".33."
+27 SET ADE("RVU NON-IND")=".34."
+28 ;----- IHS/OIT/GAB ADDED BELOW FOR 2015 CDT CODE UPDATES
+29 SET ADE("BA2")=".35."
+30 ;----- END IHS MODIFICATIONS
+31 QUIT
