ABMDEBAN.m

ABMDEBAN ; IHS/ASDST/DMJ - Claim Data Entry Banner ;

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

 ;

 W !!

 W ?22 F ABMD("I")=1:1:35 W "*"

 W !?22,"*",?27,"THIRD PARTY BILLING SYSTEM",?56,"*"

 W !,?22,"*",?32,"CLAIM DATA ENTRY"

 W ?56,"*"

 W !?22,"*"

 W ?80-$L(ABMD("SITE"))\2,ABMD("SITE")

 W ?56,"*"

 W !,?22 F ABMD("I")=1:1:35 W "*"

 W !

 ;

XIT K ABMD

 Q

ABMDEBAN  ; IHS/ASDST/DMJ - Claim Data Entry Banner ;

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

 +2       ;

 +3        WRITE !!

 +4        WRITE ?22

           FOR ABMD("I")=1:1:35

               WRITE "*"

 +5        WRITE !?22,"*",?27,"THIRD PARTY BILLING SYSTEM",?56,"*"

 +6        WRITE !,?22,"*",?32,"CLAIM DATA ENTRY"

 +7        WRITE ?56,"*"

 +8        WRITE !?22,"*"

 +9        WRITE ?80-$LENGTH(ABMD("SITE"))\2,ABMD("SITE")

 +10       WRITE ?56,"*"

 +11       WRITE !,?22

           FOR ABMD("I")=1:1:35

               WRITE "*"

 +12       WRITE !

 +13      ;

XIT        KILL ABMD

 +1        QUIT