VAQDIS23 ;ALB/JFP,JRP - PDX, BUILDS DISPLAY ARRAY FOR MAS DATA ;01MAR93
Source file <VAQDIS23.m>
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 |
---|---|---|
SCR1 | ; -- Builds MAS DATA SCREEN 1, DEMOGRAPHICS
|
|
ROW0 | ; -- Header line for display
|
|
ROW1 | ;
|
|
ROW2 | ;
|
|
ROW3 | ;
|
|
ROW4 | ;
|
|
PRMADD | ; -- Permanent Address
|
|
TMPADD | ;Temporary address
|
|
ROW9 | ; -- County
|
|
ROW10 | ; -- Phone
|
|
ROW11 | ; -- Work phone/temporary form-to
|
|
EXIT | ;
|
|
ADRLOAD | ; -- Loads addresses into display array
|
|
TMP | ; -- Sets up display array
|
|
END | ; -- End of code
|
Name | Field # of Occurrence |
---|---|
$$SETSTR^VALM1 | ROW0+5, ROW0+8, ROW1+1, ROW1+3, ROW1+4, ROW2+3, ROW2+4, ROW2+7, ROW3+3, ROW4+1 , ROW4+2, ROW9+6, ROW9+12, ROW10+1, ROW10+3, ROW11+1, ROW11+6, ADRLOAD+3, ADRLOAD+4 |
$$CENTER^VAQDIS20 | ROW0+3, ROW0+13 |
$$COUNTY^VAQDIS20 | ROW9+2, ROW9+8 |
$$STATE^VAQDIS20 | PRMADD+11, TMPADD+11 |
BLANK^VAQDIS20 | ROW0+3, ROW0+10, ROW0+13 |
$$REPEAT^VAQUTL1 | ROW0+1, ROW0+11 |
$$DASHSSN^VAQUTL99 | ROW1+2, ROW2+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADDR | PRMADD+1!, TMPADD+15! |
ADDR( | PRMADD+7*, PRMADD+13*, ADRLOAD+3 |
ADDRT | TMPADD+1!, TMPADD+15! |
ADDRT( | TMPADD+7*, TMPADD+13*, ADRLOAD+4 |
COUNTY | ROW9+2*, ROW9+3, ROW9+4, ROW9+5, ROW9+8*, ROW9+9, ROW9+10, ROW9+11, ROW9+14! |
CTY | PRMADD+9*, PRMADD+12, TMPADD+9*, TMPADD+12, TMPADD+15! |
CTYNUM | ROW9+1*, ROW9+2, ROW9+3, ROW9+4, ROW9+5, ROW9+7*, ROW9+8, ROW9+9, ROW9+10, ROW9+11 , ROW9+14! |
J | ROW2+2*, ROW2+3, ROW2+4, ROW2+9! |
>> ROOT | ADRLOAD+7, TMP+2 |
SEQ | ROW2+1*, ROW2+2*, ROW2+3, ROW2+4, ROW2+5, ROW2+9! |
SSN | ROW1+2*, ROW1+3, ROW1+5! |
STATE | PRMADD+11*, PRMADD+12, TMPADD+11*, TMPADD+12, TMPADD+15! |
TPHONE | ROW10+2*, ROW10+3, ROW10+4! |
>> VALMCNT | ADRLOAD+6*, ADRLOAD+7, TMP+1*, TMP+2 |
VAQASSN | ROW2+5*, ROW2+6*, ROW2+7, ROW2+9! |
VAQCTR | ROW0+2*, ROW0+3, ROW0+12*, ROW0+13, ROW0+14! |
VAQFROM | ROW11+2*, ROW11+4, ROW11+7! |
VAQFROMT | ROW11+4*, ROW11+5*, ROW11+6, ROW11+7! |
VAQINF | ROW3+2*, ROW3+3, ROW3+5!, PRMADD+3, PRMADD+4*, PRMADD+5*, PRMADD+6, PRMADD+7, PRMADD+12*, PRMADD+13 , TMPADD+3, TMPADD+4*, TMPADD+5*, TMPADD+6, TMPADD+7, TMPADD+12*, TMPADD+13, TMPADD+15!, ROW9+3*, ROW9+4* , ROW9+5*, ROW9+6, ROW9+9*, ROW9+10*, ROW9+11*, ROW9+12, ROW9+14!, ADRLOAD+2*, ADRLOAD+3*, ADRLOAD+4* , ADRLOAD+5, ADRLOAD+7 |
VAQLN | ROW0+1*, ROW0+3, ROW0+11*, ROW0+13, ROW0+14! |
>> VAQSEGND | ROW0+2 |
VAQTMP | ROW3+1*, ROW3+2, ROW3+5!, PRMADD+2*, PRMADD+7, PRMADD+8*, PRMADD+13, TMPADD+2*, TMPADD+7, TMPADD+8* , TMPADD+13, TMPADD+15! |
VAQTO | ROW11+3*, ROW11+4, ROW11+7! |
VAQX | PRMADD+3*, PRMADD+4, PRMADD+5, TMPADD+3*, TMPADD+4, TMPADD+5, TMPADD+15!, ADRLOAD+1*, ADRLOAD+3, ADRLOAD+4 |
>> X | ROW0+3*, ROW0+5*, ROW0+8*, ROW0+13*, ROW1+1*, ROW1+3*, ROW1+4*, ROW2+3*, ROW2+4*, ROW2+7* , ROW3+3*, ROW4+1*, ROW4+2*, ROW9+6*, ROW9+12*, ROW10+1*, ROW10+3*, ROW11+1*, ROW11+6*, TMP+2 |
>> XTRCT | ROW0+4, ROW0+7, ROW1+1, ROW1+2, ROW1+4, ROW2+2, ROW2+3, ROW2+4, ROW2+5, ROW3+1 , PRMADD+4, PRMADD+9, PRMADD+10, PRMADD+11, TMPADD+4, TMPADD+9, TMPADD+10, TMPADD+11, ROW9+1, ROW9+2 , ROW9+7, ROW9+8, ROW10+1, ROW10+2, ROW11+1, ROW11+2, ROW11+3 |
ZIP | PRMADD+10*, PRMADD+12, TMPADD+10*, TMPADD+12, TMPADD+15! |