ACKQAUD1

TITLEVALUE
NAMEACKQAUD1
DESCRIPTIONThis RPC gets the audiogram data for the selected entry
in the Audiometric Exam Data file 509850.9 and returns
it to the calling program in the array ACKQARR()
This is for the Audiometric Display only.
TAGSTART
ROUTINEACKQAG01
INPUT PARAMETERSSEQUENCE NUMBER1
INPUT PARAMETERDFN
DESCRIPTIONThe internal number in the PATIENT file (#2).
PARAMETER TYPELITERAL
REQUIREDYES
MAXIMUM DATA LENGTH

INPUT PARAMETERSSEQUENCE NUMBER2
INPUT PARAMETERIEN
DESCRIPTIONInternal number in the AUDIOMETRIC EXAM DATA file (#509850.9).
PARAMETER TYPELITERAL
REQUIREDNO
MAXIMUM DATA LENGTH

RETURN VALUE TYPEARRAY
RETURN PARAMETER DESCRIPTIONSee routine ACKQAG01 for a complete description of the return array.
1=# audiograms[0-2]
2=name of patient
3=first audiogram date seen
4=first tester name
5=age of patient at first test
6=title of tester for first audiogram
7=SSN of patient
8=second audiogram date(or error message if an error exists)
9=tester name for second audiogram
10=age of patient at second audiogram
11=title of tester for second audiogram
ACKQARR(ctr) pieces for each all X values
1=X Value(Hz) being tested
2=ACKQI - internal record number in 509850.9
3=ear[L,R]
4=air Y(dB) val
5=airMask[0-6]
6=airMaskLevel
7=bone Y(dB) value
8=boneMask[0-6]
9=boneMaskLevel
10=IAR
11=CAR
;;Will return to Delphi app as subscripted array
;;RETURN() subscripted values
;; 1-12(1st audiogram R ear)
;; 13-24(1st audiogram L ear)
;; 25 is speech recog 1st audiogram
;; 26 is the 120/121 nodes for 1st audiogram
;; 27-38(2nd audiogram R ear)
;; 39-50(2nd audiogram L ear)
;;51 is the speech recog for the 2nd audiogram
52 is the 120/121 nodes for the 2nd audiogram
AVAILABILITYRESTRICTED
INACTIVE
CLIENT MANAGER
WORD WRAP ONFALSE
VERSION
SUPPRESS RDV USER SETUP
APP PROXY ALLOWED