ABMZ837.m

ABMZ837 ; Local mods routine for 837 billing

 ;

REF03 ; Kidscare - change REF for provider to 1D and Medicaid number

 ;REF03^ABMZ837 IS REFERENCED BY THE KIDSCARE ENTRIES IN THE

 ;3P EXP LOCAL MOD FILE

 I $G(ABMR("REF",20))="OB"  D

 .S ABMR("REF",20)="1D"

 .S ABMR("REF",30)=$$MCD^ABMEEPRV(ABMIEN)

 Q

ABMZ837   ; Local mods routine for 837 billing

 +1       ;

REF03     ; Kidscare - change REF for provider to 1D and Medicaid number

 +1       ;REF03^ABMZ837 IS REFERENCED BY THE KIDSCARE ENTRIES IN THE

 +2       ;3P EXP LOCAL MOD FILE

 +3        IF $GET(ABMR("REF",20))="OB"

               Begin DoDot:1

 +4                SET ABMR("REF",20)="1D"

 +5                SET ABMR("REF",30)=$$MCD^ABMEEPRV(ABMIEN)

               End DoDot:1

 +6        QUIT