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 |
Package | Total | Caller Graph |
---|---|---|
Patient Data Exchange | 1 | VAQDIS22 |
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! |