MAGGSIV ;WOIFO/GEK/NST - Imaging RPC Broker calls. Validate Image data array ; [ 12/27/2000 10:49 ]
Source file <MAGGSIV.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 |
|---|---|---|
| VAL(MAGRY,MAGARRAY,ALL) | ;RPC [MAG4 VALIDATE DATA]
|
|
| ACTCODE(CODE) | ;Function that returns True (1) if this code is a valid Import API Action Code
; Patch 8. We're adding 107 as an action code, so it will pass validation even if the entry ; in the Acquisition Device File doesn't exist; ; it will be validated in PRE^MAGGSIA1 and a new Acquisition Device entry made if needed. |
|
| VALCODE(CODE,VALUE) | ; We validate the values for the possible action codes
|
|
| IEN | ||
| ACTION | ; Patch 121 ACTION = "RESCIND"
|
|
| PXNEW | ; New Package (TIU note)
|
|
| PXSGNTYP | ; Signature type
|
|
| PXTIUTTL | ; Check for valid TIU title
|
|
| EXT | ; code will go here to validate the extension type. i.e. we won't let types .exe .bat .com .zip ... etc.
; Maybe a modification to Object Type file, to have allowable extensions in the file, and a ; cross reference on a new field EXTENSION. The capture workstation wouldn't have to ask the ; user for the file type of each file, and we wouldn't get WORD .DOC files that the user called Color Images |
|
| ABS | ; Meaning: Have the BP create the abstract
|
|
| JB | ; Meaning: Have the BP copy the image to the JukeBox
|
|
| BIG | ; Meaning: There is a big file also, set the Image File field ? to indicate there is a BIG File.
|
|
| WRITE | ; Meaning: This is the Internal Entry (or "PACS") of the WRITE Directory. Images will be written
; here instead of the default WRITE Directory. |
|
| DICOMSN | ;Meaning: DICOM Series Number. This will be entered in the Group Object multiple, field #1
|
|
| DICOMIN | ;Meaning: DICOM Image Number. This will be entered in the Group Object multiple, field #2
; We were validating this as an integer, but it can be anything, no way to validate. |
|
| DELFLAG | ;Meaning: This flag tells the Delphi Import Component to Delete the Image files after successful processing
|
|
| TRNSTYP | ;Meaning: This flag is for future use, for now it is ignored, defaults to "NEW"
|
|
| STATUSCB | ; Meaning: This is the TAG^RTN that Imaging calls to report the
; status of the Import. |
|
| ACQS | ; We need to make sure the ACQS (Acquisition Site) is a Valid entry in Imaging Site Params.
|
|
| 107 | ; 107 and ACQD are the same. Calling 107 falls into validation for ACQD.
|
|
| ACQD | ; 107 and ACQD are ACQUISITION DEVICE FILE (2006.04) pointers or Values.
; If it is an integer, We assume the value is an IEN and validate it here. |
|
| UPPER(X) | ;
|
|
| ERR | ; ERROR TRAP FOR Import API
|
|
| GETTIUDA(MAGY,TITLE,TIEN) | ;
|
| RPC Name | Call Tags |
|---|---|
| MAG4 VALIDATE DATA | VAL |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("ERRTN" | ERR+3 |
| ^DIC(4 - [#4] | ACQS+5 |
| ^MAG(2005 - [#2005] | VAL+49, VAL+51, IEN |
| ^MAG(2006.04 - [#2006.04] | ACQD+2 |
| ^MAG(2006.1 - [#2006.1] | ACQS+11 |
| ^TIU(8925.1 - [#8925.1] | GETTIUDA+4, GETTIUDA+10, GETTIUDA+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AITEM | VAL+17~, VAL+28*, VAL+30, VAL+31, VAL+32, VAL+40, VAL+41, VAL+49, VAL+51, VAL+59 |
| ALL | VAL~, VAL+19*, VAL+28 |
| CHKOK | VAL+16~ |
| CODE | ACTCODE~, ACTCODE+4, ACTCODE+5, ACTCODE+6, ACTCODE+7, VALCODE~, VALCODE+4, VALCODE+5, VALCODE+6 |
| CT | VAL+17~, VAL+21*, VAL+28*, PXNEW+3*, PXSGNTYP+3* |
| DAT1 | VAL+17~, VAL+39*, VAL+41, VAL+57*, VAL+59 |
| DFNFLAG | VAL+17~, VAL+21*, VAL+33*, VAL+71 |
| DONE | GETTIUDA+7~, GETTIUDA+8*, GETTIUDA+10, GETTIUDA+11*, GETTIUDA+13 |
| ERR | ACQS+3~*, ACQS+4, ACQS+6*, ERR+1~*, ERR+2 |
| MAGARRAY | VAL~, VAL+23 |
| MAGARRAY( | VAL+26, VAL+28, VAL+30, VAL+31, VAL+32, VAL+40, VAL+41*, VAL+49, VAL+51, VAL+59* |
| MAGERR | VAL+17~, VAL+21*, VAL+28*, VAL+29*, VAL+31*, VAL+32*, VAL+40*, VAL+49*, VAL+51*, VAL+58* , VAL+66 |
| MAGETXT | VAL+16~ |
| MAGFSPEC | VAL+16~ |
| MAGGDAT | VAL+16~, VAL+30*, VAL+32, VAL+36, VAL+39, VAL+40, VAL+41, VAL+46, VAL+49, VAL+51 , VAL+54, VAL+57, VAL+58, VAL+59 |
| MAGGFLD | VAL+16~, VAL+30*, VAL+31, VAL+33, VAL+36, VAL+38, VAL+40, VAL+41, VAL+45, VAL+53 , VAL+54, VAL+55, VAL+58, VAL+59 |
| MAGRES | VAL+16~, VAL+58 |
| MAGRET | VAL+16~ |
| MAGRY | VAL~ |
| MAGRY( | VAL+28*, PXNEW+3*, PXSGNTYP+3* |
| MAGRY(0 | VAL+20*, VAL+23*, VAL+36*, VAL+64*, VAL+66*, VAL+71*, VAL+72*, ERR+2* |
| MAGY | VALCODE+1~, VALCODE+7, IEN*, IEN+1*, ACTION+1*, ACTION+2*, PXNEW+2*, PXNEW+4*, PXSGNTYP+2*, PXSGNTYP+4* , PXTIUTTL+2, BIG+1*, WRITE+2*, DICOMSN+2*, DICOMIN+2*, DELFLAG+1*, DELFLAG+2*, TRNSTYP+1*, STATUSCB+2*, STATUSCB+3* , STATUSCB+4*, ACQS+6*, ACQS+9*, ACQS+11*, ACQS+12*, ACQD+2*, ACQD+5*, GETTIUDA~, GETTIUDA+1*, GETTIUDA+3 , GETTIUDA+4*, GETTIUDA+5*, GETTIUDA+13*, GETTIUDA+14*, GETTIUDA+15 |
| MAX | VAL+17~, VAL+25*, VAL+26*, ACQS+4 |
| >> PXNEW | PXNEW+1 |
| >> PXSGNTYP | PXSGNTYP+1 |
| TIEN | GETTIUDA~, GETTIUDA+4*, GETTIUDA+8*, GETTIUDA+10*, GETTIUDA+11 |
| TITLE | GETTIUDA~, GETTIUDA+1, GETTIUDA+3, GETTIUDA+4, GETTIUDA+5, GETTIUDA+9*, GETTIUDA+10, GETTIUDA+14 |
| U | VAL+26, VAL+30, VAL+51 |
| VALIEN | PXTIUTTL+1~, PXTIUTTL+2 |
| VALUE | VALCODE~, VALCODE+2, IEN, ACTION+1, ACTION+2, PXTIUTTL+2*, WRITE+2, DELFLAG+1, DELFLAG+3*, DELFLAG+4* , STATUSCB+2, STATUSCB+3, ACQS+1*, ACQS+5, ACQS+6, ACQS+7*, ACQS+11, ACQD+2 |
| X | VAL+17~, VAL+26*, VALCODE+2, ACQS+5*, ACQS+6, ACQS+7, UPPER~, UPPER+1 |
| Y | VAL+17~, VAL+40* |
| Name | Field # of Occurrence |
|---|---|
| $T( | VAL+18 |
| $T(@VALUE | STATUSCB+3 |
