VAQDIS25 ;ALB/JFP,JRP - PDX, BUILDS DISPLAY ARRAY FOR MAS DATA ;01MAR93
Source file <VAQDIS25.m>
| Package | Total | Call Graph |
|---|---|---|
| Patient Data Exchange | 2 | ($$CENTER,$$STATE,BLANK)^VAQDIS20 $$REPEAT^VAQUTL1 |
| List Manager | 1 | $$SETSTR^VALM1 |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SCR3 | ; -- Builds MAS DATA SCREEN 3, NEXT OF KIN
|
|
| ROW0 | ; -- Header
|
|
| ROW1 | ;
|
|
| ROW2 | ;
|
|
| NOK | ; -- NOK Address
|
|
| NOK2 | ;NOK-2 Address
|
|
| ROW5 | ; -- Phone
|
|
| ROW6 | ; -- Work Phone
|
|
| EXIT | ; -- Sets the number of lines in display
|
|
| ADRLOAD | ; -- Loads addresses into display array
|
|
| TMP | ; -- Sets up display array
|
|
| END | ; -- End of code
|
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDR | NOK+1!, NOK2+15! |
| ADDR( | NOK+7*, NOK+13*, ADRLOAD+3 |
| ADDRT | NOK2+1!, NOK2+15! |
| ADDRT( | NOK2+7*, NOK2+13*, ADRLOAD+4 |
| CTY | NOK+9*, NOK+12, NOK2+9*, NOK2+12, NOK2+15! |
| >> ROOT | ADRLOAD+7, TMP+2 |
| STATE | NOK+11*, NOK+12, NOK2+11*, NOK2+12, NOK2+15! |
| >> VALMCNT | ADRLOAD+6*, ADRLOAD+7, TMP+1*, TMP+2 |
| VAQCTR | ROW0+3*, ROW0+4, ROW0+6! |
| VAQINF | ROW1+2*, ROW1+3, ROW1+5*, ROW1+6, ROW1+7!, ROW2+2*, ROW2+3, ROW2+5*, ROW2+6, ROW2+7! , NOK+3, NOK+4*, NOK+5*, NOK+6, NOK+7, NOK+12*, NOK+13, NOK2+3, NOK2+4*, NOK2+5* , NOK2+6, NOK2+7, NOK2+12*, NOK2+13, NOK2+15!, ROW5+2*, ROW5+3, ROW5+5*, ROW5+6, ROW5+7! , ROW6+2*, ROW6+3, ROW6+5*, ROW6+6, ROW6+7!, ADRLOAD+2*, ADRLOAD+3*, ADRLOAD+4*, ADRLOAD+5, ADRLOAD+7 |
| VAQLN | ROW0+2*, ROW0+4, ROW0+6! |
| VAQTMP | ROW1+1*, ROW1+2, ROW1+4*, ROW1+5, ROW1+7!, ROW2+1*, ROW2+2, ROW2+4*, ROW2+5, ROW2+7! , NOK+2*, NOK+7, NOK+8*, NOK+13, NOK2+2*, NOK2+7, NOK2+8*, NOK2+13, NOK2+15!, ROW5+1* , ROW5+2, ROW5+4*, ROW5+5, ROW5+7!, ROW6+1*, ROW6+2, ROW6+4*, ROW6+5, ROW6+7! |
| VAQX | NOK+3*, NOK+4, NOK+5, NOK2+3*, NOK2+4, NOK2+5, NOK2+15!, ADRLOAD+1*, ADRLOAD+3, ADRLOAD+4 |
| >> X | ROW0+4*, ROW1+3*, ROW1+6*, ROW2+3*, ROW2+6*, ROW5+3*, ROW5+6*, ROW6+3*, ROW6+6*, TMP+2 |
| >> XTRCT | ROW1+1, ROW1+4, ROW2+1, ROW2+4, NOK+4, NOK+9, NOK+10, NOK+11, NOK2+4, NOK2+9 , NOK2+10, NOK2+11, ROW5+1, ROW5+4, ROW6+1, ROW6+4 |
| ZIP | NOK+10*, NOK+12, NOK2+10*, NOK2+12, NOK2+15! |