VistA Analysis » VistA Reference » RPCs » ORWPT FULLSSN RPL

ORWPT FULLSSN RPL

Given an SSN in the format 999999999(P), return a list of matching patients based on Restricted Patient List.

Properties

Property Value
Label FSSNRPL
MUMPS Implementation ORWPT
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
IEN LITERAL 15 true SSN in the format '999999999(P)'.

MUMPS Method Description

Property Value
Method FSSNRPL^ORWPT
Method Comment Return list matching Full SSN, but from RPL only.
Input Parameters ID
Code 
 N ORRPL,ORCNT,ORPT,ORLPT,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(^DPT("SSN",ID,ORPT)) Q:'ORPT  D
 .S ORLPT=0
 .F  S ORLPT=$O(^OR(100.21,ORRPL,10,ORLPT)) Q:'ORLPT  D
 ..S ORPIEN=+$G(^OR(100.21,ORRPL,10,ORLPT,0))
 ..I ((ORPIEN<0)!(ORPIEN="")) Q
 ..I (ORPIEN'=ORPT) 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