MAGGTRAI ;WOIFO/GEK - list images for Radiology report ; [ 11/08/2001 17:18 ]
Source file <MAGGTRAI.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 |
|---|---|---|
| IMAGE(MAGZRY,DATA) | ;RPC [MAGGRADIMAGE]
; Call from selected entry in Rad Exam list. ; INPUT is DATA, which is just what we sent in the list of Rad ; Exams for the patient. |
|
| IMAGEC(MAGZRY,DATA) | ;RPC [MAGG CPRS RAD EXAM]
; Call to list Images for a Rad Exam that was selected from CPRS ; and Imaging Window was notified via windows messaging ; INPUT : DATA is in format of Windows message received from CPRS ; example 'RPT^CPRS^29027^RA^i79029185.9998-1' |
|
| GETLIST | ; Private call. From other points in this routine, when RARPT is defined
; and returns a list in MAGZRY(1..n). ; We'll make a tmp list of just the image IEN's ; splitting groups into individual image entries. ; If more than 1 Image group points to this report, we ; will prefix the Image Description with (G1), (G2) etc ; We call GROUP^MAGGTIG to get the images for the group, this call ; sorts the images in Dicom Series, Dicom Image number order. |
|
| ONELIST | ; Private Call from other parts of this routine.
|
| RPC Name | Call Tags |
|---|---|
| MAGGRADIMAGE | IMAGE |
| MAGG CPRS RAD EXAM | IMAGEC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TRAP" | IMAGE+14 |
| ^MAG(2005 - [#2005] | GETLIST+22, GETLIST+24, ONELIST+2, ONELIST+4 |
| ^RADPT - [#70] | IMAGEC+16, IMAGEC+18, IMAGEC+26 |
| ^RAMIS(71 - [#71] | IMAGEC+27 |
| ^RARPT - [#74] | IMAGE+23, IMAGE+24, IMAGEC+22, IMAGEC+25, IMAGEC+28, GETLIST+12, GETLIST+19, GETLIST+20, GETLIST+22, GETLIST+31 , GETLIST+32 |
| ^TMP("MAGGTRAI" | IMAGE+11, IMAGEC+7 |
| ^TMP("MAGGX" | GETLIST+9!, GETLIST+35, GETLIST+39, GETLIST+41, GETLIST+43, GETLIST+45, GETLIST+46*, GETLIST+47, ONELIST+8*, ONELIST+12* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CT | IMAGE+15~, IMAGE+18*, IMAGE+19*, GETLIST+19*, GETLIST+29*, GETLIST+31*, GETLIST+36*, GETLIST+44*, GETLIST+47, GETLIST+49 |
| DATA | IMAGE~, IMAGE+17*, IMAGE+19, IMAGEC~, IMAGEC+9, IMAGEC+10, IMAGEC+11 |
| DFN | IMAGEC+5~, IMAGEC+9*, IMAGEC+16, IMAGEC+18, IMAGEC+22, IMAGEC+26 |
| ENT | IMAGEC+5~, IMAGEC+10*, IMAGEC+16, IMAGEC+18, IMAGEC+26 |
| GCT | GETLIST+10~, GETLIST+11*, ONELIST+10* |
| I | IMAGE+15~, IMAGE+19*, GETLIST+38*, GETLIST+39*, GETLIST+41, GETLIST+43, GETLIST+45, GETLIST+46, GETLIST+47 |
| IGCT | GETLIST+10~, GETLIST+12*, GETLIST+14 |
| INVDT | IMAGEC+5~, IMAGEC+12*, IMAGEC+14*, IMAGEC+15 |
| INVDTTM | IMAGEC+5~, IMAGEC+11*, IMAGEC+12, IMAGEC+13, IMAGEC+15*, IMAGEC+16, IMAGEC+18, IMAGEC+26 |
| INVTM | IMAGEC+5~, IMAGEC+13*, IMAGEC+15 |
| >> J | GETLIST+38*, GETLIST+40*, GETLIST+41*, GETLIST+43, GETLIST+45, GETLIST+46, GETLIST+47 |
| >> K | GETLIST+38*, GETLIST+42*, GETLIST+43*, GETLIST+45, GETLIST+46, GETLIST+47 |
| >> MAGFILE | ONELIST+6*, ONELIST+8 |
| MAGIEN | IMAGE+15~ |
| MAGIEN1 | GETLIST+10~, GETLIST+20*, GETLIST+22, GETLIST+24, GETLIST+26, GETLIST+32*, GETLIST+52, ONELIST+2, ONELIST+4, ONELIST+6 , ONELIST+9 |
| MAGQI | GETLIST+10~, GETLIST+18*, GETLIST+19, GETLIST+22*, GETLIST+24*, GETLIST+26*, GETLIST+28 |
| MAGQUIET | GETLIST+37*, GETLIST+48! |
| MAGTMP | ONELIST+1~, ONELIST+9, ONELIST+11, ONELIST+12 |
| MAGX | GETLIST+10~, GETLIST+26 |
| MAGX(0 | GETLIST+26 |
| MAGZRY | IMAGE~, IMAGE+11*, IMAGE+12, IMAGE+21, IMAGE+22, IMAGE+23, IMAGE+24, IMAGEC~, IMAGEC+7*, IMAGEC+8 , IMAGEC+16, IMAGEC+20, IMAGEC+22, IMAGEC+30*, IMAGEC+31*, GETLIST+14, GETLIST+28, GETLIST+35, GETLIST+47, GETLIST+49 , GETLIST+52* |
| OI | GETLIST+10~, GETLIST+19*, GETLIST+20, GETLIST+31*, GETLIST+32 |
| ORDCT | GETLIST+10~, GETLIST+11*, ONELIST+7*, ONELIST+8, ONELIST+10*, ONELIST+12 |
| >> RADFN | IMAGE+24 |
| RARPT | IMAGE+21, IMAGE+22, IMAGE+23, IMAGE+24, IMAGEC+5~, IMAGEC+18*, IMAGEC+20, IMAGEC+22, IMAGEC+25, IMAGEC+28 , IMAGEC+30, GETLIST+12, GETLIST+19, GETLIST+20, GETLIST+22, GETLIST+24, GETLIST+31, GETLIST+32, GETLIST+35 |
| SINGCT | GETLIST+10~, GETLIST+11*, ONELIST+7*, ONELIST+8 |
| U | IMAGE+24, IMAGEC+9, IMAGEC+10, IMAGEC+11, IMAGEC+18, IMAGEC+22, IMAGEC+25, IMAGEC+26, IMAGEC+27, IMAGEC+28 , IMAGEC+30, IMAGEC+31, GETLIST+12, GETLIST+20, GETLIST+22, GETLIST+24, GETLIST+26, GETLIST+32, GETLIST+45, GETLIST+46 , GETLIST+52, ONELIST+9 |
| >> X | IMAGE+14*, IMAGEC+6*, IMAGEC+26*, IMAGEC+27, IMAGEC+28*, IMAGEC+29, GETLIST+45*, GETLIST+46, ONELIST+10*, ONELIST+12 |
| XINFO | IMAGEC+24~, IMAGEC+25*, IMAGEC+27*, IMAGEC+29*, IMAGEC+31 |
| Y | IMAGE+15~ |
