ABMDE8AS.m

ABMDE8AS ; IHS/DSD/DMJ - Professional Component Screen ;

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

 ;

 ; IHS/SD/SDR - v2.6 CSV

 ;

 I $D(^ICPT(Y,0)),$P($$CPT^ABMCVAPI(Y,""),U,7)'=1  ;CSV-c

 E  Q

 G IP:ABMP("VTYP")=111!($G(ABMP("BTYP"))=111)

 ;

OP I +$P(^ABMDCLM(ABMP("CDFN"),0),U,6)>0 G HH:$P($G(^DIC(40.7,$P(^(0),U,6),0)),U,2)=11

 I $P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4)=23!($P($G(^ABMDCLM(ABMP("CDFN"),8)),U,5)="Y"&($P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4)=28)) Q  ;CSV-c

 G MED

 ;

IP ;

 I $P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4)=25!($P($G(^ABMDCLM(ABMP("CDFN"),8)),U,5)="Y"&($P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,3)=28)) Q  ;CSV-c

 E  G MED

 Q

 ;

HH ;

 I $P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4)=24 Q  ;CSV-c

 G MED

 ;

IMM ;

 I $P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,3)=31 Q  ;CSV-c

 E  G MED

 Q

 ;

PMED ;

 I $P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4)=32 Q  ;CSV-c

 E  G MED

 Q

 ;

MED Q:Y<90000  Q:Y>99999

 I Y>90599

 Q

ABMDE8AS  ; IHS/DSD/DMJ - Professional Component Screen ;

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

 +2       ;

 +3       ; IHS/SD/SDR - v2.6 CSV

 +4       ;

 +5       ;CSV-c

           IF $DATA(^ICPT(Y,0))

               IF $PIECE($$CPT^ABMCVAPI(Y,""),U,7)'=1

 +6       IF '$TEST

               QUIT 

 +7        IF ABMP("VTYP")=111!($GET(ABMP("BTYP"))=111)

               GOTO IP

 +8       ;

OP         IF +$PIECE(^ABMDCLM(ABMP("CDFN"),0),U,6)>0

               IF $PIECE($GET(^DIC(40.7,$PIECE(^(0),U,6),0)),U,2)=11

                   GOTO HH

 +1       ;CSV-c

           IF $PIECE($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4)=23!($PIECE($GET(^ABMDCLM(ABMP("CDFN"),8)),U,5)="Y"&($PIECE($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4)=28))

               QUIT 

 +2        GOTO MED

 +3       ;

IP        ;

 +1       ;CSV-c

           IF $PIECE($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4)=25!($PIECE($GET(^ABMDCLM(ABMP("CDFN"),8)),U,5)="Y"&($PIECE($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,3)=28))

               QUIT 

 +2       IF '$TEST

               GOTO MED

 +3        QUIT 

 +4       ;

HH        ;

 +1       ;CSV-c

           IF $PIECE($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4)=24

               QUIT 

 +2        GOTO MED

 +3       ;

IMM       ;

 +1       ;CSV-c

           IF $PIECE($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,3)=31

               QUIT 

 +2       IF '$TEST

               GOTO MED

 +3        QUIT 

 +4       ;

PMED      ;

 +1       ;CSV-c

           IF $PIECE($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4)=32

               QUIT 

 +2       IF '$TEST

               GOTO MED

 +3        QUIT 

 +4       ;

MED        IF Y<90000

               QUIT 

           IF Y>99999

               QUIT 

 +1        IF Y>90599

 +2        QUIT