Routine: LRAPWSPG

Information

LRAPWSPG ;AVAMC/REG - GROSS DESCRIPTION WORKLOAD ;8/4/91 09:25 ;

Source file <LRAPWSPG.m>

Package	Total	Call Graph
Lab Service	4	^LRAPWA V^LRU ^LRUTL X^LRUWK
VA FileMan	1	^%DT

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: " ",LRH(0) Line Location: ASK+1
Function Call: WRITE	Prompt: $C(7),!!,"NO ",LRAA(1)," ACCESSIONS IN FILE FOR ",LRH(0),!! Line Location: ASK+2
Function Call: WRITE	Prompt: $C(7),!!,"You do not have the appropriate security key for SURGICAL PATHOLOGY",! Line Location: AA+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19.1 - [#19.1]	AA+1
^LAB(60 - [#60]	A+4
^LR - [#63]	STF, A+5*
^LRO(68 - [#68]	ASK+2, A+1, A+2, A+3, A+5*, CAP, CAP+1, AA
^XUSEC(	AA+1

Name	Field # of Occurrence
^(	STF, A+4
^(0	A+1, A+2, A+3, CAP, CAP+1*, AA, AA+1

Name	Field # of Occurrence
>> %DT	ASK, ASK+1
>> A	STF*, A+5
>> A(1	A+4*, CAP, CAP+1
>> C	A+4*, CAP, CAP+1
>> DR	LRAPWSPG+5*
>> DR(2	LRAPWSPG+5*
DTIME	ASK
DUZ	A+2, CAP, AA+1
DUZ(2	CAP
>> LR("K"	AA, AA+1
>> LRAA	ASK+2, A+1, A+2, A+3, A+5, CAP, CAP+1, AA
>> LRAA(1	ASK+2
>> LRABV	AA*
>> LRAD	ASK+1*, ASK+2, A+1, A+2, A+3, A+5, CAP, CAP+1
>> LRAN	ACC, A+1, A+2, A+3, A+5, CAP, CAP+1
>> LRDFN	STF, A+5
>> LRH(0	ASK+1*, ASK+2
>> LRI	STF, A+5
>> LRK	A*, A+2, CAP
>> LRSS	STF, A+5
LRT	LRAPWSPG+2!, LRAPWSPG+3!, LRAPWSPG+4!, A*, A+2, A+3, A+4, A+5, CAP, CAP+1
>> LRW(	A
>> LRW(1	LRAPWSPG+2*, LRAPWSPG+4
>> LRW(2	LRAPWSPG+3*, LRAPWSPG+4
>> LRW(3	LRAPWSPG+4*
>> LRY	ASK, ASK+1
U	ASK, AA, AA+1
>> X	LRAPWSPG+2, LRAPWSPG+3, LRAPWSPG+4, ASK, STF, A, A+2, CAP, CAP+1, AA
>> Y	LRAPWSPG+2, ASK, ASK+1, AA, AA+1*