VistA Analysis » VistA Reference » RPCs » OREVNTX1 MULTS

OREVNTX1 MULTS

Properties

Property Value
Label MULTS
MUMPS Implementation OREVNTX1
Return Type ARRAY

MUMPS Method Description

Property Value
Method MULTS^OREVNTX1
Method Comment Return specialty list for the EVTID(#100.5)
Input Parameters EVTID
Code 
 Q:'+EVTID
 N I,CNT,X,Y S (I,CNT)=0
 N PRTEVT
 S PRTEVT=0
 S PRTEVT=$P(^ORD(100.5,+EVTID,0),U,12)
 I PRTEVT>0 S EVTID=PRTEVT
 F  S I=$O(^ORD(100.5,+$G(EVTID),"TS",I)) Q:I<1  S X=+$G(^(I,0)) D
 . S Y=$$GET1^DIQ(45.7,X_",",.01)
 . S CNT=CNT+1,ORY(CNT)=X_U_Y

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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