©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
ORKLR ; slc/CLA - Order checking support procedure for lab orders ;10-Oct-2013 18:02;DU
Source file <ORKLR.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 7 | $$TERMLKUP^ORB31 $$VALUE^ORCSAVE2 $$TEXT^ORKOR EN^ORQ1 ($$DUPRANGE,$$OI,$$STATUS)^ORQOR2 ORDER^ORQQLR ($$LOCL,$$LOCLFORM)^ORQQLR1 |
| Kernel | 1 | ($$FMADD,$$FMTE,$$NOW)^XLFDT |
| Outpatient Pharmacy | 1 | EN^PSODRG |
| VA Fileman | 1 | NOW^%DTC |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 4 | OCXOZ0C OCXOZ0D OCXOZ0F ORKCHK5 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DUP2(ORKLR,ORN,ODT,ORL,ORPANEL) | ;second part of dup lab order check
|
|
| DUP(ORKLR,OI,ORDFN,NEWORDT,SPECIMEN) | ; return duplicate lab order info
|
|
| CLOZLABS(ORDFN,ORDAYS,ORCLOZ) | ;extrinsic function rtns "1" if clozapine ordered and WBC labs results within past ORDAYS, "0" if not
|
|
| RECNTWBC(ORDFN,ORDAYS) | ;extrinsic function to return most recent WBC within <ORDAYS> in format:
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | RECNTWBC+4 |
| $$TERMLKUP^ORB31 | RECNTWBC+8, RECNTWBC+11 |
| $$VALUE^ORCSAVE2 | DUP2+7 |
| $$TEXT^ORKOR | DUP2+26, DUP2+42 |
| EN^ORQ1 | DUP+14 |
| $$DUPRANGE^ORQOR2 | DUP+8 |
| $$OI^ORQOR2 | DUP2+10 |
| $$STATUS^ORQOR2 | DUP2+2 |
| ORDER^ORQQLR | DUP2+17, DUP2+33 |
| $$LOCL^ORQQLR1 | RECNTWBC+20 |
| $$LOCLFORM^ORQQLR1 | DUP2+24, DUP2+40 |
| EN^PSODRG | CLOZLABS+10 |
| $$FMADD^XLFDT | RECNTWBC+5, CLOZLABS+6 |
| $$FMTE^XLFDT | DUP2+22, DUP2+38, RECNTWBC+25, CLOZLABS+29, CLOZLABS+30 |
| $$NOW^XLFDT | CLOZLABS+6 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OR(100 - [#100] | DUP+21, DUP+22, DUP+25 |
| ^ORD(100.98 - [#100.98] | DUP+12 |
| ^ORD(101.43 - [#101.43] | DUP+3, DUP+6, DUP2+13, DUP2+29 |
| ^TMP("ORR" | DUP+13!, DUP+16, DUP+17, DUP+18, DUP+26! |
| ^TMP($J | CLOZLABS+16!, CLOZLABS+19, CLOZLABS+21, CLOZLABS+23, CLOZLABS+24 |
| Name | Line Occurrences |
|---|---|
| DUP2 | DUP+24, DUP+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | RECNTWBC+5, RECNTWBC+6! |
| ANC | CLOZLABS+4~, CLOZLABS+24*, CLOZLABS+26, CLOZLABS+28*, CLOZLABS+30, CLOZLABS+33 |
| ANCCDT | CLOZLABS+4~ |
| ANCF | CLOZLABS+4~, CLOZLABS+26*, CLOZLABS+33 |
| ANCRSLT | CLOZLABS+4~, CLOZLABS+30*, CLOZLABS+33 |
| ANCSPEC | CLOZLABS+4~ |
| BDT | RECNTWBC+2~, RECNTWBC+5*, RECNTWBC+7*, RECNTWBC+23, CLOZLABS+4~, CLOZLABS+6*, CLOZLABS+7* |
| CDT | RECNTWBC+2~, RECNTWBC+22*, RECNTWBC+23, RECNTWBC+25 |
| DDT | DUP+1~, DUP+8*, DUP+9, DUP+14 |
| DGIEN | DUP+1~, DUP+12*, DUP+14 |
| EXDT | DUP2+1~, DUP2+22*, DUP2+26, DUP2+38*, DUP2+42 |
| HOR | DUP+15~*, DUP+16*, DUP+17, DUP+18 |
| INVDT | DUP2+1~, DUP2+22*, DUP2+26, DUP2+27, DUP2+38*, DUP2+42, DUP2+43, CLOZLABS+20~, CLOZLABS+21*, CLOZLABS+22 , CLOZLABS+23, CLOZLABS+24, CLOZLABS+29, CLOZLABS+30 |
| J | DUP+15~* |
| LAB | CLOZLABS+9!, CLOZLABS+32! |
| LAB("NOT" | CLOZLABS+11 |
| LABFILE | RECNTWBC+2~, RECNTWBC+8*, RECNTWBC+10 |
| LRID | DUP+1~, DUP+3*, DUP+6*, DUP2+1~, DUP2+14*, DUP2+19, DUP2+24, DUP2+31*, DUP2+35, DUP2+40 |
| LRIDX | DUP2+1~, DUP2+13*, DUP2+14, DUP2+29*, DUP2+30 |
| LRIDXC | DUP2+1~, DUP2+30*, DUP2+31 |
| NEWORDT | DUP~, DUP+8, DUP+14 |
| ODT | DUP+1~, DUP+18*, DUP+24, DUP+25, DUP2~, DUP2+22, DUP2+38 |
| OI | DUP~, DUP+3, DUP+6, DUP+8 |
| ORCLOZ | CLOZLABS~, CLOZLABS+10 |
| ORDAYS | RECNTWBC~, RECNTWBC+5, CLOZLABS~, CLOZLABS+6 |
| ORDFN | DUP~, DUP+8, DUP+14, DUP2+17, DUP2+24, DUP2+33, DUP2+40, RECNTWBC~, RECNTWBC+3, RECNTWBC+20 , CLOZLABS~, CLOZLABS+5 |
| ORI | RECNTWBC+2~, RECNTWBC+14*, RECNTWBC+15 |
| >> ORIFN | DUP+19, DUP+23 |
| ORJ | RECNTWBC+2~, RECNTWBC+17*, RECNTWBC+18 |
| ORKLR | DUP~, DUP+24, DUP+25, DUP2~ |
| ORKLR( | DUP2+26*, DUP2+27*, DUP2+42*, DUP2+43* |
| ORL | DUP+1~, DUP+24, DUP+25, DUP2~ |
| ORL( | DUP+3*, DUP+6*, DUP2+14, DUP2+31 |
| ORN | DUP+1~, DUP+18*, DUP+19, DUP+21, DUP+22, DUP+25, DUP2~, DUP2+2, DUP2+7, DUP2+10 , DUP2+17, DUP2+26, DUP2+33, DUP2+42 |
| ORNC | DUP+1~, DUP+22*, DUP+23, DUP+24 |
| OROI | DUP2+1~, DUP2+10*, DUP2+11, DUP2+13, DUP2+29 |
| ORPANEL | DUP+1~, DUP+6*, DUP+24, DUP+25, DUP2~, DUP2+40 |
| ORQ | DUP2+1~, DUP2+19*, DUP2+20, DUP2+35*, DUP2+36 |
| ORS | DUP2+1~, DUP2+2* |
| ORSI | DUP2+1~, DUP2+2*, DUP2+4 |
| ORSP | DUP2+1~, DUP2+7*, DUP2+8, DUP2+13, DUP2+24, DUP2+30, DUP2+40 |
| ORST | DUP2+1~, DUP2+2*, DUP2+26, DUP2+42 |
| ORX | DUP2+1~, DUP2+18*, DUP2+19, DUP2+34*, DUP2+35, RECNTWBC+2~, RECNTWBC+11, RECNTWBC+12, RECNTWBC+17 |
| ORX( | RECNTWBC+18 |
| ORY | DUP2+1~, DUP2+17, DUP2+33, RECNTWBC+2~, RECNTWBC+8, RECNTWBC+9, RECNTWBC+14 |
| ORY( | DUP2+18, DUP2+19, DUP2+34, DUP2+35, RECNTWBC+15 |
| ORZ | RECNTWBC+2~, RECNTWBC+20*, RECNTWBC+21, RECNTWBC+22, RECNTWBC+25 |
| RCNT | DUP2+1~, DUP2+24*, DUP2+27, DUP2+40*, DUP2+43 |
| SEQ | DUP+15~*, DUP+17*, DUP+18 |
| SPECFILE | RECNTWBC+2~, RECNTWBC+11*, RECNTWBC+13 |
| SPECIMEN | DUP~, DUP+3, DUP+6, RECNTWBC+18*, RECNTWBC+19, RECNTWBC+20 |
| TEST | RECNTWBC+2~, RECNTWBC+15*, RECNTWBC+16, RECNTWBC+20 |
| U | DUP+3, DUP+8, DUP+18, DUP2+2, DUP2+13, DUP2+19, DUP2+26, DUP2+27, DUP2+35, DUP2+42 , DUP2+43, RECNTWBC+15, RECNTWBC+18, RECNTWBC+22, RECNTWBC+25, CLOZLABS+23, CLOZLABS+24 |
| WBC | CLOZLABS+4~, CLOZLABS+23*, CLOZLABS+25, CLOZLABS+27*, CLOZLABS+29, CLOZLABS+33 |
| WBCCDT | CLOZLABS+4~ |
| WBCF | CLOZLABS+4~, CLOZLABS+25*, CLOZLABS+33 |
| WBCRSLT | RECNTWBC+2~, RECNTWBC+14, RECNTWBC+17, RECNTWBC+23*, RECNTWBC+24, CLOZLABS+4~, CLOZLABS+29*, CLOZLABS+33 |
| WBCSPEC | CLOZLABS+4~ |
| X | DUP+15~, DUP+18*, RECNTWBC+2~ |