DG1010P0 ;ALB/REW - VA FORM 10-10 UTILITIES ;29 MAY 92
Source file <DG1010P0.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 |
Package | Total | Caller Graph |
---|---|---|
Registration | 3 | DGRP2 DGRP7 DGRP7CP |
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. |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | DATENP+12 |
^DIC - [#1] | POINT+15 |
Name | Line Occurrences |
---|---|
$$DISP | DATENP+10 |
QDNP | DATENP+11 |
>> | 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 |