VAQDIS27 ;ALB/JFP,JRP - PDX, BUILDS DISPLAY ARRAY FOR MAS DATA ;01MAR93
Source file <VAQDIS27.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 |
---|---|---|
SCR4 | ; -- Builds MAS DATA SCREEN 4, APPLICANT/SPOUSE EMPLOYMENT DATA
|
|
ROW0 | ; -- Builds header
|
|
ROW1 | ;
|
|
EMP | ; -- Employer address
|
|
EMPSP | ;Spouse's employer address
|
|
ROW4 | ; -- Phone
|
|
ROW5 | ; -- Occupation
|
|
ROW6 | ; -- Status
|
|
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 | EMP+1!, EMPSP+15! |
ADDR( | EMP+7*, EMP+13*, ADRLOAD+3 |
ADDRT | EMPSP+1!, EMPSP+15! |
ADDRT( | EMPSP+7*, EMPSP+13*, ADRLOAD+4 |
CTY | EMP+9*, EMP+12, EMPSP+9*, EMPSP+12, EMPSP+15! |
>> ROOT | ADRLOAD+7, TMP+2 |
STATE | EMP+11*, EMP+12, EMPSP+11*, EMPSP+12, EMPSP+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!, EMP+3, EMP+4*, EMP+5*, EMP+6, EMP+7 , EMP+12*, EMP+13, EMPSP+3, EMPSP+4*, EMPSP+5*, EMPSP+6, EMPSP+7, EMPSP+12*, EMPSP+13, EMPSP+15! , ROW4+2*, ROW4+3, ROW4+5*, ROW4+6, ROW4+7!, 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!, EMP+2*, EMP+7, EMP+8*, EMP+13, EMPSP+2* , EMPSP+7, EMPSP+8*, EMPSP+13, EMPSP+15!, ROW4+1*, ROW4+2, ROW4+4*, ROW4+5, ROW4+7!, ROW5+1* , ROW5+2, ROW5+4*, ROW5+5, ROW5+7!, ROW6+1*, ROW6+2, ROW6+4*, ROW6+5, ROW6+7! |
VAQX | EMP+3*, EMP+4, EMP+5, EMPSP+3*, EMPSP+4, EMPSP+5, EMPSP+15!, ADRLOAD+1*, ADRLOAD+3, ADRLOAD+4 |
>> X | ROW0+4*, ROW1+3*, ROW1+6*, ROW4+3*, ROW4+6*, ROW5+3*, ROW5+6*, ROW6+3*, ROW6+6*, TMP+2 |
>> XTRCT | ROW1+1, ROW1+4, EMP+4, EMP+9, EMP+10, EMP+11, EMPSP+4, EMPSP+9, EMPSP+10, EMPSP+11 , ROW4+1, ROW4+4, ROW5+1, ROW5+4, ROW6+1, ROW6+4 |
ZIP | EMP+10*, EMP+12, EMPSP+10*, EMPSP+12, EMPSP+15! |