Routine: BLRDPT0

Package	Total	Call Graph
IHS Changes To Lab	6	(1,2,3,4)^BLRDPT1 5^BLRDPT2 6^BLRDPT3 (7,8,9)^BLRDPT4 (10,11,12)^BLRDPT5 13^BLRDPT6
VA Fileman	1	DT^DICRW

Package

Total

Call Graph

(1,2,3,4)^BLRDPT1 5^BLRDPT2 6^BLRDPT3 (7,8,9)^BLRDPT4 (10,11,12)^BLRDPT5 13^BLRDPT6

DT^DICRW

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRDPT

Package

Total

Caller Graph

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
KVAR	; kill all vadpt data

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	BLRDPT0+8
^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+1!
^UTILITY("VAPD"	C2!
^UTILITY("VARP"	C10!
^UTILITY("VASD"	C12!
^UTILITY("VASV"	C9!

Name	Field # of Occurrence
>> DFN	BLRDPT0+8
DT	BLRDPT0+7
I	Q!, INIT+4, 6+1, 7+1, 9+1, 9+3, C6, C6+2*
I1	BLRDPT0+6~, Q!, 6+1, 9+3
U	BLRDPT0+7*
>> VA("BID"	13+1*
>> VA("PID"	13+1*
VAC	Q!
VADM	C1!
VAEL	C7!
>> VAERR	BLRDPT0+8*, 1+1, 2+1, 3+1, 4+1, 5+1, 6+2, 7+2, 8+1, 9+4 , 10+1, 11+1, 12+1, 13+1
>> VAHOW	BLRDPT0+10, INIT+3
VAIN	C5!
>> VAIP(	C6, C6+2*
>> VAIP("V"	C6+1
VAMB	C8!
VAN	BLRDPT0+9, BLRDPT0+10, BLRDPT0+11, Q!, INIT+3, KVAR+1!, C1, C2, C3+2, C4+2 , C5, C6+3, C7, C8, C9, C10, C11
VAN(1	INIT+4
VAOA	C4+1!
VAOA("A"	C4, C4+2*
VAPA	C3+1!
VAPA("P"	C3, C3+2*
VAPD	C2!
>> VAROOT	BLRDPT0+9
VAS	Q!, INIT+2, INIT+3, INIT+4, 6+1, 7+1, 9+1, 9+2, 9+3
VASV	C9!
VAV	BLRDPT0+9, BLRDPT0+10, Q!, INIT+4, 6+1, 7+1, 9+1, 9+2, 9+3
VAW	Q!
VAX	Q!
VAZ	Q!
X	Q!, C3!, C3+2!, C4!, C4+2!, C6!, C6+3!
X(	C6*, C6+2
X("A"	C4*, C4+2
X("P"	C3*, C3+2
Y	BLRDPT0+9, BLRDPT0+10, Q!, C6+1

Information