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

Package: Registration

Routine: DG1010P0


Information

DG1010P0 ;ALB/REW - VA FORM 10-10 UTILITIES ;29 MAY 92

Source Information

Source file <DG1010P0.m>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 3 DGRP2  DGRP7  DGRP7CP  

Entry Points

Name Comments DBIA/ICR reference
UNK(X,NA,BL) ;Returns a value depending on the FIRST true condition:
; NA = 1 : 'NOT APPLICABLE'
; X NOT NULL: X
; BL = 1 : NULL VALUE
; ELSE : 'UNANSWERED'
; INPUT -- X Any value
; NA,BL (Optional) [See above]
; OUTPUT -- [Returned]
; OUTPUT[Set] -- DGUNK =1 if NA=1 or X=""
DISP(N,P,NA,BL) ;
; Returns the Pth '^' piece of 'N'
; Output is modified by NA & BL as per $$UNK[see above]
; INPUT: N -- Contents of a node
; P -- the Pth '^' piece
; NA,BL -- Optional output modifiers
; OUTPUT[Returned] -- X
; OUTPUT[Set] -- DGUNK =1 if NA=1 or X=""
POINT(N,P,ROOT,P2,NA,BL) ;
; Returns the external value of a pointer.
; Output is modified by NA & BL as per $$UNK[see above]
; INPUT:
; N -- Contents of a node
; P -- the Pth '^' piece that holds the pointer
; ROOT -- The global root or filenumber if root is ^DIC(ROOT,
; P2 -- The piece of the pointed-to file [Default=1]
; NA,BL-- Optional output modifiers
; OUTPUT[Returned] -- X
; OUTPUT[Set] -- DGUNK =1 if NA=1 or (X or N)=""
DATENP(N,P,NA,BL) ;
; Returns External Value of Date in the Pth '^' piece of 'N'
; Output is modified by NA & BL as per $$UNK[see above]
; INPUT:
; N -- Contents of a node
; P -- the Pth '^' piece
; NA,BL -- Optional output modifiers
; OUTPUT[Returned] -- X
; OUTPUT[Set] -- DGUNK =1 if NA=1 or X=""
QDNP ;
YN2(N,P) ;
; Ext Val of YES/NO given node & piece.

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DATENP+12
^DIC - [#1] POINT+15

Label References

Name Line Occurrences
$$DISP DATENP+10
QDNP DATENP+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BL UNK~, UNK+10, DISP~, DISP+11, POINT~, POINT+18, DATENP~, DATENP+10
>> DGUNK UNK+9*, DISP+10*, POINT+17*, DATENP+11
F POINT+11~, POINT+14*, POINT+15, POINT+16, POINT+18
N DISP~, DISP+9, POINT~, POINT+14, DATENP~, DATENP+10, YN2~, YN2+5
NA UNK~, UNK+9, UNK+10, DISP~, DISP+10, DISP+11, POINT~, POINT+17, POINT+18, DATENP~
, DATENP+10
P DISP~, DISP+9, POINT~, POINT+14, DATENP~, DATENP+10, YN2~, YN2+5
P2 POINT~, POINT+13*, POINT+15, POINT+16
ROOT POINT~, POINT+15, POINT+16
U POINT+15, POINT+16
X UNK~, UNK+9, UNK+10, DISP+8~, DISP+9*, DISP+10, DISP+11, POINT+11~, POINT+15*, POINT+16*
, POINT+17, POINT+18, YN2+5*, YN2+6
Y DATENP+9~, DATENP+10*, QDNP+1
Info |  Source |  Caller Graph |  Entry Points |  Global Variables Directly Accessed |  Label References |  Local Variables  | All