VAQDIS26 ;ALB/JFP - PDX, BUILDS DISPLAY ARRAY FOR MAS DATA ;01MAR93
Source file <VAQDIS26.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 CONTINUE, EMERGENCY CONTACT
|
|
ROW0 | ; -- Header
|
|
ROW1 | ;
|
|
ROW2 | ;
|
|
EMER | ; Emergency contact address
|
|
EMER2 | ;Emergency contact 2 address
|
|
ROW5 | ; -- Phone
|
|
ROW6 | ; -- Work Phone
|
|
ROW7 | ;
|
|
ROW8 | ; -- Address line 1,2,3
|
|
ROW9 | ; -- (city,state,zip)
|
|
ROW10 | ;
|
|
EXIT | ; -- Sets the number of lines in display
|
|
ADRLOAD | ; -- Loads address into display array
|
|
TMP | ; -- Sets up display array
|
|
END | ; -- End of code
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADDR | EMER+1!, EMER2+15! |
ADDR( | EMER+7*, EMER+13*, ADRLOAD+3 |
ADDRT | EMER2+1!, EMER2+15! |
ADDRT( | EMER2+7*, EMER2+13*, ADRLOAD+4 |
CTY | EMER+9*, EMER+12, EMER2+9*, EMER2+12, EMER2+15!, ROW9+1*, ROW9+4, ROW9+6! |
>> ROOT | ADRLOAD+7, TMP+2 |
STATE | EMER+11*, EMER+12, EMER2+11*, EMER2+12, EMER2+15!, ROW9+3*, ROW9+4, ROW9+6! |
>> VALMCNT | ADRLOAD+6*, ADRLOAD+7, TMP+1*, TMP+2 |
VAQCTR | ROW0+2*, ROW0+3, ROW0+5! |
VAQFLAG | ROW8+7! |
VAQINF | ROW1+2*, ROW1+3, ROW1+5*, ROW1+6, ROW1+7!, ROW2+2*, ROW2+3, ROW2+5*, ROW2+6, ROW2+7! , EMER+3, EMER+4*, EMER+5*, EMER+6, EMER+7, EMER+12*, EMER+13, EMER2+3, EMER2+4*, EMER2+5* , EMER2+6, EMER2+7, EMER2+12*, EMER2+13, EMER2+15!, ROW5+2*, ROW5+3, ROW5+5*, ROW5+6, ROW5+7! , ROW6+2*, ROW6+3, ROW6+5*, ROW6+6, ROW6+7!, ROW7+2*, ROW7+3, ROW7+5*, ROW7+6, ROW7+7! , ROW8+2*, ROW8+3*, ROW8+4, ROW8+5, ROW8+7!, ROW9+4*, ROW9+5, ROW9+6!, ROW10+2*, ROW10+3 , ROW10+5*, ROW10+6, ROW10+7!, ADRLOAD+2*, ADRLOAD+3*, ADRLOAD+4*, ADRLOAD+5, ADRLOAD+7 |
VAQLN | ROW0+1*, ROW0+3, ROW0+5! |
VAQTMP | ROW1+1*, ROW1+2, ROW1+4*, ROW1+5, ROW1+7!, ROW2+1*, ROW2+2, ROW2+4*, ROW2+5, ROW2+7! , EMER+2*, EMER+7, EMER+8*, EMER+13, EMER2+2*, EMER2+7, EMER2+8*, EMER2+13, EMER2+15!, ROW5+1* , ROW5+2, ROW5+4*, ROW5+5, ROW5+7!, ROW6+1*, ROW6+2, ROW6+4*, ROW6+5, ROW6+7!, ROW7+1* , ROW7+2, ROW7+4*, ROW7+5, ROW7+7!, ROW8+7!, ROW10+1*, ROW10+2, ROW10+4*, ROW10+5, ROW10+7! |
VAQX | EMER+3*, EMER+4, EMER+5, EMER2+3*, EMER2+4, EMER2+5, EMER2+15!, ROW8+1*, ROW8+2, ROW8+3 , ROW8+7!, ADRLOAD+1*, ADRLOAD+3, ADRLOAD+4 |
>> X | ROW0+3*, ROW1+3*, ROW1+6*, ROW2+3*, ROW2+6*, ROW5+3*, ROW5+6*, ROW6+3*, ROW6+6*, ROW7+3* , ROW7+6*, ROW8+5*, ROW9+5*, ROW10+3*, ROW10+6*, TMP+2 |
>> XTRCT | ROW1+1, ROW1+4, ROW2+1, ROW2+4, EMER+4, EMER+9, EMER+10, EMER+11, EMER2+4, EMER2+9 , EMER2+10, EMER2+11, ROW5+1, ROW5+4, ROW6+1, ROW6+4, ROW7+1, ROW7+4, ROW8+2, ROW9+1 , ROW9+2, ROW9+3, ROW10+1, ROW10+4 |
ZIP | EMER+10*, EMER+12, EMER2+10*, EMER2+12, EMER2+15!, ROW9+2*, ROW9+4, ROW9+6! |