©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
OCXOZ01 ;SLC/RJS,CLA - Order Check Scan ;JAN 28,2014 at 03:37
Source file <OCXOZ01.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 4 | CHK1^OCXOZ02 CHK23^OCXOZ03 CHK58^OCXOZ05 CHK95^OCXOZ06 |
| Kernel | 1 | ($$FMTH,$$HL7TFM)^XLFDT |
| VA Fileman | 1 | ^%DT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOG() | ; Returns the number of days to keep the Raw Data Log or 0 if logging is disabled.
; External Call. |
|
| SCAN | ; Tests all Rules for Event/Elements that were found to be valid in the UPDATE subroutine.
; Called from UPDATE+15. |
|
| SWAPIN(NAME,ARRAY) | ;
; Called from UPDATE+24. |
|
| SWAPOUT(NAME,ARRAY) | ;
; Called from UPDATE+9. |
|
| TERM(OCXTERM,OCXLIST) | ; Local Term Lookup
; Internal Call. |
|
| UPDATE(DFN,OCXSRC,OUTMSG) | ; Main Entry point for evaluating Rules.
; External Call. |
|
| DT2INT(OCXDT) | ; This Local Extrinsic Function converts a date into an integer
; By taking the Years, Months, Days, Hours and Minutes converting ; Them into Seconds and then adding them all together into one big integer |
|
| GETDF | ;This subroutine loads the OCXDF data field array from variables in the environment.
; Called from UPDATE+9. |
|
| CDATA() | ; Returns compiler flags, Execution TRACE ON/OFF, Time Logging ON/OFF, and Raw Data Logging ON/OFF
; External Call. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OCXS(860.3 - [#860.3] | SCAN+8 |
| ^TMP("OCXCHK" | UPDATE+4!, UPDATE+5*, UPDATE+22!, SCAN+6, SCAN+7, SCAN+10*, SCAN+11! |
| ^TMP("OCXSWAP" | SWAPOUT+6!, SWAPOUT+7*, SWAPOUT+8*, SWAPIN+7, SWAPIN+8! |
| Name | Line Occurrences |
|---|---|
| $$DT2INT | GETDF+30, GETDF+32 |
| @( | SCAN+9 |
| GETDF | UPDATE+9 |
| SCAN | UPDATE+15 |
| SWAPIN | UPDATE+24 |
| SWAPOUT | UPDATE+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DT2INT+28~* |
| ARRAY | SWAPOUT~, SWAPOUT+8, SWAPOUT+9!, SWAPIN~, SWAPIN+6!, SWAPIN+7* |
| DFN | UPDATE~, UPDATE+8, SCAN+6, SCAN+7, SCAN+10 |
| FILE | TERM+7~*, TERM+11*, TERM+14 |
| IEN | TERM+7~, TERM+11*, TERM+12 |
| LINE | TERM+7~, TERM+8* |
| LTERM | TERM+7~, TERM+11*, TERM+12 |
| NAME | SWAPOUT~, SWAPOUT+5, SWAPOUT+6, SWAPOUT+8, SWAPIN~, SWAPIN+5, SWAPIN+7, SWAPIN+8 |
| NTERM | TERM+7~, TERM+10* |
| OCXD0 | SCAN+6~*, SCAN+7, SCAN+8, SCAN+10 |
| OCXDF | UPDATE+6~, UPDATE+24! |
| OCXDF(1 | GETDF+26* |
| OCXDF(113 | GETDF+40* |
| OCXDF(12 | GETDF+31* |
| OCXDF(13 | GETDF+32* |
| OCXDF(15 | GETDF+33* |
| OCXDF(152 | GETDF+41* |
| OCXDF(2 | GETDF+27* |
| OCXDF(21 | GETDF+34* |
| OCXDF(23 | GETDF+35* |
| OCXDF(24 | GETDF+36* |
| OCXDF(34 | GETDF+37* |
| OCXDF(37 | GETDF+38* |
| OCXDF(5 | GETDF+28* |
| OCXDF(6 | GETDF+29* |
| OCXDF(82 | GETDF+39* |
| OCXDF(9 | GETDF+30* |
| OCXDIFF | DT2INT+5~*, DT2INT+27* |
| OCXDT | DT2INT~, DT2INT+4, DT2INT+7, DT2INT+9, DT2INT+10, DT2INT+11, DT2INT+12*, DT2INT+14, DT2INT+16, DT2INT+17* , DT2INT+18*, DT2INT+20, DT2INT+22, DT2INT+23*, DT2INT+24*, DT2INT+26, DT2INT+27*, DT2INT+28*, DT2INT+30*, DT2INT+32* , DT2INT+34 |
| OCXHR | DT2INT+8~, DT2INT+9*, DT2INT+10*, DT2INT+11*, DT2INT+12 |
| OCXLIST | TERM~, TERM+7! |
| OCXLIST( | TERM+12* |
| OCXLIST("B" | TERM+12* |
| OCXMIN | DT2INT+8~, DT2INT+9*, DT2INT+12 |
| OCXMON | DT2INT+15~, DT2INT+16*, DT2INT+17, DT2INT+18, DT2INT+21~, DT2INT+22*, DT2INT+23, DT2INT+24 |
| OCXNDX | UPDATE+6~ |
| OCXNDX1 | UPDATE+18~, UPDATE+19*, UPDATE+20, UPDATE+21 |
| OCXNDX2 | UPDATE+18~, UPDATE+20*, UPDATE+21 |
| OCXOCMSG | UPDATE+6~ |
| OCXOCMSG( | UPDATE+19, UPDATE+20, UPDATE+21 |
| OCXOCMSG("" | UPDATE+17 |
| >> OCXODATA | UPDATE+9, UPDATE+24 |
| >> OCXODATA("OBR" | GETDF+28, GETDF+32, GETDF+35, GETDF+36, GETDF+41 |
| >> OCXODATA("OBX" | GETDF+29, GETDF+31, GETDF+33, GETDF+40 |
| >> OCXODATA("ORC" | GETDF+26, GETDF+27, GETDF+30, GETDF+34, GETDF+37 |
| >> OCXODATA("PID" | GETDF+38 |
| >> OCXODATA("RXO" | GETDF+39 |
| OCXOERR | UPDATE+6~, GETDF+3, SWAPOUT+3, SWAPIN+3, SCAN+3, TERM+3 |
| >> OCXOSRC | UPDATE+9, UPDATE+10, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+24 |
| OCXPGM | SCAN+8~*, SCAN+9 |
| OCXRULE | SCAN+6~ |
| OCXSRC | UPDATE~ |
| OCXTERM | TERM~, TERM+5, TERM+10 |
| OCXTIME | DT2INT+8~, DT2INT+9* |
| OCXTSPI | UPDATE+6~, UPDATE+7* |
| OCXVAL | DT2INT+5~*, DT2INT+34*, DT2INT+36 |
| OCXX | UPDATE+6~ |
| OUTMSG | UPDATE~ |
| OUTMSG( | UPDATE+20, UPDATE+21* |
| OUTMSG(999999 | UPDATE+21 |
| TEXT | TERM+7~, TERM+8*, TERM+9*, TERM+10, TERM+11 |
| U | TERM+10, TERM+11, DT2INT+16, DT2INT+22 |
| X | DT2INT+28~* |
| Y | DT2INT+28~ |
| Name | Field # of Occurrence |
|---|---|
| $T(TERM+LINE | TERM+8 |