VistA Analysis » VistA Reference » RPCs » ORWDCN32 PROCEDURES

ORWDCN32 PROCEDURES

Returns a list of orderable procedures. Same as ORDITM^ORWDX except: 1. Checks inactive date in file 101.43 against NOW instead of DT.2. Checks for at least one service that can perform the procedure.3. Returns variable pointer to procedure in 4th piece of each item.

Properties

Property Value
Label PROC
MUMPS Implementation ORWDCN32
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
start LITERAL 16    
direction LITERAL 16    

MUMPS Method Description

Property Value
Method PROC^ORWDCN32
Method Comment Return a subset of orderable procedures
Input Parameters FROM, DIR
First Comment
 .Return Array, Starting Text, Direction
^ORD(101.43,"S.PROC",UpperCase,DA)=Mne^MixedCase^InactvDt^.01IfMne
Y(n)=IEN^.01 Name^.01 Name -or- IEN^Synonym <.01 Name>^.01 Name
Code
 N I,IEN,CNT,X,DTXT,ORID,ORSVCCNT S I=0,CNT=44
F Q:I' . S IEN=0 F S IEN=$O(^ORD(101.43,"S.PROC",FROM,IEN)) Q:'IEN D
. . S X=^ORD(101.43,"S.PROC",FROM,IEN)
. . I +$P(X,U,3),$P(X,U,3)<$$NOW^XLFDT Q ;ICR 10103
. . S ORID=$P($G(^ORD(101.43,IEN,0)),U,2)
. . ;I $P($G(^ORD(101,ORIEN,0)),U,3)'="" Q ; Removed for v14
. . D GETSVC^GMRCPR0(.ORSVCCNT,ORID) Q:+ORSVCCNT=0 ;ICR 2982
. . S I=I+1
. . I 'X S Y(I)=IEN_U_$P(X,U,2)_U_$P(X,U,2)_U_ORID
. . E S Y(I)=IEN_U_$P(X,U,2)_$C(9)_"<"_$P(X,U,4)_">"_U_$P(X,U,4)_U_ORID

CPRS

File Type Description
Pascal File Consults/rConsults.pas


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