Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RORRP029

RORRP029.m

Go to the documentation of this file. 
  1. RORRP029 ;HCIOFO/SG - RPC: ADDRESS UTILITIES ; 4/16/03 9:35am
  1.  ;;1.5;CLINICAL CASE REGISTRIES;;Feb 17, 2006
  1.  ;
  1.  ; This routine uses the following IAs:
  1.  ;
  1.  ; #10056        Read access to the STATE file (#5)
  1.  ;
  1.  Q
  1.  ;
  1.  ;***** RETURNS THE LIST OF STATES
  1.  ; RPC: [ROR LIST STATES]
  1.  ;
  1.  ; .RESULTS      Reference to a local variable where the results
  1.  ;               are returned to.
  1.  ;
  1.  ; PART          The search pattern (partial match restriction)
  1.  ;
  1.  ; [FLAGS]       Flags that control the execution (can be combined):
  1.  ;                 A  Enable abbreviation search (if PART contains 2
  1.  ;                    character abbreviation, the corresponding state 
  1.  ;                    is returned. Otherwise, the regular search is
  1.  ;                    performed).
  1.  ;                 B  Backwards. Traverses the index in the opposite
  1.  ;                    direction of normal traversal.
  1.  ;
  1.  ; [NUMBER]      Maximum number of entries to return. A value of "*"
  1.  ;               or no value in this parameter designates all entries.
  1.  ;
  1.  ; [FROM]        The index entry(s) from which to begin the list.
  1.  ;               You should use the pieces of the @RESULTS@(0) node
  1.  ;               (starting from the second one) to continue the
  1.  ;               listing in the subsequent procedure calls.
  1.  ;
  1.  ;               NOTE: The FROM value itself is not included in
  1.  ;                     the resulting list.
  1.  ;
  1.  ; The ^TMP("DILIST",$J) global node is used by the procedure.
  1.  ;
  1.  ; See description of the LIST^DIC for more details about the
  1.  ; PART, NUMBER and FROM parameters.
  1.  ;
  1.  ; Return Values:
  1.  ;
  1.  ; A negative value of the first "^"-piece of the @RESULTS@(0)
  1.  ; indicates an error (see the RPCSTK^RORERR procedure for more
  1.  ; details).
  1.  ;
  1.  ; Otherwise, number of states and the value of the FROM
  1.  ; parameter for the next procedure call are returned in the
  1.  ; @RESULTS@(0) and the subsequent nodes of the global array
  1.  ; contain the states.
  1.  ; 
  1.  ; @RESULTS@(0)          Result Descriptor
  1.  ;                         ^01: Number of states
  1.  ;                         ^02: Values that comprise the FROM
  1.  ;                         ^nn: parameter for the subsequent call
  1.  ;
  1.  ; @RESULTS@(i)          State
  1.  ;                         ^01: IEN
  1.  ;                         ^02: Name
  1.  ;                         ^03: Abbreviation
  1.  ;                         ^04: VA State Code
  1.  ;
  1. STATELST(RESULTS,PART,FLAGS,NUMBER,FROM) ;
  1.  N BUF,FIELDS,I,RC,RORERRDL,TMP
  1.  D CLEAR^RORERR("STATELST^RORRP029",1)
  1.  K RESULTS  S RESULTS=$NA(^TMP("DILIST",$J))  K @RESULTS
  1.  S FIELDS="@;.01;1;2"
  1.  ;--- Check the parameters
  1.  S RC=0  D  I RC<0  D RPCSTK^RORERR(.RESULTS,RC)  Q
  1.  . ;--- Flags
  1.  . S FLAGS=$$UP^XLFSTR($G(FLAGS))
  1.  . ;--- Others
  1.  . S PART=$G(PART),FROM=$G(FROM)
  1.  . S NUMBER=$S($G(NUMBER)>0:+NUMBER,1:"*")
  1.  ;--- Setup the start point
  1.  F I=1:1  S TMP=$P(FROM,U,I)  Q:TMP=""  S FROM(I)=TMP
  1.  S FROM=$G(FROM(1))
  1.  ;--- Check for the abbreviation
  1.  S RC=0
  1.  I FLAGS["A",$L(PART)=2  D  I RC<0  D RPCSTK^RORERR(.RESULTS,RC)  Q
  1.  . D LIST^DIC(5,,FIELDS,"P",2,,PART,"C",,,,"RORMSG")
  1.  . I $G(DIERR)  S RC=$$DBS^RORERR("RORMSG",-9,,,5)  Q
  1.  . S:+$G(^TMP("DILIST",$J,0))=1 RC=1
  1.  ;--- Query the file
  1.  I 'RC  D  I RC<0  D RPCSTK^RORERR(.RESULTS,RC)  Q
  1.  . S TMP="P"_$S(FLAGS["B":"B",1:"")
  1.  . D LIST^DIC(5,,FIELDS,TMP,NUMBER,.FROM,PART,"B",,,,"RORMSG")
  1.  . I $G(DIERR)  S RC=$$DBS^RORERR("RORMSG",-9,,,5)  Q
  1.  ;--- Success
  1.  S TMP=$G(^TMP("DILIST",$J,0)),BUF=+$P(TMP,U)
  1.  K ^TMP("DILIST",$J,0)
  1.  I $P(TMP,U,3)  S I=0  D
  1.  . F  S I=$O(FROM(I))  Q:I'>0  S TMP=FROM(I)  S:TMP'="" BUF=BUF_U_TMP
  1.  S @RESULTS@(0)=BUF
  1.  Q