Routine: VADPT0

Information

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

Package	Total	Caller Graph
Registration	1	VADPT

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	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