©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
ORKRA ; slc/CLA - Order checking support procedure for Radiology ;12/15/97
Source file <ORKRA.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 4 | $$TEXT^ORKOR EN^ORQ1 $$DG^ORQOR1 $$CM^ORQQRA |
| Kernel | 1 | ($$FMADD,$$FMTE)^XLFDT |
| Registration | 1 | OERR^VADPT |
| Toolkit | 1 | $$GET^XPAR |
| VA Fileman | 1 | NOW^%DTC |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 4 | OCXOZ08 OCXOZ09 OCXOZ0A OCXOZ0E |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RECENTCH(ORDFN,ORDAYS) | ;extrinsic function to return the most recent cholecystogram procedure within the past ORDAYS in the format:
; order #^order text (first 60 chars) order effective date/time |
|
| CMCDAYS(DFN) | ;extrinsic function to return number of days to look for
; contrast media serum creatinine result |
|
| RECENTBA(ORDFN,ORHRS) | ; extrinsic function to return the most recent radiology procedure using barium within the past ORHRS in the format:
; order #^order text (first 60 chars) order effective date/time |
|
| TYPE(OI) | ;extrinisic function which returns the imaging type for an orderable item
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | RECENTBA+6, RECENTCH+6 |
| $$TEXT^ORKOR | RECENTBA+22, RECENTCH+22 |
| EN^ORQ1 | RECENTBA+12, RECENTCH+12 |
| $$DG^ORQOR1 | RECENTBA+9, RECENTCH+9 |
| $$CM^ORQQRA | RECENTBA+18, RECENTCH+18 |
| OERR^VADPT | CMCDAYS+6 |
| $$FMADD^XLFDT | RECENTBA+7, RECENTCH+7 |
| $$FMTE^XLFDT | RECENTBA+21, RECENTCH+21 |
| $$GET^XPAR | CMCDAYS+10 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(42 - [#42] | CMCDAYS+7 |
| ^OR(100 - [#100] | RECENTBA+16, RECENTBA+20, RECENTCH+16, RECENTCH+20 |
| ^ORD(101.43 - [#101.43] | TYPE+3 |
| ^TMP("ORR" | RECENTBA+11!, RECENTBA+13, RECENTBA+15, RECENTBA+23!, RECENTCH+11!, RECENTCH+13, RECENTCH+15, RECENTCH+23! |
| Name | Field # of Occurrence |
|---|---|
| ^( | RECENTBA+13, RECENTCH+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | RECENTBA+6!, RECENTCH+6! |
| BDT | RECENTBA+2~, RECENTBA+7*, RECENTBA+8, RECENTBA+12, RECENTCH+2~, RECENTCH+7*, RECENTCH+8, RECENTCH+12 |
| DFN | CMCDAYS~, CMCDAYS+2 |
| EDT | RECENTBA+2~, RECENTBA+6*, RECENTBA+7, RECENTBA+12, RECENTCH+2~, RECENTCH+6*, RECENTCH+7, RECENTCH+12 |
| HDT | RECENTBA+2~, RECENTBA+3*, RECENTBA+13*, RECENTBA+15, RECENTCH+2~, RECENTCH+3*, RECENTCH+13*, RECENTCH+15 |
| INBDT | RECENTBA+2~, RECENTCH+2~ |
| OI | TYPE~, TYPE+3 |
| ORCM | RECENTBA+2~, RECENTBA+18*, RECENTBA+19, RECENTCH+2~, RECENTCH+18*, RECENTCH+19 |
| ORDAYS | RECENTCH~, RECENTCH+5, RECENTCH+7, CMCDAYS+3~, CMCDAYS+10*, CMCDAYS+11 |
| ORDFN | RECENTBA~, RECENTBA+4, RECENTBA+12, RECENTCH~, RECENTCH+4, RECENTCH+12 |
| ORDG | RECENTBA+2~, RECENTBA+9*, RECENTBA+10, RECENTBA+12, RECENTCH+2~, RECENTCH+9*, RECENTCH+10, RECENTCH+12 |
| ORDT | RECENTBA+2~, RECENTBA+3*, RECENTBA+20*, RECENTBA+21*, RECENTBA+22, RECENTCH+2~, RECENTCH+3*, RECENTCH+20*, RECENTCH+21*, RECENTCH+22 |
| ORENT | CMCDAYS+3~, CMCDAYS+9*, CMCDAYS+10 |
| ORHRS | RECENTBA~, RECENTBA+5, RECENTBA+7 |
| ORLOC | CMCDAYS+3~, CMCDAYS+7*, CMCDAYS+9 |
| ORN | RECENTBA+2~, RECENTBA+3*, RECENTBA+15*, RECENTBA+16, RECENTBA+20, RECENTBA+22, RECENTCH+2~, RECENTCH+3*, RECENTCH+15*, RECENTCH+16 , RECENTCH+20, RECENTCH+22 |
| OROI | RECENTBA+2~, RECENTBA+16*, RECENTBA+17, RECENTBA+18, RECENTCH+2~, RECENTCH+16*, RECENTCH+17, RECENTCH+18 |
| ORQ | RECENTBA+2~, RECENTBA+3*, RECENTBA+4, RECENTBA+5, RECENTBA+8, RECENTBA+10, RECENTBA+13, RECENTBA+14, RECENTBA+22*, RECENTBA+24 , RECENTCH+2~, RECENTCH+3*, RECENTCH+4, RECENTCH+5, RECENTCH+8, RECENTCH+10, RECENTCH+13, RECENTCH+14, RECENTCH+22*, RECENTCH+24 |
| ORTYPE | TYPE+2~*, TYPE+3*, TYPE+4*, TYPE+5 |
| TOT | RECENTBA+2~, RECENTBA+3*, RECENTBA+13*, RECENTBA+14, RECENTCH+2~, RECENTCH+3*, RECENTCH+13*, RECENTCH+14 |
| U | RECENTBA+20, RECENTBA+22, RECENTCH+20, RECENTCH+22, TYPE+4 |
| VA200 | CMCDAYS+6*, CMCDAYS+8! |
| VAIN | CMCDAYS+8! |
| VAIN(4 | CMCDAYS+7 |
| X | RECENTBA+2~, RECENTBA+3*, RECENTBA+14*, RECENTBA+15, RECENTCH+2~, RECENTCH+3*, RECENTCH+14*, RECENTCH+15 |
| XDT | RECENTBA+2~, RECENTCH+2~ |