DSSO DAT PREPOPULATOR (4359)    REMOTE PROCEDURE (8994)

This RPC extracts all valid records from the Record of Pros 
Appliance/Repair (#660) file from the date in the DSSO DAT PREPOP START 
DATE forward.  The number of records processed per run is specified by 
parameter DSSO DAT PREPOP RCDS PER RUN.  This job will begin with the 
IEN specified in parameter DSSO DAT PREPOP LAST 660 IEN.  The job is 
controlled by VistA parameters.  No input parameters are needed.

The first line of the returned array will be in the following format:
      number of internal values)
 
 If field 28 Extended Description exists, this section will be
  present:
  List [n]="$$EXTENDED DESCRIPTION (660 field 28)$$"
  List [n]=xxxx^28^line number^data
  List [n...]=xxxx^28^line number^data
           where:
            xxxx = file 660 IEN
            field number 28 = Extended Description from file 660 
 List [0] = Purge Date ^ Create Date ^ descriptive information
            data = one line of data from the word-processing field
 
 If field 8.1 Suspense Date in file 660 is not null, this section
  will be present:
  List [n]="$$DESCRIPTION OF ITEM/SERVICES$$"
  List [n]=xxxx^4^line number^data
  List [n...]=xxxx^4^line number^data
           where:
            xxxx = file 668 IEN
            field number 4 = Description of Item/Services from file 668
    Example:  3150323^31503123^DSS APAT Appliance Transaction Extract temp
            data = one line of data from the word-processing field
 
  List [n]="$$HCPCS SHORT NAME$$"
  List [n]=xxxx^.02^E^data
           where:
            field number .02 = HCPCS Short Name from file 661.1
            xxxx = 661.1 IEN if a HCPCS is present (in field 4.5 of file
                   660) or just "661.1" if this is a SHIPPING entry
 
  List [n]="$$PATIENT$$"
 
  List [n]=file 2 ien^field number^"E" or "I"^data
  List [n...]=Patient file (#2) information in the above format
    for fields:
       Date of Birth (#.03)
       ICN (as returned from DSIC DPT GET ICN)
       Patient ID (#.0905)
 
   The Last Record Processed will appear as:
           List[9999999999999998] = ^-pc 1 Text "$$LAST RCD$$"
                                    ^-pc 2 IEN of last record processed
 All fields from file 660 and a few fields from the Patient file (#3) are
 
   The End of the dataset will appear as:
           List [999999999999999] = Text "$$END$$"
 
  Error Messages:
    Any error message will occur along with the $$LAST RCD$$ or $$END$$
    entries.
 
    List ["E"] = Purge Date ^ Create Date./Time ^
                 Error in 2319 Extract: -1^xxxxxxxx
 returned in the following format:
          where xxxxxxxx=text of error message
  List [n]="$$APPLIANCE TRANSACTION$$"
  List [n...]=file 660 ien^field number^"E" or "I"^data
     (external values of all fields are returned followed by a limited