MAGGSIV1 ;WOIFO/GEK - Imaging Validate Data ; [ 08/15/2004 08:57 ]
Source file <MAGGSIV1.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 |
|---|---|---|
| VALID(MAGF,MAGL,MAGD,MAGRES) | ; call to validate value for field in a FM file.
; Function is boolean. Returns: ; 0 - Invalid ; 1 - Valid ; "" - Error ; Call this function before you set the FDA Array. ; MAGD - sent by reference because it could be Internal or External ; and if it is external and valid, it is changed to Internal. ; ; MAGF : File Number ; MAGL : Field Number ; MAGD : (sent by reference) data value of field ; MAGRES: (sent by reference) Result message |
|
| VALINDEX(MAGRY,TYPE,SPEC,PROC) | ; Validate the interdependency of Index Terms.
; MAGRY is the return array ; MAGRY(0)="1^Okay" or "0^error message" ; MAGRY(1..n) Information about the Type,Spec and Proc ; ; Validate the Procedure/Event <-> Specialty/SubSpecialty interdependency ; Assure the TYPE is a Clinical TYPE. ; Assure all are Active. |
|
| ERR | ;
|
| FileNo | Call Tags |
|---|---|
| ^MAG(2005.83 - [#2005.83] | GET1^DIQ, GETS^DIQ |
| ^MAG(2005.84 - [#2005.84] | GETS^DIQ |
| ^MAG(2005.85 - [#2005.85] | GET1^DIQ, GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("ERRTN" | ERR+5 |
| ^MAG(2005.85 - [#2005.85] | VALINDEX+54, VALINDEX+55 |
| Name | Line Occurrences |
|---|---|
| $$VALID | VALINDEX+18, VALINDEX+19, VALINDEX+20 |
| @( | ERR+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR | VALINDEX+8~, VALINDEX+24!, VALINDEX+32!, VALINDEX+41! |
| ARR( | VALINDEX+25, VALINDEX+26, VALINDEX+27, VALINDEX+33, VALINDEX+34, VALINDEX+35, VALINDEX+36, VALINDEX+43, VALINDEX+44 |
| CLS | VALINDEX+8~, VALINDEX+50* |
| ERR | ERR+1~, ERR+2*, ERR+3, ERR+4 |
| MAGD | VALID~, VALID+23, VALID+24, VALID+25, VALID+28, VALID+30* |
| MAGE | VALID+15~ |
| MAGF | VALID~, VALID+17, VALID+18, VALID+19, VALID+24, VALID+25, VALID+28 |
| MAGL | VALID~, VALID+17, VALID+18, VALID+19, VALID+24, VALID+25, VALID+28 |
| MAGMSG | VALID+15~ |
| MAGPT | VALID+15~, VALID+23, VALID+24*, VALID+25* |
| MAGR | VALID+15~, VALID+28, VALID+30 |
| MAGRES | VALID~, VALID+18*, VALID+24*, VALID+25*, VALID+33*, ERR+3* |
| MAGRESA | VALID+15~, VALID+32 |
| MAGRESA(1 | VALID+33 |
| MAGRY | VALINDEX~, VALINDEX+9! |
| MAGRY(0 | VALINDEX+14*, VALINDEX+18*, VALINDEX+19*, VALINDEX+20*, VALINDEX+22*, VALINDEX+30*, VALINDEX+39*, VALINDEX+48*, VALINDEX+51*, VALINDEX+52* , VALINDEX+54*, VALINDEX+56*, VALINDEX+58* |
| MAGRY(1 | VALINDEX+25*, VALINDEX+26* |
| MAGRY(2 | VALINDEX+33*, VALINDEX+34*, VALINDEX+35* |
| MAGRY(4 | VALINDEX+42*, VALINDEX+43* |
| MAGSP | VALID+15~ |
| MAGSP("SPECIFIER" | VALID+23 |
| OK | VALINDEX+8~, VALINDEX+22, VALINDEX+23*, VALINDEX+27*, VALINDEX+30, VALINDEX+31*, VALINDEX+36*, VALINDEX+39, VALINDEX+40*, VALINDEX+44* |
| PROC | VALINDEX~, VALINDEX+10*, VALINDEX+12*, VALINDEX+14, VALINDEX+19, VALINDEX+39, VALINDEX+40, VALINDEX+42, VALINDEX+48, VALINDEX+52 , VALINDEX+54, VALINDEX+55 |
| PRX | VALINDEX+8~, VALINDEX+40*, VALINDEX+41, VALINDEX+43, VALINDEX+44 |
| RES | VALINDEX+8~, VALINDEX+18, VALINDEX+19, VALINDEX+20 |
| SPEC | VALINDEX~, VALINDEX+10*, VALINDEX+13*, VALINDEX+14, VALINDEX+20, VALINDEX+30, VALINDEX+31, VALINDEX+48, VALINDEX+52, VALINDEX+55 |
| SPX | VALINDEX+8~, VALINDEX+31*, VALINDEX+32, VALINDEX+33, VALINDEX+34, VALINDEX+35, VALINDEX+36 |
| TYPE | VALINDEX~, VALINDEX+10*, VALINDEX+11*, VALINDEX+14, VALINDEX+18, VALINDEX+22, VALINDEX+23, VALINDEX+50 |
| TYX | VALINDEX+8~, VALINDEX+23*, VALINDEX+24, VALINDEX+25, VALINDEX+26, VALINDEX+27 |
| Name | Field # of Occurrence |
|---|---|
| $T( | VALID+14 |
