VistA Analysis » VistA Reference » RPCs » ORWPCE GET SET OF CODES

ORWPCE GET SET OF CODES

Returns values for a set of codes given a file and field number.

Properties

Property Value
Label GETSET
MUMPS Implementation ORWPCE2
Return Type ARRAY

MUMPS Method Description

Property Value
Method GETSET^ORWPCE2
Method Comment gets set of codes
Input Parameters ORWFILE, ORWFIELD, ORWNULL
First Comment 
 ORWLST(n)=code^text for code
Code 
 N ORWPCE,ORWPCEL,ORWPCEC,ORWPCELO,ORWPCEHI,ORWPCECD,ORWPCET
 S ORWPCELO="abcdefghijklmnopqrstuvwxyz"
 S ORWPCEHI="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 D FIELD^DID(ORWFILE,ORWFIELD,"","POINTER","ORWPCE","ORWPCE")
 S ORWPCEL=$L(ORWPCE("POINTER"),";")-1
 F ORWPCEC=1:1:ORWPCEL D
 . S ORWPCECD=$P($P(ORWPCE("POINTER"),";",ORWPCEC),":",1)
 . S ORWPCET=$P($P(ORWPCE("POINTER"),";",ORWPCEC),":",2)
 . S ORWLST(ORWPCEC)=ORWPCECD_"^"_$E(ORWPCET)_$TR($E(ORWPCET,2,99),ORWPCEHI,ORWPCELO)
 S:$G(ORWNULL) ORWLST(0)="@^(None selected)"

CPRS

File Type Description
Pascal File Encounter/rPCE.pas


Document generated on August 31st 2022, 2:55:43 pm