ORKLR ;slc/CLA - Order checking support procedure for lab orders ;May 17, 2019@17:00
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,$$FMDIFF,$$FMTE,$$NOW)^XLFDT |
| Mental Health | 1 | CL1^YSCLTST2 |
| Outpatient Pharmacy | 1 | EN^PSODRG |
| VA FileMan | 1 | NOW^%DTC |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 3 | OCXOZ0C OCXOZ0F ORKCHK5 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DUP(ORKLR,OI,ORDFN,NEWORDT,SPECIMEN) | ; return duplicate lab order info
|
|
| DUP2(ORKLR,ORN,ODT,ORL,ORPANEL) | ;second part of dup lab order check
|
|
| RECNTWBC(ORDFN,ORDAYS) | ;extrinsic function to return most recent WBC within <ORDAYS> in format:
|
|
| CLOZLABS(ORDFN,ORDAYS,ORCLOZ) | ;extrinsic function rtns "1" if clozapine ordered and WBC labs results within past ORDAYS, "0" if not
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | RECNTWBC+4 |
| $$TERMLKUP^ORB31 | RECNTWBC+8, RECNTWBC+11 |
| $$VALUE^ORCSAVE2 | DUP2+7 |
| $$TEXT^ORKOR | DUP2+28, DUP2+47 |
| EN^ORQ1 | DUP+19 |
| $$DUPRANGE^ORQOR2 | DUP+8 |
| $$OI^ORQOR2 | DUP2+10 |
| $$STATUS^ORQOR2 | DUP2+2 |
| ORDER^ORQQLR | DUP2+17, DUP2+35 |
| $$LOCL^ORQQLR1 | RECNTWBC+20 |
| $$LOCLFORM^ORQQLR1 | DUP2+26, DUP2+45 |
| EN^PSODRG | CLOZLABS+10 |
| $$FMADD^XLFDT | DUP+15, DUP+17, RECNTWBC+5, CLOZLABS+6 |
| $$FMDIFF^XLFDT | DUP+14 |
| $$FMTE^XLFDT | DUP2+22, DUP2+40, RECNTWBC+25, CLOZLABS+28, CLOZLABS+29 |
| $$NOW^XLFDT | CLOZLABS+6 |
| CL1^YSCLTST2 | CLOZLABS+17 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^OR(100 - [#100] | DUP+26, DUP+27, DUP+30 |
| ^ORD(100.98 - [#100.98] | DUP+12 |
| ^ORD(101.43 - [#101.43] | DUP+3, DUP+6, DUP2+13, DUP2+31 |
| ^TMP("ORR" | DUP+18!, DUP+21, DUP+22, DUP+23, DUP+31! |
| ^TMP($J | CLOZLABS+16!, CLOZLABS+18, CLOZLABS+20, CLOZLABS+22, CLOZLABS+23 |
| Name | Line Occurrences |
|---|---|
| DUP2 | DUP+29, DUP+30 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | RECNTWBC+5, RECNTWBC+6! |
| ANC | CLOZLABS+4~, CLOZLABS+23*, CLOZLABS+25, CLOZLABS+27*, CLOZLABS+29, CLOZLABS+32 |
| ANCCDT | CLOZLABS+4~ |
| ANCF | CLOZLABS+4~, CLOZLABS+25*, CLOZLABS+32 |
| ANCRSLT | CLOZLABS+4~, CLOZLABS+29*, CLOZLABS+32 |
| 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, DUP+17*, DUP+19 |
| DGIEN | DUP+1~, DUP+12*, DUP+19 |
| EXDT | DUP2+1~, DUP2+22*, DUP2+28, DUP2+40*, DUP2+47 |
| HOR | DUP+20~*, DUP+21*, DUP+22, DUP+23 |
| INVDT | DUP2+1~, DUP2+22*, DUP2+24*, DUP2+28, DUP2+29, DUP2+40*, DUP2+42*, DUP2+47, DUP2+48, CLOZLABS+19~ , CLOZLABS+20*, CLOZLABS+21, CLOZLABS+22, CLOZLABS+23, CLOZLABS+28, CLOZLABS+29 |
| J | DUP+20~* |
| LAB | CLOZLABS+9!, CLOZLABS+31! |
| 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+26, DUP2+33*, DUP2+37, DUP2+45 |
| LRIDX | DUP2+1~, DUP2+13*, DUP2+14, DUP2+31*, DUP2+32 |
| LRIDXC | DUP2+1~, DUP2+32*, DUP2+33 |
| NEWORDT | DUP~, DUP+8, DUP+14, DUP+15*, DUP+19 |
| ODT | DUP+1~, DUP+23*, DUP+29, DUP+30, DUP2~, DUP2+22, DUP2+40 |
| OI | DUP~, DUP+3, DUP+6, DUP+8 |
| ORCLOZ | CLOZLABS~, CLOZLABS+10 |
| ORDAYS | RECNTWBC~, RECNTWBC+5, CLOZLABS~, CLOZLABS+6, CLOZLABS+17 |
| ORDFN | DUP~, DUP+8, DUP+19, DUP2+17, DUP2+26, DUP2+35, DUP2+45, RECNTWBC~, RECNTWBC+3, RECNTWBC+20 , CLOZLABS~, CLOZLABS+5, CLOZLABS+17 |
| ORDIFF | DUP+1~, DUP+14*, DUP+15 |
| ORI | RECNTWBC+2~, RECNTWBC+14*, RECNTWBC+15 |
| >> ORIFN | DUP+24, DUP+28 |
| ORJ | RECNTWBC+2~, RECNTWBC+17*, RECNTWBC+18 |
| ORKLR | DUP~, DUP+29, DUP+30, DUP2~ |
| ORKLR( | DUP2+24, DUP2+28*, DUP2+29*, DUP2+42, DUP2+47*, DUP2+48* |
| ORL | DUP+1~, DUP+29, DUP+30, DUP2~ |
| ORL( | DUP+3*, DUP+6*, DUP2+14, DUP2+33 |
| ORN | DUP+1~, DUP+23*, DUP+24, DUP+26, DUP+27, DUP+30, DUP2~, DUP2+2, DUP2+7, DUP2+10 , DUP2+17, DUP2+28, DUP2+35, DUP2+47 |
| ORNC | DUP+1~, DUP+27*, DUP+28, DUP+29 |
| OROI | DUP2+1~, DUP2+10*, DUP2+11, DUP2+13, DUP2+31 |
| ORPANEL | DUP+1~, DUP+6*, DUP+29, DUP+30, DUP2~, DUP2+45 |
| ORQ | DUP2+1~, DUP2+19*, DUP2+20, DUP2+37*, DUP2+38 |
| >> ORREN | DUP+24, DUP+28 |
| ORS | DUP2+1~, DUP2+2* |
| ORSI | DUP2+1~, DUP2+2*, DUP2+4 |
| ORSP | DUP2+1~, DUP2+7*, DUP2+8, DUP2+13, DUP2+26, DUP2+32, DUP2+45 |
| ORST | DUP2+1~, DUP2+2*, DUP2+28, DUP2+47 |
| ORX | DUP2+1~, DUP2+18*, DUP2+19, DUP2+36*, DUP2+37, RECNTWBC+2~, RECNTWBC+11, RECNTWBC+12, RECNTWBC+17 |
| ORX( | RECNTWBC+18 |
| ORXI | DUP2+1~, DUP2+24*, DUP2+42* |
| ORY | DUP2+1~, DUP2+17, DUP2+35, RECNTWBC+2~, RECNTWBC+8, RECNTWBC+9, RECNTWBC+14 |
| ORY( | DUP2+18, DUP2+19, DUP2+36, DUP2+37, RECNTWBC+15 |
| ORZ | RECNTWBC+2~, RECNTWBC+20*, RECNTWBC+21, RECNTWBC+22, RECNTWBC+25 |
| RCNT | DUP2+1~, DUP2+26*, DUP2+29, DUP2+45*, DUP2+48 |
| SEQ | DUP+20~*, DUP+22*, DUP+23 |
| 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+23, DUP2+2, DUP2+13, DUP2+19, DUP2+28, DUP2+29, DUP2+37, DUP2+47 , DUP2+48, RECNTWBC+15, RECNTWBC+18, RECNTWBC+22, RECNTWBC+25, CLOZLABS+22, CLOZLABS+23 |
| WBC | CLOZLABS+4~, CLOZLABS+22*, CLOZLABS+24, CLOZLABS+26*, CLOZLABS+28, CLOZLABS+32 |
| WBCCDT | CLOZLABS+4~ |
| WBCF | CLOZLABS+4~, CLOZLABS+24*, CLOZLABS+32 |
| WBCRSLT | RECNTWBC+2~, RECNTWBC+14, RECNTWBC+17, RECNTWBC+23*, RECNTWBC+24, CLOZLABS+4~, CLOZLABS+28*, CLOZLABS+32 |
| WBCSPEC | CLOZLABS+4~ |
| X | DUP+20~, DUP+23*, RECNTWBC+2~ |
