MAGJUPD2 ;WIRMFO/JHC VistaRad RPCs-Update PS & KEY Img ; 14 July 2004 10:05 AM
Source file <MAGJUPD2.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 |
|---|---|---|
| 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 | ;
|
| 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 |
| Name | Field # of Occurrence |
|---|---|
| ^( | STUDYID+12 |
| ^(0 | PSINIT+11*, SAVKIMG+11*, SAVKIMG+25*, STUDYID+16* |
| ^(1 | IMGINIT+4 |
| >> | 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 |
