ABMDVCK3 ; IHS/SD/SDR - PCC Visit Edits - Uncoded DX check ;
;;2.6;IHS 3P BILLING SYSTEM;**14,18**;NOV 12, 2009;Build 289
;
;IHS/SD/SDR - v2.5 p8 - Check for uncoded Dx on visit
;IHS/SD/SDR - V2.6 CSV
;IHS/SD/SDR - 2.6*14 - ICD10 - Added ICD10 uncoded DX of ZZZ999
;IHS/SD/SDR - 2.6*14 - Updated DX^ABMCVAPI call to be numeric
;IHS/SD/SDR - 2.6*14 - CR3451 - remove all uncoded dx checks except for V POV file; the others aren't used
; for billing purposes.
;IHS/SD/SDR - 2.6*18 - HEAT244158 - Corrected uncoded DX check.
;
ICDCHK(ABMVDFN) ;EP
D VPOV Q:ABMIFLG=1 ABMIFLG
;abm*2.6*14 start old code CR3451
;D VPROC Q:ABMIFLG=1 ABMIFLG
;D VHOSP Q:ABMIFLG=1 ABMIFLG
;D VISIT Q:ABMIFLG=1 ABMIFLG
;D VLAB Q:ABMIFLG=1 ABMIFLG
;D VIMM Q:ABMIFLG=1 ABMIFLG
;D VSKIN Q:ABMIFLG=1 ABMIFLG
;D VEXAM Q:ABMIFLG=1 ABMIFLG
;D VCPT Q:ABMIFLG=1 ABMIFLG
;D VRAD Q:ABMIFLG=1 ABMIFLG
;D VPATH Q:ABMIFLG=1 ABMIFLG
;D VMICR Q:ABMIFLG=1 ABMIFLG
;D VBB Q:ABMIFLG=1 ABMIFLG
;end old code CR3451
Q ABMIFLG
VPOV ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVPOV("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVPOV(ABMICD,0)),U),($P($$DX^ABMCVAPI($P($G(^AUPNVPOV(ABMICD,0)),U),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVPOV(ABMICD,0)),U)&("^.9999^ZZZ.999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVPOV(ABMICD,0)),U),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VPROC ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVPRC("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVPRC(ABMICD,0)),U,5),($P($$DX^ABMCVAPI($P($G(^AUPNVPRC(ABMICD,0)),U,5),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVPRC(ABMICD,0)),U,5)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVPRC(ABMICD,0)),U,5),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VHOSP ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVINP("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVINP(ABMICD,0)),U,12),($P($$DX^ABMCVAPI($P($G(^AUPNVINP(ABMICD,0)),U,12),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVINP(ABMICD,0)),U,12)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVINP(ABMICD,0)),U,12),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VISIT ;
S ABMIFLG=0
;I $P($G(^AUPNVSIT(ABMVDFN,11)),U,7),($P($$DX^ABMCVAPI($P($G(^AUPNVSIT(ABMVDFN,11)),U,7),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
I $P($G(^AUPNVSIT(ABMVDFN,11)),U,7)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVSIT(ABMVDFN,11)),U,7),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VLAB ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVLAB("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVLAB(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVLAB(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.;I $P($G(^AUPNVLAB(ABMICD,11)),U,12),($P($$DX^ABMCVAPI($P($G(^AUPNVLAB(ABMICD,11)),U,12),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVLAB(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVLAB(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
.I $P($G(^AUPNVLAB(ABMICD,11)),U,12)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVLAB(ABMICD,11)),U,12),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VIMM ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVIMM("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVIMM(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVIMM(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVIMM(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVIMM(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VSKIN ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVSK("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVSK(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVSK(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVSK(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVSK(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VEXAM ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVXAM("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVXAM(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVXAM(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVXAM(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVXAM(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VCPT ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVCPT("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVCPT(ABMICD,0)),U,5),($P($$DX^ABMCVAPI($P($G(^AUPNVCPT(ABMICD,0)),U,5),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVCPT(ABMICD,0)),U,5)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVCPT(ABMICD,0)),U,5),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VRAD ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVRAD("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVRAD(ABMICD,0)),U,9),($P($$DX^ABMCVAPI($P($G(^AUPNVRAD(ABMICD,0)),U,9),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.;I $P($G(^AUPNVRAD(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVRAD(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVRAD(ABMICD,0)),U,9),("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVRAD(ABMICD,0)),U,9),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
.I $P($G(^AUPNVRAD(ABMICD,12)),U,13),("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVRAD(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VPATH ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVPTH("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVPTH(ABMICD,11)),U,12),($P($$DX^ABMCVAPI($P($G(^AUPNVPTH(ABMICD,11)),U,12),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.;I $P($G(^AUPNVPTH(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVPTH(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVPTH(ABMICD,11)),U,12)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVPTH(ABMICD,11)),U,12),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
.I $P($G(^AUPNVPTH(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVPTH(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VMICR ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVMIC("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVMIC(ABMICD,11)),U,12),($P($$DX^ABMCVAPI($P($G(^AUPNVMIC(ABMICD,11)),U,12),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.;I $P($G(^AUPNVMIC(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVMIC(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVMIC(ABMICD,11)),U,12)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVMIC(ABMICD,11)),U,12),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
.I $P($G(^AUPNVMIC(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVMIC(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
VBB ;
S ABMICD=0
S ABMIFLG=0
F S ABMICD=$O(^AUPNVBB("AD",ABMVDFN,ABMICD)) Q:'ABMICD D Q:ABMIFLG=1
.;I $P($G(^AUPNVBB(ABMICD,11)),U,12),($P($$DX^ABMCVAPI($P($G(^AUPNVBB(ABMICD,11)),U,12),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.;I $P($G(^AUPNVBB(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVBB(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
.I $P($G(^AUPNVBB(ABMICD,11)),U,12)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVBB(ABMICD,11)),U,12),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
.I $P($G(^AUPNVBB(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$P($$DX^ABMCVAPI(+$P($G(^AUPNVBB(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^")) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
Q
ABMDVCK3 ; IHS/SD/SDR - PCC Visit Edits - Uncoded DX check ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;**14,18**;NOV 12, 2009;Build 289
+2 ;
+3 ;IHS/SD/SDR - v2.5 p8 - Check for uncoded Dx on visit
+4 ;IHS/SD/SDR - V2.6 CSV
+5 ;IHS/SD/SDR - 2.6*14 - ICD10 - Added ICD10 uncoded DX of ZZZ999
+6 ;IHS/SD/SDR - 2.6*14 - Updated DX^ABMCVAPI call to be numeric
+7 ;IHS/SD/SDR - 2.6*14 - CR3451 - remove all uncoded dx checks except for V POV file; the others aren't used
+8 ; for billing purposes.
+9 ;IHS/SD/SDR - 2.6*18 - HEAT244158 - Corrected uncoded DX check.
+10 ;
ICDCHK(ABMVDFN) ;EP
+1 DO VPOV
IF ABMIFLG=1
QUIT ABMIFLG
+2 ;abm*2.6*14 start old code CR3451
+3 ;D VPROC Q:ABMIFLG=1 ABMIFLG
+4 ;D VHOSP Q:ABMIFLG=1 ABMIFLG
+5 ;D VISIT Q:ABMIFLG=1 ABMIFLG
+6 ;D VLAB Q:ABMIFLG=1 ABMIFLG
+7 ;D VIMM Q:ABMIFLG=1 ABMIFLG
+8 ;D VSKIN Q:ABMIFLG=1 ABMIFLG
+9 ;D VEXAM Q:ABMIFLG=1 ABMIFLG
+10 ;D VCPT Q:ABMIFLG=1 ABMIFLG
+11 ;D VRAD Q:ABMIFLG=1 ABMIFLG
+12 ;D VPATH Q:ABMIFLG=1 ABMIFLG
+13 ;D VMICR Q:ABMIFLG=1 ABMIFLG
+14 ;D VBB Q:ABMIFLG=1 ABMIFLG
+15 ;end old code CR3451
+16 QUIT ABMIFLG
VPOV ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVPOV("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVPOV(ABMICD,0)),U),($P($$DX^ABMCVAPI($P($G(^AUPNVPOV(ABMICD,0)),U),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVPOV(ABMICD,0)),U)&("^.9999^ZZZ.999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVPOV(ABMICD,0)),U),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+6 QUIT
VPROC ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVPRC("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVPRC(ABMICD,0)),U,5),($P($$DX^ABMCVAPI($P($G(^AUPNVPRC(ABMICD,0)),U,5),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVPRC(ABMICD,0)),U,5)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVPRC(ABMICD,0)),U,5),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+6 QUIT
VHOSP ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVINP("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVINP(ABMICD,0)),U,12),($P($$DX^ABMCVAPI($P($G(^AUPNVINP(ABMICD,0)),U,12),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVINP(ABMICD,0)),U,12)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVINP(ABMICD,0)),U,12),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+6 QUIT
VISIT ;
+1 SET ABMIFLG=0
+2 ;I $P($G(^AUPNVSIT(ABMVDFN,11)),U,7),($P($$DX^ABMCVAPI($P($G(^AUPNVSIT(ABMVDFN,11)),U,7),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+3 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVSIT(ABMVDFN,11)),U,7)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVSIT(ABMVDFN,11)),U,7),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
+4 QUIT
VLAB ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVLAB("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVLAB(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVLAB(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;I $P($G(^AUPNVLAB(ABMICD,11)),U,12),($P($$DX^ABMCVAPI($P($G(^AUPNVLAB(ABMICD,11)),U,12),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+6 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVLAB(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVLAB(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
+7 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVLAB(ABMICD,11)),U,12)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVLAB(ABMICD,11)),U,12),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+8 QUIT
VIMM ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVIMM("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVIMM(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVIMM(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVIMM(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVIMM(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+6 QUIT
VSKIN ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVSK("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVSK(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVSK(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVSK(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVSK(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+6 QUIT
VEXAM ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVXAM("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVXAM(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVXAM(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVXAM(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVXAM(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+6 QUIT
VCPT ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVCPT("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVCPT(ABMICD,0)),U,5),($P($$DX^ABMCVAPI($P($G(^AUPNVCPT(ABMICD,0)),U,5),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVCPT(ABMICD,0)),U,5)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVCPT(ABMICD,0)),U,5),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+6 QUIT
VRAD ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVRAD("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVRAD(ABMICD,0)),U,9),($P($$DX^ABMCVAPI($P($G(^AUPNVRAD(ABMICD,0)),U,9),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;I $P($G(^AUPNVRAD(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVRAD(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+6 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVRAD(ABMICD,0)),U,9)
IF ("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVRAD(ABMICD,0)),U,9),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
+7 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVRAD(ABMICD,12)),U,13)
IF ("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVRAD(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+8 QUIT
VPATH ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVPTH("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVPTH(ABMICD,11)),U,12),($P($$DX^ABMCVAPI($P($G(^AUPNVPTH(ABMICD,11)),U,12),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;I $P($G(^AUPNVPTH(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVPTH(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+6 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVPTH(ABMICD,11)),U,12)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVPTH(ABMICD,11)),U,12),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
+7 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVPTH(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVPTH(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+8 QUIT
VMICR ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVMIC("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVMIC(ABMICD,11)),U,12),($P($$DX^ABMCVAPI($P($G(^AUPNVMIC(ABMICD,11)),U,12),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;I $P($G(^AUPNVMIC(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVMIC(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+6 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVMIC(ABMICD,11)),U,12)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVMIC(ABMICD,11)),U,12),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
+7 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVMIC(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVMIC(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+8 QUIT
VBB ;
+1 SET ABMICD=0
+2 SET ABMIFLG=0
+3 FOR
SET ABMICD=$ORDER(^AUPNVBB("AD",ABMVDFN,ABMICD))
IF 'ABMICD
QUIT
Begin DoDot:1
+4 ;I $P($G(^AUPNVBB(ABMICD,11)),U,12),($P($$DX^ABMCVAPI($P($G(^AUPNVBB(ABMICD,11)),U,12),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+5 ;I $P($G(^AUPNVBB(ABMICD,12)),U,13),($P($$DX^ABMCVAPI($P($G(^AUPNVBB(ABMICD,12)),U,13),ABMP("VDT")),U,2)=.9999) S ABMIFLG=1 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX
+6 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVBB(ABMICD,11)),U,12)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVBB(ABMICD,11)),U,12),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
+7 ;CSV-c ;abm*2.6*14 ICD10 uncoded DX and updated API call
IF $PIECE($GET(^AUPNVBB(ABMICD,12)),U,13)&("^.9999^ZZZ999^"[("^"_$PIECE($$DX^ABMCVAPI(+$PIECE($GET(^AUPNVBB(ABMICD,12)),U,13),ABMP("VDT")),U,2)_"^"))
SET ABMIFLG=1
End DoDot:1
IF ABMIFLG=1
QUIT
+8 QUIT
