MAGGSIV ;WOIFO/GEK/NST - Imaging RPC Broker calls. Validate Image data array ; [ 12/27/2000 10:49 ]
Source file <MAGGSIV.m>
| 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 |
