VistA Analysis » VistA Reference » RPCs » OREVNTX1 ISDCOD

OREVNTX1 ISDCOD

Properties

Property Value
Label ISDCOD
MUMPS Implementation OREVNTX1
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method ISDCOD^OREVNTX1
Method Comment True: the order need to be filtered out
Input Parameters ORIFN
Code
 N PAS,X3,X0,ORGRPLST,THEGRP,IDX,ODGRP
S (ORY,IDX)=0
Q:'$D(^OR(100,+ORIFN,0))
S X0=$G(^OR(100,+ORIFN,0))
S ODGRP=$P(X0,U,11)
D GETLST^XPAR(.ORGRPLST,"ALL","OREVNT EXCLUDE DGRP")
F S IDX=$O(ORGRPLST(IDX)) Q:'IDX!ORY D
. S THEGRP=$P($G(ORGRPLST(IDX)),U,2)
. I $$GRPCHK(THEGRP,ODGRP) S ORY=1
I ORY Q
S PAS=";1;2;7;13;" ;*347 Update Filter
S:$D(^OR(100,+ORIFN,3)) X3=^OR(100,+ORIFN,3)
S:(PAS[(";"_$P(X3,U,3)_";")) ORY=1

CPRS

File Type Description
Executable Only  


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