OCXOZ13 ;SLC/RJS,CLA - Order Check Scan ;JAN 28,2014 at 03:37
Source file <OCXOZ13.m>
Package | Total | Call Graph |
---|---|---|
Order Entry Results Reporting | 2 | EN^ORB3 $$PPLINK^ORQPTQ1 |
Toolkit | 1 | ENVAL^XPAR |
Package | Total | Caller Graph |
---|---|---|
Order Entry Results Reporting | 2 | OCXOZ0I OCXOZ12 |
Name | Comments | DBIA/ICR reference |
---|---|---|
NEWRULE(OCXDFN,OCXORD,OCXRUL,OCXREL,OCXNOTF,OCXMESS) | ; Has this rule already been triggered for this order number
|
|
CKSUM(STR) | ; Compiler Function: GENERATE STRING CHECKSUM
|
|
R69R1B | ; Send Order Check, Notication messages and/or Execute code for Rule #69 'LAB THRESHOLD' Relation #1 'IF HL7 LAB RESULTS AND (GREATER THAN THRESHOLD VAL...'
; Called from R69R1A+13^OCXOZ12. |
|
R70R1A | ; Verify all Event/Elements of Rule #70 'NO ALLERGY ASSESSMENT' Relation #1 'NO ALLERGY ASSESSMENT AND (RADIOLOGY ORDER OR PHAR...'
; Called from EL28+5^OCXOZ0I, and EL135+5^OCXOZ0I, and EL136+5^OCXOZ0I, and EL137+5^OCXOZ0I. |
|
MCE137() | ; Verify Event/Element: PHARMACY ORDER
|
|
MCE28() | ; Verify Event/Element: RADIOLOGY ORDER
|
|
MCE136() | ; Verify Event/Element: NO ALLERGY ASSESSMENT
|
|
R70R1B | ; Send Order Check, Notication messages and/or Execute code for Rule #70 'NO ALLERGY ASSESSMENT' Relation #1 'NO ALLERGY ASSESSMENT AND (RADIOLOGY ORDER OR PHAR...'
; Called from R70R1A+14. |
|
SETAP(ROOT,DD,DATA,DA) | ; Set Rule Event data
|
|
LABTHRSR(OCXDUZ,OCXLAB,OCXSPEC,OCXRSLT,OCXPTDFN) | ||
MCE135() | ; Verify Event/Element: DIET ORDER
|
|
GETDATA(DFN,OCXL,OCXDFI) | ; This Local Extrinsic Function returns runtime data
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^OCXD(860.7 - [#860.7] | NEWRULE+13, NEWRULE+47! |
^OCXS(860.2 - [#860.2] | R70R1A+11, NEWRULE+38 |
^TMP("OCXCHK" | GETDATA+3, MCE135+6, MCE136+6, MCE137+6, MCE28+6, NEWRULE+50, NEWRULE+55 |
^TMP("OCXSWAP" | R69R1B+26 |
Name | Line Occurrences |
---|---|
$$CKSUM | NEWRULE+10 |
$$GETDATA | R69R1B+14, R69R1B+19 |
$$LABTHRSR | R69R1B+19 |
$$MCE135 | R70R1A+16 |
$$MCE136 | R70R1A+13 |
$$MCE137 | R70R1A+15 |
$$MCE28 | R70R1A+14 |
$$NEWRULE | R69R1B+33, R70R1B+18 |
R70R1B | R70R1A+14, R70R1A+15, R70R1A+16 |
SETAP | NEWRULE+23, NEWRULE+30, NEWRULE+36, NEWRULE+48, NEWRULE+57 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ASC | CKSUM+2~, CKSUM+4* |
CKSUM | CKSUM+2~*, CKSUM+4*, CKSUM+5 |
DA | SETAP~, SETAP+2, SETAP+3 |
DATA | SETAP~, SETAP+1 |
DD | SETAP~, SETAP+2, SETAP+3 |
DFN | R69R1B+14, R69R1B+19, R69R1B+33, R69R1B+34, R70R1B+18, GETDATA~, GETDATA+3, MCE135+5, MCE136+5, MCE137+5 , MCE28+5 |
OCXCKSUM | NEWRULE+7~, NEWRULE+10*, NEWRULE+13, NEWRULE+20 |
OCXCMSG | R69R1B+12~, R69R1B+13*, R70R1B+10~, R70R1B+11*, R70R1B+12*, R70R1B+23 |
OCXDATA | R69R1B+12~, R69R1B+24*, R69R1B+26*, R69R1B+27*, R69R1B+34, R70R1B+10~, NEWRULE+7~, NEWRULE+17!, NEWRULE+23, NEWRULE+25! , NEWRULE+30, NEWRULE+32!, NEWRULE+36, NEWRULE+42!, NEWRULE+48, NEWRULE+53!, NEWRULE+57 |
OCXDATA( | NEWRULE+18*, NEWRULE+26*, NEWRULE+27*, NEWRULE+33*, NEWRULE+43*, NEWRULE+44*, NEWRULE+45*, NEWRULE+54*, NEWRULE+55* |
OCXDATA("AT" | NEWRULE+20* |
OCXDATA("B" | NEWRULE+19*, NEWRULE+28*, NEWRULE+34*, NEWRULE+46*, NEWRULE+56* |
>> OCXDF(37 | MCE135+5*, MCE135+6, MCE136+5*, MCE136+6, MCE137+5*, MCE137+6, MCE28+5*, MCE28+6 |
OCXDFI | GETDATA~, GETDATA+3, NEWRULE+7~, NEWRULE+50*, NEWRULE+54, NEWRULE+55, NEWRULE+56, NEWRULE+57 |
OCXDFN | NEWRULE~, NEWRULE+3, NEWRULE+5*, NEWRULE+13, NEWRULE+18, NEWRULE+19, NEWRULE+20, NEWRULE+23, NEWRULE+29, NEWRULE+47 , NEWRULE+50, NEWRULE+55 |
OCXDUZ | R69R1B+12~, R69R1B+19, R69R1B+24*, R69R1B+34, R70R1B+10~, LABTHRSR~ |
OCXDUZ( | R69R1B+29*, LABTHRSR+15* |
OCXE | GETDATA+2~, GETDATA+3* |
OCXELE | NEWRULE+7~, NEWRULE+38*, NEWRULE+43, NEWRULE+44, NEWRULE+45, NEWRULE+46, NEWRULE+47, NEWRULE+48, NEWRULE+50, NEWRULE+52 , NEWRULE+55 |
OCXERR | LABTHRSR+4~, LABTHRSR+7 |
OCXEXCD | LABTHRSR+4~, LABTHRSR+5*, LABTHRSR+15*, LABTHRSR+16 |
OCXFORD | R69R1B+12~, R70R1B+10~ |
OCXGR | NEWRULE+7~, NEWRULE+22*, NEWRULE+23, NEWRULE+29*, NEWRULE+30, NEWRULE+35*, NEWRULE+36, NEWRULE+41 |
OCXGR1 | NEWRULE+40~, NEWRULE+41*, NEWRULE+48, NEWRULE+52 |
OCXGR2 | NEWRULE+51~, NEWRULE+52*, NEWRULE+57 |
OCXL | GETDATA~, GETDATA+3 |
OCXLAB | LABTHRSR~, LABTHRSR+2, LABTHRSR+5 |
OCXLABSP | LABTHRSR+4~, LABTHRSR+5*, LABTHRSR+7, LABTHRSR+11 |
OCXLOGD | R69R1B+12~, R70R1B+10~ |
OCXLOGS | R69R1B+12~, R70R1B+10~ |
OCXMESS | NEWRULE~, NEWRULE+4, NEWRULE+10, NEWRULE+27 |
OCXNDX | NEWRULE+7~ |
OCXNMSG | R69R1B+12~, R69R1B+14*, R69R1B+33, R69R1B+34, R70R1B+10~, R70R1B+13* |
OCXNOTF | NEWRULE~, NEWRULE+4 |
OCXNUM | R69R1B+12~, R69R1B+24*, R69R1B+27*, R69R1B+30*, R69R1B+31*, R69R1B+33, R69R1B+34, R70R1B+10~ |
>> OCXOCMSG( | R70R1B+23* |
>> OCXOCMSG(999999 | R70R1B+23 |
>> OCXOERR | R69R1B+3, R69R1B+20, R70R1A+3, R70R1B+3, R70R1B+19 |
>> OCXOLOG | NEWRULE+45 |
OCXOP | LABTHRSR+4~, LABTHRSR+6*, LABTHRSR+7, LABTHRSR+13 |
OCXORD | R69R1B+29, R69R1B+30, NEWRULE~, NEWRULE+5*, NEWRULE+13, NEWRULE+20, NEWRULE+26 |
>> OCXOSRC | R69R1B+25, R69R1B+28, R69R1B+31, R70R1B+11 |
OCXPENT | LABTHRSR+4~, LABTHRSR+10*, LABTHRSR+11, LABTHRSR+13, LABTHRSR+14, LABTHRSR+15 |
OCXPORD | R69R1B+12~, R70R1B+10~ |
>> OCXPSD | R69R1B+31, R70R1B+11 |
OCXPTDFN | LABTHRSR~, LABTHRSR+14 |
OCXPVAL | LABTHRSR+4~, LABTHRSR+11*, LABTHRSR+12, LABTHRSR+13 |
OCXQUIT | R69R1B+12~, R70R1B+10~ |
OCXREL | NEWRULE~, NEWRULE+4, NEWRULE+33, NEWRULE+34, NEWRULE+36, NEWRULE+41, NEWRULE+47 |
OCXRES | MCE135+4~, MCE136+4~, MCE137+4~, MCE28+4~ |
OCXRES(135 | MCE135+5* |
OCXRES(136 | MCE136+5* |
OCXRES(137 | MCE137+5* |
OCXRES(28 | MCE28+5* |
OCXRSLT | LABTHRSR~, LABTHRSR+2, LABTHRSR+13 |
OCXRUL | NEWRULE~, NEWRULE+3, NEWRULE+13, NEWRULE+20, NEWRULE+26, NEWRULE+27, NEWRULE+28, NEWRULE+30, NEWRULE+35, NEWRULE+38 , NEWRULE+47 |
>> OCXRULE("R69R1B" | R69R1B+10, R69R1B+32* |
>> OCXRULE("R70R1B" | R70R1B+8 |
OCXSPEC | LABTHRSR~, LABTHRSR+2, LABTHRSR+5 |
OCXTIME | NEWRULE+7~, NEWRULE+9*, NEWRULE+13, NEWRULE+20, NEWRULE+26, NEWRULE+44 |
>> OCXTMP | R69R1B+19* |
>> OCXTRACE | R69R1B+34 |
OCXTSP | NEWRULE+7~, NEWRULE+12*, NEWRULE+15, NEWRULE+20 |
>> OCXTSPI | NEWRULE+13 |
OCXTSPL | NEWRULE+7~, NEWRULE+13*, NEWRULE+15 |
OCXX | LABTHRSR+4~, LABTHRSR+7, LABTHRSR+9 |
OCXX( | LABTHRSR+10, LABTHRSR+11 |
>> ORERR | LABTHRSR+8 |
PC | GETDATA+2~, GETDATA+3* |
PTR | CKSUM+2~, CKSUM+4* |
ROOT | SETAP~, SETAP+1, SETAP+2, SETAP+3* |
STR | CKSUM~, CKSUM+3*, CKSUM+4 |
U | R69R1B+29, R69R1B+30, GETDATA+3, NEWRULE+26, SETAP+2, SETAP+3 |
VAL | GETDATA+2~*, GETDATA+3*, GETDATA+4 |