©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
DDW6 ;SFISC/MKO-JOIN ;10:41 AM 16 Jun 2000 [ 04/02/2003 8:25 AM ]
Source file <DDW6.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | (MVFWD,SHIFT)^DDW3 (ILINE,XLINE)^DDW5 UNMARK^DDW7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REFMT | ;Reformat
|
|
| CUP(Y,X) | ;
|
|
| JOIN | ;Join
|
|
| ADJMAR(DDWT,DDWW,DDWFLG) | ;Adjust length of text in DDWT array
; DDWT = Text array ; DDWW = Width |
|
| POS(R,C,F) | ;Pos cursor
|
|
| MAX(X,Y) | ;
|
|
| SCR(C) | ;Screen number
|
|
| LD(X) | ||
| AMINCJ | ;Incr DDWJ
|
|
| TR(X) | ||
| JOIN2 | ;Join produced >1 lines
|
|
| AMSHIFT(DDWT,DDWJ) | ;Delete DDWT(DDWJ) and shift up
|
|
| MIN(X,Y) | ;
|
|
| SLICE(DDWN,DDWW,DDWFST,DDWRST) | ;
|
|
| AMLOOP | ;Process DDWT(DDWJ)
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DDW1" | JOIN+8, JOIN2+11* |
| Name | Line Occurrences |
|---|---|
| $$LD | AMLOOP+1, AMLOOP+11, AMLOOP+23, AMLOOP+31, SLICE+18 |
| $$MAX | JOIN+33, JOIN+36, JOIN+37 |
| ADJMAR | JOIN+17 |
| AMINCJ | AMLOOP+8, AMLOOP+12, AMLOOP+35 |
| AMLOOP | ADJMAR+10 |
| AMSHIFT | AMLOOP+18, AMLOOP+34 |
| CUP | JOIN+33, JOIN+36, JOIN+39, JOIN2+8, JOIN2+17 |
| JOIN | REFMT+4 |
| JOIN2 | JOIN+46 |
| POS | REFMT+3, JOIN+24, JOIN+44, JOIN+45, JOIN2+1, JOIN2+20 |
| SLICE | AMLOOP+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| C | POS~, POS+2*, POS+4, POS+6, POS+7, POS+8, SCR~, SCR+1 |
| >> DDGLCLR | JOIN+34, JOIN+40, JOIN2+9, JOIN2+18 |
| >> DDGLDEL | JOIN+34, JOIN+40, JOIN2+9, JOIN2+18 |
| >> DDWA | REFMT+2, JOIN+2, JOIN+9 |
| >> DDWBF | JOIN+23* |
| >> DDWC | JOIN+24, POS+4* |
| >> DDWCNT | JOIN+9, JOIN+23* |
| DDWD | AMLOOP+21~, AMLOOP+22*, AMLOOP+24*, AMLOOP+29* |
| DDWFLG | ADJMAR~, ADJMAR+7, ADJMAR+12, AMINCJ+1 |
| DDWFST | AMLOOP+4~, AMLOOP+6, AMLOOP+7, SLICE~, SLICE+5*, SLICE+18* |
| DDWI | JOIN+1~, JOIN2+14*, JOIN2+16, AMLOOP+21~, AMLOOP+25*, AMLOOP+26, AMLOOP+27*, AMLOOP+29, AMLOOP+30, AMLOOP+31 , AMSHIFT+1~, AMSHIFT+2*, SLICE+3~, SLICE+8*, SLICE+15*, SLICE+16*, SLICE+18 |
| DDWJ | ADJMAR+5~, ADJMAR+6*, ADJMAR+10, ADJMAR+12*, ADJMAR+13, AMLOOP+1, AMLOOP+3, AMLOOP+5, AMLOOP+6, AMLOOP+7 , AMLOOP+10, AMLOOP+11, AMLOOP+15, AMLOOP+16, AMLOOP+17, AMLOOP+18, AMLOOP+23, AMLOOP+30, AMLOOP+31, AMLOOP+33 , AMLOOP+34, AMSHIFT~, AMSHIFT+2, AMINCJ+1, AMINCJ+2* |
| DDWK | AMLOOP+4~, AMLOOP+5*, AMLOOP+15~*, AMLOOP+16, AMLOOP+17 |
| >> DDWL( | JOIN+9, JOIN+19*, JOIN2+5*, JOIN2+9, JOIN2+16*, POS+2, POS+3 |
| DDWLL | JOIN+1~, JOIN+12*, JOIN+18, JOIN2+20 |
| >> DDWLMAR | REFMT+3, JOIN+28, JOIN+45, JOIN2+1, JOIN2+20, ADJMAR+8, ADJMAR+12, ADJMAR+13, AMINCJ+1, SLICE+16 |
| DDWLST | AMLOOP+4~, AMLOOP+6, AMLOOP+7, SLICE+5* |
| >> DDWMARK | REFMT+2, JOIN+2 |
| >> DDWMR | JOIN+8, JOIN+23, JOIN2+4 |
| DDWN | JOIN+5, JOIN+12, JOIN+19*, JOIN+31, JOIN+32, JOIN+33, JOIN+35, JOIN+37, JOIN+40, JOIN2+16* , JOIN2+18, SLICE~, SLICE+5, SLICE+8, SLICE+11, SLICE+18, POS+3* |
| DDWNSV | JOIN+1~, JOIN+5*, JOIN+31, JOIN+32, JOIN+35, JOIN+36, JOIN+37 |
| DDWNXT | AMLOOP+21~, AMLOOP+25* |
| >> DDWOFS | JOIN+27, JOIN+28, JOIN+33, JOIN+36, JOIN+37, JOIN+39, JOIN+40, JOIN2+9, JOIN2+18, POS+6 , POS+7, POS+8, SCR+1 |
| DDWP | SLICE+3~, SLICE+13*, SLICE+14, SLICE+15 |
| >> DDWRAP | AMLOOP+11, AMLOOP+14, SLICE+5 |
| DDWRFMT | REFMT+1~, REFMT+4*, JOIN+11, JOIN+13*, JOIN+27, JOIN+43 |
| >> DDWRMAR | JOIN+12, ADJMAR+7, ADJMAR+8, AMINCJ+1, SLICE+4, SLICE+16 |
| DDWRST | SLICE~, SLICE+18* |
| >> DDWRW | REFMT+2, REFMT+3, JOIN+2, JOIN+8, JOIN+9, JOIN+19, JOIN+23, JOIN+24, JOIN+33, JOIN+36 , JOIN+39, JOIN+44, JOIN+45, JOIN2+1, JOIN2+4, JOIN2+5, JOIN2+6*, JOIN2+8, JOIN2+9, JOIN2+16 , JOIN2+17, JOIN2+20, POS+4* |
| DDWSCR | JOIN+1~, JOIN+27*, JOIN+28*, JOIN+29*, JOIN+31, JOIN2+7 |
| DDWSP | AMLOOP+21~, AMLOOP+28*, AMLOOP+29, AMLOOP+30 |
| >> DDWSTB | JOIN+8, JOIN+23*, JOIN2+11 |
| DDWT | ADJMAR~, ADJMAR+11*, ADJMAR+12, AMLOOP+18, AMLOOP+34, AMSHIFT~ |
| DDWT( | ADJMAR+10, ADJMAR+13*, AMLOOP+1*, AMLOOP+3, AMLOOP+5*, AMLOOP+6, AMLOOP+7*, AMLOOP+10, AMLOOP+11*, AMLOOP+15 , AMLOOP+16*, AMLOOP+17*, AMLOOP+18, AMLOOP+23*, AMLOOP+30*, AMLOOP+31*, AMLOOP+33, AMSHIFT+2*, AMSHIFT+3! |
| DDWT("" | ADJMAR+11, AMLOOP+5, AMSHIFT+2, AMSHIFT+3 |
| DDWTXT | JOIN+1~, JOIN+17, JOIN+18*, JOIN+22, JOIN+27, JOIN+42, JOIN2+14 |
| DDWTXT( | JOIN+18*, JOIN2+16 |
| DDWTXT("" | JOIN+16 |
| DDWTXT(1 | JOIN+5*, JOIN+19, JOIN+27 |
| DDWTXT(2 | JOIN+8*, JOIN+9*, JOIN+11, JOIN+12, JOIN2+5, JOIN2+11 |
| DDWTXT0 | JOIN+1~, JOIN+16*, JOIN+22, JOIN2+3, JOIN2+14 |
| DDWW | ADJMAR~, ADJMAR+7*, ADJMAR+8*, AMLOOP+1, AMLOOP+3, AMLOOP+6, AMLOOP+10, AMLOOP+15, AMLOOP+29, AMINCJ+1* , SLICE~, SLICE+4*, SLICE+5, SLICE+8, SLICE+11, SLICE+16 |
| DDWX | SLICE+3~, SLICE+8*, SLICE+9, SLICE+10, SLICE+11, SLICE+13, SLICE+15, POS+1~, POS+6*, POS+7 |
| DDWX1 | AMLOOP+21~, AMLOOP+23*, AMLOOP+28, AMLOOP+29, AMLOOP+30 |
| DDWX2 | AMLOOP+21~, AMLOOP+23*, AMLOOP+24, AMLOOP+25, AMLOOP+26, AMLOOP+27, AMLOOP+29, AMLOOP+30, AMLOOP+31 |
| >> DX | CUP+1*, POS+8* |
| >> DY | CUP+1*, POS+8* |
| F | POS~, POS+3, POS+4 |
| I | TR+1~, TR+2*, TR+3, LD+1~, LD+2*, LD+3 |
| IOM | JOIN+29, JOIN+37, JOIN+40, JOIN2+9, JOIN2+18, POS+7 |
| >> IOTM | CUP+1, POS+8 |
| >> IOXY | CUP+1, POS+8 |
| R | POS~, POS+2, POS+3, POS+4, POS+8 |
| U | REFMT+2, JOIN+2, SCR+1 |
| X | TR~, TR+2, TR+3, LD~, LD+2, LD+3, CUP~, CUP+1, MIN~, MIN+1 , MAX~, MAX+1 |
| Y | CUP~, CUP+1, MIN~, MIN+1, MAX~, MAX+1 |