DGACT ;ALB/CAW - Active check for facility TS or Specialty ; 7/27/94
Source file <DGACT.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ACTIVE(FILE,IEN,DGDT) | ; Extrinsic function to determine if TS entry is active | 
 
 
 
 
 
 | 
| TSDATA(FILE,IEN,ARRAY,DGDT) | ; Call to return TS data | 
 
 | 
| ACTIVEQ | ||
| TSDATAQ | 
| Name | Field # of Occurrence | 
|---|---|
| $$GET1^DIQ | TSDATA+31, TSDATA+32, TSDATA+33, TSDATA+34, TSDATA+38, TSDATA+39, TSDATA+40, TSDATA+41, TSDATA+42, TSDATA+43 , TSDATA+44 | 
| FileNo | Call Tags | 
|---|---|
| ^DIC(42.4 - [#42.4] | GET1^DIQ | 
| ^DIC(45.7 - [#45.7] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DIC - [#1] | ACTIVE+13, ACTIVE+14, ACTIVE+15, ACTIVE+18, TSDATA+27 | 
| Name | Line Occurrences | 
|---|---|
| $$ACTIVE | TSDATA+30, TSDATA+37 | 
| ACTIVEQ | ACTIVE+13, ACTIVE+15 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ARRAY | TSDATA~, TSDATA+25! | 
| ARRAY( | TSDATA+29*, TSDATA+36* | 
| ARRAY(0 | TSDATA+30*, TSDATA+37* | 
| ARRAY(1 | TSDATA+31*, TSDATA+38* | 
| ARRAY(2 | TSDATA+32*, TSDATA+39* | 
| ARRAY(3 | TSDATA+33*, TSDATA+40* | 
| ARRAY(4 | TSDATA+34*, TSDATA+41* | 
| ARRAY(5 | TSDATA+42* | 
| ARRAY(6 | TSDATA+43* | 
| ARRAY(7 | TSDATA+44* | 
| DGDT | ACTIVE~, ACTIVE+10, TSDATA~, TSDATA+26*, TSDATA+30, TSDATA+37 | 
| DGI | TSDATA+25~, TSDATA+29*, TSDATA+36* | 
| DGID | ACTIVE+9~, ACTIVE+10*, ACTIVE+11*, ACTIVE+13 | 
| DT | ACTIVE+10 | 
| FILE | ACTIVE~, ACTIVE+13, ACTIVE+14, ACTIVE+15, ACTIVE+18, TSDATA~, TSDATA+26*, TSDATA+27, TSDATA+28, TSDATA+30 , TSDATA+35, TSDATA+37 | 
| >> ID | ACTIVE+13*, ACTIVE+14*, ACTIVE+15 | 
| IEN | ACTIVE~, ACTIVE+13, ACTIVE+14, ACTIVE+15, ACTIVE+18, TSDATA~, TSDATA+26*, TSDATA+27, TSDATA+30, TSDATA+31 , TSDATA+32, TSDATA+33, TSDATA+34, TSDATA+37, TSDATA+38, TSDATA+39, TSDATA+40, TSDATA+41, TSDATA+42, TSDATA+43 , TSDATA+44 | 
| U | ACTIVE+18 | 
| X | ACTIVE+9~, ACTIVE+15*, ACTIVE+16 | 
| Y | ACTIVE+9~, ACTIVE+12*, ACTIVE+16*, ACTIVE+18*, ACTIVEQ |