ORWDCSLT ; SLC/KCM - Consults calls [ 08/04/96 7:36 PM ]
Source file <ORWDCSLT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEF(LST) | ||
| SRVC | ; get list of consulting services
; S NAM="" F S NAM=$O(^ORD(101.43,"S.CSLT",NAM)) Q:NAM="" D ; . S IEN=$O(^ORD(101.43,"S.CSLT",NAM,0)) ; . S LST($$NXT)="i"_IEN_U_NAM ; Q |
|
| INURG | ; get list of urgencies for inpatient consults
|
|
| OUTURG | ; get list of urgencies for outpatient consults
|
|
| OUTPLACE | ; load list of places
|
|
| INPLACE | ; load list of places for outpatient
|
|
| NXT() | ; increments ILST
|
|
| LOOK200(VAL,X) |
| RPC Name | Call Tags |
|---|---|
| ORWDCSLT LOOK200 | LOOK200 |
| ORWDCSLT DEF | DEF |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | FIND1^DIC |
