VAQ GET LIFE (160)    FUNCTION (.5)

Name Value
NAME VAQ GET LIFE
MUMPS CODE S X=+$O(^VAT(394.81,0)) S X=+$G(^VAT(394.81,X,"LIFE")) S:(X=0) X=30 I 1
EXPLANATION Retrieves allowable age for a PDX Transaction (defaults to 30)
DATE-VALUED NO