ORWDCN32 ; SLC/KCM/REV - Consults calls [ 12/16/97 12:47 PM ] ;02/23/15 06:35
Source file <ORWDCN32.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEF(LST,WHY) | ||
| CID | ; get default value for Clinically Indicated Date
|
|
| SHORT | ;return list of Consults or Procedures quick orders
|
|
| OUTPLACE | ; load list of places
|
|
| INPLACE | ; load list of places for outpatient
|
|
| INCURG | ; get list of urgencies for inpatient consults
|
|
| INPURG | ; get list of urgencies for inpatient procedures
|
|
| OUTURG | ; get list of urgencies for outpatient consults/procedures
|
|
| NXT() | ; increments ILST
|
|
| LOOK200(VAL,X) | ||
| ORDRMSG(Y,ORDITM) | ;returns order message for this consult/procedure orderable
|
|
| GETPROTO(Y,ORIEN) | ;Get Protocol file IEN from OR IEN
|
|
| GETOINUM(Y,ORNUM) | ;Get Orderable Item IEN from Protocol IEN
|
|
| GETPRONM(Y,ORNAME) | ;Get Protocol IEN given name
|
|
| PROC(Y,FROM,DIR) | ; Return a subset of orderable procedures
; .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 |
|
| NEWDLG(Y,ORTYPE,ORLOC) | ; Return order dialog info for New Consult OR PROCEDURE
|
| RPC Name | Call Tags |
|---|---|
| ORWDCN32 DEF | DEF |
| ORWDCN32 ORDRMSG | ORDRMSG |
| ORWDCN32 PROCEDURES | PROC |
| ORWDCN32 NEWDLG | NEWDLG |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | FIND1^DIC |
