ABMDVS10.m

ABMDVS10 ; IHS/ASDST/DMJ - PCC VISIT STUFF, RADIOLOGY ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;Original;DMJ;08/19/96 4:42 PM

 Q   ;Superceeded by ABMDVS13

START ;START HERE

 S ABM10=0 F  S ABM10=$O(^AUPNVRAD("AD",ABMVDFN,ABM10)) Q:'ABM10  D

 .K ABM10(9000010.22)

 .S DIC="^AUPNVRAD(",DIQ="ABM10(",DIQ(0)="E",DR=.019,DA=ABM10

 .D EN^DIQ1 K DIQ

 .S ABMCPT=$G(ABM10(9000010.22,DA,.019,"E")) Q:ABMCPT=""

 .S ABMSRC="22|"_ABM10_"|CPT"

 .S ABMSDT=$G(ABM10(9000010.22,DA,1201,"I"))

 .Q:$D(^ABMDCLM(DUZ(2),ABMP("CDFN"),"ASRC",ABMSRC))

 .;The following rtn is used for more than just radiology

 .D ^ABMFCPT

 Q

ABMDVS10  ; IHS/ASDST/DMJ - PCC VISIT STUFF, RADIOLOGY ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;Original;DMJ;08/19/96 4:42 PM

 +3       ;Superceeded by ABMDVS13

           QUIT 

START     ;START HERE

 +1        SET ABM10=0

           FOR 

               SET ABM10=$ORDER(^AUPNVRAD("AD",ABMVDFN,ABM10))

               IF 'ABM10

                   QUIT 

               Begin DoDot:1

 +2                KILL ABM10(9000010.22)

 +3                SET DIC="^AUPNVRAD("

                   SET DIQ="ABM10("

                   SET DIQ(0)="E"

                   SET DR=.019

                   SET DA=ABM10

 +4                DO EN^DIQ1

                   KILL DIQ

 +5                SET ABMCPT=$GET(ABM10(9000010.22,DA,.019,"E"))

                   IF ABMCPT=""

                       QUIT 

 +6                SET ABMSRC="22|"_ABM10_"|CPT"

 +7                SET ABMSDT=$GET(ABM10(9000010.22,DA,1201,"I"))

 +8                IF $DATA(^ABMDCLM(DUZ(2),ABMP("CDFN"),"ASRC",ABMSRC))

                       QUIT 

 +9       ;The following rtn is used for more than just radiology

 +10               DO ^ABMFCPT

               End DoDot:1

 +11       QUIT