MAGVIM01 ;WOIFO/DAC/NST/JSJ/BT - Utilities for RPC calls for DICOM file processing ; Nov 05, 2020@07:26:32
Source file <MAGVIM01.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 |
---|---|---|
OUTSEP() | ; Name value separator for output data ie. NAME|TESTPATIENT
|
|
STATSEP() | ; Status and result separator ie. -3``No record IEN
|
|
INPUTSEP() | ; Name value separator for input data ie. NAME`TESTPATIENT
|
|
GETLIST(OUT) | ; Returns all worklist names and statuses
|
|
CRTITEM(OUT,TYPE,SUBTYPE,STATUS,PLACEID,PRIORITY,MSGTAGS,CRTUSR,CRTAPP,UPDSRV) | ; Creates an entry in the work item file and the work history file
|
|
UPDITEM(OUT,ID,EXPSTAT,NEWSTAT,MESSAGE,UPDUSR,UPDAPP) | ; Update work item status and create an entry in the work history file
|
|
FIND(OUT,TYPE,SUBTYPE,STATUS,PLACEID,PRIORITY,STOPTAG,MAXROWS,TAGS,LASTIEN,ORDER,DTFROM,DTTO) | ; Find records with given attributes - return ID
|
|
DTINRNG(IEN,DTFROM,DTTO) | ;
|
|
GFLTITM(FLTITM,TAGS) | ;This to improve loading performance
|
|
SRV(IEN) | ;return Service
|
|
DESCR(SRV) | ;
|
|
GETITEM(OUT,ID,EXPSTAT,NEWSTAT,UPDUSR,UPDAPP) | ; Find work item with matching ID and return tags
|
|
DELWITEM(OUT,ID) | ; Delete Work Item
|
|
ADDTAG(OUT,ID,EXPSTAT,UPDUSR,UPDAPP,TAG) | ; Add tags to work item
|
|
GETNEXT(OUT,ETYPE,EXPSTAT,NEWSTAT,UPDUSR,UPDAPP,LOCATION) | ; Find last update work item on worklist type provided
|
|
IMSTATUS(OUT,UIDS) | ; Get import status
|
|
UPUSRAPP(OUT,ID,NEWSTAT,UPDUSR,UPDAPP) | ; Update user, app, updated time fields
|
|
UPCASE(X) | ;
|
Name | Field # of Occurrence |
---|---|
FILE^DIE | CRTITEM+55, DELWITEM+8 |
UPDATE^DIE | CRTITEM+53, ADDTAG+21 |
WP^DIE | CRTITEM+62 |
$$GET1^DIQ | UPDITEM+7, GETITEM+9, ADDTAG+8 |
$$GETIEN^MAGVAF05 | CRTITEM+24, UPDITEM+18, ADDTAG+27, UPUSRAPP+6 |
VALIDATE^MAGVIM06 | CRTITEM+47, ADDTAG+19 |
$$UPDWI^MAGVIM09 | UPDITEM+22, ADDTAG+30, UPUSRAPP+9 |
FIND^MAGVIM09 | FIND+2 |
GETWI^MAGVIM09 | GETITEM+16, GETNEXT+28 |
IMSTATUS^MAGVIM09 | IMSTATUS+1 |
$$GETS^MAGVIM12 | SRV+11, SRV+13, SRV+15 |
$$GETSRV^MAGVIM12 | CRTITEM+42 |
$$NOW^XLFDT | CRTITEM+3, UPDITEM+15, ADDTAG+24, UPUSRAPP+3 |
$$IEN^XUAF4 | CRTITEM+14, GETNEXT+12 |
RPC Name | Call Tags |
---|---|
MAGV ADD WORK ITEM TAGS | ADDTAG |
MAGV CREATE WORK ITEM | CRTITEM |
MAGV DELETE WORK ITEM | DELWITEM |
MAGV FIND WORK ITEM | FIND |
MAGV GET NEXT WORK ITEM | GETNEXT |
MAGV GET WORK ITEM | GETITEM |
MAGV GET WORKLISTS | GETLIST |
MAGV IMPORT STATUS | IMSTATUS |
MAGV UPDATE WORK ITEM | UPDITEM |
FileNo | Call Tags |
---|---|
^MAGV(2006.941 - [#2006.941] | GET1^DIQ, WP^DIE |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^MAGV( | GETLIST+3, GETLIST+4 |
^MAGV(2006.941 - [#2006.941] | CRTITEM+52, CRTITEM+68, UPDITEM+3, UPDITEM+6, UPDITEM+8, UPDITEM+23, DTINRNG+1, GFLTITM+15, GFLTITM+18, GFLTITM+19 , GFLTITM+20, GFLTITM+28, GFLTITM+33, GFLTITM+40, GFLTITM+43, GFLTITM+44, GFLTITM+45, GFLTITM+55, GFLTITM+59, GFLTITM+60 , SRV+4, SRV+5, SRV+10, SRV+12, GETITEM+8, GETITEM+10, GETITEM+11, GETITEM+18, DELWITEM+3, DELWITEM+5 , DELWITEM+7, DELWITEM+9*, DELWITEM+11, ADDTAG+4, ADDTAG+14, ADDTAG+20, ADDTAG+22, ADDTAG+31, GETNEXT+19, GETNEXT+21 , GETNEXT+23, GETNEXT+30 |
^MAGV(2006.9412 - [#2006.9412] | GETNEXT+10 |
^MAGV(2006.9413 - [#2006.9413] | GETNEXT+11 |
Name | Line Occurrences |
---|---|
$$DESCR | SRV+11, SRV+13, SRV+15 |
$$INPUTSEP | CRTITEM+2, UPDITEM+2, ADDTAG+2 |
$$OUTSEP | GETLIST+2 |
$$SRV | GFLTITM+72 |
$$STATSEP | GETLIST+2, CRTITEM+2, UPDITEM+2, GETITEM+2, DELWITEM+2, ADDTAG+2, GETNEXT+3 |
UPUSRAPP | GETITEM+13, GETNEXT+25 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
APPIEN | CRTITEM+1~, CRTITEM+24*, UPDITEM+1~, UPDITEM+18*, GETITEM+1~, ADDTAG+1~, ADDTAG+27*, UPUSRAPP+1~, UPUSRAPP+6* |
CM | SRV+2~*, SRV+6 |
CRTAPP | CRTITEM~, CRTITEM+11, CRTITEM+23, CRTITEM+24, CRTITEM+25 |
CRTDAT | CRTITEM+1~, CRTITEM+3*, CRTITEM+16, CRTITEM+21 |
CRTUSR | CRTITEM~, CRTITEM+11, CRTITEM+22 |
DAT | DTINRNG+1~*, DTINRNG+2, GFLTITM+1~ |
DTFROM | FIND~, FIND+2, DTINRNG~, DTINRNG+2 |
DTTO | FIND~, FIND+2, DTINRNG~, DTINRNG+2 |
ELOCIEN | GETNEXT+1~, GETNEXT+12*, GETNEXT+16, GETNEXT+19, GETNEXT+21 |
ERR | CRTITEM+1~, CRTITEM+40*, CRTITEM+43*, CRTITEM+45, CRTITEM+46!, CRTITEM+47, CRTITEM+49, CRTITEM+51!, CRTITEM+56*, CRTITEM+60! , CRTITEM+61, CRTITEM+63 |
ERR("DIERR" | CRTITEM+58, CRTITEM+63 |
ERR1 | ADDTAG+1~ |
ERR1("DIERR" | ADDTAG+22 |
ERR2 | CRTITEM+1~, CRTITEM+56 |
ERR4 | ADDTAG+1~, ADDTAG+19, ADDTAG+20 |
ESTATIEN | GETNEXT+1~, GETNEXT+11*, GETNEXT+15, GETNEXT+19, GETNEXT+21 |
ETYPE | GETNEXT~, GETNEXT+4, GETNEXT+10, GETNEXT+14 |
ETYPEIEN | GETNEXT+1~, GETNEXT+10*, GETNEXT+14, GETNEXT+19, GETNEXT+21 |
EXPSTAT | UPDITEM~, UPDITEM+4, UPDITEM+8, GETITEM~, GETITEM+5, GETITEM+10, GETITEM+13, ADDTAG~, ADDTAG+5, ADDTAG+10 , ADDTAG+11, GETNEXT~, GETNEXT+5, GETNEXT+11, GETNEXT+15, GETNEXT+25 |
FDA | CRTITEM+1~, CRTITEM+47, UPDITEM+1~, UPDITEM+22, GETITEM+1~, DELWITEM+1~, UPUSRAPP+1~, UPUSRAPP+9 |
FDA( | CRTITEM+16*, CRTITEM+17*, CRTITEM+18*, CRTITEM+19*, CRTITEM+20*, CRTITEM+21*, CRTITEM+22*, CRTITEM+25*, CRTITEM+33*, CRTITEM+34* , UPDITEM+9*, UPDITEM+15*, UPDITEM+16*, UPDITEM+19*, DELWITEM+4*, UPUSRAPP+2*, UPUSRAPP+3*, UPUSRAPP+4*, UPUSRAPP+7* |
FDA1 | ADDTAG+1~, ADDTAG+19 |
FDA1( | ADDTAG+16*, ADDTAG+17* |
FDA2 | CRTITEM+1~, ADDTAG+1~, ADDTAG+30 |
FDA2( | CRTITEM+54*, ADDTAG+24*, ADDTAG+25*, ADDTAG+28* |
FILE | GETLIST+1~, GETLIST+2*, GETLIST+3, GETLIST+4 |
FILTER | GFLTITM+1~, GFLTITM+3!, GFLTITM+10 |
FILTER( | GFLTITM+8*, GFLTITM+14, GFLTITM+25, GFLTITM+37, GFLTITM+66, GFLTITM+75 |
FLTITM | GFLTITM~, GFLTITM+12!, GFLTITM+15*, GFLTITM+16, GFLTITM+26, GFLTITM+27, GFLTITM+28*, GFLTITM+34!*, GFLTITM+38, GFLTITM+39 , GFLTITM+40*, GFLTITM+48!*, GFLTITM+50, GFLTITM+63!*, GFLTITM+67, GFLTITM+68, GFLTITM+73!*, GFLTITM+76 |
FLTITM( | GFLTITM+22*, GFLTITM+31, GFLTITM+53, GFLTITM+58, GFLTITM+70 |
FLTITM2 | GFLTITM+1~, GFLTITM+12!, GFLTITM+34!, GFLTITM+48!, GFLTITM+63!, GFLTITM+73! |
FLTITM3 | GFLTITM+24!, GFLTITM+34, GFLTITM+36!, GFLTITM+48, GFLTITM+63, GFLTITM+65!, GFLTITM+73 |
FLTITM3( | GFLTITM+33*, GFLTITM+47*, GFLTITM+55*, GFLTITM+62*, GFLTITM+72* |
FLTITM4 | GFLTITM+24!, GFLTITM+36!, GFLTITM+65! |
I | GETLIST+1~, GETLIST+2*, GETLIST+4*, GETLIST+5, GETLIST+6, CRTITEM+1~, CRTITEM+28*, CRTITEM+29, CRTITEM+30, CRTITEM+31 , UPDITEM+11*, UPDITEM+12, GETITEM+1~, ADDTAG+1~, ADDTAG+10*, ADDTAG+11, ADDTAG+15*, ADDTAG+16, ADDTAG+17 |
ID | UPDITEM~, UPDITEM+3, UPDITEM+6, UPDITEM+7, UPDITEM+8, UPDITEM+9, UPDITEM+15, UPDITEM+16, UPDITEM+19, UPDITEM+22 , UPDITEM+23, GETITEM~, GETITEM+4, GETITEM+8, GETITEM+9, GETITEM+10, GETITEM+11, GETITEM+13, GETITEM+16, GETITEM+18 , DELWITEM~, DELWITEM+3, DELWITEM+4, DELWITEM+10, DELWITEM+14, ADDTAG~, ADDTAG+3, ADDTAG+4, ADDTAG+8, ADDTAG+14 , ADDTAG+16, ADDTAG+17, ADDTAG+20, ADDTAG+22, ADDTAG+24, ADDTAG+25, ADDTAG+28, ADDTAG+30, ADDTAG+31, GETNEXT+1~ , GETNEXT+21*, GETNEXT+22, GETNEXT+23, GETNEXT+25, GETNEXT+28, GETNEXT+30, UPUSRAPP~, UPUSRAPP+2, UPUSRAPP+3, UPUSRAPP+4 , UPUSRAPP+7, UPUSRAPP+9 |
IEN | GETLIST+1~, GETLIST+2*, GETLIST+3*, GETLIST+4, DTINRNG~, DTINRNG+1, GFLTITM+1~, GFLTITM+17*, GFLTITM+18*, GFLTITM+19 , GFLTITM+20, GFLTITM+22, GFLTITM+30*, GFLTITM+31*, GFLTITM+33, GFLTITM+42*, GFLTITM+43*, GFLTITM+44, GFLTITM+45, GFLTITM+47 , GFLTITM+52*, GFLTITM+53*, GFLTITM+55, GFLTITM+57*, GFLTITM+58*, GFLTITM+59, GFLTITM+60, GFLTITM+62, GFLTITM+69*, GFLTITM+70* , GFLTITM+72, SRV~, SRV+4, SRV+5, SRV+10, SRV+12 |
IEN2 | GFLTITM+1~, GFLTITM+19*, GFLTITM+20, GFLTITM+44*, GFLTITM+45, GFLTITM+59*, GFLTITM+60 |
ISEP | CRTITEM+1~, CRTITEM+2*, CRTITEM+29, CRTITEM+30, UPDITEM+1~, UPDITEM+2*, UPDITEM+12, GFLTITM+6, ADDTAG+1~, ADDTAG+2* , ADDTAG+10, ADDTAG+11, ADDTAG+16, ADDTAG+17 |
J | GETITEM+1~ |
LASTIEN | FIND~, FIND+2 |
LOCATION | GETNEXT~, GETNEXT+8, GETNEXT+12, GETNEXT+16 |
LOCIEN | CRTITEM+1~, CRTITEM+14*, CRTITEM+15, CRTITEM+54 |
MAXIEN | DELWITEM+7~*, DELWITEM+9 |
MAXROWS | FIND~, FIND+2 |
MDL | CRTITEM+1~, CRTITEM+35*, CRTITEM+41, CRTITEM+42 |
MESSAGE | UPDITEM~ |
MESSAGE( | UPDITEM+11, UPDITEM+12 |
MOD | SRV+1~, SRV+5*, SRV+6 |
MODS | SRV+1~, SRV+3*, SRV+6*, SRV+7*, SRV+8, SRV+11, SRV+13, SRV+15 |
MSG | CRTITEM+1~, CRTITEM+61 |
MSG( | CRTITEM+32* |
MSGTAGS | CRTITEM~ |
MSGTAGS( | CRTITEM+28, CRTITEM+29, CRTITEM+30 |
MSGUPD | UPDITEM+1~, UPDITEM+22, ADDTAG+1~, ADDTAG+30 |
MSGUPD( | UPDITEM+12* |
MTGIDX | SRV+1~, SRV+3*, SRV+4*, SRV+5 |
NEWSTAT | UPDITEM~, UPDITEM+9, GETITEM~, GETITEM+6, GETITEM+13, GETNEXT~, GETNEXT+6, GETNEXT+25, UPUSRAPP~, UPUSRAPP+2 |
NOFILTER | GFLTITM+1~, GFLTITM+27*, GFLTITM+28, GFLTITM+29, GFLTITM+38*, GFLTITM+39, GFLTITM+50 |
ORDER | FIND~, FIND+2 |
OSEP | GETLIST+1~, GETLIST+2*, GETLIST+5 |
OUT | GETLIST~, CRTITEM~, CRTITEM+5!, CRTITEM+6*, CRTITEM+7*, CRTITEM+8*, CRTITEM+9*, CRTITEM+10*, CRTITEM+11*, CRTITEM+15* , CRTITEM+45*, CRTITEM+49*, CRTITEM+58*, CRTITEM+63*, CRTITEM+66*, CRTITEM+70*, UPDITEM~, UPDITEM+3*, UPDITEM+4*, UPDITEM+5* , UPDITEM+8*, UPDITEM+22*, FIND~, FIND+2, GETITEM~, GETITEM+3!, GETITEM+13, GETITEM+16, DELWITEM~, DELWITEM+3* , DELWITEM+10*, DELWITEM+14*, ADDTAG~, ADDTAG+3*, ADDTAG+4*, ADDTAG+5*, ADDTAG+6*, ADDTAG+7*, ADDTAG+13*, ADDTAG+20* , ADDTAG+22*, ADDTAG+30*, GETNEXT~, GETNEXT+2!, GETNEXT+25, GETNEXT+28, IMSTATUS~, IMSTATUS+1, UPUSRAPP~ |
OUT( | GETLIST+5* |
OUT(0 | GETITEM+4*, GETITEM+5*, GETITEM+6*, GETITEM+7*, GETITEM+8*, GETITEM+10*, GETITEM+12*, GETITEM+14, GETITEM+15*, GETNEXT+4* , GETNEXT+5*, GETNEXT+6*, GETNEXT+7*, GETNEXT+8*, GETNEXT+14*, GETNEXT+15*, GETNEXT+16*, GETNEXT+20*, GETNEXT+22*, GETNEXT+24* , GETNEXT+26, GETNEXT+27*, UPUSRAPP+9* |
OUT(1 | GETLIST+6* |
PLACEID | CRTITEM~, CRTITEM+9, CRTITEM+14, FIND~, FIND+2 |
PRIORITY | CRTITEM~, CRTITEM+10, CRTITEM+20, FIND~, FIND+2 |
PROC | CRTITEM+1~, CRTITEM+36*, CRTITEM+42, SRV+1~, SRV+12*, SRV+13, SRV+15 |
PTGIDX | SRV+1~, SRV+10*, SRV+11, SRV+12 |
RSTAT | UPDITEM+7*, UPDITEM+8, GETITEM+1~, GETITEM+9*, GETITEM+10 |
SMIEN | CRTITEM+1~ |
SMIEN(1 | CRTITEM+54, CRTITEM+62, CRTITEM+66 |
SRC | CRTITEM+1~, CRTITEM+37* |
SRV | CRTITEM+1~, CRTITEM+42*, CRTITEM+43, SRV+1~, DESCR~, DESCR+1, DESCR+2, DESCR+3 |
SSEP | GETLIST+1~, GETLIST+2*, GETLIST+6, CRTITEM+1~, CRTITEM+2*, CRTITEM+6, CRTITEM+7, CRTITEM+8, CRTITEM+9, CRTITEM+10 , CRTITEM+11, CRTITEM+15, CRTITEM+45, CRTITEM+49, CRTITEM+58, CRTITEM+63, CRTITEM+66, CRTITEM+70, UPDITEM+1~, UPDITEM+2* , UPDITEM+3, UPDITEM+4, UPDITEM+5, UPDITEM+8, GETITEM+1~, GETITEM+2*, GETITEM+4, GETITEM+5, GETITEM+6, GETITEM+7 , GETITEM+8, GETITEM+10, DELWITEM+1~, DELWITEM+2*, DELWITEM+3, DELWITEM+10, DELWITEM+14, ADDTAG+1~, ADDTAG+2*, ADDTAG+3 , ADDTAG+4, ADDTAG+5, ADDTAG+6, ADDTAG+7, ADDTAG+13, ADDTAG+20, ADDTAG+22, GETNEXT+1~, GETNEXT+3*, GETNEXT+4 , GETNEXT+5, GETNEXT+6, GETNEXT+7, GETNEXT+8, GETNEXT+14, GETNEXT+15, GETNEXT+16, GETNEXT+20, GETNEXT+22 |
STATMATCH | ADDTAG+1~, ADDTAG+9*, ADDTAG+10, ADDTAG+11*, ADDTAG+13 |
STATUS | CRTITEM~, CRTITEM+8, CRTITEM+19, FIND~, FIND+2, ADDTAG+1~, ADDTAG+8*, ADDTAG+11 |
STOPTAG | FIND~, FIND+2 |
SUBTYPE | CRTITEM~, CRTITEM+7, CRTITEM+18, FIND~, FIND+2 |
TAG | GFLTITM+1~, GFLTITM+6*, GFLTITM+7, GFLTITM+8, GFLTITM+13*, GFLTITM+14, GFLTITM+15, GFLTITM+18, GFLTITM+19, GFLTITM+25* , GFLTITM+28, GFLTITM+33, GFLTITM+37*, GFLTITM+40, GFLTITM+43, GFLTITM+44, GFLTITM+55, GFLTITM+59, GFLTITM+66*, GFLTITM+75* , ADDTAG~ |
TAG( | ADDTAG+15, ADDTAG+16, ADDTAG+17 |
TAG(1 | ADDTAG+7 |
TAGIDX | CRTITEM+1~, CRTITEM+31*, CRTITEM+32, CRTITEM+33, CRTITEM+34 |
TAGITM | GFLTITM+1~, GFLTITM+4*, GFLTITM+5*, GFLTITM+6 |
TAGN | CRTITEM+1~, CRTITEM+29*, CRTITEM+32, CRTITEM+33, CRTITEM+35, CRTITEM+36, CRTITEM+37 |
TAGS | FIND~, FIND+2, GFLTITM~ |
TAGS( | GFLTITM+5, GFLTITM+6 |
TAGV | CRTITEM+1~, CRTITEM+30*, CRTITEM+32, CRTITEM+34, CRTITEM+35, CRTITEM+36, CRTITEM+37 |
TAGVAL | GFLTITM+1~, GFLTITM+20*, GFLTITM+22, GFLTITM+45*, GFLTITM+47, GFLTITM+60*, GFLTITM+62 |
TYPE | CRTITEM~, CRTITEM+6, CRTITEM+17, FIND~, FIND+2 |
U | GETLIST+5, CRTITEM+43, CRTITEM+45, DTINRNG+1, GFLTITM+20, GFLTITM+45, GFLTITM+60, SRV+5, SRV+12, DELWITEM+7 , DELWITEM+9 |
UIDS | IMSTATUS~, IMSTATUS+1 |
UPDAPP | UPDITEM~, UPDITEM+5, UPDITEM+17, UPDITEM+18, UPDITEM+19, GETITEM~, GETITEM+7, GETITEM+13, ADDTAG~, ADDTAG+6 , ADDTAG+26, ADDTAG+27, ADDTAG+28, GETNEXT~, GETNEXT+7, GETNEXT+25, UPUSRAPP~, UPUSRAPP+5, UPUSRAPP+6, UPUSRAPP+7 |
UPDATEDT | GETNEXT+1~, GETNEXT+19*, GETNEXT+20, GETNEXT+21 |
UPDSRV | CRTITEM~, CRTITEM+4*, CRTITEM+35, CRTITEM+36, CRTITEM+37, CRTITEM+41 |
UPDUSR | UPDITEM~, UPDITEM+5, UPDITEM+16, GETITEM~, GETITEM+7, GETITEM+13, ADDTAG~, ADDTAG+6, ADDTAG+25, GETNEXT~ , GETNEXT+7, GETNEXT+25, UPUSRAPP~, UPUSRAPP+4 |
VALUE | GFLTITM+1~, GFLTITM+6*, GFLTITM+8, GFLTITM+14*, GFLTITM+15, GFLTITM+16, GFLTITM+22, GFLTITM+25*, GFLTITM+26, GFLTITM+28 , GFLTITM+33, GFLTITM+37*, GFLTITM+39, GFLTITM+40, GFLTITM+41, GFLTITM+47, GFLTITM+50, GFLTITM+51, GFLTITM+55, GFLTITM+56 , GFLTITM+62, GFLTITM+66*, GFLTITM+67, GFLTITM+68, GFLTITM+72, GFLTITM+75*, GFLTITM+76 |
WORKLIST | GETLIST+1~, GETLIST+4*, GETLIST+5 |
X | UPCASE~, UPCASE+1 |