©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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="" |
|
| 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="" |
|
| 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)="" |
|
| YN2(N,P) | ;
; Ext Val of YES/NO given node & piece. |
|
| 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="" |
|
| QDNP | ;
|
| 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 |