Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DIQGDD

Package: VA FileMan

Routine: DIQGDD


Information

DIQGDD ;SFISC/DCL - DATA DICTIONARY ATTRIBUTE RETRIEVER ;7FEB2017

Source Information

Source file <DIQGDD.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 6 BLD^DIALOG  CALLOUT^DIEFU  ($$GETMETH,$$GETPROP)^DIETLIBF  ($$F,$$GET,DDENTRY)^DIQG  (ENLST,LIST)^DIQGDDT  ($$FL,RI)^DIQGDDU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
VA FileMan 4 DDBR3  DID  DIQGDD0  DIQGDDF  

Entry Points

Name Comments DBIA/ICR reference
200
FE
ONEATT(DIQGR,DA,DIQGSAL,DIQGTA) ;FOR FIELD DA IN FILE DIQGR, GET ATTRIBUTE 'DIQGSAL'
DR(TYPE) ;TYPE=1,FILE OR 0,FIELD AND RETURNS DR STRING FOR ALL ATTRIBUTES IN INTERNAL FORM (ATTRIBUTE FIELD NUMBERS 3RD ;-PIECE
FIELD(DIQGR,DA,DR,DIQGPARM,DIQGTA,DIQGERRA,DIQGIPAR) ;
ATRBT(TYPE,ATRIB) ;EXTRINSIC FUNCTION $$TEST IF VALID ATTRIBUTE
OR2(%)
XDR(DIQGR,DR,DIQGERR) ;DIQGR DD FILE NUMBER EITHER 1 OR 0
EN1
BLDSAL(DIQGTYPE,DIQGDR,DIQGVALA) ;DIQGTYPE=1 for FILE and 0 for FIELD, DIQGDR=string/array, DIQGVALA= OUTPUT: valid attribute list array
; If DIQGDR is an array pass by reference
EN3
EN4
FILELST(DIDARRAY) ;PASS TARGET ARRAY BY REFERENCE * * LIST FILE ATTRIBUTES * *
202(E)
GET(DIQGR,DA,DR,DIQGPARM,DIQGETA,DIQGERRA,DIQGIPAR) ;
OREF(X)
Q(%Z)
FIELDLST(DIDARRAY) ;PASS TARGET ARRAY BY REFERENCE * * LIST FIELD ATTRIBUTES * *
EN5

External References

Name Field # of Occurrence
BLD^DIALOG EN1+9, ONEATT+3, 200, 202+1
CALLOUT^DIEFU FE
$$GETMETH^DIETLIBF ONEATT+5
$$GETPROP^DIETLIBF ONEATT+6
$$F^DIQG EN3+2, EN3+4
$$GET^DIQG ONEATT+20
DDENTRY^DIQG EN3+15
ENLST^DIQGDDT EN4+2, EN5+2
LIST^DIQGDDT BLDSAL+2, BLDSAL+3, XDR+3, ATRBT+4, DR+3
$$FL^DIQGDDU ONEATT+19
RI^DIQGDDU EN3+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( EN3+6, EN1+6, EN1+9, EN1+11, ONEATT+3, ONEATT+4, ONEATT+7, ONEATT+8
^DD("DD" ONEATT+13
^DI( ONEATT+7, BLDSAL+2, BLDSAL+4
^DIC - [#1] EN3+4
^TMP("DIERR" EN3+1!, EN1+3!

Label References

Name Line Occurrences
$$ATRBT EN3+14
$$ONEATT EN3+12, EN1+16
$$OR2 OREF
$$OREF ONEATT+2
$$Q ONEATT+2
200 EN3+6, EN3+7, EN1+10, EN1+11, EN1+13, BLDSAL+6, BLDSAL+10
202 EN3+10, EN3+14, EN1+4, EN1+5, EN1+6, EN1+7
BLDSAL EN3+10, EN1+12
FE EN1+9, ONEATT+3, 200, 202+1

Naked Globals

Name Field # of Occurrence
^( EN3+6, EN1+9
^(0 ONEATT+8, ONEATT+11
^(12.1 ONEATT+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OR2~*
%Z Q~*
%Z( Q*
%Z("" Q
A ONEATT+1~, ONEATT+5*, ONEATT+6*, ONEATT+8*, ONEATT+11, ONEATT+12, ONEATT+13, ONEATT+14, ONEATT+15, ONEATT+16
, ONEATT+17, ONEATT+18
ATRIB ATRBT~, ATRBT+3, ATRBT+5
DA GET~, EN3+3*, EN3+4*, EN3+6*, EN3+7, EN3+12, FIELD~, EN1+5, EN1+9*, EN1+10
, EN1+11, EN1+16, ONEATT~, ONEATT+3, ONEATT+4, ONEATT+5, ONEATT+6, ONEATT+7, ONEATT+8, ONEATT+19
, ONEATT+20
DIDARRAY FILELST~, FIELDLST~
DIERR EN3+1!, EN1+3!, EN1+13
DIFILE EN3+4~*, EN3+10, EN3+12
DIQGDFLG EN4~, EN4+1*, EN5~, EN5+1*
DIQGDR BLDSAL~, BLDSAL+2, BLDSAL+5
DIQGDR( BLDSAL+9
DIQGER BLDSAL+3~
DIQGER(4 BLDSAL+6*, BLDSAL+10*
DIQGERR EN1~, XDR~
DIQGERR( XDR+5*, XDR+8*
DIQGERRA GET~, FIELD~, FE
DIQGETA GET~, EN3+12
DIQGEY EN1~
DIQGEY(1 EN1+1*
DIQGEY(3 EN1+10*, EN1+11*
DIQGFNUL EN1~, EN1+8*, EN1+18
DIQGI BLDSAL+3~, BLDSAL+5*
DIQGIPAR GET~, EN3+1, FIELD~, EN1+3
DIQGPARM GET~, EN3+12*, FIELD~, EN1+8*, ONEATT+20
DIQGR GET~, EN3+2, EN3+3*, EN3+4*, EN3+6, EN3+12, FIELD~, EN1+1, EN1+4, EN1+6
, EN1+9, EN1+11, EN1+16, ONEATT~, ONEATT+3, ONEATT+4, ONEATT+5, ONEATT+6, ONEATT+7, ONEATT+8
, ONEATT+19, ONEATT+20, XDR~, XDR+2*, XDR+3
DIQGSAL EN3+9~, EN3+10, EN3+11*, EN3+12, EN1~, EN1+12, EN1+13, EN1+14, EN1+15*, EN1+16
, EN1+17, EN1+19, ONEATT~, ONEATT+2, ONEATT+5, ONEATT+6, ONEATT+7, ONEATT+11, ONEATT+12, ONEATT+13
, ONEATT+14, ONEATT+15, ONEATT+16, ONEATT+17, ONEATT+18, ONEATT+19, ONEATT+20
DIQGSAL( EN1+15, ONEATT+2, ONEATT+20
DIQGSALX EN1~, EN1+16*, EN1+17, EN1+19, ONEATT+1~, ONEATT+4, ONEATT+5*, ONEATT+6*, ONEATT+7*, ONEATT+21
DIQGTA FIELD~, EN1+7, EN1+16, EN1+17, EN1+19, ONEATT~, ONEATT+2
DIQGTAXX ONEATT+1~, ONEATT+2*, ONEATT+20
DIQGTYPE BLDSAL~, BLDSAL+2, BLDSAL+3
DIQGVALA BLDSAL~, BLDSAL+2*, BLDSAL+8
DIQGVALA( BLDSAL+7*, BLDSAL+11*
DIQGX BLDSAL+3~, BLDSAL+4*
DIQGX( BLDSAL+6, BLDSAL+7, BLDSAL+10, BLDSAL+11
DIQGY BLDSAL+3~, BLDSAL+5*, BLDSAL+6, BLDSAL+7, BLDSAL+9*, BLDSAL+10, BLDSAL+11
DR GET~, EN3+8, EN3+10, EN3+11, EN3+12~, EN3+14*, FIELD~, EN1+12, XDR~, XDR+2*
, XDR+4, XDR+7
DR( XDR+7
E 202~
EQL EN4~, EN5~
I XDR+3~, XDR+4*
T ONEATT+1~, ONEATT+8*, ONEATT+13, ONEATT+14, ONEATT+15, ONEATT+16, ONEATT+17
TP EN4~, EN5~
TYPE ATRBT~, ATRBT+4, DR~, DR+1*, DR+3, EN4~, EN4+1*, EN5~, EN5+1*
U EN3~*, EN1+2~*, ONEATT+4, ONEATT+7, ONEATT+8, ONEATT+11, ONEATT+14, ONEATT+15, ONEATT+16, ONEATT+17
X EN3+2~, EN3+4, EN1+9~, XDR+3~, XDR+4*, XDR+5, XDR+6, XDR+7*, XDR+8, XDR+9
, ATRBT+4~, DR+2~, DR+3, DR+4*, DR+5, OREF~, 202~, 202+1
X( XDR+5, XDR+6, XDR+7, XDR+8, XDR+9, ATRBT+5, DR+4
X("FILE" EN1+9*
X(1 EN3+2*, EN3+4*, EN1+9*, 202*
X1 OREF~*
X2 OREF~*
XDR XDR+3~, XDR+4*, XDR+6*, XDR+7*, XDR+9*, XDR+10
Y ONEATT+13~*, DR+2~, DR+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All