VistA Analysis » VistA Reference » RPCs » ORWDRA32 IMTYPSEL

ORWDRA32 IMTYPSEL

Properties

Property Value
Label IMTYPSEL
MUMPS Implementation ORWDRA32
Return Type ARRAY

MUMPS Method Description

Property Value
Method IMTYPSEL^ORWDRA32
Method Comment return list of active imaging types
Input Parameters DUMMY
Code 
 N ORX,I,IEN,DGRP,MNEM,NAME
 S ORX=""
 F I=1:1  S ORX=$O(^RA(79.2,"C",ORX)) Q:ORX=""  D
 . I '$D(^ORD(101.43,"S."_ORX)) Q
 . S IEN=$O(^RA(79.2,"C",ORX,0))
 . S NAME=$P(^RA(79.2,IEN,0),U,1)
 . S MNEM=$P(^RA(79.2,IEN,0),U,3)
 . S DGRP=$O(^ORD(100.98,"B",MNEM,0))
 . S Y(I)=IEN_U_NAME_U_MNEM_U_DGRP

CPRS

File Type Description
Pascal File Orders/rODRad.pas


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