ORQPT READ RPL

 Variables used:

   ORCNT   = Counter variable.
   ORDIR   = Direction to move through list.
   ORFROM  = Starting point from which to move through list.
   ORI     = Counter variable.
   ORIEN   = Record IEN holder.
   ORJ     = Job number to use in ^TMP global root.
   ORROOT  = ^TMP global file root.
   ORZ     = Temporary value holder.
   Y       = Returned array.

 N ORCNT,ORI,ORIEN,ORROOT,ORZ
 I $P(ORFROM,U,2)'="" S ORFROM=$P(ORFROM,U,2)
 S ORROOT="^TMP("_"""ORRPL"""_","_ORJ      ; Initial setting.
 S ORROOT=ORROOT_","_"""B"""               ; Add final text.
 I '$D(@(ORROOT_")")) S Y(0)="No data available." Q
 S ORROOT=ORROOT_","                       ; Add comma.
 S ORCNT=44                                ; Initialize to maximum.
 S ORI=0                                   ; Initialize.
 F  S ORFROM=$O(@(ORROOT_""""_ORFROM_""""_")"),ORDIR) Q:ORFROM=""  D  Q:ORI=ORCNT
 .;
 .; Sub-loop for entries up to ORCNT maximum:
 .S ORIEN=0                                ; Initialize.
 .F  S ORIEN=$O(@(ORROOT_""""_ORFROM_""""_","_ORIEN_")")) Q:'ORIEN  D  Q:ORI=ORCNT
 ..S ORI=ORI+1                             ; Increment counter.
 ..;
 ..; Assign return array:
 ..S Y(ORI)=@(ORROOT_""""_ORFROM_""""_","_ORIEN_")")