VistA Analysis » VistA Reference » RPCs » ORWDBA2 GETPDL

ORWDBA2 GETPDL

Returns a clinician’s personal diagnosis codes.

Properties

Property Value
Label GETPDL
MUMPS Implementation ORWDBA2
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
ORCIEN REFERENCE 255 true The clinician's internal ID number.

MUMPS Method Description

Property Value
Method GETPDL^ORWDBA2
Method Comment Get Personal Diagnosis List
Input Parameters ORCIEN
First Comment
This gets the clinician's personal diagnosis list. Using the personal
diagnosis list, builds and returns an array variable with the ICD9
codes and descriptions stored in the ICD DIAGNOSIS file, # 80.
Flagging any inactive ICD9 code with a "#".
Input Variable:
ORCIEN Clinician Internal ID number
Output Variable:
Y Array of ICD9 codes and descriptions
Y(#)=ICD9_code^DX_description^DX_Inactive
If inactive # in third piece
If active null in third piece
Local Variables:
DXC Diagnosis Code (for sorting)
DXD Diagnosis Description
DXDT Diagnosis Date
DXI Diagnosis Inactive Flag
EM Error Message
ICD9 ICD9 code (for GUI)
IEN Internal Entry Number
RF Record Found
Code
 N DXC,DXD,DXDT,DXI,EM,ICD9,IEN,RF
S DXDT=$$NOW^XLFDT
D GETS^DIQ(200,ORCIEN,"351*,","EI","RF","EM")
I $D(RF) D
. S (DXC,DXD,DXI,ICD9,IEN)=""
. F S IEN=$O(RF(200.0351,IEN)) Q:IEN="" D
.. S ICD9=RF(200.0351,IEN,.01,"E")
.. S DXC=$$SETDXC(ICD9)
.. I $G(RF(200.0351,IEN,1,"I"))="" S DXD=$$SETDXD($P($$ICDDATA^ICDXCODE("DIAGNOSIS",ICD9,DXDT),U,4))
.. I $G(RF(200.0351,IEN,1,"I"))=1 S DXD=$$SETDXD($P($$ICDDATA^ICDXCODE("DIAGNOSIS",ICD9,DXDT),U,4))
.. I $G(RF(200.0351,IEN,1,"I"))>1 S DXD=RF(200.0351,IEN,1,"E")
.. S DXI=$$SETDXI($$STATCHK^ICDXCODE("DIAGNOSIS",ICD9,DXDT))
.. S Y(DXC)=ICD9_U_DXD_U_DXI
E S Y=0

CPRS

File Type Description
Pascal File BA/UBACore.pas


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