Routine: LRBLJM1

Information

LRBLJM1 ; IHS/DIR/AAB - EDIT POOLED UNIT 10/8/97 22:09 ; [ 04/29/98 10:45 AM ]

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Lab Service	3	(DISP,DISP1)^LRBLAUD1 (M,YN)^LRU EN^LRUD
VA Fileman	3	^%DT ^DIC (,EN1)^DIK

Entry Points

Name	Comments	DBIA/ICR reference
A
AUDIT	; Puts deleted modified to/from entries onto audit trail
B
E
D
G	; get next available IEN for POOLED unit modified to/from multiple
VOL	; Recalculate and updates POOLED unit volume, records change on audit trail
K
R
T
L1

External References

Name	Field # of Occurrence
^%DT	T
^DIC	A+1
^DIK	D+12, D+17, D+18
EN1^DIK	A+16, A+17
DISP^LRBLAUD1	D+14
DISP1^LRBLAUD1	D+15
M^LRU	R
YN^LRU	A+2, R+3, D
EN^LRUD	A+7, A+8, A+9, A+13, A+14, A+15, A+20, A+21, A+22, A+26 , B+4, K+3, D+4, D+5, D+6, D+9, D+10, D+11, D+15, D+16 , AUDIT+2, AUDIT+3, AUDIT+4, VOL+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: A+0
Function Call: WRITE	Prompt: !,$J(A,3),")",?7,$P(X,"^",3),?25,$P(X,"^",4) Line Location: R+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: R+1
Function Call: WRITE	Prompt: $C(7),!,"Must enter a number from 1 to ",E Line Location: R+1
Function Call: WRITE	Prompt: " ",LRC(3) Line Location: R+2
Function Call: WRITE	Prompt: !!,"Ok to delete the ",$P(LRW,"^")," pool " Line Location: D+0
Function Call: WRITE	Prompt: !,$C(7),"ANOTHER TERMINAL IS EDITING ",$P(^LRD(65,DA),U) Line Location: L1+2
Routine Call	DIC Line Location: A+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls
^LRD(65 - [#65]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	K+1
^DD(65.4	K+2
^LAB(66 - [#66]	VOL+4
^LRD(65 - [#65]	A+3, A+4, A+5, A+6, A+12, A+19, A+23, A+25, G+1, B+1 , B+3, B+6, K, K+4!, E, D+3, D+7, D+8, D+15!, L1 , L1+1, L1+2, AUDIT+1, VOL+2, VOL+3, VOL+7*
^TMP($J	R, R+2, D, D+1

Label References

Name	Line Occurrences
AUDIT	B, B+7
E	AUDIT+5
G	A+3, G+1
K	B+7, D+1
L1	A+2, R+3, D
R	R+1
T	A+5
VOL	A+27, B+5

Naked Globals

Name	Field # of Occurrence
^(	A+4, A+5, R, B+6, E!, D, D+1
^(0	A+5, E
^(2	K+1, K+2
^(4	K

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	A+2, R+3, D*
>> %DT	T*
>> A	R, D
>> B	B+6*
>> DA	A+1, A+3, A+5, A+6, A+11, A+12, A+16, A+19, A+23, A+25 , R+2, B, B+1, B+3, B+6, B+7, K, K+4, E, D* , D+1, D+2, D+7, D+14, D+15, D+17, D+18*, L1+1, L1+2, AUDIT+1
>> DA(1	A+11, A+12, A+16, A+19, B, B+6, K, K+3!, E, D+1* , D+2, D+7, D+12, D+15!, D+16*, AUDIT+1
DIC	A*, A+1!
DIC("A"	A*
DIC("S"	A*
DIC(0	A*
>> DIK	A+16, A+17, D+12, D+17, D+18*
>> DIK(1	A+16, A+17
DTIME	R+1
DUZ	A+5
>> E	A+24, R*, R+1, B+2
>> G	A+3, A+4, A+5
>> I	A+3, A+4, A+5, A+19, G+1
>> J	A+5*, A+11
>> LR(	K+1*
>> LR("ADJ"	A, R, VOL+5, VOL+6
>> LR("Q"	R
>> LRA	D+1*
>> LRC	A+3, R+2, B+6, K, K+2, K+3, D+1, D+7, D+8, VOL+3
>> LRC(3	R+2, R+3, D+1
>> LRCOMP	D+7*, D+8
>> LRDSP	D+16
>> LRF	A+4*
>> LRG	A+4*
>> LRI	R+2, B, D+1, D+2, D+3
>> LRL	A+2, R+3, D, D+1, L1+2
>> LRLOCK	L1, L1+1*
>> LRP	A+3, A+4, A+19, A+23, G+1, B, B+1, D+2, D+3, D+14 , D+15, D+16, D+18, VOL+2, VOL+7
>> LRPTR	D+17
>> LRREC	D+17
>> LRT	A+5, A+17, T*
>> LRW	A+5, B+6, D, D+15
NEWPOOL	A+24~, A+25, A+26, B+2~, B+3, B+4
NEWVOL	VOL+1~, VOL+5, VOL+6, VOL+7, VOL+8
NODE	A+6~, A+7, A+8, A+9, A+12, A+13, A+14, A+15, A+19, A+20 , A+21, A+22, D+3, D+4, D+5, D+6, D+8, D+9, D+10, D+11 , AUDIT+1~, AUDIT+2, AUDIT+3, AUDIT+4
>> O	A+7, A+8, A+9, A+13, A+14, A+15, A+20, A+21, A+22, A+23 , B+1, K+3, D+4, D+5, D+6, D+9, D+10, D+11, D+15, D+16 , AUDIT+2, AUDIT+3, AUDIT+4, VOL+2
POOLVOL	VOL+1~, VOL+2*, VOL+5, VOL+6
U	A+2, A+3, A+7, A+8, A+9, A+13, A+14, A+15, A+20, A+21 , A+22, A+23, A+25, R+1, R+2, B+1, B+3, D+4, D+5, D+6 , D+9, D+10, D+11, L1+2, AUDIT+2, AUDIT+3, AUDIT+4, VOL+2, VOL+3, VOL+4 , VOL+7
UNIT	VOL+1~, VOL+3*, VOL+4
UNITVOL	VOL+1~, VOL+4*, VOL+5, VOL+6
>> X	A+5, A+7, A+8, A+9, A+13, A+14, A+15, A+17, A+20, A+21 , A+22, A+26, R, R+1, R+2, B+4, B+6, K+2, K+3, E , D+1, D+4, D+5, D+6, D+9, D+10, D+11, D+15, D+16, T , AUDIT+2, AUDIT+3, AUDIT+4, VOL+8
>> X(1	E*
>> Y	A+1, T
>> Y(0	A+2, A+4
>> Z	A+7, A+8, A+9, A+13, A+14, A+15, A+20, A+21, A+22, A+26 , B+4, K+3, D+4, D+5, D+6, D+9, D+10, D+11, D+15, D+16 , AUDIT+2, AUDIT+3, AUDIT+4, VOL+8

Customize PDF page

Package: Lab Service

Routine: LRBLJM1

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: