- ABMRSPI1 ; IHS/SD/SDR - Claims Identified as Potential Split Billing Report;
- ;;2.6;IHS 3P BILLING SYSTEM;**22**;NOV 12, 2009;Build 418
- ;IHS/SD/SDR 2.6*22 HEAT335246 - New routine
- ;
- Q
- VISIT ;EP
- S ABMSDT=ABMY("DT",1)-.5
- S ABMEDT=ABMY("DT",2)+.999999
- F S ABMSDT=$O(^ABMDCLM(DUZ(2),"AD",ABMSDT)) Q:'ABMSDT!(ABMSDT>ABMEDT) D
- .S ABMP("CDFN")=0
- .F S ABMP("CDFN")=$O(^ABMDCLM(DUZ(2),"AD",ABMSDT,ABMP("CDFN"))) Q:'ABMP("CDFN") D
- ..D DATA
- Q
- APPROVAL ;EP
- S ABMSDT=ABMY("DT",1)-.5
- S ABMEDT=ABMY("DT",2)+.999999
- F S ABMSDT=$O(^ABMDBILL(DUZ(2),"AP",ABMSDT)) Q:'ABMSDT!(ABMSDT>ABMEDT) D
- .S ABMP("BDFN")=0
- .F S ABMP("BDFN")=$O(^ABMDBILL(DUZ(2),"AP",ABMSDT,ABMP("BDFN"))) Q:'ABMP("BDFN") D
- ..I +$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U)=0 Q ;no bill number, bad x-ref entry
- ..S ABMP("CDFN")=+$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U)
- ..D DATA
- Q
- DATA ;EP
- S ABMAINS=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,8) ;active insurer
- I ABMAINS="" Q ;no active insurer
- I '$D(ABMY("INS",ABMAINS)) Q ;not selected insurer
- I ABMY("DT")="V" S ABMCS=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,4) ;claim status
- I ABMY("DT")="A" S ABMCS=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U,4) ;bill status
- I ABMY("STA")'[ABMCS Q ;not selected claim status
- I $G(ABMY("SPLIT"))="A","^S^A^"[("^"_$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,22)_"^") Q ;if auto is selected we only want the original claims to show up; this is for option STIN
- S ABMVSTCK=0 ;check for H or I service category
- D DATA2
- Q:ABMVSTCK=1 ;H or I service category
- S ABMVFILE=""
- F S ABMVFILE=$O(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),ABMVFILE)) Q:$G(ABMVFILE)="" D Q:ABMVMULT=1
- .I +$G(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),ABMVFILE))>1 S ABMVMULT=1 Q
- .I +$G(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),ABMVFILE))=1 S ABMVMULT=ABMVMULT+.5
- I ABMVMULT=1 D ;multiple entries were found in requested files
- .S ABMP("VLOC")=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3) ;visit loc
- .S ABMP("VTYP")=$P($G(^ABMDVTYP($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,7),0)),U) ;visit type name
- .I +$G(^TMP("ABM-SPIN-DATA",$J,ABMP("VLOC"),ABMP("VTYP"),ABMP("CDFN")))=1 Q ;already counted this claim
- .S ^TMP("ABM-SPIN-DATA",$J,ABMP("VLOC"),ABMP("VTYP"),ABMP("CDFN"))=1
- .I $G(ABMY("RTYP"))=2 D ;statistical
- ..;visit loc short name
- ..S ABMP("VLOC")=$S($P($G(^AUTTLOC($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U,2)'="":$P($G(^AUTTLOC($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U,2),1:$P($G(^DIC(4,$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U))
- ..S ^TMP("ABM-SPIN",$J,ABMP("VLOC"),ABMP("VTYP"))=+$G(^TMP("ABM-SPIN",$J,ABMP("VLOC"),ABMP("VTYP")))+1
- .I $G(ABMY("RTYP"))=1 D ;brief
- ..;claim status^split status^patient^HRN^active insurer^claim number^visit date^clinic
- ..;claim status
- ..I ABMY("DT")="V" S ABMPREC=$S(ABMCS="F":"FAB",ABMCS="E":"EDT",ABMCS="O":"ROL",ABMCS="C":"COM",ABMCS="P":"PEN",ABMCS="U":"UNB",ABMCS="X":"CLO",1:"")
- ..I ABMY("DT")="A" S ABMPREC=$S(ABMCS="A":"APP",ABMCS="B":"BLD",ABMCS="C":"COM",ABMCS="X":"CAN",1:"")
- ..S ABMSSTAT=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,22) ;split status
- ..S ABMPREC=ABMPREC_U_ABMSSTAT
- ..S ABMPREC=ABMPREC_U_$P($G(^DPT($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U),0)),U) ;patient name
- ..S ABMPREC=ABMPREC_U_$P($G(^AUPNPAT($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U),41,ABMP("VLOC"),0)),U,2)_U_$P($G(^AUTNINS(ABMAINS,0)),U)_U_ABMP("CDFN")_U_ABMSDT ;HRN, active insurer, claim#, visit date
- ..S ABMPREC=ABMPREC_U_+$G(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),"8D"))_U_+$G(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),"8E"))_U_+$G(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),"8F"))_U_+$G(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),"8H")) ;page counts
- ..;visit loc short name
- ..S ABMP("VLOC")=$S($P($G(^AUTTLOC($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U,2)'="":$P($G(^AUTTLOC($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U,2),1:$P($G(^DIC(4,$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U))
- ..S ^TMP("ABM-SPIN",$J,ABMP("VLOC"),ABMP("VTYP"),ABMSDT,ABMP("CDFN"))=ABMPREC
- ..I ABMSSTAT'="S" S ^TMP("ABM-SPIN-CNT",$J)=+$G(^TMP("ABM-SPIN-CNT",$J))+1
- Q
- DATA2 ;EP
- ;now loop thru visits on claim and see if there are multiple charges on the selected pages
- S ABMP("VDFN")=0
- S ABMVMULT=0
- F S ABMP("VDFN")=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),11,ABMP("VDFN"))) Q:'ABMP("VDFN") D
- .S ^TMP("ABM-SPIN",$J,"VSTS",ABMP("VDFN"))=$P($G(^AUPNVSIT(ABMP("VDFN"),0)),U,7) ;list of visits with service category
- .I "^H^I^"[("^"_$P($G(^AUPNVSIT(ABMP("VDFN"),0)),U,7)_"^") S ABMVSTCK=1 ;check if service category is H or I
- .I ((ABMY("PGS")["8D")!(ABMY("PGS")["8Z")) D CHECK("^AUPNVMED","8D") ;meds - 8D
- .I ((ABMY("PGS")["8E")!(ABMY("PGS")["8Z")) D CHECK("^AUPNVLAB","8E"),CHECK("^AUPNVMIC","8E"),CHECK("^AUPNVPTH","8E"),CHECK("^AUPNVBB","8E"),CHECK("^AUPNVCYT","8E") ;lab - 8E
- .I ((ABMY("PGS")["8F")!(ABMY("PGS")["8Z")) D CHECK("^AUPNVRAD","8F") ;rad - 8F
- .D CHECK2 ;checks V CPT entries and if that page was selected by user as one to report on, since V CPT could have anything
- Q
- ;
- CHECK(VFILE,ABMVFILE) ;EP - VFILE is the V file global name
- ;This subrtn goes thru the visits in the V file and check for multiple entries in that file
- N L,T,L11,L12,COLDATE,ORDPROV,CPTSTR,CPT,MODIFIER,FILEN
- S L=0
- F S L=$O(@VFILE@("AD",ABMP("VDFN"),L)) Q:'L D
- .;T first piece is test, S is site
- .S T=$G(@VFILE@(+L,0)) Q:'T
- .I VFILE["VLAB"&($P($G(^AUPNVLAB(+L,14)),U,2)="") Q ;skip entries that don't have CPT - BILLABLE ITEM populated
- .S ^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),ABMVFILE)=+$G(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),ABMVFILE))+1
- .S ABMP("VDETAIL",ABMVFILE,VFILE,+L)=""
- .I VFILE["VLAB"&($L($P($G(^AUPNVLAB(+L,14)),U,2),";")>1) D ;there is more than 1 CPT on a lab
- ..F S=2:1:$L($P($G(^AUPNVLAB(+L,14)),U,2),";") S ^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),ABMVFILE)=+$G(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),ABMVFILE))+1,ABMP("VDETAIL",ABMVFILE,VFILE,+L)=""
- Q
- CHECK2 ;EP
- S ABMVIEN=0
- F S ABMVIEN=$O(^AUPNVCPT("AD",ABMP("VDFN"),ABMVIEN)) Q:'ABMVIEN D
- .S ABMCPT=$P($G(^ICPT($P($G(^AUPNVCPT(ABMVIEN,0)),U),0)),U) ;CPT
- .S ABMVFILE="8H" ;default
- .I (((ABMCPT<100)!(ABMCPT?.5N1.6A.5N)!($L(ABMCPT)=6))&((ABMY("PGS")["8H")!(ABMY("PGS")["8Z"))) S ^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),"8H")=+$G(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),"8H"))+1,ABMVFILE="8H"
- .I (((ABMCPT>79999)&(ABMCPT<90000))&((ABMY("PGS")["8E")!(ABMY("PGS")["8Z"))) S ^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),"8E")=+$G(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),"8E"))+1,ABMVFILE="8E"
- .I (((ABMCPT>69999)&(ABMCPT<80000))&((ABMY("PGS")["8F")!(ABMY("PGS")["8Z"))) S ^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),"8F")=+$G(^TMP("ABM-SPIN",$J,"VLST",ABMP("CDFN"),"8F"))+1,ABMVFILE="8F"
- .I (ABMCPT>89999) S ABMVFILE="8A"
- .S ABMP("VDETAIL",ABMVFILE,"^AUPNVCPT",ABMVIEN)=""
- Q
- ABMRSPI1 ; IHS/SD/SDR - Claims Identified as Potential Split Billing Report;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;**22**;NOV 12, 2009;Build 418
- +2 ;IHS/SD/SDR 2.6*22 HEAT335246 - New routine
- +3 ;
- +4 QUIT
- VISIT ;EP
- +1 SET ABMSDT=ABMY("DT",1)-.5
- +2 SET ABMEDT=ABMY("DT",2)+.999999
- +3 FOR
- SET ABMSDT=$ORDER(^ABMDCLM(DUZ(2),"AD",ABMSDT))
- IF 'ABMSDT!(ABMSDT>ABMEDT)
- QUIT
- Begin DoDot:1
- +4 SET ABMP("CDFN")=0
- +5 FOR
- SET ABMP("CDFN")=$ORDER(^ABMDCLM(DUZ(2),"AD",ABMSDT,ABMP("CDFN")))
- IF 'ABMP("CDFN")
- QUIT
- Begin DoDot:2
- +6 DO DATA
- End DoDot:2
- End DoDot:1
- +7 QUIT
- APPROVAL ;EP
- +1 SET ABMSDT=ABMY("DT",1)-.5
- +2 SET ABMEDT=ABMY("DT",2)+.999999
- +3 FOR
- SET ABMSDT=$ORDER(^ABMDBILL(DUZ(2),"AP",ABMSDT))
- IF 'ABMSDT!(ABMSDT>ABMEDT)
- QUIT
- Begin DoDot:1
- +4 SET ABMP("BDFN")=0
- +5 FOR
- SET ABMP("BDFN")=$ORDER(^ABMDBILL(DUZ(2),"AP",ABMSDT,ABMP("BDFN")))
- IF 'ABMP("BDFN")
- QUIT
- Begin DoDot:2
- +6 ;no bill number, bad x-ref entry
- IF +$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U)=0
- QUIT
- +7 SET ABMP("CDFN")=+$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U)
- +8 DO DATA
- End DoDot:2
- End DoDot:1
- +9 QUIT
- DATA ;EP
- +1 ;active insurer
- SET ABMAINS=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,8)
- +2 ;no active insurer
- IF ABMAINS=""
- QUIT
- +3 ;not selected insurer
- IF '$DATA(ABMY("INS",ABMAINS))
- QUIT
- +4 ;claim status
- IF ABMY("DT")="V"
- SET ABMCS=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,4)
- +5 ;bill status
- IF ABMY("DT")="A"
- SET ABMCS=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),0)),U,4)
- +6 ;not selected claim status
- IF ABMY("STA")'[ABMCS
- QUIT
- +7 ;if auto is selected we only want the original claims to show up; this is for option STIN
- IF $GET(ABMY("SPLIT"))="A"
- IF "^S^A^"[("^"_$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,22)_"^")
- QUIT
- +8 ;check for H or I service category
- SET ABMVSTCK=0
- +9 DO DATA2
- +10 ;H or I service category
- IF ABMVSTCK=1
- QUIT
- +11 SET ABMVFILE=""
- +12 FOR
- SET ABMVFILE=$ORDER(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),ABMVFILE))
- IF $GET(ABMVFILE)=""
- QUIT
- Begin DoDot:1
- +13 IF +$GET(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),ABMVFILE))>1
- SET ABMVMULT=1
- QUIT
- +14 IF +$GET(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),ABMVFILE))=1
- SET ABMVMULT=ABMVMULT+.5
- End DoDot:1
- IF ABMVMULT=1
- QUIT
- +15 ;multiple entries were found in requested files
- IF ABMVMULT=1
- Begin DoDot:1
- +16 ;visit loc
- SET ABMP("VLOC")=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3)
- +17 ;visit type name
- SET ABMP("VTYP")=$PIECE($GET(^ABMDVTYP($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,7),0)),U)
- +18 ;already counted this claim
- IF +$GET(^TMP("ABM-SPIN-DATA",$JOB,ABMP("VLOC"),ABMP("VTYP"),ABMP("CDFN")))=1
- QUIT
- +19 SET ^TMP("ABM-SPIN-DATA",$JOB,ABMP("VLOC"),ABMP("VTYP"),ABMP("CDFN"))=1
- +20 ;statistical
- IF $GET(ABMY("RTYP"))=2
- Begin DoDot:2
- +21 ;visit loc short name
- +22 SET ABMP("VLOC")=$SELECT($PIECE($GET(^AUTTLOC($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U,2)'="":$PIECE($GET(^AUTTLOC($PIECE(...
- ... $GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U,2),1:$PIECE($GET(^DIC(4,$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U))
- +23 SET ^TMP("ABM-SPIN",$JOB,ABMP("VLOC"),ABMP("VTYP"))=+$GET(^TMP("ABM-SPIN",$JOB,ABMP("VLOC"),ABMP("VTYP")))+1
- End DoDot:2
- +24 ;brief
- IF $GET(ABMY("RTYP"))=1
- Begin DoDot:2
- +25 ;claim status^split status^patient^HRN^active insurer^claim number^visit date^clinic
- +26 ;claim status
- +27 IF ABMY("DT")="V"
- SET ABMPREC=$SELECT(ABMCS="F":"FAB",ABMCS="E":"EDT",ABMCS="O":"ROL",ABMCS="C":"COM",ABMCS="P":"PEN",ABMCS="U":"UNB",ABMCS="X":"CLO",1:"")
- +28 IF ABMY("DT")="A"
- SET ABMPREC=$SELECT(ABMCS="A":"APP",ABMCS="B":"BLD",ABMCS="C":"COM",ABMCS="X":"CAN",1:"")
- +29 ;split status
- SET ABMSSTAT=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,22)
- +30 SET ABMPREC=ABMPREC_U_ABMSSTAT
- +31 ;patient name
- SET ABMPREC=ABMPREC_U_$PIECE($GET(^DPT($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U),0)),U)
- +32 ;HRN, active insurer, claim#, visit date
- SET ABMPREC=ABMPREC_U_$PIECE($GET(^AUPNPAT($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U),41,ABMP("VLOC"),0)),U,2)_U_$PIECE($GET(^AUTNINS(ABMAINS,0)),U)_U_ABMP("CDFN")_U_ABMSDT
- +33 ;page counts
- SET ABMPREC=ABMPREC_U_+$GET(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),"8D"))_U_+$GET(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),"8E"))_U_+$GET(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),"8F"))_U_+$GET(^TMP("ABM-SPIN",$JOB,"VLST",ABMP
- ("CDFN"),"8H"))
- +34 ;visit loc short name
- +35 SET ABMP("VLOC")=$SELECT($PIECE($GET(^AUTTLOC($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U,2)'="":$PIECE($GET(^AUTTLOC($PIECE(...
- ... $GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U,2),1:$PIECE($GET(^DIC(4,$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),0)),U,3),0)),U))
- +36 SET ^TMP("ABM-SPIN",$JOB,ABMP("VLOC"),ABMP("VTYP"),ABMSDT,ABMP("CDFN"))=ABMPREC
- +37 IF ABMSSTAT'="S"
- SET ^TMP("ABM-SPIN-CNT",$JOB)=+$GET(^TMP("ABM-SPIN-CNT",$JOB))+1
- End DoDot:2
- End DoDot:1
- +38 QUIT
- DATA2 ;EP
- +1 ;now loop thru visits on claim and see if there are multiple charges on the selected pages
- +2 SET ABMP("VDFN")=0
- +3 SET ABMVMULT=0
- +4 FOR
- SET ABMP("VDFN")=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),11,ABMP("VDFN")))
- IF 'ABMP("VDFN")
- QUIT
- Begin DoDot:1
- +5 ;list of visits with service category
- SET ^TMP("ABM-SPIN",$JOB,"VSTS",ABMP("VDFN"))=$PIECE($GET(^AUPNVSIT(ABMP("VDFN"),0)),U,7)
- +6 ;check if service category is H or I
- IF "^H^I^"[("^"_$PIECE($GET(^AUPNVSIT(ABMP("VDFN"),0)),U,7)_"^")
- SET ABMVSTCK=1
- +7 ;meds - 8D
- IF ((ABMY("PGS")["8D")!(ABMY("PGS")["8Z"))
- DO CHECK("^AUPNVMED","8D")
- +8 ;lab - 8E
- IF ((ABMY("PGS")["8E")!(ABMY("PGS")["8Z"))
- DO CHECK("^AUPNVLAB","8E")
- DO CHECK("^AUPNVMIC","8E")
- DO CHECK("^AUPNVPTH","8E")
- DO CHECK("^AUPNVBB","8E")
- DO CHECK("^AUPNVCYT","8E")
- +9 ;rad - 8F
- IF ((ABMY("PGS")["8F")!(ABMY("PGS")["8Z"))
- DO CHECK("^AUPNVRAD","8F")
- +10 ;checks V CPT entries and if that page was selected by user as one to report on, since V CPT could have anything
- DO CHECK2
- End DoDot:1
- +11 QUIT
- +12 ;
- CHECK(VFILE,ABMVFILE) ;EP - VFILE is the V file global name
- +1 ;This subrtn goes thru the visits in the V file and check for multiple entries in that file
- +2 NEW L,T,L11,L12,COLDATE,ORDPROV,CPTSTR,CPT,MODIFIER,FILEN
- +3 SET L=0
- +4 FOR
- SET L=$ORDER(@VFILE@("AD",ABMP("VDFN"),L))
- IF 'L
- QUIT
- Begin DoDot:1
- +5 ;T first piece is test, S is site
- +6 SET T=$GET(@VFILE@(+L,0))
- IF 'T
- QUIT
- +7 ;skip entries that don't have CPT - BILLABLE ITEM populated
- IF VFILE["VLAB"&($PIECE($GET(^AUPNVLAB(+L,14)),U,2)="")
- QUIT
- +8 SET ^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),ABMVFILE)=+$GET(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),ABMVFILE))+1
- +9 SET ABMP("VDETAIL",ABMVFILE,VFILE,+L)=""
- +10 ;there is more than 1 CPT on a lab
- IF VFILE["VLAB"&($LENGTH($PIECE($GET(^AUPNVLAB(+L,14)),U,2),";")>1)
- Begin DoDot:2
- +11 FOR S=2:1:$LENGTH($PIECE($GET(^AUPNVLAB(+L,14)),U,2),";")
- SET ^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),ABMVFILE)=+$GET(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),ABMVFILE))+1
- SET ABMP("VDETAIL",ABMVFILE,VFILE,+L)=""
- End DoDot:2
- End DoDot:1
- +12 QUIT
- CHECK2 ;EP
- +1 SET ABMVIEN=0
- +2 FOR
- SET ABMVIEN=$ORDER(^AUPNVCPT("AD",ABMP("VDFN"),ABMVIEN))
- IF 'ABMVIEN
- QUIT
- Begin DoDot:1
- +3 ;CPT
- SET ABMCPT=$PIECE($GET(^ICPT($PIECE($GET(^AUPNVCPT(ABMVIEN,0)),U),0)),U)
- +4 ;default
- SET ABMVFILE="8H"
- +5 IF (((ABMCPT<100)!(ABMCPT?.5N1.6A.5N)!($LENGTH(ABMCPT)=6))&((ABMY("PGS")["8H")!(ABMY("PGS")["8Z")))
- SET ^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),"8H")=+$GET(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),"8H"))+1
- SET ABMVFILE="8H"
- +6 IF (((ABMCPT>79999)&(ABMCPT<90000))&((ABMY("PGS")["8E")!(ABMY("PGS")["8Z")))
- SET ^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),"8E")=+$GET(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),"8E"))+1
- SET ABMVFILE="8E"
- +7 IF (((ABMCPT>69999)&(ABMCPT<80000))&((ABMY("PGS")["8F")!(ABMY("PGS")["8Z")))
- SET ^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),"8F")=+$GET(^TMP("ABM-SPIN",$JOB,"VLST",ABMP("CDFN"),"8F"))+1
- SET ABMVFILE="8F"
- +8 IF (ABMCPT>89999)
- SET ABMVFILE="8A"
- +9 SET ABMP("VDETAIL",ABMVFILE,"^AUPNVCPT",ABMVIEN)=""
- End DoDot:1
- +10 QUIT
