ABSPOSBA.m

ABSPOSBA ; IHS/FCS/DRS - obsolete ;   

 ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 Q

EN ; option ABSP SUP ILC AR BILLING LISTS marked as DELETE AT SITE - XINDEX bug?

 D IMPOSS^ABSPOSUE("P","T",,,"EN",$T(+0))

 Q

ABSPOSBA  ; IHS/FCS/DRS - obsolete ;   

 +1       ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001

 +2        QUIT 

EN        ; option ABSP SUP ILC AR BILLING LISTS marked as DELETE AT SITE - XINDEX bug?

 +1        DO IMPOSS^ABSPOSUE("P","T",,,"EN",$TEXT(+0))

 +2        QUIT