VistA Analysis » VistA Reference » RPCs » ORWPCE LEXCODE

ORWPCE LEXCODE

Returns a code associated with a lexicon entry.

Properties

Property Value
Label LEXCODE
MUMPS Implementation ORWPCE
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method LEXCODE^ORWPCE
Method Comment return code for a lexicon entry
Input Parameters IEN, APP, ORDATE
Code 
 S VAL=""
 S:'+$G(ORDATE) ORDATE=DT
 I APP="ICD"!(APP="10D") S VAL=$$ONE^LEXU(IEN,ORDATE,APP)_U_$S(APP="ICD":"ICD-9-CM",1:"ICD-10-CM")
 I APP="CPT"!(APP="CHP") S VAL=$$CPTONE^LEXU(IEN,ORDATE)_U_"CPT-4"
 I $P(VAL,U)="",(APP="CHP") S VAL=$$CPCONE^LEXU(IEN,ORDATE)_U_"HCPCS"

CPRS

File Type Description
Pascal File Encounter/rPCE.pas


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