ORWDCSLT ; SLC/KCM - Consults calls [ 08/04/96 7:36 PM ]
Source file <ORWDCSLT.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 2 | ORWDCSLT DEF ORWDCSLT LOOK200 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ORD(101.42 - [#101.42] | INURG+2, OUTURG+2 |
| ^ORD(101.43 - [#101.43] | SRVC+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| I | SRVC+5~, SRVC+7*, SRVC+8 |
| IEN | DEF+1~, SRVC+5~, SRVC+8*, SRVC+9, INURG+2*, INURG+3, OUTURG+2*, OUTURG+3 |
| ILST | DEF+1~, DEF+2*, NXT+1*, NXT+2 |
| LST | DEF~ |
| LST( | DEF+3*, DEF+4*, DEF+5*, DEF+6*, DEF+7*, SRVC+9*, INURG+3*, INURG+4*, OUTURG+3*, OUTURG+4* , OUTPLACE+1*, OUTPLACE+2*, INPLACE+1*, INPLACE+2* |
| NAM | DEF+1~ |
| TMPLST | SRVC+5~, SRVC+6 |
| TMPLST( | SRVC+7, SRVC+8 |
| U | SRVC+8, SRVC+9, INURG+3, OUTURG+3 |
| VAL | LOOK200~, LOOK200+1* |
| X | DEF+1~, INURG+1*, INURG+2, INURG+3, OUTURG+1*, OUTURG+2, OUTURG+3, OUTPLACE+1*, INPLACE+1*, LOOK200~ , LOOK200+1 |
