VistA Analysis » VistA Reference » RPCs » ORQQCN STATUS

ORQQCN STATUS

Returns a list of consult statuses currently in use, as reflected in the”AC” XREF of ^GMR(123.1.

Properties

Property	Value
Label	STATUS
MUMPS Implementation	ORQQCN2
Return Type	ARRAY

MUMPS Method Description

Property Value

Method STATUS^ORQQCN2

Method Comment Returns a list of statuses currently in use

Code

Property	Value
Method	STATUS^ORQQCN2
Method Comment	Returns a list of statuses currently in use
Code	`N GMRCORST S GMRCORST=0,Y(999)="999^OTHER^" F S GMRCORST=$O(^ORD(100.01,GMRCORST)) Q:'+GMRCORST D . I '$D(^GMR(123.1,"AC",GMRCORST)) S Y(999)=Y(999)_GMRCORST_"," Q . Q:$$SCREEN^XTID(100.01,,GMRCORST_",") ;inactive VUID . S Y(GMRCORST)=GMRCORST_U_$P(^ORD(100.01,GMRCORST,0),U,1)`

 N GMRCORST
 S GMRCORST=0,Y(999)="999^OTHER^"
 F  S GMRCORST=$O(^ORD(100.01,GMRCORST)) Q:'+GMRCORST  D
 . I '$D(^GMR(123.1,"AC",GMRCORST)) S Y(999)=Y(999)_GMRCORST_"," Q
 . Q:$$SCREEN^XTID(100.01,,GMRCORST_",")  ;inactive VUID
 . S Y(GMRCORST)=GMRCORST_U_$P(^ORD(100.01,GMRCORST,0),U,1)

CPRS

File Type	Description
Pascal File	Consults/rConsults.pas

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