; Long Description History
;
; Input:
;
; FILE File Number (Required)
; IEN Internal Entry Number (Required)
; .ARY Array Passed by Reference (Optional)
;
; Output:
;
; $$LDH This is a three piece "^" delimited
; string containing:
;
; 1 Number of long descriptions found
; 2 The earliest date found
; 3 The latest date found
;
; OR -1 ^ Error Message
;
; ARY Long Descriptions by date
;
; ARY(0)= # ^ Earliest Date ^ Latest Date
; ARY(DATE)=Long Description
;
SDH(FILE,IEN,ARY)
; Short Description History
;
; Input:
;
; FILE File Number (Required)
; IEN Internal Entry Number (Required)
; .ARY Array Passed by Reference (Optional)
;
; Output:
;
; $$SDH This is a three piece "^" delimited
; string containing:
;
; 1 Number of short descriptions found
; 2 The earliest date found
; 3 The latest date found
;
; OR -1 ^ Error Message
;
; ARY Short Descriptions by date
;
; ARY(0)= # ^ Earliest Date ^ Latest Date
; ARY(DATE)=Long Description
;