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 ; IHS/DIR/AAB - XMATCH RESULTS 6/13/96 20:25 ;

Source Information

Source file <LRBLPX.m>

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

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLPUS2  LRBLPX  

Entry Points

Name Comments DBIA/ICR reference
ALL
EN ;from LRBLPUS2
E
K
M
S
R ;S X=^LR(LRDFN,0),LRDPF=$P(X,U,2),LRPABO=$P(X,"^",5),LRPRH=$P(X,"^",6),LRP=PNM W !,LRP," ",SSN(1),?37,$J(LRPABO,2),?40,LRPRH D AB
AB
ASK
END
SEL
LBL
IG

External References

Name Field # of Occurrence
^%DT E+7
^DIE E+4, E+5, E+7
$$EXTERNAL^DILFD LBL+3
^LRBLJLA END
CK^LRBLPUS LRBLPX+3
^LRBLPX1 S+1
CK^LRBLPX1 LRBLPX+6
EN^LRBLPX1 E+2
STF^LRBLPX1 E+8
EN1^LRBLU LRBLPX+4
^LRDPA ASK
DT^LRU LBL
V^LRU LRBLPX+3, END
YN^LRU E+3, 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: !,LRP," ",HRCN,?37,$J(LRPABO,2),?40,LRPRH
  • Line Location: R+1
Function Call: WRITE
  • Prompt: $C(7),!,"No units currently selected for XMATCH",!
  • Line Location: R+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+2
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
  • Prompt: "ENTER YOUR INITIALS TO ALLOW ASSIGNING UNIT: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X(1)
  • Line Location: IG+1
Function Call: WRITE
  • Prompt: $C(7),!,"NOT YOUR INITIALS !",!
  • Line Location: IG+1
Function Call: READ
  • Prompt: "Press RETURN"
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: M+0
Function Call: READ
  • Timeout: 1
  • Variable: S A=0 F B=0
  • Line Location: AB+0
Routine Call
  • DIE
  • Line Location:
    • E+4
    • E+5
    • E+7

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+1, R+2, S!, S+1, K, K+1!, AB
^LRD(65 - [#65] E+4, E+6, E+7, K+2, LBL, LBL+3
^LRO(68 - [#68] E+8
^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+3
^XUSEC("LRBLSUPER" IG

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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