MAGDQR08 ;WOIFO/EdM,MLH,BT - Cross-References for Query/Retrieve ; 27 Nov 2012 12:58 PM
Source file <MAGDQR08.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 |
---|---|---|
UIDS(REQ,T,UID,PRMUID,ANY,OK,UIDS) | ; Overflow from MAGDQR02
|
|
PRUNE(RESULT) | ; Remove duplicate UIDs based on PRMUID
; PRMUID must be defined before calling this procedure ; PRMUID : Duplicate UID Handling parameter ; 0 : Error if there is duplicate UID (Error Handled outside this procedure) ; 1 : All (Duplicate is not an error so this proc won't be called) ; 2 : Keep UID with the oldest image saved date, delete the rest (handled in this procedure) ; 3 : Keep UID with the latest image saved date, delete the rest (handled in this procedure) |
|
REMDUP(HDR) | ; Based on HDR array, remove or keep Study UID records, return number of records removed
|
|
SAVHDR(KEEP,HDR) | ; Based on what to keep, generate HDR array contains records to keep and to remove
|
|
KEEPHDR(KEEP) | ; Based on PRMUID, get "the oldest/latest date" records to keep
|
|
DELSUB(RESULT,HDRRECNO) | ; Delete Sub File (2006.57321) record group including indices
; The Header Information such as Highest IEN and Counter will be updated at the end (UPDSUBHD) |
|
UPDHDREC(RESULT,R1,NEWCNT) | ; Update Header Result # record with a new counter
|
|
UPDSUBHD(RESULT,KILLCNT) | ; Update the Sub File 2006.57321 Header
|
|
ACCNUM(IMAGE) | ; Calculate Accession Number for Image
|
|
PROCNAM(IMAGE) | ; Calculate Procedure Name for Image
|
|
PROCNUM(IMAGE) | ; Calculate Procedure Number for Image
|
|
X1(DA,KILL) | ||
X2(IMAGE,KILL) | ||
REDO |
FileNo | Call Tags |
---|---|
^TIU(8925 - [#8925] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^MAG(2005 - [#2005] | UIDS+16, UIDS+20, UIDS+21, UIDS+29, UIDS+30, ACCNUM+2, PROCNAM+2, PROCNUM+2, X1+1, X1+5! , X1+6*, X2+1, X2+4, X2+7!, X2+8*, REDO!, REDO+1 |
^MAG(2005.84 - [#2005.84] | PROCNAM+3, X2+5 |
^MAGDQR(2006.5732 - [#2006.5732] | SAVHDR+7, SAVHDR+8, SAVHDR+9, DELSUB+8, DELSUB+9, DELSUB+11!, DELSUB+12!, UPDHDREC+4*, UPDSUBHD+2, UPDSUBHD+4 , UPDSUBHD+5, UPDSUBHD+7* |
^MAGV(2005.6 - [#2005.6] | UIDS+45 |
^MAGV(2005.61 - [#2005.61] | UIDS+44 |
^MAGV(2005.62 - [#2005.62] | UIDS+40, UIDS+41, UIDS+43 |
^TMP("MAG" | UIDS+4!, UIDS+9!, UIDS+13, UIDS+28*, UIDS+31*, UIDS+38, UIDS+48*, UIDS+61, UIDS+63, UIDS+71 , UIDS+72*, UIDS+76!, KEEPHDR+6, KEEPHDR+7, KEEPHDR+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ANY | UIDS~, UIDS+5*, UIDS+9* |
C | UIDS+17~, UIDS+29*, UIDS+30 |
CNT | UPDSUBHD+1~, UPDSUBHD+6*, UPDSUBHD+7 |
CO | X2~, X2+5*, X2+7, X2+8 |
DA | X1~, REDO+1*, REDO+2, REDO+3 |
DELCNT | DELSUB+4~, DELSUB+5*, DELSUB+13*, DELSUB+15 |
FATAL | UIDS+1~, UIDS+2*, UIDS+56*, UIDS+58 |
GMRCPTR | ACCNUM+1~, ACCNUM+5*, ACCNUM+6 |
GP | X1~, X1+4*, X1+5, X1+6, X2~, X2+6*, X2+7, X2+8 |
HDR | PRUNE+15~, PRUNE+16, PRUNE+20, REMDUP~, SAVHDR~, UPDSUBHD+1~, UPDSUBHD+2*, UPDSUBHD+3, UPDSUBHD+6 |
HDR( | REMDUP+7, REMDUP+9, SAVHDR+10* |
HDRRECNO | REMDUP+4~, REMDUP+5*, REMDUP+7*, REMDUP+9, REMDUP+11, SAVHDR+5~, SAVHDR+9*, SAVHDR+10, KEEPHDR+4~, KEEPHDR+8* , KEEPHDR+9, DELSUB~, DELSUB+6, DELSUB+10 |
HDRTAG | SAVHDR+1~, SAVHDR+3*, SAVHDR+9, DELSUB+2~, DELSUB+3*, DELSUB+10 |
I | UIDS+1~, UIDS+4*, UIDS+11*, UIDS+15*, UIDS+16*, UIDS+20, UIDS+21, UIDS+28, UIDS+29, UIDS+30 , UIDS+36*, UIDS+40*, UIDS+41, UIDS+43, UIDS+48, UIDS+61*, UIDS+63, UIDS+70*, UIDS+71, UIDS+72 , UIDS+76* |
IDX | UIDS+1~, UIDS+21* |
IMAGE | ACCNUM~, ACCNUM+2, PROCNAM~, PROCNAM+2, PROCNUM~, PROCNUM+2, X1+1, X1+5, X1+6, X2~ , X2+1, X2+4, X2+7, X2+8 |
IMGSAVDT | KEEPHDR+4~, KEEPHDR+7*, KEEPHDR+8 |
KEEP | PRUNE+11~, PRUNE+12, PRUNE+16, SAVHDR~, KEEPHDR~ |
KEEP( | SAVHDR+10, KEEPHDR+9* |
KILL | X1~, X1+5, X2~, X2+7 |
KILLCNT | PRUNE+19~, PRUNE+20*, PRUNE+23, REMDUP+1~, REMDUP+3*, REMDUP+9*, REMDUP+13, UPDSUBHD~, UPDSUBHD+6 |
LSTIEN | UPDSUBHD+1~, UPDSUBHD+3*, UPDSUBHD+5*, UPDSUBHD+7 |
LSTRECNO | UPDSUBHD+1~, UPDSUBHD+4*, UPDSUBHD+5 |
NEWCNT | REMDUP+1~, REMDUP+2*, REMDUP+11, UPDHDREC~, UPDHDREC+2*, UPDHDREC+3 |
OK | UIDS~, UIDS+60*, UIDS+61, UIDS+64*, UIDS+69 |
ORD | KEEPHDR+1~, KEEPHDR+2*, KEEPHDR+7 |
P | UIDS+1~, UIDS+7*, UIDS+8*, UIDS+11, UIDS+36, UIDS+62*, UIDS+63, UIDS+65 |
PA | X1~, X1+1*, X1+2, X2~, X2+1*, X2+2 |
PARENT | ACCNUM+1~, ACCNUM+2*, ACCNUM+3 |
PAT | UIDS+1~, UIDS+5*, UIDS+14*, UIDS+23*, UIDS+25*, UIDS+38, UIDS+39*, UIDS+40, UIDS+46*, UIDS+47* , UIDS+53 |
PAT0 | UIDS+1~, UIDS+20*, UIDS+21, UIDS+22, UIDS+23, UIDS+25, UIDS+45*, UIDS+46, UIDS+47 |
PATIX | UIDS+42~, UIDS+44*, UIDS+45 |
PR | X2~, X2+4*, X2+5 |
PRMUID | UIDS~, UIDS+3*, UIDS+24, UIDS+47, UIDS+54, PRUNE+8, KEEPHDR+2 |
PRMUID( | UIDS+54* |
PROCIX | UIDS+42~, UIDS+43*, UIDS+44 |
PROCPTR | PROCNAM+1~, PROCNAM+2*, PROCNAM+3 |
QUIT | DELSUB+4~, DELSUB+5*, DELSUB+8, DELSUB+10* |
R1 | UPDHDREC~, UPDHDREC+4 |
RECNO | DELSUB+4~, DELSUB+6*, DELSUB+8*, DELSUB+9, DELSUB+10, DELSUB+11, DELSUB+12 |
REQ | UIDS~ |
REQ( | UIDS+8, UIDS+11, UIDS+36 |
RESULT | PRUNE~, PRUNE+23, REMDUP+9, REMDUP+11, SAVHDR+7, SAVHDR+8, SAVHDR+9, DELSUB~, DELSUB+8, DELSUB+9 , DELSUB+11, DELSUB+12, UPDHDREC~, UPDHDREC+4, UPDSUBHD~, UPDSUBHD+2, UPDSUBHD+4, UPDSUBHD+5, UPDSUBHD+7 |
STUDYUID | SAVHDR+5~, SAVHDR+8*, SAVHDR+10, KEEPHDR+4~, KEEPHDR+5*, KEEPHDR+6*, KEEPHDR+7, KEEPHDR+8, KEEPHDR+9 |
STUIDREC | SAVHDR+5~, SAVHDR+6*, SAVHDR+7*, SAVHDR+8, SAVHDR+9 |
STUIDTAG | SAVHDR+1~, SAVHDR+2*, SAVHDR+7 |
T | UIDS~, UIDS+5*, UIDS+8, UIDS+11, UIDS+36, UIDS+54, UIDS+61*, UIDS+63, UIDS+65, UIDS+69* , UIDS+70, UIDS+73* |
T0 | X1~, X1+1*, X1+3, X1+4, X2~, X2+1*, X2+3, X2+6 |
TAG | DELSUB+4~, DELSUB+9*, DELSUB+10, DELSUB+12 |
TAGVAL | UPDHDREC+1~, UPDHDREC+3*, UPDHDREC+4 |
TIUPTR | ACCNUM+1~, ACCNUM+2*, ACCNUM+4, ACCNUM+5 |
U | SAVHDR+8, DELSUB+9, UPDHDREC+4, UPDSUBHD+3, UPDSUBHD+6, UPDSUBHD+7 |
UID | UIDS~, UIDS+28*, UIDS+48* |
UIDS | UIDS~, UIDS+60*, UIDS+64*, UIDS+65* |
V | UIDS+1~, UIDS+12*, UIDS+13*, UIDS+16, UIDS+37*, UIDS+38*, UIDS+40 |
X | UIDS+17~, UIDS+20*, UIDS+27, UIDS+30*, UIDS+31, UIDS+60*, UIDS+65, ACCNUM+1~, ACCNUM+2*, PROCNAM+1~ , PROCNAM+2*, PROCNAM+3*, PROCNAM+4, PROCNUM+1~, PROCNUM+2*, PROCNUM+3, X1~, X1+1*, X2~, X2+1* , X2+4*, X2+5*, REDO* |