RAHLR1 ;HISC/GJC - Generate Common Order (ORM) Message ;18 Jul 2019 9:17 AM
Source file <RAHLR1.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 |
|---|---|---|
| EN(RADFN,RADTI,RACNI,RAEID) | ;Called from RA REG*, RA EXAMINED*, & RA CANCEL*
|
|
| PID | ;compile the PID segment
|
|
| PV1 | ;compile the PV1 segment determine if the patient is
|
|
| ORC | ;build the 'common order segment (ORC) segment
|
|
| INIT | ;initialize some basic package specific variables
|
|
| PARENT(PRGE,PRNT) | ;Define fields ORC-8 & OBR-29 known as PARENT
; input: PRGE=purge date of the exam (if applicable) ; PRNT=parent/descendant if yes, specify if exam or printset |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | ORC+48, ORC+54, ORC+60, ORC+71, ORC+72 |
| NPFON^MAG7UFO | ORC+66 |
| $$ACCNUM^RAAPI | INIT+11 |
| EN^RAHLR1A | ORC+78 |
| $$ESCAPE^RAHLRU | ORC+60, ORC+67 |
| GENERATE^RAHLRU | ORC+81 |
| INIT^RAHLRU | EN+14 |
| $$REPEAT^RAHLRU1 | ORC+39 |
| $$USESSAN^RAHLRU1 | INIT+7 |
| BLSEG^RAHLRU1 | ORC+75 |
| PID^RAHLRU1 | PID+1 |
| PV1^RAHLRU1 | PV1+2 |
| $$FMTHL7^XLFDT | ORC+39, ORC+45 |
| $$HLNAME^XLFNAME | ORC+51, ORC+57 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(49 - [#49] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RA(72 - [#72] | ORC+4 |
| ^RADPT - [#70] | INIT+2, INIT+3, INIT+4 |
| ^RAMIS(71 - [#71] | INIT+21, PARENT+7 |
| ^RAO(75.1 - [#75.1] | INIT+19, INIT+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | PARENT+6 |
| >> HL | EN+14 |
| >> HLCS | ORC+18 |
| >> HLECH | ORC+39, ORC+51, ORC+57, ORC+67, ORC+73 |
| >> HLFS | EN+14 |
| I | EN+12~, ORC+65~*, ORC+67* |
| I1 | EN+12~ |
| I2 | EN+12~ |
| I3 | EN+12~ |
| II | EN+12~ |
| M | ORC+65~*, ORC+67*, ORC+68 |
| PRGE | PARENT~, PARENT+6 |
| PRNT | PARENT~, PARENT+7 |
| >> RA101Z | ORC+32 |
| RACANC | ORC+5*, ORC+6, ORC+22, ORC+76! |
| RACNI | EN~, INIT+3, INIT+4, INIT+11 |
| RACOMP | ORC+5*, ORC+22, ORC+76! |
| RADFN | EN~, PID+1, PV1+2, INIT+2, INIT+3, INIT+4, INIT+11 |
| RADTI | EN~, ORC+18, INIT+2, INIT+3, INIT+4, INIT+5, INIT+11 |
| RAEID | EN~ |
| >> RAEXEDT | EN+17 |
| >> RAEXMDUN | EN+17, ORC+6 |
| RAOBR | EN+12~ |
| RAOBX | EN+12~ |
| >> RAOPT("" | ORC+32 |
| RAORC | EN+12~, ORC+75 |
| RAORC(10 | ORC+45* |
| RAORC(11 | ORC+51* |
| RAORC(13 | ORC+57* |
| RAORC(14 | ORC+61* |
| RAORC(15 | ORC+68* |
| RAORC(18 | ORC+73* |
| RAORC(2 | ORC+6* |
| RAORC(3 | ORC+21* |
| RAORC(4 | ORC+21* |
| RAORC(5 | ORC+18* |
| RAORC(6 | ORC+22*, ORC+32* |
| RAORC(8 | ORC+39* |
| RAORC(9 | ORC+41* |
| RAPID | EN+12~ |
| RAPID(3 | ORC+18 |
| >> RAPURGE | ORC+41, INIT+4* |
| RAPV1 | EN+12~ |
| RASERSEC | ORC+60*, ORC+61, ORC+73, ORC+76! |
| RASERSEC(0 | ORC+71*, ORC+72 |
| RASERSEC(1 | ORC+72*, ORC+73 |
| RAX | EN+12~, ORC+65~ |
| RAX( | ORC+67 |
| RAXAMSTS | ORC+4*, ORC+5, ORC+76! |
| >> RAZDAYCS | ORC+21, INIT+8*, INIT+11*, INIT+16* |
| >> RAZDTE | INIT+5*, INIT+16 |
| RAZNME | ORC+51, ORC+55!, ORC+57, ORC+76! |
| RAZNME("FIELD" | ORC+50*, ORC+56* |
| RAZNME("FILE" | ORC+49*, ORC+55* |
| RAZNME("IENS" | ORC+49*, ORC+55* |
| >> RAZORD | ORC+39, ORC+48, ORC+49, ORC+51, ORC+54, ORC+55, ORC+57, ORC+60, ORC+66, ORC+71 , INIT+19*, PARENT+7 |
| >> RAZORD1 | INIT+20* |
| RAZPHONE | ORC+76! |
| >> RAZPROC | INIT+21* |
| >> RAZRXAM | ORC+45, INIT+2* |
| >> RAZXAM | EN+17, ORC+4, ORC+17, ORC+41, INIT+3*, INIT+8, INIT+16, INIT+19, INIT+20, INIT+21 |
| U | EN+17, ORC+4, ORC+17, ORC+39, ORC+41, ORC+45, ORC+48, ORC+49, ORC+51, ORC+54 , ORC+55, ORC+57, ORC+60, ORC+66, ORC+71, INIT+1*, INIT+19, INIT+20, INIT+21, PARENT+7 |
| VALUE | PARENT+5~, PARENT+6*, PARENT+7*, PARENT+8 |
| X | EN+12~ |
| XX | EN+12~ |
| Name | Field # of Occurrence |
|---|---|
| $T(EN^RAHLR1A | ORC+78 |
