MAGDIR8A ;WOIFO/PMK,JSJ - Read a DICOM image file ; Jul 14, 2021@09:50:40
Source file <MAGDIR8A.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 |
---|---|---|
RADLKUP | ; Radiology patient/study lookup -- called by ^MAGDIR81
; (also invoked by ^MAGDEXC4, ^MAGDFND4 and ^MAGDIW1) |
|
RADLKUP1 | ; not an entry point
|
|
CONLKUP | ; CPRS Consult/Procedure patient/study lookup -- called by ^MAGDIR81
|
|
LABLKUP | ; Lab patient/study lookup -- called by ^MAGDIR81
|
|
PIDCHECK() | ; compare VistA patient ID with DICOM patient ID
|
|
COMPARE(A,B) | ; pattern match checker
|
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | LABLKUP+3 |
$$GET1^DIQ | RADLKUP1+24, CONLKUP+4, CONLKUP+6, CONLKUP+10, CONLKUP+11, LABLKUP+4, LABLKUP+5, LABLKUP+9, LABLKUP+11, LABLKUP+12 , LABLKUP+13, LABLKUP+15, LABLKUP+16 |
$$GMRCIEN^MAGDFCNV | CONLKUP+3 |
$$ANPREFIX^MAGDSTAB | RADLKUP1+8 |
$$ISIHS^MAGSPID | PIDCHECK+40 |
DEM^MAGSPID | PIDCHECK+36 |
$$ACCFIND^RAAPI | RADLKUP1+3, RADLKUP1+10 |
FileNo | Call Tags |
---|---|
^GMR(123 - [#123] | GET1^DIQ |
^LR - [#63] | GET1^DIQ |
^LRO(68 - [#68] | FIND1^DIC, GET1^DIQ |
68.02 | GET1^DIQ |
^RA(72 - [#72] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("UPPERCASE" | PIDCHECK+9 |
^RADPT - [#70] | RADLKUP1+15, RADLKUP1+17, RADLKUP1+18, RADLKUP1+20, RADLKUP1+22 |
^RAMIS(71 - [#71] | RADLKUP1+27 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | COMPARE~, COMPARE+1, COMPARE+2, COMPARE+5, COMPARE+7, COMPARE+8, COMPARE+9, COMPARE+10, COMPARE+11 |
ABBR | LABLKUP+1~, LABLKUP+2*, LABLKUP+3 |
>> ACNUMB | CONLKUP+3, LABLKUP+2, LABLKUP+12 |
ANPREFIX | RADLKUP1+7~, RADLKUP1+8*, RADLKUP1+9 |
B | COMPARE~, COMPARE+1, COMPARE+2, COMPARE+5, COMPARE+7, COMPARE+8, COMPARE+9, COMPARE+10, COMPARE+11 |
CASE | LABLKUP+1~, LABLKUP+2*, LABLKUP+7 |
>> CASENUMB | RADLKUP1+2, RADLKUP1+3, RADLKUP1+9, PIDCHECK+31 |
CHECK | PIDCHECK+1~, PIDCHECK+45*, PIDCHECK+46*, PIDCHECK+47*, PIDCHECK+48*, PIDCHECK+49 |
CONPROC | CONLKUP+2~, CONLKUP+12* |
CPTCODE | RADLKUP+5~, RADLKUP1+25*, RADLKUP1+28* |
CPTNAME | RADLKUP+6~, RADLKUP1+25*, RADLKUP1+29* |
>> DATETIME | RADLKUP1+20* |
>> DCMPID | PIDCHECK+40*, PIDCHECK+41* |
>> DFN | RADLKUP1+17*, CONLKUP+4*, CONLKUP+5, LABLKUP+16*, PIDCHECK+32 |
DIQUIET | PIDCHECK+7~, PIDCHECK+36* |
EXAMSTS | RADLKUP+7~, RADLKUP1+23*, RADLKUP1+24*, CONLKUP+1~, CONLKUP+6*, CONLKUP+7 |
>> FIRSTDCM | PIDCHECK+12*, PIDCHECK+19*, PIDCHECK+20, PIDCHECK+23*, PIDCHECK+26*, PIDCHECK+46 |
FIRSTVAH | PIDCHECK+2~, PIDCHECK+38*, PIDCHECK+39*, PIDCHECK+46 |
FMYEAR | LABLKUP+1~, LABLKUP+6*, LABLKUP+7 |
>> GMRCIEN | CONLKUP+3*, CONLKUP+4, CONLKUP+6, CONLKUP+10, CONLKUP+11 |
I | RADLKUP+13~, RADLKUP+19*, RADLKUP+20, PIDCHECK+7~, PIDCHECK+29*, COMPARE+4~, COMPARE+6*, COMPARE+7, COMPARE+8, COMPARE+9 , COMPARE+10, COMPARE+11 |
IDDCM | PIDCHECK+3~, PIDCHECK+29*, PIDCHECK+48 |
IDVAH | PIDCHECK+4~, PIDCHECK+40*, PIDCHECK+41*, PIDCHECK+48 |
IENS | LABLKUP+1~, LABLKUP+7*, LABLKUP+9, LABLKUP+11, LABLKUP+12, LABLKUP+13 |
>> INSTLOC | PIDCHECK+36 |
>> LASTDCM | PIDCHECK+12*, PIDCHECK+19*, PIDCHECK+23*, PIDCHECK+45 |
LASTVAH | PIDCHECK+5~, PIDCHECK+38*, PIDCHECK+45 |
LENGTH | COMPARE+4~, COMPARE+5*, COMPARE+6, COMPARE+13 |
LIST | RADLKUP+13~, RADLKUP+18*, RADLKUP+19, RADLKUP+20, RADLKUP1+1~, RADLKUP1+3, RADLKUP1+10 |
LIST(1 | RADLKUP1+13 |
LRAA | LABLKUP+1~, LABLKUP+3*, LABLKUP+4, LABLKUP+5, LABLKUP+7 |
>> LRDFN | LABLKUP+9*, LABLKUP+10, LABLKUP+15, LABLKUP+16 |
>> LRI | LABLKUP+13* |
>> LRSS | LABLKUP+4* |
MATCH | COMPARE+4~, COMPARE+5*, COMPARE+7*, COMPARE+8*, COMPARE+9*, COMPARE+10*, COMPARE+11*, COMPARE+13 |
>> MIDCM | PIDCHECK+13*, PIDCHECK+20*, PIDCHECK+24*, PIDCHECK+47 |
MIVAH | PIDCHECK+6~, PIDCHECK+39*, PIDCHECK+47 |
>> PID | PIDCHECK+29 |
>> PNAMEDCM | PIDCHECK+9*, PIDCHECK+11, PIDCHECK+12, PIDCHECK+13, PIDCHECK+15, PIDCHECK+16, PIDCHECK+17*, PIDCHECK+19, PIDCHECK+20, PIDCHECK+23 , PIDCHECK+24 |
>> PNAMEVAH | PIDCHECK+37*, PIDCHECK+38 |
>> PROCDESC | RADLKUP1+25*, RADLKUP1+28*, RADLKUP1+29, CONLKUP+10*, LABLKUP+5* |
PROCIEN | RADLKUP+8~, RADLKUP1+23*, RADLKUP1+26, RADLKUP1+27 |
RADATA | RADLKUP+16! |
RADATA( | RADLKUP+21* |
RADATA("EXAMSTS" | CONLKUP+8*, PIDCHECK+33 |
RADPT1 | RADLKUP+10~, RADLKUP1+14*, RADLKUP1+15, RADLKUP1+17, RADLKUP1+18, RADLKUP1+20, RADLKUP1+22 |
RADPT2 | RADLKUP+11~, RADLKUP1+14*, RADLKUP1+18, RADLKUP1+20, RADLKUP1+22 |
RADPT3 | RADLKUP+12~, RADLKUP1+14*, RADLKUP1+22 |
RAIX | RADLKUP+9~ |
STRIPPEDCASENUMB | RADLKUP1+7~, RADLKUP1+9*, RADLKUP1+10 |
VA | PIDCHECK+7~ |
VA("PID" | PIDCHECK+40 |
>> VADM(1 | PIDCHECK+37 |
>> VADM(2 | PIDCHECK+41 |
VAERR | PIDCHECK+7~ |
VARIABLE | RADLKUP+13~, RADLKUP+20*, RADLKUP+21 |
X | RADLKUP+13~, RADLKUP1+3*, RADLKUP1+5, RADLKUP1+10*, RADLKUP1+13*, RADLKUP1+14, RADLKUP1+17*, RADLKUP1+22*, RADLKUP1+23, PIDCHECK+7~ , PIDCHECK+9* |
Y | PIDCHECK+7~, PIDCHECK+9 |
YEAR | LABLKUP+1~, LABLKUP+2*, LABLKUP+6 |
Z | RADLKUP+13~, RADLKUP1+27*, RADLKUP1+28, CONLKUP+2~, CONLKUP+11*, CONLKUP+12 |