MAGJUPD2 ;WIRMFO/JHC VistaRad RPCs-Update PS & KEY Img ; 14 July 2004 10:05 AM
Source file <MAGJUPD2.m>
| 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 | ;
|
