MAGGSIA1 ;WOIFO/GEK/SG/NST - RPC Call to Add Image File entry ; 01 Nov 2010 2:08 PM
Source file <MAGGSIA1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE(MAGERR,MAGGFDA,MAGGRP,MAGGDRV,MAGREF) | ;
; Check on some possible problems: required fields etc. ; Object Type and (Patient, or Short Desc) Required. |
|
| PATCHK(MAGR) | ; This uses the FDA Array and checks the Imaging Patient against the Procedure patient
|
|
| OBJTYPE | ; This call uses the EXT and computes an Object Type
|
|
| ISTYPADM(TYPE) | ; Returns 1 if this is an Admin Type
|
|
| PROCTEXT | ;This call uses flds 16 and 17 to compute fld #6 PROCEDURE TEXT [8F]
; We are here because fld #6 PROCEDURE [8F] is null. ; If a pointer to a package is in the data, (flds 16 and 17) ; get fld #6 from that , if not then treat it as an UNASSIGNED image ; i.e. Category UNASSIGNED. |
|
| CHKRSND | ;
|
| FileNo | Call Tags |
|---|---|
| ^MAG(2005.83 - [#2005.83] | GET1^DIQ |
