DG1010P0 ;ALB/REW - VA FORM 10-10 UTILITIES ;29 MAY 92
Source file <DG1010P0.m>
| 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. |
