OCXOZ03 ;SLC/RJS,CLA - Order Check Scan ;JUL 1,2021 at 11:27
Source file <OCXOZ03.m>
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHK12 | ; Look through the current environment for valid Event/Elements for this patient.
; Called from CHK1+28^OCXOZ02. |
|
| CHK23 | ; Look through the current environment for valid Event/Elements for this patient.
; Called from UPDATE+11^OCXOZ01. |
|
| FILE(DFN,OCXELE,OCXDFL) | ; This Local Extrinsic Function logs a validated event/element.
|
|
| FOODDRG(OCXOR) | ;func rtns 1^<med name> if OCXOR is food-drug med
|
|
| LIST(DATA,LIST) | ; IS THE DATA FIELD IN THE LIST
|
|
| OI(OCXOR) | ;func rtns orderable item for an order number (OCXOR)
|
|
| PATLOC(DFN) | ; Compiler Function: PATIENT LOCATION
|
|
| POINTER(OCXFILE,D0) | ; This Local Extrinsic Function gets the value of the name field
; of record D0 in file OCXFILE |
|
| TERMLKUP(OCXTERM,OCXLIST) | ;
|
|
| WARDSERV(WARD) | ; Compiler Function: GET WARD SERVICE
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PATLOC+12 |
| ^OR(100 - [#100] | OI+3 |
| ^SC - [#44] | PATLOC+6 |
| ^TMP("OCXCHK" | FILE+11* |
| ^TMP("OCXSWAP" | PATLOC+3, PATLOC+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODESET | WARDSERV+2~, WARDSERV+3*, WARDSERV+6, WARDSERV+7, WARDSERV+8 |
| D0 | POINTER~, POINTER+2, POINTER+6 |
| DA | WARDSERV+2~ |
| DATA | LIST~, LIST+2*, LIST+3 |
| DFN | CHK12+28, CHK12+29, CHK12+30, CHK12+31, CHK12+32, CHK12+33, CHK12+36, CHK12+37, FILE~, FILE+3* , FILE+5, FILE+7, FILE+9, FILE+11, PATLOC~, PATLOC+12 |
| >> DGPM0 | CHK23+16 |
| >> DGPMA | CHK23+15, CHK23+16 |
| DIC | WARDSERV+2~, WARDSERV+4* |
| DIC(0 | WARDSERV+4* |
| GLREF | POINTER+3~, POINTER+4*, POINTER+5*, POINTER+6 |
| LIST | LIST~, LIST+2*, LIST+3 |
| OCXDATA | FILE+2~, FILE+5! |
| OCXDATA( | FILE+7*, FILE+9*, FILE+11 |
| >> OCXDF( | FILE+9 |
| >> OCXDF(1 | CHK12+28, CHK12+29, CHK12+30, CHK12+31, CHK12+32, CHK12+33, CHK12+34, CHK12+35, CHK12+36, CHK12+37 |
| >> OCXDF(105 | CHK12+29*, CHK12+30*, CHK12+31*, CHK12+32*, CHK12+33* |
| >> OCXDF(146 | CHK12+34* |
| >> OCXDF(147 | CHK12+28*, CHK12+36* |
| >> OCXDF(148 | CHK12+35* |
| >> OCXDF(2 | CHK12+29, CHK12+30, CHK12+31, CHK12+32, CHK12+33, CHK12+37 |
| >> OCXDF(25 | CHK23+15* |
| >> OCXDF(34 | CHK12+29, CHK12+30, CHK12+31, CHK12+32, CHK12+33, CHK12+34, CHK12+35 |
| >> OCXDF(37 | CHK12+28, CHK12+34, CHK12+35, CHK12+36 |
| >> OCXDF(92 | CHK23+16* |
| >> OCXDF(93 | CHK23+16* |
| >> OCXDF(94 | CHK23+16* |
| OCXDFI | FILE+2~, FILE+8*, FILE+9 |
| OCXDFL | FILE~, FILE+8 |
| OCXELE | FILE~, FILE+3*, FILE+5, FILE+7, FILE+9 |
| OCXFD | FOODDRG+1~, FOODDRG+5*, FOODDRG+6*, FOODDRG+7, FOODDRG+8 |
| OCXFILE | POINTER~, POINTER+2, POINTER+4, POINTER+5 |
| OCXLIST | TERMLKUP~, TERMLKUP+1 |
| >> OCXOERR | CHK12+3, CHK12+28*, CHK12+29*, CHK12+30*, CHK12+31*, CHK12+32*, CHK12+33*, CHK12+36*, CHK12+37*, CHK23+3 |
| OCXOI | FOODDRG+1~, FOODDRG+2*, FOODDRG+3, FOODDRG+6, OI+2~*, OI+3*, OI+4 |
| OCXOR | FOODDRG~, FOODDRG+2, OI~, OI+1, OI+3 |
| OCXP1 | PATLOC+2~, PATLOC+3*, PATLOC+10 |
| OCXP2 | PATLOC+2~, PATLOC+4*, PATLOC+5, PATLOC+6*, PATLOC+7*, PATLOC+8*, PATLOC+9*, PATLOC+10, PATLOC+12*, PATLOC+13 |
| OCXPC | FILE+2~, FILE+8* |
| OCXSUB | FILE+2~ |
| OCXT | FOODDRG+1~, FOODDRG+5*, FOODDRG+6 |
| OCXTERM | TERMLKUP~, TERMLKUP+1 |
| OCXTIML | FILE+2~ |
| OCXTIMN | FILE+2~ |
| OCXTIMT1 | FILE+2~ |
| OCXTIMT2 | FILE+2~ |
| OCXTL | FOODDRG+1~, FOODDRG+4 |
| OCXTL( | FOODDRG+5, FOODDRG+6 |
| OCXVAL | FILE+2~, FILE+9* |
| PC | WARDSERV+2~, WARDSERV+7*, WARDSERV+8 |
| SERV | WARDSERV+2~, WARDSERV+5*, WARDSERV+6, WARDSERV+7 |
| U | POINTER+4, POINTER+6, WARDSERV+5 |
| WARD | WARDSERV~, WARDSERV+4 |
| X | WARDSERV+2~, WARDSERV+4* |
| Y | WARDSERV+2~, WARDSERV+4 |
| Y(0 | WARDSERV+5 |
