VistA Analysis » VistA Reference » RPCs » ORQPT PATIENT TEAM PROVIDERS

ORQPT PATIENT TEAM PROVIDERS

Function returns a list of providers linked to a patient via teams.

Properties

Property Value
Label TPTPR
MUMPS Implementation ORQPTQ1
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
PATIENT LITERAL 16 true Patient identifier from patient file [#2].

MUMPS Method Description

Property Value
Method TPTPR^ORQPTQ1
Method Comment return list of providers linked to a patient via teams
Input Parameters PT
Code 
 I +$G(PT)<1 S ORY(1)="^No patient identified" Q
 N ORTM,PROV,SEQ
 S ORTM=""
 F  S ORTM=$O(^OR(100.21,"AB",+PT_";DPT(",ORTM)) Q:+$G(ORTM)<1  D
 .S SEQ=0 F  S SEQ=$O(^OR(100.21,+ORTM,1,SEQ)) Q:SEQ<1  D
 ..S PROV=^OR(100.21,+ORTM,1,SEQ,0) I $L(PROV) D
 ...S ORY(+PROV)=+PROV_U_$P(^VA(200,+PROV,0),U)
 S:'$D(ORY) ORY(1)="^No providers found."

CPRS

File Type Description
Pascal File rProbs.pas


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