VistA Analysis » VistA Reference » RPCs » ORQPT TEAMS

ORQPT TEAMS

Function returns a list of teams.

Properties

Property Value
Label TEAMS
MUMPS Implementation ORQPTQ1
Return Type ARRAY

MUMPS Method Description

Property Value
Method TEAMS^ORQPTQ1
Method Comment return list of teams for a system
First Comment 
 Also called under DBIA # 2692.
Code 
 N ORTM,I,ORTMN
 S ORTMN="",I=1
 F  S ORTMN=$O(^OR(100.21,"B",ORTMN)) Q:ORTMN=""  D
 .S ORTM="",ORTM=$O(^OR(100.21,"B",ORTMN,ORTM)) Q:ORTM=""
 .I $P($G(^OR(100.21,ORTM,11)),U)'=0!($D(^OR(100.21,ORTM,1,$G(DUZ,0)))) S ORY(I)=ORTM_U_ORTMN,I=I+1
 S:+$G(ORY(1))<1 ORY(1)="^No teams found."

CPRS

File Type Description
Pascal File rCore.pas


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