Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRBLJM1

Package: Lab Service

Routine: LRBLJM1


Information

LRBLJM1 ;AVAMC/REG/CYM - EDIT POOLED UNIT 10/8/97 22:09 ;

Source Information

Source file <LRBLJM1.m>

Call Graph

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
G ; get next available IEN for POOLED unit modified to/from multiple
R
B
K
E
D
T
L1
AUDIT ; Puts deleted modified to/from entries onto audit trail
VOL ; Recalculate and updates POOLED unit volume, records change on audit trail

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
  • Variable: X
  • Timeout: DTIME
  • 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, KK+4!, ED+3, D+7, D+8, D+15!, L1
L1+1, L1+2, AUDIT+1, VOL+2, VOL+3, VOL+7*
^TMP($J RR+2, DD+1

Label References

Name Line Occurrences
AUDIT BB+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*, RB+6, E!, DD+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*, KK+3!, ED+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*, BD+1*, D+2, D+3
>> LRL A+2*, R+3*, D*, D+1, L1+2*
>> LRLOCK L1L1+1*
>> LRP A+3, A+4, A+19, A+23, G+1, BB+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, DD+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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All