MAGVIM01 ;WOIFO/DAC/NST/JSJ/BT - Utilities for RPC calls for DICOM file processing ; Nov 05, 2020@07:26:32
Source file <MAGVIM01.m>
| 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) | ;
|
| 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 |
