VistA Analysis » VistA Reference » RPCs » ORWPT LAST5 RPL

ORWPT LAST5 RPL

Returns a list of patients matching the string of Last Name Initial_Last 4 SSN (Initial/Last 4 look-up based on Restricted Patient List).

Properties

Property	Value
Label	LAST5RPL
MUMPS Implementation	ORWPT
Return Type	ARRAY

MUMPS Method Description

Property Value

Method LAST5RPL^ORWPT

Input Parameters ID

Code

Property	Value
Method	LAST5RPL^ORWPT
Input Parameters	ID
Code	`N ORRPL,ORCNT,ORPT,ORPIEN S ORRPL=$G(^VA(200,DUZ,101)) S ORRPL=$P(ORRPL,U,2) I (('ORRPL)!(ORRPL="")) S LST(0)="" Q S (ORCNT,ORPT)=0 F S ORPT=$O(^OR(100.21,ORRPL,10,ORPT)) Q:'ORPT D .S ORPIEN=+$G(^OR(100.21,ORRPL,10,ORPT,0)) .I ((ORPIEN<0)!(ORPIEN="")) Q .S ORCNT=ORCNT+1 .S LST(ORCNT)=ORPIEN_U_$P(^DPT(ORPIEN,0),U)_U_$$DOB^DPTLK1(ORPIEN,2)_U_$$SSN^DPTLK1(ORPIEN) ; DG249.`

 N ORRPL,ORCNT,ORPT,ORPIEN
 S ORRPL=$G(^VA(200,DUZ,101))
 S ORRPL=$P(ORRPL,U,2)
 I (('ORRPL)!(ORRPL="")) S LST(0)="" Q
 S (ORCNT,ORPT)=0
 F  S ORPT=$O(^OR(100.21,ORRPL,10,ORPT)) Q:'ORPT  D
 .S ORPIEN=+$G(^OR(100.21,ORRPL,10,ORPT,0))
 .I ((ORPIEN<0)!(ORPIEN="")) Q
 .S ORCNT=ORCNT+1
 .S LST(ORCNT)=ORPIEN_U_$P(^DPT(ORPIEN,0),U)_U_$$DOB^DPTLK1(ORPIEN,2)_U_$$SSN^DPTLK1(ORPIEN) ; DG249.

CPRS

File Type	Description
Pascal File	rCore.pas

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