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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MAGJUPD2

Package: Imaging

Routine: MAGJUPD2


Information

MAGJUPD2 ;WIRMFO/JHC VistaRad RPCs-Update PS & KEY Img ; 14 July 2004 10:05 AM

Source Information

Source file <MAGJUPD2.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 2 $$EC^%ZOSV  $$NOW^XLFDT  

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: 3

Package Total Caller Graph
Imaging 3 MAGJEX3  MAGJUPD1  MAGJUTL2  

Entry Points

Name Comments DBIA/ICR reference
ERR
SAVKPS(RARPT,INTERPFL,DATA,REPLY) ; Save study data: Key/Interpretation Images & Pres. State
; RARPT--exam pointer
; INTERPFL--1/0; 1=This is associated with a Rad Interpretation; Optional
; DATA--array of input data; see structure at end of routine
; REPLY--return string
SAVKPSZ ;
NOOP(X)
IMGINIT(LINE) ; Init storage space for an image ; inits some vars for the SAVE loop
IMGINITZ
PSINIT(LINE) ; Init storage space for a Presentation State ; inits some vars for SAVE loop
; input = PS_UID ^ UID Type (KEY, INT) ^ "DELETE"
; if peice 3 ="DELETE" then the PS data is deleted
PSINITZ
SAVPS(LINE) ; Save a line of PS data
; input = line of free-text data
SAVKIMG(IMGIEN,UIDSEQ,TYPE,NEWIMG) ; store a Key image & Interp images w/ PS refs in study node
SAVKIMGZ
STUDYID(IEN,RARPT,READONLY,INITSTDY) ; return Study_IEN for input ImgIEN or RARPT
; initialize Study node if INITSTDY is indicated (optional)
; Either IEN or RARPT must be supplied; if both supplied, only RARPT is used
; if READONLY is false, then create "STUDY" node if undefined
; <*> Note: this routine is hard-coded for RADIOLOGY image data only (Parent file=74)
STUDYIDZ
GETRPT(IEN) ; return rarpt for input imgien
END ;

External References

Name Field # of Occurrence
$$EC^%ZOSV ERR
$$NOW^XLFDT SAVKPS+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("ERRTN" ERR+1
^MAG(2005 - [#2005] IMGINIT+4, IMGINIT+7, GETRPT+4, GETRPT+5, GETRPT+6
^MAG(2005.001 - [#2005.001] SAVKIMG+6, STUDYID+12, STUDYID+13!, STUDYID+15, STUDYID+16, STUDYID+17, STUDYID+18*
^RARPT - [#74] GETRPT+7

Label References

Name Line Occurrences
$$GETRPT STUDYID+10
$$STUDYID SAVKPS+23, SAVKIMG+4
@( ERR+1, SAVKPS+20
IMGINIT SAVKPS+18
IMGINITZ IMGINIT+5
PSINIT SAVKPS+19
PSINITZ PSINIT+5
SAVKIMG SAVKPS+27
SAVKIMGZ SAVKIMG+3, SAVKIMG+5
STUDYIDZ STUDYID+11

Naked Globals

Name Field # of Occurrence
^( STUDYID+12
^(0 PSINIT+11*, SAVKIMG+11*, SAVKIMG+25*, STUDYID+16*
^(1 IMGINIT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DATA SAVKPS~
DATA( SAVKPS+14
DELETE PSINIT+3~, PSINIT+4*, PSINIT+15, PSINIT+30, PSINIT+31
DUZ PSINIT+24
ERR ERR~*
ICT SAVKPS+6~, SAVKPS+27*
IDATA SAVKPS+5~, SAVKPS+13*, SAVKPS+14*
IEN IMGINIT+1~, IMGINIT+3*, IMGINIT+4, IMGINIT+6, PSINIT+3~, PSINIT+9*, PSINIT+10, PSINIT+12*, PSINIT+13, PSINIT+14
, SAVKIMG+22~*, SAVKIMG+23, SAVKIMG+26*, SAVKIMG+27, SAVKIMG+29, STUDYID~, STUDYID+7*, STUDYID+10, GETRPT~, GETRPT+3
, GETRPT+4, GETRPT+5
IENGRP GETRPT+1~, GETRPT+4*, GETRPT+5*, GETRPT+6
IMG SAVKPS+6~, SAVKPS+24*, SAVKPS+25*, SAVKPS+26, SAVKPS+27
IMGCT SAVKPS+5~, SAVKPS+9*, SAVKPSZ+1, SAVKPSZ+2, IMGINIT+8*
IMGIEN SAVKPS+6~, SAVKPS+8*, IMGINIT+2*, IMGINIT+6*, IMGINIT+7, PSINIT+25, SAVKIMG~, SAVKIMG+3, SAVKIMG+4, SAVKIMG+8
, SAVKIMG+13, SAVKIMG+19
IMGREF SAVKPS+6~, SAVKPS+10*, IMGINIT+2*, IMGINIT+7*, PSINIT+7, PSINIT+9, PSINIT+11, PSINIT+13, PSINIT+17, PSINIT+18
, PSINIT+19, PSINIT+20, PSINIT+22, PSINIT+24, PSINIT+26, PSINIT+27, PSINIT+28, SAVPS+3, SAVPS+4, SAVPS+6
, SAVPS+8, SAVPS+9
INITSTDY SAVKPS+6~, SAVKPS+22*, SAVKPS+23, STUDYID~, STUDYID+9*, STUDYID+13
INTCT SAVKPS+5~, SAVKPS+9*, SAVKPSZ+1, SAVKIMG+30*
INTERPFL SAVKPS~, SAVKPS+7*, SAVKPS+22, PSINIT+6
KEYCT SAVKPS+5~, SAVKPS+9*, SAVKPSZ+1, SAVKIMG+30*
KIEN SAVKIMG+2~, SAVKIMG+8*, SAVKIMG+9, SAVKIMG+12*, SAVKIMG+13, SAVKIMG+17, SAVKIMG+18, SAVKIMG+19, SAVKIMG+22, SAVKIMG+24
, SAVKIMG+25, SAVKIMG+27, SAVKIMG+28, SAVKIMG+29
LINE SAVKPS+5~, SAVKPS+14*, SAVKPS+15, SAVKPS+16, SAVKPS+17, SAVKPS+18, SAVKPS+19, IMGINIT~, IMGINIT+3, PSINIT~
, PSINIT+4, SAVPS~, SAVPS+6
>> MAGGRY ERR
NEWIMG SAVKPS+5~, SAVKPS+6~, SAVKPS+8*, SAVKPS+15*, SAVKPS+17*, SAVKPS+18*, SAVKPS+25*, SAVKPS+27*, SAVKIMG~, SAVKIMG+16
NEWPS SAVKPS+5~, SAVKPS+8*, SAVKPS+16*, SAVKPS+17*, SAVKPS+19*
PSCT SAVPS+2~, SAVPS+5*, SAVPS+6, SAVPS+7
PSCTRL SAVPS+2~, SAVPS+4*, SAVPS+5, SAVPS+7*, SAVPS+8
PSIEN SAVKPS+6~, SAVKPS+8*, PSINIT+14*, PSINIT+15, PSINIT+17, PSINIT+24, PSINIT+26, PSINIT+27, SAVPS+3, SAVPS+4
, SAVPS+6, SAVPS+8, SAVPS+9
PSKILCT SAVKPS+5~, SAVKPS+9*, SAVKPSZ+3, SAVKPSZ+4, PSINIT+16*
PSLINCT SAVKPS+5~, SAVKPS+9*, SAVKPSZ+1, SAVKPSZ+2, SAVPS+10*
PSTOT SAVKPS+5~, SAVKPS+9*, SAVKPSZ+1, SAVKPSZ+2, PSINIT+31*
PSTRAK SAVKPS+5~, SAVKPS+24
PSTRAK( SAVKPS+25, SAVKPS+26, SAVKPS+27, PSINIT+25*
RARPT SAVKPS~, SAVKPS+23, STUDYID~, STUDYID+7*, STUDYID+10*, STUDYID+11, STUDYID+12, STUDYID+18, GETRPT+1~, GETRPT+2*
, GETRPT+6*, GETRPT+7, GETRPT+8*, GETRPT+9
READONLY STUDYID~, STUDYID+8*, STUDYID+14
REPLY SAVKPS~, SAVKPSZ+1*, SAVKPSZ+2*, SAVKPSZ+3*, SAVKPSZ+4*, SAVKPSZ+5*
SAVOP SAVKPS+6~, SAVKPS+10*, SAVKPS+20, PSINIT+29*, PSINIT+30*
SEQNUM SAVKPS+6~, SAVKPS+8*, PSINIT+25*, SAVKIMG+2~, SAVKIMG+7*, SAVKIMG+29
STDYINIT STUDYID+5~
STIEN SAVKPS+6~, SAVKPS+23*, SAVKIMG+2~, SAVKIMG+4*, SAVKIMG+5, SAVKIMG+6, STUDYID+5~, STUDYID+6*, STUDYID+12*, STUDYID+13
, STUDYID+16*, STUDYID+18, STUDYIDZ
STUDY SAVKPS+5~
STUDYREF SAVKIMG+2~, SAVKIMG+6*, SAVKIMG+8, SAVKIMG+10, SAVKIMG+11, SAVKIMG+13, SAVKIMG+14, SAVKIMG+17, SAVKIMG+18, SAVKIMG+19*
, SAVKIMG+22, SAVKIMG+24, SAVKIMG+25, SAVKIMG+27, SAVKIMG+28, SAVKIMG+29
T PSINIT+12*, PSINIT+18*, PSINIT+19, PSINIT+21*, PSINIT+25*, SAVKIMG+12*, SAVKIMG+26*, STUDYID+5~, STUDYID+16*
TIMESTMP SAVKPS+11~*, PSINIT+24
TYPE SAVKPS+6~, SAVKPS+25*, SAVKPS+26*, SAVKPS+27, PSINIT+3~, PSINIT+4*, PSINIT+6*, PSINIT+24, PSINIT+25, SAVKIMG~
, SAVKIMG+29, SAVKIMG+30
U IMGINIT+3, PSINIT+4, PSINIT+12, PSINIT+21, PSINIT+24, PSINIT+25, SAVPS+5, SAVPS+7, SAVKIMG+7, SAVKIMG+12
, SAVKIMG+19, SAVKIMG+26, SAVKIMG+29, STUDYID+16, STUDYID+18, GETRPT+5, GETRPT+6
UID PSINIT+3~, PSINIT+4*, PSINIT+5, PSINIT+9, PSINIT+13, PSINIT+17, PSINIT+24, PSINIT+25, SAVKIMG+2~, SAVKIMG+7*
, SAVKIMG+21, SAVKIMG+22, SAVKIMG+27, SAVKIMG+29
UIDSEQ SAVKIMG~, SAVKIMG+7
X NOOP~, PSINIT+4*, PSINIT+11*, PSINIT+12*, PSINIT+13, SAVKIMG+11*, SAVKIMG+12*, SAVKIMG+13, SAVKIMG+25*, SAVKIMG+26*
, SAVKIMG+27, STUDYID+5~, STUDYID+16*, GETRPT+1~, GETRPT+6*
XD PSINIT+20~*, PSINIT+21*, PSINIT+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All