©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
ORKOR ; slc/CLA - Order checking support procedure for orders ;12/15/97 [ 04/02/97 2:55 PM ]
Source file <ORKOR.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 2 | TEXT^ORQ12 ($$DUPRANGE,$$ORDERER,$$STATUS)^ORQOR2 |
| Kernel | 1 | $$FMTE^XLFDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DUP(ORY,ORDFN,OI,ODT,DG) | ; return duplicate order in format:
; order#^order text(first 60 chars) order effective d/t [order status] |
|
| ORDERER(ORNUM) | ;extrinsic function returns the order's (ORNUM) original requesting provider
|
|
| TEXT(ORNUM,ORCHAR) | ;ext funct rtns the first ORCHAR chars of an order text
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OR(100 - [#100] | DUP+8, DUP+9, DUP+13 |
| Name | Line Occurrences |
|---|---|
| $$TEXT | DUP+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BDT | DUP+3~, DUP+6*, DUP+7 |
| DG | DUP~, DUP+2, DUP+5 |
| INBDT | DUP+3~, DUP+6*, DUP+9 |
| ODT | DUP~, DUP+5 |
| OI | DUP~, DUP+5, DUP+8, DUP+9 |
| ORCHAR | TEXT~, TEXT+4 |
| ORDFN | DUP~, DUP+5, DUP+8, DUP+9 |
| ORDT | DUP+3~, DUP+10*, DUP+17*, DUP+18 |
| >> ORIFN | DUP+12 |
| ORN | DUP+3~, DUP+4*, DUP+9*, DUP+11, DUP+12, DUP+13, DUP+14, DUP+18 |
| ORNUM | TEXT~, TEXT+4, ORDERER~, ORDERER+1 |
| ORS | DUP+3~, DUP+14*, DUP+18 |
| ORSI | DUP+3~, DUP+14*, DUP+16 |
| ORY | DUP~, DUP+18*, TEXT+3~, TEXT+4, TEXT+5 |
| ORY(1 | TEXT+5 |
| U | DUP+6, DUP+13, DUP+14, DUP+18 |
| X | DUP+3~, DUP+5*, DUP+6 |
| XDT | DUP+3~, DUP+4*, DUP+8*, DUP+9, DUP+10 |