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 |  Caller 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: LRBLPX

Package: Lab Service

Routine: LRBLPX


Information

LRBLPX ;AVAMC/REG/CYM - XMATCH RESULTS ;08/20/2001 3:45 PM

Source Information

Source file <LRBLPX.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Lab Service 6 ^LRBLJLA  CK^LRBLPUS  (,CK,EN,STF)^LRBLPX1  EN1^LRBLU  ^LRDPA  (DT,V,YN)^LRU  
VA FileMan 3 ^%DT  ^DIE  $$EXTERNAL^DILFD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLPUS2  LRBLPX  

Entry Points

Name Comments DBIA/ICR reference
ASK
R
SEL
S
E
K
LBL
EN ;from LRBLPUS2
IG
ALL
M
AB
END

External References

Name Field # of Occurrence
^%DT E+12
^DIE E+9, E+10, E+12
$$EXTERNAL^DILFD LBL+2
^LRBLJLA END
CK^LRBLPUS LRBLPX+3
^LRBLPX1 S+1
CK^LRBLPX1 LRBLPX+6
EN^LRBLPX1 E+6
STF^LRBLPX1 E+13
EN1^LRBLU LRBLPX+4
^LRDPA ASK
DT^LRU LBL
V^LRU LRBLPX+3, END
YN^LRU E+7, END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?28,"Enter crossmatch results",!!?28,LRAA(4)
  • Line Location: LRBLPX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH
  • Line Location: R+0
Function Call: WRITE
  • Prompt: $C(7),!,"No units currently selected for XMATCH",!
  • Line Location: R+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Select units (1-",LRV,") to enter XMATCH results: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Enter numbers from 1-",LRV,!,"For 2 or more selections separate each with a ',' (ex. 1,3,4 )",!,"Enter 'ALL' for all units."
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed."
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: $C(7),!,"START with a NUMBER !!",!
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !!?4,"Sorry, must have ABO/Rh results to enter XMATCH results"
  • Line Location: E+6
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't finish this. Someone else is editing this record"
  • Line Location: K+0
Function Call: WRITE
  • Prompt: $C(7),!!,"I won't be able to make this CAUTION TAG now. Someone else is using that function",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: $C(7),!,"SORRY YOU DO NOT HAVE THE APPROPRIATE SECURITY",!,"TO ALLOW THIS UNIT TO BE ASSIGNED",!
  • Line Location: IG+0
Function Call: READ
  • Formatting: !!
  • Prompt: "ENTER YOUR INITIALS TO ALLOW ASSIGNING UNIT: "
  • Variable: X(1)
  • Timeout: DTIME
  • Line Location: IG+1
Function Call: WRITE
  • Prompt: $C(7),!,"NOT YOUR INITIALS !",!
  • Line Location: IG+1
Function Call: READ
  • Formatting: !
  • Prompt: "Press RETURN"
  • Variable: X
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: M+0
Function Call: READ
  • Variable: S A=0 F B=0
  • Timeout: 1
  • Line Location: AB+0
Routine Call
  • DIE
  • Line Location:
    • E+9
    • E+10
    • E+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRD(65 - [#65] Classic Fileman Calls
65.02 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(61.3 - [#61.3] LRBLPX+4, AB
^LR - [#63] R, R+1, S!, S+1, K, K+1!, AB
^LRD(65 - [#65] E+9, E+11, E+12, K+2, LBL, LBL+2
^LRO(68 - [#68] E+13
^LRO(69.2 - [#69.2] EN+1, EN+2, EN+3*, EN+4*
^TMP($J ASK!, SEL+4, S+1*, E, ALL
^VA(200 - [#200] LRBLPX+5, LBL+2
^XUSEC("LRBLSUPER" IG

Label References

Name Line Occurrences
AB R
ALL SEL+1
ASK ASK
E R+3, SEL+4, ALL
END LRBLPX+3, LRBLPX+6, ASK
K E+11
LBL K+2
M S+1
R ASK
S R+1
SEL SEL, SEL+2, SEL+3

Naked Globals

Name Field # of Occurrence
^( R+1
^(0 S*, E+9*, K+1*, LBL+2, EN+1*
^(2 LBL

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % E+7*, END*
>> %DT E+12*
>> A AB*
>> B R+1*, S, S+1, AB*
DA E*, E+9, E+10!*, E+12*
DA(1 E*, E+10*, E+12*
DA(2 E*
DIC ASK!
DIE ASK!, E*, E+10!*, E+12*
DR ASK!, E+8*, E+10!*, E+12*
DTIME SEL, IG+1, M
DUZ LRBLPX+5, IG
>> E R+1*, S, S+1
F E+6!
F(1 E+6
F(2 E+6
F(6 E+7
>> K EN+2*, EN+3
>> K(3 EN+2*, EN+3, EN+4
>> LRA SEL+4*
>> LRAA E+13, EN+1, EN+2, EN+3, EN+4
>> LRAA(4 LRBLPX+5
>> LRAD E+9*, E+13*
>> LRAN E+13*
>> LRB LRBLPX+4*
>> LRC E*, K+1
>> LRCAPA LRBLPX+6, E+13
>> LRDFN ASK, R, R+1, S, S+1, E, E+9, E+10, E+11, E+12
, K, K+1, K+2, LBL, LBL+2, AB
LRDPAF LRBLPX+5!
>> LRDPF R*
>> LRI E*, E+9, E+10, E+11, E+12, K+1, K+2, LBL, LBL+2
>> LRJ S+1*, E*, LBL+2
>> LRK E+12*
>> LRP R*, LBL+1
>> LRPABO R*, LBL+1
>> LRPRH R*, LBL+1
>> LRQ SEL+4*
>> LRR E*, E+10, E+11, E+12, IG*, IG+1*
>> LRSS S
>> LRT LRBLPX+6
LRV ASK!, R+1*, R+2, R+3, SEL, SEL+4*, S+1*, E, ALL*
>> LRW LRBLPX+5*, IG+1
LRZ ASK!
>> PNM R
R AB!
R( AB*
>> SSN LBL+1
>> SSN(1 R
U R, SEL
>> X R*, R+1*, SEL*, SEL+1, SEL+2, SEL+3, SEL+4, S*, E+12*, E+13*
, K+1*, LBL*, LBL+1, LBL+2*, EN+2*, M*, AB*
>> X(1 S*, K+1*, IG+1*
>> Y LRBLPX+3, E+10, E+12, LBL*, LBL+1
>> Y(1 LBL+1*, LBL+2*, EN+4
>> Y(5 LBL+2*
>> Y(7 LBL*, LBL+1
>> Y(8 LBL*, LBL+1
Info |  Source |  Call Graph |  Caller 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