VistA Analysis » VistA Reference » RPCs » ORQQCN SVCTREE

ORQQCN SVCTREE

Returns a specially formatted list of consult services for use inpopulating a GUI TreeView control.

Properties

Property Value
Label SVCTREE
MUMPS Implementation ORQQCN2
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
PURPOSE LITERAL 16 true  

MUMPS Method Description

Property Value
Method SVCTREE^ORQQCN2
Method Comment Returns list of consult service for current
Input Parameters PURPOSE
First Comment 
  context, screening for inactive, groupers, and tracking
 PURPOSE: Display=0, Forward=1, Order=1
Code 
 N GMRCTO,GMRCDG,GMRCSVC,GMRCOI
  S GMRCTO=PURPOSE,GMRCDG=1
 D SERV1^GMRCASV
 S GMRCSVC=0
 I '$D(^TMP("GMRCSLIST",$J)) S Y(1)="-1^No services found" Q  ;DBIA 2426
 F I=1:1  S GMRCSVC=$O(^TMP("GMRCSLIST",$J,GMRCSVC)) Q:+GMRCSVC=0  D
 . S Y(I)=^TMP("GMRCSLIST",$J,GMRCSVC)
 . S GMRCOI=$O(^ORD(101.43,"ID",$P(Y(I),U,1)_";99CON",0))
 . S Y(I)=Y(I)_U_GMRCOI

CPRS

File Type Description
Pascal File Consults/rConsults.pas


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