Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MAGVIM01

Package: Imaging

Routine: MAGVIM01


Information

MAGVIM01 ;WOIFO/DAC/NST/BT/JSJ - Utilities for RPC calls for DICOM file processing ; May 19, 2022@15:15:24

Source Information

Source file <MAGVIM01.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Imaging 4 $$GETIEN^MAGVAF05  $$UPDWI^MAGVIM01  VALIDATE^MAGVIM06  (GETWI,IMSTATUS)^MAGVIM09  
Kernel 2 $$NOW^XLFDT  $$IEN^XUAF4  
VA FileMan 2 (FILE,UPDATE,WP)^DIE  ($$GET1,GETS)^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 20

Package Total Caller Graph
Imaging 20 MAGNUTL2  MAGNWRK1  MAGV ADD WORK ITEM TAGS  MAGV CREATE WORK ITEM  MAGV DELETE WORK ITEM  MAGV FIND WORK ITEM  MAGV GET NEXT WORK ITEM  MAGV GET WORK ITEM  
MAGV GET WORKLISTS  MAGV IMPORT STATUS  MAGV UPDATE WORK ITEM  MAGVCWIA  MAGVD011  MAGVIM01  MAGVIM02  MAGVIM03  
MAGVIM05  MAGVIM06  MAGVIM08  MAGVIM09  

Entry Points

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

External References

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

Used in RPC

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MAGV(2006.941 - [#2006.941] GET1^DIQ,  GETS^DIQ,  WP^DIE

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All