ABSPOSBL.m

ABSPOSBL ; IHS/FCS/DRS - obsolete;   

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

 Q

EN ; option ABSP LOG OF BILLING marked as DELETE AT SITE - XINDEX bug?

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

 Q

ABSPOSBL  ; IHS/FCS/DRS - obsolete;   

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

 +2        QUIT 

EN        ; option ABSP LOG OF BILLING marked as DELETE AT SITE - XINDEX bug?

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

 +2        QUIT