MAGDSTQ0 ;WOIFO/PMK - Study Tracker - Query/Retrieve user ; Aug 16, 2020@17:57:20
Source file <MAGDSTQ0.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 |
---|---|---|
INITXTMP() | ; initialize ^XTMP
|
|
KILLXTMP(MAGXTMP,TODAY) | ; remove old ^XTMP files
|
|
KEYLIST(KEYLIST) | ; initialize KEYLIST
|
|
PPATIENT | ; patient root patient level query keys
|
|
PSTUDY | ; patient root study level query keys
|
|
PSERIES | ; patient root series level query keys
|
|
PIMAGE | ; patient root image level query keys
|
|
SSTUDY | ; study root study level query keys
|
|
SSERIES | ; study root series level query keys
|
|
SIMAGE | ; study root image level query keys
|
|
ASKDASH | ; ask the dash question
|
|
DASHES(OUTPUT) | ; lookup whether or not PID should contain dashes - returns Y or N
|
|
PUSH(QRSTACK) | ; push the query down onto the stack
|
|
POP(QRSTACK) | ; remove the old query from the stack
|
|
ERRORMSG(PAUSE,TEXT,INFO) | ; display error message to user called from MAGDSTQA
|
|
ERRMSG1(MSG,I,INFO) | ; split long lines into shorter ones
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("MAG" | KEYLIST+2, KEYLIST+3, ASKDASH+2, ASKDASH+8*, PUSH+3!, PUSH+6*, POP+1!, POP+5*, POP+6*, POP+7* |
^XTMP( | INITXTMP+7, INITXTMP+8!, KILLXTMP+2, KILLXTMP+4!, PUSH+4!, PUSH+7*, POP+2! |
Name | Line Occurrences |
---|---|
DASHES | ASKDASH+6 |
ERRMSG1 | ERRORMSG+6, ERRORMSG+7 |
KILLXTMP | INITXTMP+4 |
Name | Field # of Occurrence |
---|---|
^(0 | INITXTMP+7* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
COMEFROM | ERRORMSG+1~, ERRORMSG+2*, ERRORMSG+3, ERRORMSG+10 |
DEFAULT | ASKDASH+5~, ASKDASH+6, ASKDASH+7 |
>> HOSTNAME | INITXTMP+8, PUSH+4, PUSH+7, POP+2 |
I | KEYLIST+1~, KEYLIST+8*, ERRORMSG+1~, ERRORMSG+3*, ERRORMSG+4*, ERRORMSG+5*, ERRORMSG+6, ERRORMSG+7, ERRORMSG+8, ERRORMSG+9* , ERRORMSG+10*, ERRORMSG+12, ERRMSG1~, ERRMSG1+2*, ERRMSG1+7*, ERRMSG1+11* |
INFO | ERRORMSG~, ERRORMSG+6, ERRMSG1~, ERRMSG1+2, ERRMSG1+4, ERRMSG1+5, ERRMSG1+6, ERRMSG1+9 |
INFO( | ERRORMSG+7 |
J | ERRORMSG+1~, ERRORMSG+7*, ERRORMSG+8*, ERRORMSG+11*, ERRORMSG+12*, ERRORMSG+13*, ERRMSG1+1~, ERRMSG1+5*, ERRMSG1+6, ERRMSG1+9 |
K | ERRMSG1+1~, ERRMSG1+4*, ERRMSG1+7*, ERRMSG1+9* |
>> KEYCOUNT | KEYLIST+7*, KEYLIST+9*, KEYLIST+10, KEYLIST+12 |
KEYLIST | KEYLIST~, KEYLIST+6!, POP+9 |
KEYLIST( | KEYLIST+10* |
LINETAG | KEYLIST+1~, KEYLIST+4* |
MAGXTMP | INITXTMP+1~, INITXTMP+2*, INITXTMP+4, INITXTMP+6*, INITXTMP+7, INITXTMP+8, INITXTMP+9, KILLXTMP~, KILLXTMP+2*, KILLXTMP+4 , PUSH+4, PUSH+7, POP+2 |
MAXLEN | ERRORMSG+1~, ERRORMSG+3*, ERRORMSG+8*, ERRORMSG+11, ERRORMSG+12, ERRORMSG+13 |
MSG | ERRORMSG+1~, ERRORMSG+6, ERRORMSG+7, ERRMSG1~ |
MSG( | ERRORMSG+4*, ERRORMSG+5*, ERRORMSG+8, ERRORMSG+9*, ERRORMSG+10*, ERRORMSG+12, ERRMSG1+2*, ERRMSG1+7*, ERRMSG1+11* |
OUTPUT | DASHES~, DASHES+2, DASHES+6, DASHES+8 |
OUTPUT(0 | DASHES+7* |
PAUSE | ERRORMSG~, ERRORMSG+14 |
PIDDASHES | ASKDASH+1~, ASKDASH+2*, ASKDASH+3, ASKDASH+8* |
PURGE | INITXTMP+1~, INITXTMP+5*, INITXTMP+7 |
>> QRROOT | KEYLIST+2*, KEYLIST+4, POP+5, POP+6 |
>> QRSCP | POP+7 |
QRSTACK | KEYLIST+3, PUSH~, PUSH+1*, PUSH+3, PUSH+4, PUSH+6, PUSH+7, POP~, POP+1, POP+2 , POP+3*, POP+5, POP+6, POP+7 |
>> QUERYLEVEL | KEYLIST+3*, KEYLIST+4 |
RPCERR | DASHES+5~, DASHES+6*, DASHES+7 |
T | KEYLIST+1~, KEYLIST+5*, KEYLIST+8*, KEYLIST+10 |
TEXT | ERRORMSG~, ERRORMSG+4 |
TODAY | INITXTMP+1~, INITXTMP+3*, INITXTMP+4, INITXTMP+5, INITXTMP+6, INITXTMP+7, KILLXTMP~, KILLXTMP+4 |
X | KILLXTMP+1~, KILLXTMP+4*, ASKDASH+5~, ASKDASH+7, ASKDASH+8, ERRORMSG+1~, ERRMSG1+1~, ERRMSG1+4*, ERRMSG1+6, ERRMSG1+7* , ERRMSG1+9*, ERRMSG1+11 |
Name | Field # of Occurrence |
---|---|
$T(@LINETAG | KEYLIST+5 |
$T(@LINETAG+I | KEYLIST+8 |