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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DMSQU

Package: VA Fileman

Routine: DMSQU


Information

DMSQU ;SFISC/JHM-SQLI UTILITIES ;5/13/98 12:03

Source Information

Source file <DMSQU.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 5 FIELD^DID  (FILE,UPDATE)^DIE  (CLEAN,INIZE)^DIEFU  $$EXTERNAL^DILFD  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
VA Fileman 6 DMSQ  DMSQD  DMSQF  DMSQF1  DMSQF2  DMSQS  

Entry Points

Name Comments DBIA/ICR reference
PUT(I,A,E) ;FILE OR UPDATE
TM(S) ;RETURN TEXT VALUE OF TIME S SECONDS AS HH:MM:SS
ET(T) ;REPORT ELAPSED TIME SINCE T ($H FORMAT)
TD(T,N) ;RETURNS TIME DIFERENCE OF N(OW)-T(HEN) $H FORMATS
PAR(TI,NP,G,P,E) ;GET PARENT, GBL FRAGMENT, AND PIECE OR EXTRACT
DM(F,FI,DEF) ;BUILD META-DATA FOR ONE FIELD (USE WHEN FIELD^DID FAILS!!)
NEW() ;Extrinsic function returns comma-list of variables to NEW
CN(T,C,N) ;BUILD COLUMN NAME N UNIQUE BY TABLE T, COLUMN ELEMENT C
ATTR ;;TYPE;FIELD LENGTH;DECIMAL DEFAULT;INPUT TRANSFORM;GLOBAL SUBSCRIPT LOCATION;POINTER;TITLE;SPECIFIER;DESCRIPTION;MULTIPLE-VALUED;LABEL
GET(F,IEN,FI,FLG,BUF,MSG) ;SQLI ENTRY TO GET1^DIQ
CLF(S)
SQLK(T,L) ;RETURN SQL IDENTIFIER NOT A KEYWORD
FIL(SF) ;EXTRINSIC FUNCTION RETURNS FILE CONTAINING FILE OR SUBFILE SF
CLN
SQLIX
SQLI(T,L) ;RETURN VALID SQL IDENTIFIER OF LENGTH L OR LESS BASED ON T
EXT(F,FI,FLG,INT,MSG) ;SQLI ENTRY TO EXTERNAL^DILFD
ENV
DOM(F,FI,DEF,ERR) ;GET FIELD ATTRIBUTES - DEF AND ERR ARE OPTIONAL
ERR(F,FI,T) ;ERROR LOGGER
KWC(N) ;RETURN N AS A NON-KEYWORD
FNB(F,TI) ;BUILD SQL FILE NAME
KL(TI) ;RETURN IEN LIST OF TABLE
TBL(TI) ;EXTRINSIC FUNCTION RETURNS TABLE CONTAINING TABLE OR SUBTABLE TI
SS(T) ;CONVERT T TO A VALID SUBSCRIPT (QUOTES)
SOC(T,B) ;TRANSLATE BASE CODE B TO EXTERNAL FORM FROM TEXT T
VIEN(TI) ;RETURN VIRTUAL IENS FOR TI
ROOT(F) ;GET GLOBAL NAME SYNTAX FOR A SUBFILE (F)
SQZ(T) ;RETURN MNEMONIC VALUE OF T

External References

Name Field # of Occurrence
FIELD^DID DOM+4
FILE^DIE PUT+4
UPDATE^DIE PUT+6
CLEAN^DIEFU ENV+1
INIZE^DIEFU ENV+2
$$EXTERNAL^DILFD EXT+1
$$GET1^DIQ GET+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?30,"Time elapsed: ",$$TM($$TD(T,$H))," (HH:MM:SS)"
  • Line Location: ET+1
Routine Call
  • DIE
  • Line Location:
    • PUT+6
Routine Call
  • DIE
  • Line Location:
    • PUT+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( DOM+3, DM+2, DM+5, KL+2, FNB+7, FNB+8, ROOT+3, ROOT+5, ROOT+6, FIL+1
^DIC - [#1] FNB+9, ROOT+8, FIL+2
^DMSQ( CLF+1!*
^DMSQ("E" - [#1.5216] PAR+3, CN+7
^DMSQ("ET" - [#1.52191] ERR+2, ERR+3, ERR+4, ERR+5*
^DMSQ("EX" - [#1.52192] ERR+6, ERR+7*, ERR+8*, ERR+9*
^DMSQ("K" - [#1.52101] KWC+1, KWC+2
^DMSQ("P" - [#1.5218] PAR+4, PAR+5
^DMSQ("T" - [#1.5215] VIEN+2, FNB+15, TBL+1, TBL+2

Label References

Name Line Occurrences
$$DM DOM+6
$$FIL TBL+2
$$KWC FNB+16, CN+6, SQLK+3
$$SQLI KWC+1, FNB+14, CN+6, SQLK+3
$$SQZ SQLI+15
$$SS PAR+6, ROOT+6
$$TD ET+1
$$TM ET+1
ATTR DOM+4
CLF CLN
ENV EXT+1, GET+1, CLF, PAR+2, ERR+1, DOM+2, DOM+6, DM+1, PUT+2
ERR DOM+6
SQLIX SQLI+5

Naked Globals

Name Field # of Occurrence
^( ERR+4, ERR+5*, FNB+15
^("GL" ROOT+8
^(0 ERR+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CN+5~, CN+6*, CN+7*
A PUT~, PUT+4, PUT+6
B SOC~, SOC+1
BUF GET~, GET+1
C CN~, CN+7
CI PAR+2~, PAR+5*, PAR+9
CK DM+1~, DM+11*
D DM+1~, DM+7*, DM+10, DM+15
DEF DOM~, DOM+2!, DOM+6, DM~, DM+2!
DEF("DECIMAL DEFAULT" , DOM+7, DM+13*
DEF("DESCRIPTION" DOM+22!, DOM+23*, DM+5*
DEF("FIELD LE NGTH" , DOM+7, DM+14*
DEF("GLOBAL S UBSCRIPT LOCATION" , DM+3*
DEF("INPUT TR ANSFORM" , DOM+9, DOM+13, DM+4*
DEF("LABEL" DM+3*
DEF("MULTIPLE-VALUED" DM+6*
DEF("POINTER" DM+6*
DEF("SPECIFIER" DM+4*
DEF("TYPE" DOM+7, DM+16*, DM+18*, DM+19*, DM+20*, DM+24*, DM+25*, DM+26*, DM+31*, DM+32*
, DM+33*
>> DIERR DOM+5
>> DIFM ENV+1, ENV+2*
>> DIQUIET ENV+2*
DM DM+1~, DM+16*, DM+18*, DM+19*, DM+20*, DM+24*, DM+25*, DM+26*, DM+28*, DM+29*
, DM+30*, DM+32*, DM+33*, DM+34
DP DM+1~, DM+10*, DM+13, DM+15
DT ENV+1, ERR+7, ERR+8
DUZ ENV+1
DUZ(0 ENV
E PAR~, PAR+6*, PAR+8*, PUT~, PUT+2, PUT+4, PUT+6, PUT+7
E1 PAR+2~
E2 PAR+2~
EI ERR+1~, ERR+6*, ERR+7, ERR+8, ERR+9
ERR ENV+1!, DOM~, DOM+5
ERR("DIERR" ERR+1
EX DM+1~, DM+8*, DM+9*, DM+12
F EXT~, EXT+1, GET~, GET+1, ERR~, ERR+7, DOM~, DOM+3, DOM+4, DOM+6
, DOM+22*, DOM+23, DM~, DM+2, DM+5, FNB~, FNB+6, ROOT~, ROOT+3, ROOT+5
, ROOT+6*, ROOT+8, FIL+1~*, FIL+2, TBL+1~*, TBL+2*, TBL+3
F1 FNB+5~, FNB+6*, FNB+7, FNB+8*, FNB+9
FE ERR+1~*, ERR+7, ERR+9
FI EXT~, EXT+1, GET~, GET+1, ERR~, ERR+7, DOM~, DOM+3, DOM+4, DOM+6
, DM~, DM+2, DM+5, ROOT+1~, ROOT+5*, ROOT+6
FLG EXT~, EXT+1, GET~, GET+1
G PAR~, PAR+6*, ROOT+1~, ROOT+2*, ROOT+6*, ROOT+7*, ROOT+8*, ROOT+9*, ROOT+10
H DM+1~, DM+2*, DM+3, DM+4, DM+6, DM+27
I VIEN+1~, VIEN+2*, DOM+9*, DM+9*, DM+21~, DM+22*, PUT~, PUT+3, PUT+6*, PUT+7
, KWC+1~, KWC+2*, FNB+5~, FNB+11*, FNB+12, FNB+13, FNB+15*, CN+5~, CN+7*, SQLI+4~
, SQLI+15*, SQLI+17*
IEN GET~, GET+1
INT EXT~, EXT+1
IT DM+1~, DM+4*, DM+11
J FNB+5~, FNB+13*
KL KL+1~*, KL+2*, KL+3
L SQLK~, SQLK+3, SQLI~, SQLI+5, SQLI+13, SQLI+15, SQLI+17, SQLI+19, SQLIX+3
LD DM+1~, DM+10*, DM+11*, DM+12*, DM+13*, DM+14*, DM+16, DM+18*, DM+19*, DM+20
, DM+23*, DM+24, DM+33
MSG EXT~, EXT+1, GET~, GET+1
N TD~, TD+1, KWC~, KWC+1*, KWC+2*, KWC+3, CN~, CN+5, CN+6*, CN+7*
, CN+8
NM FNB+5~, FNB+6*, FNB+8*, FNB+9*, FNB+10, FNB+11, FNB+12, FNB+13*, FNB+14*, FNB+15*
, FNB+16
NP PAR~, PAR+6, PAR+7, PAR+8
O PUT+6~
O(1 PUT+6
P PAR~, PAR+7*, PAR+8*, DM+1~, DM+6*, DM+22, KL+1~, KL+2*, FNB+5~, FNB+6
, FNB+7*, FNB+8, ROOT+1~, ROOT+3*, ROOT+4, ROOT+5, ROOT+6
>> PE DM+3*, DM+8
PEI PAR+2~, PAR+3*, PAR+4, PAR+5
PI PAR+2~, PAR+5*
PL SQLI+4~, SQLI+14*, SQLI+15, SQLI+17
S CLF~, CLF+1, VIEN+1~*, VIEN+2*, VIEN+3, TM~, TM+1, DOM+2~, DOM+7*, DOM+8*
, DOM+15*, DOM+17, DOM+24
SF FIL~, FIL+1*
SP DM+1~, DM+4*, DM+6, DM+7, FNB+5~, FNB+6*, FNB+8*, FNB+9
SQ PAR+2~, PAR+4*, PAR+5
T SOC~, SOC+1, ET~, ET+1, TD~, TD+1, ERR~, ERR+2, ERR+3, ERR+5
, DOM+2~, DOM+5, DOM+6*, DOM+7*, DOM+10*, DOM+11*, DOM+12, DOM+14*, DOM+15*, DOM+16*
, DOM+17*, DOM+18*, DOM+19*, DOM+20*, DOM+21*, DOM+24, CN~, CN+7, SQLK~, SQLK+3
, SQLI~, SQLI+5, SQLI+7*, SQLI+9*, SQLI+10*, SQLI+11*, SQLI+13, SQLI+14, SQLI+15*, SQLI+17*
, SQLI+19*, SQLIX*, SQLIX+1*, SQLIX+2*, SQLIX+3*, SQLIX+4, SQZ~, SQZ+1*, SQZ+2, SS~
, SS+1, SS+2, SS+3*, SS+4
T1 SQLI+4~
TI VIEN~, VIEN+2, PAR~, PAR+3, ERR+1~, ERR+2*, ERR+3*, ERR+4*, ERR+5, ERR+7
, ERR+8, KL~, KL+1, KL+2*, FNB~, FNB+15, TBL~, TBL+1
TYP DM+1~, DM+15*, DM+16, DM+17, DM+19, DM+20, DM+24, DM+25, DM+26, DM+27
, DM+32
U ENV+1, PAR+5, ERR+4, ERR+5, ERR+6, ERR+7, DOM+24, DM+3, DM+4, DM+6
, DM+13, DM+14, DM+23, TBL+1
W DOM+2~, DOM+7*, DOM+8*, DOM+9*, DOM+10*, DOM+21*, DOM+24, DM+21~*, DM+22*, DM+23
X CLF~, CLF+1*, DOM+2~, DOM+13*, DOM+14, DM+1~, DM+21~, DM+22*, DM+27*, DM+28
, DM+29, KWC+1~*, KWC+2, FNB+5~, FNB+12*, FNB+13, CN+5~, CN+6*, CN+7

Marked Items

Name Field # of Occurrence
$T(ATTR DOM+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All