ABSPOSB0.m

ABSPOSB0 ; IHS/FCS/DRS - Obsolete ;     

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

 Q

MAIN ; option ABSP DO BILLING marked as DELETE AT SITE - XINDEX bug?

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

 Q

ABSPOSB0  ; IHS/FCS/DRS - Obsolete ;     

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

 +2        QUIT 

MAIN      ; option ABSP DO BILLING marked as DELETE AT SITE - XINDEX bug?

 +1        DO IMPOSS^ABSPOSUE("P","TI",,,"MAIN",$TEXT(+0))

 +2        QUIT