VADPT0 ;ALB/MRL/MJK,ERC,TDM - PATIENT VARIABLE ROUTINE DRIVER, CONT. ; 9/24/09 5:30pm
Source file <VADPT0.m>
Package | Total | Call Graph |
---|---|---|
Registration | 6 | (1,2,3,4)^VADPT1 5^VADPT2 6^VADPT3 (7,8,9)^VADPT4 (10,11,12)^VADPT5 13^VADPT6 |
VA Fileman | 1 | DT^DICRW |
Name | Comments | DBIA/ICR reference |
---|---|---|
C9 | ||
C13 | ||
C12 | ||
C11 | ||
C10 | ||
C8 | ||
INIT | ; -- determine #'s or names then init array
|
|
1 | ; -- [DEM] demos
|
|
3 | ; -- [ADD] current address
|
|
2 | ; -- [OPD] other pt vars
|
|
5 | ; -- [INP] inpt data -v5
|
|
4 | ; -- [OAD] other pt vars
|
|
7 | ; -- [ELIG] elig data
|
|
6 | ; -- [IN5] inpt data v5
|
|
C3 | ||
C2 | ||
C1 | ||
C7 | ||
C6 | ||
C5 | ||
C4 | ||
Q | ||
9 | ; -- [SVC] service data
|
|
8 | ; -- [MB] $ benefits
|
|
11 | ; -- [SDE] clinic enrollment data
|
|
10 | ; -- [REG] registration data
|
|
13 | ; -- [PID] pt id's
|
|
12 | ; -- [SDA] appt data
|
|
SS | ; 1^ 2^ 3^ 4^ 5^ 6^ 7^ 8^ 9^10^11^12^13^14^15^16^17^18^19^20^21^22^23^24^25^26^27^28
|
|
KVAR | ; kill all vadpt data
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | VADPT0+6 |
^UTILITY( | C6+1! |
^UTILITY("VADM" | C1! |
^UTILITY("VAEL" | C7! |
^UTILITY("VAEN" | C11! |
^UTILITY("VAIN" | C5! |
^UTILITY("VAMB" | C8! |
^UTILITY("VAOA" | C4+1! |
^UTILITY("VAPA" | C3+2! |
^UTILITY("VAPD" | C2! |
^UTILITY("VARP" | C10! |
^UTILITY("VASD" | C12! |
^UTILITY("VASV" | C9! |
Name | Line Occurrences |
---|---|
13 | 1+1 |
@( | VADPT0+9 |
C1 | 1+1 |
C10 | 10+1 |
C11 | 11+1 |
C12 | 12+1 |
C2 | 2+1 |
C3 | 3+1 |
C4 | 4+1 |
C5 | 5+1 |
C6 | 6+1 |
C7 | 7+1 |
C8 | 8+1 |
C9 | 9+1 |
INIT | 1+1, 2+1, 3+1, 4+1, 5+1, 6+1, 7+1, 8+1, 9+1, 10+1 , 11+1, 12+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DFN | VADPT0+6 |
DT | VADPT0+5 |
I | Q!, INIT+4*, 6+1*, 6+2*, 7+1*, 9+1*, 9+3*, 9+6*, C6*, C6+2* |
I1 | VADPT0+4~, 6+1*, 9+6* |
U | VADPT0+5* |
>> VA("BID" | 13+1* |
>> VA("PID" | 13+1* |
VAC | Q! |
VADM | C1! |
VAEL | C7! |
>> VAERR | VADPT0+6*, 1+1, 2+1, 3+1, 4+1, 5+1, 6+3, 7+2, 8+1, 9+7 , 10+1, 11+1, 12+1, 13+1 |
>> VAHOW | VADPT0+8, INIT+3 |
VAIN | C5! |
>> VAIP( | C6, C6+2* |
>> VAIP("V" | C6+1 |
VAMB | C8! |
VAN | VADPT0+7, VADPT0+8, VADPT0+9, Q!, INIT+3, KVAR+1!, C1, C2, C3+4, C4+2 , C5, C6+3, C7, C8, C9, C10, C11 |
VAN(1 | INIT+4 |
VAOA | C4+1! |
VAOA("A" | C4, C4+2* |
VAPA | C3+2! |
VAPA("CD" | C3+1, C3+4* |
VAPA("P" | C3, C3+3* |
VAPD | C2! |
>> VAROOT | VADPT0+7 |
VAS | Q!, INIT+2*, INIT+3*, INIT+4, 6+1, 6+2, 7+1, 9+1, 9+2, 9+3 , 9+4, 9+5, 9+6 |
VASV | C9! |
VAV | VADPT0+7*, VADPT0+8*, Q!, INIT+4, 6+1, 6+2, 7+1, 9+1, 9+2, 9+3 , 9+4, 9+5, 9+6 |
VAW | Q! |
VAX | Q! |
VAZ | Q! |
X | Q!, C3!, C3+4!, C4!, C4+2!, C6!, C6+3! |
X( | C6*, C6+2 |
X("A" | C4*, C4+2 |
X("CD" | C3+1*, C3+4 |
X("P" | C3*, C3+3! |
Y | VADPT0+7*, VADPT0+8, Q!, C6+1* |
Name | Field # of Occurrence |
---|---|
$T(SS+VAN | INIT+3 |