; EP - Option ABSP INQUIRY BY CLAIM ID
; A sort criterion. Prompt for FR and TO.
; Lookup on file 9002313.02 now?
RESTYPE
; EP - Option ABSP INQUIRY BY RESULT TYPE
; Select from the entries in file 9002313.83
; Build screens corresponding to the list (i.e., it's not a sort item)
FM
; EP - Option ABSP INQUIRY BY FILEMAN
; we will leave the BY undefined
ADDSCREE(X)
; store the screen, xecutable code stored in X
INIT
; EP - init ABSPOSMA
; Nice idea for future - retain settings on user-by-user basis
PHARM
; EP - Option ABSP INQUIRY BY PHARMACY
TEST
PATIENT
; EP - Option ABSP INQUIRY BY PATIENT
; Select a list of patients.
; Build screens corresponding to the list (i.e., it's not a sort item)
; I $P(^ABSPTL(D0,0),U,6)=patient ien
KILLSORT
; EP - kill all sort fields except the date/time ones