RAHLR1A ;HISC/GJC - Generate Common Order (ORM) Message ;11/10/99 10:42
Source file <RAHLR1A.m>
Package | Total | Call Graph |
---|---|---|
Radiology Nuclear Medicine | 5 | $$GETSIUID^RAAPI $$NAMCODE^RACPTMSC ALLERGY^RADEM ($$CPTMOD,$$ESCAPE,$$OBR21)^RAHLRU ($$REPEAT,$$RTNSUB,$$SPECSRC,BLSEG)^RAHLRU1 |
Kernel | 2 | $$FMTHL7^XLFDT $$HLNAME^XLFNAME |
Uncategorized | 2 | NPFON^MAG7UFO ($$STUDYUID,$$ZDS)^MAGDRAHL |
VA Fileman | 2 | $$GET1^DIQ ^DIWP |
Package | Total | Caller Graph |
---|---|---|
Radiology Nuclear Medicine | 2 | RAHLR1 RAHLRPT1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
OBXCPTM | ;Compile 'OBX' segment for CPT modifiers
|
|
EN | ;Called from RAHLR1; used to build the OBR, OBX, & ZDS segments
|
|
OBXALL | ;Compile 'OBX' Segment for Allergies
|
|
OBXPMOD | ;Compile 'OBX' segment for procedure modifiers
|
|
OBXTCOM | ;Compile 'OBX' segment for tech comments
|
|
EXIT | ;clean up symbol table are return to RAHLR1
|
|
OBXHIST | ;Compile 'OBX' Segment for Clinical History
|
|
OBXPRC | ;Compile 'OBX' Segment for Procedure
|
|
OBRPRC | ;OBR segment
|
|
ZDS(RADTI,RACNI,RAZDAYCS) | ;Compile the 'ZDS' segment
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | OBRPRC+23 |
^DIWP | OBXHIST+18 |
NPFON^MAG7UFO | OBRPRC+32 |
$$STUDYUID^MAGDRAHL | ZDS+22 |
$$ZDS^MAGDRAHL | ZDS+17, ZDS+23 |
$$GETSIUID^RAAPI | ZDS+16 |
$$NAMCODE^RACPTMSC | OBRPRC+7 |
ALLERGY^RADEM | OBXALL+1 |
$$CPTMOD^RAHLRU | OBXCPTM+6 |
$$ESCAPE^RAHLRU | OBRPRC+13, OBRPRC+14, OBRPRC+33, OBRPRC+59, OBXPRC+4, OBXPMOD+6, OBXHIST+4, OBXHIST+24, OBXALL+7, OBXTCOM+6 |
$$OBR21^RAHLRU | OBRPRC+52 |
$$REPEAT^RAHLRU1 | OBRPRC+20, OBRPRC+64 |
$$RTNSUB^RAHLRU1 | ZDS+17, ZDS+23 |
$$SPECSRC^RAHLRU1 | OBRPRC+19 |
BLSEG^RAHLRU1 | OBRPRC+75, OBXPRC+6, OBXPMOD+7, OBXCPTM+7, OBXHIST+5, OBXHIST+9, OBXHIST+25, OBXALL+8, OBXTCOM+7 |
$$FMTHL7^XLFDT | OBRPRC+64 |
$$HLNAME^XLFNAME | OBRPRC+26 |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RADPT - [#70] | OBXPMOD+4, OBXPMOD+5, OBXCPTM+4, OBXCPTM+5, OBXHIST+11, OBXHIST+17, OBXHIST+18, OBXTCOM+4, OBXTCOM+5 |
^RAMIS(71 - [#71] | OBRPRC+56, OBRPRC+57, OBRPRC+58, OBXPRC+4 |
^RAMIS(71.2 - [#71.2] | OBXPMOD+6 |
^RAMIS(73.1 - [#73.1] | OBRPRC+59 |
^UTILITY($J | OBXHIST+15!, OBXHIST+22, OBXHIST+24, OBXHIST+29! |
Name | Line Occurrences |
---|---|
ZDS | OBRPRC+77 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | EN+15~ |
DFN | OBXALL+1~* |
DIW | OBXHIST+29! |
DIWF | OBXHIST+16*, OBXHIST+29! |
DIWI | OBXHIST+29! |
DIWL | OBXHIST+16*, OBXHIST+29! |
DIWR | OBXHIST+16*, OBXHIST+29! |
DIWT | OBXHIST+29! |
DIWTC | OBXHIST+29! |
DIWX | OBXHIST+29! |
DN | EN+15~ |
DT | OBRPRC+7, OBXCPTM+6 |
FT | EN+15~, OBXALL+7*, OBXTCOM+5*, OBXTCOM+6 |
GMRAL | OBXALL+5, EXIT+1! |
>> HLA("HLS" | ZDS+17*, ZDS+23* |
>> HLCS | OBRPRC+73 |
>> HLECH | OBRPRC+13, OBRPRC+14, OBRPRC+20, OBRPRC+26, OBRPRC+33, OBRPRC+52, OBRPRC+64, OBXPRC+3, OBXPRC+4, OBXPMOD+2 , OBXCPTM+2, OBXCPTM+6, OBXHIST+3, OBXHIST+7, OBXHIST+13, OBXALL+3, OBXTCOM+2, ZDS+13 |
>> HLECH( | ZDS+13*, ZDS+18!, ZDS+24! |
I | EN+15~, OBRPRC+31~*, OBRPRC+33*, OBXPMOD+3*, OBXPMOD+4*, OBXPMOD+5, OBXCPTM+3*, OBXCPTM+4*, OBXCPTM+5, OBXHIST+21* , OBXHIST+22*, OBXHIST+24, OBXALL+4*, OBXALL+6*, OBXALL+7, OBXTCOM+3*, OBXTCOM+4*, OBXTCOM+5, ZDS+13~*, ZDS+18* , ZDS+24* |
J | EN+15~, OBXPMOD+3*, OBXPMOD+6*, OBXCPTM+3*, OBXCPTM+6*, OBXHIST+21*, OBXHIST+23*, OBXALL+4*, OBXALL+7*, OBXTCOM+3* , OBXTCOM+5*, OBXTCOM+6 |
M | OBRPRC+31~*, OBRPRC+33*, OBRPRC+34 |
PI | EN+15~ |
PI( | OBXALL+6, OBXALL+7 |
PTR | EN+15~, OBXPMOD+5*, OBXPMOD+6, OBXCPTM+5*, OBXCPTM+6 |
RACNI | OBRPRC+77, OBXPMOD+4, OBXPMOD+5, OBXCPTM+4, OBXCPTM+5, OBXHIST+11, OBXHIST+17, OBXHIST+18, OBXTCOM+4, OBXTCOM+5 , ZDS~, ZDS+16, ZDS+22 |
>> RADFN | OBXPMOD+4, OBXPMOD+5, OBXCPTM+4, OBXCPTM+5, OBXHIST+11, OBXHIST+17, OBXHIST+18, OBXALL+1, OBXTCOM+4, OBXTCOM+5 , ZDS+16 |
RADIWL | OBXHIST+16*, OBXHIST+22, OBXHIST+24, OBXHIST+29! |
RADTI | OBRPRC+77, OBXPMOD+4, OBXPMOD+5, OBXCPTM+4, OBXCPTM+5, OBXHIST+11, OBXHIST+17, OBXHIST+18, OBXTCOM+4, OBXTCOM+5 , ZDS~, ZDS+16, ZDS+22 |
RAI | OBXHIST+16*, OBXHIST+17*, OBXHIST+18, OBXHIST+29! |
RAOBR | OBRPRC+75, EXIT+1! |
RAOBR(16 | OBRPRC+20* |
RAOBR(17 | OBRPRC+26* |
RAOBR(18 | OBRPRC+34* |
RAOBR(19 | OBRPRC+37* |
RAOBR(2 | OBRPRC+1* |
RAOBR(20 | OBRPRC+44* |
RAOBR(21 | OBRPRC+49* |
RAOBR(22 | OBRPRC+52* |
RAOBR(25 | OBRPRC+59* |
RAOBR(28 | OBRPRC+64* |
RAOBR(3 | OBRPRC+6* |
RAOBR(30 | OBRPRC+67* |
RAOBR(31 | OBRPRC+71* |
RAOBR(32 | OBRPRC+73* |
RAOBR(4 | OBRPRC+6* |
RAOBR(5 | OBRPRC+13*, OBRPRC+14* |
RAOBR(6 | OBRPRC+16* |
RAOBX | OBXPRC+6!, OBXPMOD+7, OBXPMOD+10!, OBXCPTM+7, OBXCPTM+9!, OBXHIST+5, OBXHIST+9, OBXHIST+25, OBXHIST+29!, OBXALL+8 , OBXALL+10!, OBXTCOM+7, EXIT+1! |
RAOBX(12 | OBXPRC+5*, OBXPMOD+3*, OBXCPTM+3*, OBXHIST+3*, OBXHIST+7*, OBXHIST+21*, OBXALL+4*, OBXTCOM+3* |
RAOBX(2 | OBXPRC+2*, OBXPMOD+1*, OBXPMOD+6*, OBXPMOD+9, OBXCPTM+1*, OBXCPTM+6*, OBXCPTM+8, OBXHIST+2*, OBXHIST+6*, OBXHIST+12* , OBXHIST+23*, OBXHIST+27, OBXALL+2*, OBXALL+7*, OBXALL+9, OBXTCOM+1*, OBXTCOM+6* |
RAOBX(3 | OBXPRC+3*, OBXPMOD+2*, OBXCPTM+2*, OBXHIST+2*, OBXHIST+6*, OBXHIST+12*, OBXALL+3*, OBXTCOM+2* |
RAOBX(4 | OBXPRC+3*, OBXPMOD+2*, OBXCPTM+2*, OBXHIST+3*, OBXHIST+7*, OBXHIST+13*, OBXALL+3*, OBXTCOM+2* |
RAOBX(6 | OBXPRC+4*, OBXPMOD+6*, OBXCPTM+6*, OBXHIST+4*, OBXHIST+8*, OBXHIST+24*, OBXALL+7*, OBXTCOM+6* |
>> RAORC(9 | OBRPRC+67 |
>> RASIUID | ZDS+16*, ZDS+17, ZDS+21, ZDS+22*, ZDS+23 |
RAX | EN+15~, OBRPRC+31~ |
RAX( | OBRPRC+33 |
RAXX | EN+15~, OBXPRC+2*, OBXPMOD+1, OBXPMOD+6, OBXPMOD+9*, OBXCPTM+1, OBXCPTM+6, OBXCPTM+8*, OBXHIST+2*, OBXHIST+6* , OBXHIST+12, OBXHIST+23, OBXHIST+27*, OBXALL+2, OBXALL+7, OBXALL+9*, OBXTCOM+1, OBXTCOM+6, EXIT+1! |
RAZCPT | OBRPRC+7*, EXIT+1! |
RAZCPT(0 | OBRPRC+7*, OBRPRC+13 |
RAZCPTM | OBXCPTM+9! |
RAZDAYCS | OBRPRC+6, OBRPRC+37, OBRPRC+44, OBRPRC+49, OBRPRC+77, ZDS~, ZDS+22 |
RAZDIV | EXIT+1! |
RAZIEN | OBRPRC+56*, OBRPRC+57, OBRPRC+58, EXIT+1! |
RAZILOC | EXIT+1! |
RAZITYPE | EXIT+1! |
RAZMODAL | OBRPRC+58*, OBRPRC+59, EXIT+1! |
RAZNME | OBRPRC+24!, OBRPRC+26, EXIT+2! |
RAZNME("FIELD" | OBRPRC+25* |
RAZNME("FILE" | OBRPRC+24* |
RAZNME("IENS" | OBRPRC+24* |
>> RAZORD | OBRPRC+16, OBRPRC+23, OBRPRC+24, OBRPRC+26, OBRPRC+32, OBRPRC+64, OBRPRC+70 |
>> RAZORD1 | OBRPRC+73, OBXHIST+1, OBXHIST+4 |
RAZPHONE | EXIT+2! |
RAZPMOD | OBRPRC+19*, OBRPRC+20, EXIT+2! |
>> RAZPROC | OBRPRC+7, OBRPRC+14 |
>> RAZRXAM | OBRPRC+52 |
RAZTMODE | OBRPRC+70*, OBRPRC+71, EXIT+2! |
>> RAZXAM | OBRPRC+14, OBRPRC+19, OBRPRC+56, OBRPRC+57, OBRPRC+58, OBXPRC+4 |
U | OBRPRC+7, OBRPRC+13, OBRPRC+14, OBRPRC+16, OBRPRC+19, OBRPRC+23, OBRPRC+24, OBRPRC+26, OBRPRC+32, OBRPRC+56 , OBRPRC+57, OBRPRC+58, OBRPRC+59, OBRPRC+64, OBRPRC+70, OBXPRC+4, OBXPMOD+6 |
X | EN+15~, OBXHIST+18* |
Y | EN+15~ |
Z | EN+15~ |