VistA Analysis » VistA Reference » RPCs » ORQQCN SVCLIST

ORQQCN SVCLIST

Because the combo box on the Consults order dialog needs to include ashortlist at the top, a call was needed that returned the list of consultsservices alphabetically as a long list. This is it.

Properties

Property Value
Label SVCLIST
MUMPS Implementation ORQQCN2
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
StartFrom LITERAL 24 true Starting service for the returned list, full or partial name.
Direction LITERAL 4 true Direction of the lookup.

MUMPS Method Description

Property Value
Method SVCLIST^ORQQCN2
Method Comment Return a set of consult services in long list format
Input Parameters FROM, DIR
First Comment 
 .ORY=returned list, FROM=text to $O from, DIR=$O direction,
Code 
 N I,IEN,CNT,Y,ORTMP,ORSVC,ORSTR
 S I=0,CNT=44,ORSVC=""
 D SVCTREE^ORQQCN2(.Y,1)
 F I=1:1  S ORSVC=$P($G(Y(I)),U,2) Q:ORSVC=""  D
 . S ORTMP(ORSVC)=Y(I)
 F I=1:1  Q:I=CNT  S FROM=$O(ORTMP(FROM),DIR) Q:FROM=""  D
 . S ORSTR=ORTMP(FROM)
 . S ORY(I)=ORSTR

CPRS

File Type Description
Pascal File Consults/rConsults.pas


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