- 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
