ABMDPOST.m

ABMDPOST ; IHS/ASDST/DMJ - 3P BILLING POST INIT ;  

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

START ;START

 S DIE="^ABMDEXP("

 S DA=21

 S DR=".01///837 INST (UB)"

 D ^DIE

 S DA=22

 S DR=".01///837 PROF (HCFA)"

 D ^DIE

 S DA=23

 S DR=".01///837 DENT (HCFA)"

 D ^DIE

 Q

ABMDPOST  ; IHS/ASDST/DMJ - 3P BILLING POST INIT ;  

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

START     ;START

 +1        SET DIE="^ABMDEXP("

 +2        SET DA=21

 +3        SET DR=".01///837 INST (UB)"

 +4        DO ^DIE

 +5        SET DA=22

 +6        SET DR=".01///837 PROF (HCFA)"

 +7        DO ^DIE

 +8        SET DA=23

 +9        SET DR=".01///837 DENT (HCFA)"

 +10       DO ^DIE

 +11       QUIT