©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
HLUOPTF1 ;ALB/CJM-HL7 -Set Logic for the AI x-ref on file 773 ;02/04/2004
Source file <HLUOPTF1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PXREF(IEN,STATUS) | ;sets the AI x-ref on file 773 and the FAST PURGE DT/TM fields in file 772 and 773
|
|
| WAIT() | ;
|
|
| SET(IEN773,WHEN,IEN772) | ;sets FAST PURGE DT/TM for and the AI x~ref for both file 772 & 773
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HL(772 - [#772] | SET+18, SET+20, SET+23* |
| ^HLCS(869.3 - [#869.3] | WAIT+3, WAIT+5 |
| ^HLMA - [#773] | PXREF+13, PXREF+16, PXREF+29, SET+8, SET+12* |
| ^HLMA("AF" | PXREF+29 |
| ^HLMA("AI" | SET+9!, SET+15*, SET+21!, SET+26* |
| Name | Line Occurrences |
|---|---|
| $$WAIT | PXREF+22 |
| SET | PXREF+25, PXREF+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHILD | PXREF+10~, PXREF+28*, PXREF+29* |
| IEN | PXREF~, PXREF+5, PXREF+13, PXREF+16, PXREF+17, PXREF+25, PXREF+29, WAIT+2~, WAIT+3*, WAIT+4 , WAIT+5 |
| IEN772 | SET~, SET+18, SET+20, SET+21, SET+23, SET+26 |
| IEN773 | SET~, SET+8, SET+9, SET+12, SET+15 |
| NODE | PXREF+10~, PXREF+16*, PXREF+17, PXREF+25 |
| OLDWHEN | SET+6~, SET+8*, SET+9, SET+20*, SET+21 |
| STATUS | PXREF~, PXREF+8 |
| WHEN | PXREF+10~, PXREF+21*, PXREF+22*, PXREF+25, PXREF+29, SET~, SET+12, SET+15, SET+23, SET+26 |