©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
ORWDCSLT ; SLC/KCM - Consults calls [ 08/04/96 7:36 PM ]
Source file <ORWDCSLT.m>
| Package | Total | Call Graph |
|---|---|---|
| Toolkit | 1 | GETLST^XPAR |
| VA Fileman | 1 | $$FIND1^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| NXT() | ; increments ILST
|
|
| INURG | ; get list of urgencies for inpatient consults
|
|
| INPLACE | ; load list of places for outpatient
|
|
| OUTPLACE | ; load list of places
|
|
| OUTURG | ; get list of urgencies for outpatient consults
|
|
| LOOK200(VAL,X) | ||
| DEF(LST) |
| 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 |
| Name | Line Occurrences |
|---|---|
| $$NXT | 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 |
| INPLACE | DEF+6 |
| INURG | DEF+4 |
| OUTPLACE | DEF+7 |
| OUTURG | DEF+5 |
| SRVC | DEF+3 |
| >> | 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 |