DENTV TOOTH HISTORY (1085)    REMOTE PROCEDURE (8994)

This returns the dental history for a single tooth for a patient or for 
all records.

• DATA
  PARAMETER TYPE:   LITERAL
  MAXIMUM DATA LENGTH:   30
  REQUIRED:   YES
  SEQUENCE NUMBER:   1
  DESCRIPTION:   

  Input parameter for looking up dental history in file 19600.1
             for procedures not related to a specific tooth.
   
   FMDate := optional - Fileman date format - optional - default to all
             records.  If date is passed, then only records whose date is
             greater than or equal to this date will be returned
    Format: Patient DFN ^ tooth# ^ FMDate where
   
   Patient DFN := required - pointer to patient file (2)
   
   tooth# := optional - number of the tooth you wish the history on.
             If tooth#=0 or tooth#="", then return data that was not
             associated with any particular tooth.
             If tooth#="ALL", then it will return data for all teeth and
  

A global array will be passed back to the calling client.  The format
         order (newest record first).
  p3 :== cpt short description
  p4 :== cpt code
  p5 :== provider's name
  p6 :== surfaces
  p7 :== quadrant
  p8 :== # canals
  p9 :== primary (this will be null or equal to 'YES')
 p10 :== pce primary icd9 short description
 p11 :== pce primary icd9 diagnosis
of the returned array is defined in the TH module in the DENTVRH routine.
 p12 :== record number (ien) in file 19600.1
 p13 :== visit/appointment date/time (may be null)
 p14 :== ctv value
  
 The diagnoses codes (1-5) associated with each tooth/cpt code will be
 on the second continuation line
  q1 :== icd9-1 short description of the primary dental diagnosis
  q2 :== icd9-1 code of the primary dental diagnosis
  If there are more than one diagnoses associated with a tooth/cpt
   combination then q3^q4 / q5^q6 / q7^q8 / q9^q10 will follow q1^q2 
 
 
If any errors are encountered, then error messages will be returned in the
format -1^error message text
If any errors are encountered, an error message will be returned in the
format -1^error message text
 
end return description 7/9/2003
         specific tooth
p2 :== date of 19600.1 record, human readable, in reverse chronological