©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
RAHLR1 ;HISC/GJC - Generate Common Order (ORM) Message ;11/10/99 10:42
Source file <RAHLR1.m>
| Package | Total | Call Graph |
|---|---|---|
| Radiology Nuclear Medicine | 3 | EN^RAHLR1A ($$ESCAPE,GENERATE,INIT)^RAHLRU ($$REPEAT,BLSEG,PID,PV1)^RAHLRU1 |
| Kernel | 2 | $$FMTHL7^XLFDT $$HLNAME^XLFNAME |
| Uncategorized | 1 | NPFON^MAG7UFO |
| VA Fileman | 1 | $$GET1^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| Radiology Nuclear Medicine | 2 | RAHLR RAHLRPT1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PV1 | ;compile the PV1 segment determine if the patient is
|
|
| EN(RADFN,RADTI,RACNI,RAEID) | ;Called from RA REG*, RA EXAMINED*, & RA CANCEL*
|
|
| PID | ;compile the PID segment
|
|
| INIT | ;initialize some basic package specific variables
|
|
| ORC | ;build the 'common order segment (ORC) segment
|
|
| 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+37, ORC+43, ORC+49, ORC+60, ORC+61 |
| NPFON^MAG7UFO | ORC+55 |
| EN^RAHLR1A | ORC+67 |
| $$ESCAPE^RAHLRU | ORC+49, ORC+56 |
| GENERATE^RAHLRU | ORC+70 |
| INIT^RAHLRU | EN+14 |
| $$REPEAT^RAHLRU1 | ORC+28 |
| BLSEG^RAHLRU1 | ORC+64 |
| PID^RAHLRU1 | PID+1 |
| PV1^RAHLRU1 | PV1+2 |
| $$FMTHL7^XLFDT | ORC+28, ORC+34 |
| $$HLNAME^XLFNAME | ORC+40, ORC+46 |
| 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+18, PARENT+6 |
| ^RAO(75.1 - [#75.1] | INIT+16, INIT+17 |
| Name | Line Occurrences |
|---|---|
| $$PARENT | ORC+30 |
| INIT | EN+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | PARENT+5 |
| >> HL | EN+14 |
| >> HLECH | ORC+28, ORC+40, ORC+46, ORC+56, ORC+62 |
| >> HLFS | EN+14 |
| I | EN+12~, ORC+54~*, ORC+56* |
| I1 | EN+12~ |
| I2 | EN+12~ |
| I3 | EN+12~ |
| II | EN+12~ |
| M | ORC+54~*, ORC+56*, ORC+57 |
| PRGE | PARENT~, PARENT+5 |
| PRNT | PARENT~, PARENT+6 |
| >> RA101Z | ORC+21 |
| RACANC | ORC+5*, ORC+6, ORC+11, ORC+65! |
| RACNI | EN~, INIT+3, INIT+4 |
| RACOMP | ORC+5*, ORC+11, ORC+65! |
| RADFN | EN~, PID+1, PV1+2, INIT+2, INIT+3, INIT+4 |
| RADTI | EN~, INIT+2, INIT+3, INIT+4, INIT+5 |
| RAEID | EN~ |
| >> RAEXEDT | EN+17 |
| >> RAEXMDUN | EN+17, ORC+6 |
| RAOBR | EN+12~ |
| RAOBX | EN+12~ |
| >> RAOPT("" | ORC+21 |
| RAORC | EN+12~, ORC+64 |
| RAORC(10 | ORC+34* |
| RAORC(11 | ORC+40* |
| RAORC(13 | ORC+46* |
| RAORC(14 | ORC+50* |
| RAORC(15 | ORC+57* |
| RAORC(18 | ORC+62* |
| RAORC(2 | ORC+6* |
| RAORC(3 | ORC+10* |
| RAORC(4 | ORC+10* |
| RAORC(6 | ORC+11*, ORC+21* |
| RAORC(8 | ORC+28* |
| RAORC(9 | ORC+30* |
| RAPID | EN+12~ |
| >> RAPURGE | ORC+30, INIT+4* |
| RAPV1 | EN+12~ |
| RASERSEC | ORC+49*, ORC+50, ORC+62, ORC+65! |
| RASERSEC(0 | ORC+60*, ORC+61 |
| RASERSEC(1 | ORC+61*, ORC+62 |
| RAX | EN+12~, ORC+54~ |
| RAX( | ORC+56 |
| RAXAMSTS | ORC+4*, ORC+5, ORC+65! |
| >> RAZDAYCS | ORC+10, INIT+13*, INIT+14* |
| >> RAZDTE | INIT+5*, INIT+13 |
| RAZNME | ORC+40, ORC+44!, ORC+46, ORC+65! |
| RAZNME("FIELD" | ORC+39*, ORC+45* |
| RAZNME("FILE" | ORC+38*, ORC+44* |
| RAZNME("IENS" | ORC+38*, ORC+44* |
| >> RAZORD | ORC+28, ORC+37, ORC+38, ORC+40, ORC+43, ORC+44, ORC+46, ORC+49, ORC+55, ORC+60 , INIT+16*, PARENT+6 |
| >> RAZORD1 | INIT+17* |
| RAZPHONE | ORC+65! |
| >> RAZPROC | INIT+18* |
| >> RAZRXAM | ORC+34, INIT+2* |
| >> RAZXAM | EN+17, ORC+4, ORC+30, INIT+3*, INIT+13, INIT+14, INIT+16, INIT+17, INIT+18 |
| U | EN+17, ORC+4, ORC+28, ORC+30, ORC+34, ORC+37, ORC+38, ORC+40, ORC+43, ORC+44 , ORC+46, ORC+49, ORC+55, ORC+60, INIT+1*, INIT+16, INIT+17, INIT+18, PARENT+6 |
| >> VALUE | PARENT+5*, PARENT+6*, PARENT+7 |
| X | EN+12~ |
| XX | EN+12~ |
| Name | Field # of Occurrence |
|---|---|
| $T(EN^RAHLR1A | ORC+67 |