MAGVIM01 ;WOIFO/DAC/NST/BT/JSJ - Utilities for RPC calls for DICOM file processing ; May 19, 2022@15:15:24
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) | ; 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
|
|
UPDWI(ID,FDA,MSGUPD) | ; Update work item
; Return 0|Error`Message error ; ; ID - IEN of Work Item ; FDA - VA FileMan FDA array ; MSGUPD - Message array |
|
FIND(OUT,TYPE,SUBTYPE,STATUS,PLACEID,PRIORITY,STOPTAG,MAXROWS,TAGS) | ; Find records with given attributes - return ID
|
|
GETITEM(OUT,ID,EXPSTAT,NEWSTAT,UPDUSR,UPDAPP) | ; Find work item with matching ID and return tags - Get and transition
|
|
DELWITEM(OUT,ID) | ; Delete Work Item
|
|
ADDTAG(OUT,ID,EXPSTAT,UPDUSR,UPDAPP,TAG) | ; Add tags to work item
; List of statuses |
|
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
|
Name | Field # of Occurrence |
---|---|
FILE^DIE | CRTITEM+44, UPDWI+13, DELWITEM+9 |
UPDATE^DIE | CRTITEM+42, ADDTAG+22 |
WP^DIE | CRTITEM+53, UPDWI+18 |
$$GET1^DIQ | UPDITEM+7, GETITEM+9, ADDTAG+9 |
GETS^DIQ | FIND+27 |
$$GETIEN^MAGVAF05 | CRTITEM+25, UPDITEM+18, ADDTAG+29, UPUSRAPP+6 |
$$UPDWI^MAGVIM01 | UPDITEM+22, ADDTAG+33, UPUSRAPP+9 |
VALIDATE^MAGVIM06 | CRTITEM+35, UPDWI+9, ADDTAG+20 |
GETWI^MAGVIM09 | FIND+45, GETITEM+16, GETNEXT+29 |
IMSTATUS^MAGVIM09 | IMSTATUS+1 |
$$NOW^XLFDT | CRTITEM+4, UPDITEM+15, ADDTAG+26, UPUSRAPP+3 |
$$IEN^XUAF4 | CRTITEM+14, FIND+9, GETNEXT+13 |
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, GETS^DIQ, WP^DIE |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^MAGV( | GETLIST+3, GETLIST+5 |
^MAGV(2006.941 - [#2006.941] | CRTITEM+41, CRTITEM+59, UPDITEM+3, UPDITEM+6, UPDITEM+8, UPDITEM+23, FIND+24, FIND+39, FIND+40, FIND+41 , GETITEM+8, GETITEM+10, GETITEM+11, GETITEM+18, DELWITEM+3, DELWITEM+5, DELWITEM+8, DELWITEM+10*, DELWITEM+12, ADDTAG+5 , ADDTAG+15, ADDTAG+21, ADDTAG+23, ADDTAG+34, GETNEXT+20, GETNEXT+22, GETNEXT+24, GETNEXT+31 |
^MAGV(2006.9412 - [#2006.9412] | GETNEXT+11 |
^MAGV(2006.9413 - [#2006.9413] | GETNEXT+12 |
Name | Line Occurrences |
---|---|
$$INPUTSEP | CRTITEM+3, UPDITEM+2, FIND+4, ADDTAG+3 |
$$OUTSEP | GETLIST+2 |
$$STATSEP | GETLIST+2, CRTITEM+3, UPDITEM+2, UPDWI+7, FIND+4, GETITEM+2, DELWITEM+2, ADDTAG+3, GETNEXT+4 |
UPUSRAPP | GETITEM+13, GETNEXT+26 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AFLD | FIND+3~ |
AFLD( | FIND+31, FIND+32 |
AFLD(1 | FIND+16* |
AFLD(2 | FIND+17* |
AFLD(3 | FIND+18* |
AFLD(4 | FIND+19* |
AFLD(5 | FIND+20* |
APPIEN | CRTITEM+1~, CRTITEM+25*, UPDITEM+1~, UPDITEM+18*, GETITEM+1~, ADDTAG+2~, ADDTAG+29*, UPUSRAPP+1~, UPUSRAPP+6* |
CRTAPP | CRTITEM~, CRTITEM+11, CRTITEM+24, CRTITEM+25, CRTITEM+26 |
CRTDAT | CRTITEM+2~, CRTITEM+4*, CRTITEM+16, CRTITEM+22 |
CRTUSR | CRTITEM~, CRTITEM+11, CRTITEM+23 |
ELOCIEN | GETNEXT+1~, GETNEXT+13*, GETNEXT+17, GETNEXT+20, GETNEXT+22 |
ERR | CRTITEM+1~, CRTITEM+34!, CRTITEM+35, CRTITEM+37, CRTITEM+39!, CRTITEM+45*, CRTITEM+50!, CRTITEM+52, CRTITEM+54, UPDWI+6~ , UPDWI+9, UPDWI+12!, UPDWI+17!, FIND+22!, FIND+24, FIND+26!, FIND+28, FIND+46* |
ERR("DIERR" | CRTITEM+48, CRTITEM+54, UPDWI+10, UPDWI+14, UPDWI+19, FIND+28 |
ERR1 | ADDTAG+2~ |
ERR1("DIERR" | ADDTAG+23 |
ERR2 | CRTITEM+1~, CRTITEM+45 |
ERR4 | ADDTAG+2~, ADDTAG+20, ADDTAG+21 |
ESTATIEN | GETNEXT+1~, GETNEXT+12*, GETNEXT+16, GETNEXT+20, GETNEXT+22 |
ETYPE | GETNEXT~, GETNEXT+5, GETNEXT+11, GETNEXT+15 |
ETYPEIEN | GETNEXT+1~, GETNEXT+11*, GETNEXT+15, GETNEXT+20, GETNEXT+22 |
EXPSTAT | UPDITEM~, UPDITEM+4, UPDITEM+8, GETITEM~, GETITEM+5, GETITEM+10, GETITEM+13, ADDTAG~, ADDTAG+6, ADDTAG+11 , ADDTAG+12, GETNEXT~, GETNEXT+6, GETNEXT+12, GETNEXT+16, GETNEXT+26 |
FDA | CRTITEM+1~, CRTITEM+35, UPDITEM+1~, UPDITEM+22, UPDWI~, UPDWI+9, GETITEM+1~, DELWITEM+1~, UPUSRAPP+1~, UPUSRAPP+9 |
FDA( | CRTITEM+16*, CRTITEM+17*, CRTITEM+18*, CRTITEM+19*, CRTITEM+21*, CRTITEM+22*, CRTITEM+23*, CRTITEM+26*, CRTITEM+31*, CRTITEM+32* , UPDITEM+9*, UPDITEM+15*, UPDITEM+16*, UPDITEM+19*, DELWITEM+4*, UPUSRAPP+2*, UPUSRAPP+3*, UPUSRAPP+4*, UPUSRAPP+7* |
FDA1 | ADDTAG+2~, ADDTAG+20 |
FDA1( | ADDTAG+17*, ADDTAG+18* |
FDA2 | CRTITEM+1~, ADDTAG+2~, ADDTAG+33 |
FDA2( | CRTITEM+43*, ADDTAG+26*, ADDTAG+27*, ADDTAG+30* |
FILE | GETLIST+1~, GETLIST+2*, GETLIST+3, GETLIST+5 |
FLD | FIND+2~, FIND+29*, FIND+31*, FIND+32 |
FLDS | FIND+3~, FIND+15*, FIND+16*, FIND+17*, FIND+18*, FIND+19*, FIND+20*, FIND+27 |
I | GETLIST+1~, GETLIST+2*, GETLIST+4*, GETLIST+6, GETLIST+7, CRTITEM+2~, CRTITEM+29*, CRTITEM+30, CRTITEM+31, CRTITEM+32 , UPDITEM+11*, UPDITEM+12, GETITEM+1~, ADDTAG+2~, ADDTAG+11*, ADDTAG+12, ADDTAG+16*, ADDTAG+17, ADDTAG+18 |
ID | UPDITEM~, UPDITEM+3, UPDITEM+6, UPDITEM+7, UPDITEM+8, UPDITEM+9, UPDITEM+15, UPDITEM+16, UPDITEM+19, UPDITEM+22 , UPDITEM+23, UPDWI~, UPDWI+18, UPDWI+21, GETITEM~, GETITEM+4, GETITEM+8, GETITEM+9, GETITEM+10, GETITEM+11 , GETITEM+13, GETITEM+16, GETITEM+18, DELWITEM~, DELWITEM+3, DELWITEM+4, DELWITEM+11, DELWITEM+15, ADDTAG~, ADDTAG+4 , ADDTAG+5, ADDTAG+9, ADDTAG+15, ADDTAG+17, ADDTAG+18, ADDTAG+21, ADDTAG+23, ADDTAG+26, ADDTAG+27, ADDTAG+30 , ADDTAG+33, ADDTAG+34, GETNEXT+1~, GETNEXT+22*, GETNEXT+23, GETNEXT+24, GETNEXT+26, GETNEXT+29, GETNEXT+31, UPUSRAPP~ , UPUSRAPP+2, UPUSRAPP+3, UPUSRAPP+4, UPUSRAPP+7, UPUSRAPP+9 |
IEN | GETLIST+1~, GETLIST+2*, GETLIST+3*, GETLIST+5, FIND+2~, FIND+23*, FIND+24*, FIND+25, FIND+39, FIND+40 , FIND+41, FIND+45 |
IEN2 | FIND+2~, FIND+40*, FIND+41 |
IENS | FIND+3~, FIND+25*, FIND+27, FIND+32 |
ISEP | CRTITEM+1~, CRTITEM+3*, CRTITEM+30, CRTITEM+31, CRTITEM+32, UPDITEM+1~, UPDITEM+2*, UPDITEM+12, FIND+2~, FIND+4* , FIND+38, ADDTAG+2~, ADDTAG+3*, ADDTAG+11, ADDTAG+12, ADDTAG+17, ADDTAG+18 |
J | FIND+2~, FIND+36*, FIND+37*, FIND+38, GETITEM+1~ |
LOCATION | GETNEXT~, GETNEXT+9, GETNEXT+13, GETNEXT+17 |
LOCIEN | CRTITEM+1~, CRTITEM+14*, CRTITEM+15, CRTITEM+43, FIND+3~, FIND+9*, FIND+10, FIND+19 |
MAGOUT | FIND+3~, FIND+26! |
MAGOUT("2006.941" | FIND+32 |
MAXIEN | DELWITEM+8~*, DELWITEM+10 |
MAXROWS | FIND~, FIND+6, FIND+24 |
MESSAGE | UPDITEM~ |
MESSAGE( | UPDITEM+11, UPDITEM+12 |
MSG | CRTITEM+1~, CRTITEM+52 |
MSG( | CRTITEM+30* |
MSGTAGS | CRTITEM~ |
MSGTAGS( | CRTITEM+29, CRTITEM+30, CRTITEM+31, CRTITEM+32 |
MSGUPD | UPDITEM+1~, UPDITEM+22, UPDWI~, UPDWI+18, ADDTAG+2~, ADDTAG+33 |
MSGUPD( | UPDITEM+12* |
NEWSTAT | UPDITEM~, UPDITEM+9, GETITEM~, GETITEM+6, GETITEM+13, GETNEXT~, GETNEXT+7, GETNEXT+26, UPUSRAPP~, UPUSRAPP+2 |
NOMATCH | FIND+3~, FIND+30*, FIND+31, FIND+32*, FIND+34 |
OSEP | GETLIST+1~, GETLIST+2*, GETLIST+6 |
OUT | GETLIST~, CRTITEM~, CRTITEM+5!, CRTITEM+6*, CRTITEM+7*, CRTITEM+8*, CRTITEM+9*, CRTITEM+10*, CRTITEM+11*, CRTITEM+15* , CRTITEM+37*, CRTITEM+48*, CRTITEM+54*, CRTITEM+57*, CRTITEM+61*, UPDITEM~, UPDITEM+3*, UPDITEM+4*, UPDITEM+5*, UPDITEM+8* , UPDITEM+22*, FIND~, FIND+6*, FIND+8, FIND+10*, FIND+28!, FIND+45, GETITEM~, GETITEM+3!, GETITEM+13 , GETITEM+16, DELWITEM~, DELWITEM+3*, DELWITEM+11*, DELWITEM+15*, ADDTAG~, ADDTAG+4*, ADDTAG+5*, ADDTAG+6*, ADDTAG+7* , ADDTAG+8*, ADDTAG+14*, ADDTAG+21*, ADDTAG+23*, ADDTAG+33*, GETNEXT~, GETNEXT+3!, GETNEXT+26, GETNEXT+29, IMSTATUS~ , IMSTATUS+1, UPUSRAPP~ |
OUT( | GETLIST+6* |
OUT(0 | FIND+13*, FIND+28*, FIND+46, GETITEM+4*, GETITEM+5*, GETITEM+6*, GETITEM+7*, GETITEM+8*, GETITEM+10*, GETITEM+12* , GETITEM+14, GETITEM+15*, GETNEXT+5*, GETNEXT+6*, GETNEXT+7*, GETNEXT+8*, GETNEXT+9*, GETNEXT+15*, GETNEXT+16*, GETNEXT+17* , GETNEXT+21*, GETNEXT+23*, GETNEXT+25*, GETNEXT+27, GETNEXT+28*, UPUSRAPP+9* |
OUT(1 | GETLIST+7* |
PLACEID | CRTITEM~, CRTITEM+9, CRTITEM+14, FIND~, FIND+8, FIND+9 |
PRIORITY | CRTITEM~, CRTITEM+10, CRTITEM+21, FIND~, FIND+20 |
RSTAT | UPDITEM+7*, UPDITEM+8, GETITEM+1~, GETITEM+9*, GETITEM+10 |
SMIEN | CRTITEM+1~ |
SMIEN(1 | CRTITEM+43, CRTITEM+53, CRTITEM+57 |
SSEP | GETLIST+1~, GETLIST+2*, GETLIST+7, CRTITEM+1~, CRTITEM+3*, CRTITEM+6, CRTITEM+7, CRTITEM+8, CRTITEM+9, CRTITEM+10 , CRTITEM+11, CRTITEM+15, CRTITEM+37, CRTITEM+48, CRTITEM+54, CRTITEM+57, CRTITEM+61, UPDITEM+1~, UPDITEM+2*, UPDITEM+3 , UPDITEM+4, UPDITEM+5, UPDITEM+8, UPDWI+6~, UPDWI+7*, UPDWI+10, UPDWI+14, UPDWI+19, UPDWI+21, FIND+2~ , FIND+4*, FIND+6, FIND+10, FIND+28, GETITEM+1~, GETITEM+2*, GETITEM+4, GETITEM+5, GETITEM+6, GETITEM+7 , GETITEM+8, GETITEM+10, DELWITEM+1~, DELWITEM+2*, DELWITEM+3, DELWITEM+11, DELWITEM+15, ADDTAG+2~, ADDTAG+3*, ADDTAG+4 , ADDTAG+5, ADDTAG+6, ADDTAG+7, ADDTAG+8, ADDTAG+14, ADDTAG+21, ADDTAG+23, GETNEXT+1~, GETNEXT+4*, GETNEXT+5 , GETNEXT+6, GETNEXT+7, GETNEXT+8, GETNEXT+9, GETNEXT+15, GETNEXT+16, GETNEXT+17, GETNEXT+21, GETNEXT+23 |
STATMATCH | ADDTAG+2~, ADDTAG+10*, ADDTAG+11, ADDTAG+12*, ADDTAG+14 |
STATUS | CRTITEM~, CRTITEM+8, CRTITEM+19, FIND~, FIND+18, ADDTAG+2~, ADDTAG+9*, ADDTAG+12 |
STOPTAG | FIND~, FIND+45 |
SUBTYPE | CRTITEM~, CRTITEM+7, CRTITEM+18, FIND~, FIND+17 |
TAG | FIND+2~, FIND+38*, FIND+39, FIND+40, ADDTAG~ |
TAG( | ADDTAG+16, ADDTAG+17, ADDTAG+18 |
TAG(1 | ADDTAG+8 |
TAGMATCH | FIND+2~, FIND+36*, FIND+37, FIND+39*, FIND+41*, FIND+43 |
TAGS | FIND~ |
TAGS( | FIND+37, FIND+38 |
TYPE | CRTITEM~, CRTITEM+6, CRTITEM+17, FIND~, FIND+16 |
U | GETLIST+6, FIND+41, DELWITEM+8, DELWITEM+10 |
UIDS | IMSTATUS~, IMSTATUS+1 |
UPDAPP | UPDITEM~, UPDITEM+5, UPDITEM+17, UPDITEM+18, UPDITEM+19, GETITEM~, GETITEM+7, GETITEM+13, ADDTAG~, ADDTAG+7 , ADDTAG+28, ADDTAG+29, ADDTAG+30, GETNEXT~, GETNEXT+8, GETNEXT+26, UPUSRAPP~, UPUSRAPP+5, UPUSRAPP+6, UPUSRAPP+7 |
UPDATEDT | GETNEXT+1~, GETNEXT+20*, GETNEXT+21, GETNEXT+22 |
UPDUSR | UPDITEM~, UPDITEM+5, UPDITEM+16, GETITEM~, GETITEM+7, GETITEM+13, ADDTAG~, ADDTAG+7, ADDTAG+27, GETNEXT~ , GETNEXT+8, GETNEXT+26, UPUSRAPP~, UPUSRAPP+4 |
VALUE | FIND+3~, FIND+38*, FIND+41 |
WICOUNT | FIND+2~, FIND+23*, FIND+24, FIND+47* |
WORKLIST | GETLIST+1~, GETLIST+5*, GETLIST+6 |