ABMRVCXR.m

ABMRVCXR ; IHS/SD/SDR - Revenue Code Cross reference FOR MULTIPLES ;   

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

 ;

 ; This routine is used for the cross reference for pages

 ; 8A, 8E and 8F of the claim editor.  It will try to

 ; populate the rev code (.02) if the field is blank,

 ; looking in the CPT file for a default rev code.

 ;

 ; IHS/SD/SDR - v2.6 CSV

 ;

SET ;EP

 Q:$G(ABMZ("SUB"))=""  ;subfile number not defined

 Q:$P($G(^ABMDCLM(DUZ(2),DA(1),ABMZ("SUB"),DA,0)),U,2)'=""  ;something already there

 S ABMREVCD=$P($$IHSCPT^ABMCVAPI($P($G(^ABMDCLM(DUZ(2),DA(1),ABMZ("SUB"),DA,0)),U),ABMP("VDT")),U,3)  ;CSV-c

 I ABMREVCD'="" D

 .S DIE="^ABMDCLM(DUZ(2),"

 .S DR=".02////"_ABMREVCD

 .D ^DIE

 Q

KILL ;EP

 Q

ABMRVCXR  ; IHS/SD/SDR - Revenue Code Cross reference FOR MULTIPLES ;   

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

 +2       ;

 +3       ; This routine is used for the cross reference for pages

 +4       ; 8A, 8E and 8F of the claim editor.  It will try to

 +5       ; populate the rev code (.02) if the field is blank,

 +6       ; looking in the CPT file for a default rev code.

 +7       ;

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

 +9       ;

SET       ;EP

 +1       ;subfile number not defined

           IF $GET(ABMZ("SUB"))=""

               QUIT 

 +2       ;something already there

           IF $PIECE($GET(^ABMDCLM(DUZ(2),DA(1),ABMZ("SUB"),DA,0)),U,2)'=""

               QUIT 

 +3       ;CSV-c

           SET ABMREVCD=$PIECE($$IHSCPT^ABMCVAPI($PIECE($GET(^ABMDCLM(DUZ(2),DA(1),ABMZ("SUB"),DA,0)),U),ABMP("VDT")),U,3)

 +4        IF ABMREVCD'=""

               Begin DoDot:1

 +5                SET DIE="^ABMDCLM(DUZ(2),"

 +6                SET DR=".02////"_ABMREVCD

 +7                DO ^DIE

               End DoDot:1

 +8        QUIT 

KILL      ;EP

 +1        QUIT