Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: ABMDE8BS

ABMDE8BS.m

Go to the documentation of this file.

ABMDE8BS ; IHS/DSD/DMJ - Surgical CPT Screen ;

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

 I $D(^ICPT(Y,0)),$P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,7)'=1,$P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4)]"",$P($$CAT^ABMCVAPI($P($$CPT^ABMCVAPI(Y,ABMP("VDT")),U,4),ABMP("VDT")),U,3)=2  ;CSV-c

ABMDE8BS  ; IHS/DSD/DMJ - Surgical CPT Screen ;

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

 +2       ;

 +3       ;CSV-c

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

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

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

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

 +4        QUIT