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: LRBLJPA1

Package: Lab Service

Routine: LRBLJPA1


Information

LRBLJPA1 ;AVAMC/REG/CYM - UNIT FINAL DISPOSITION ;02/11/98 09:24 ;

Source Information

Source file <LRBLJPA1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 ^LRBLJPA2  (F,M,SSN)^LRU  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 FIELD^DID  

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 LRBLJPA  LRBLJPA2  

Entry Points

Name Comments DBIA/ICR reference
R
Y
P
T
H
H1
H2
H3
H4
AU
W

External References

Name Field # of Occurrence
FIELD^DID LRBLJPA1+3, LRBLJPA1+4, LRBLJPA1+5, LRBLJPA1+6, LRBLJPA1+7, LRBLJPA1+8, LRBLJPA1+9
^LRBLJPA2 R+11
F^LRU H+1
M^LRU H
SSN^LRU P
$$FMTE^XLFDT Y

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,LRP,?14,LRC,?55,$P(X,"^",3),?66,$P(X,"^",2)
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !?14,"(Bag Lot #: ",Y,")"
  • Line Location: R+1
Function Call: WRITE
  • Prompt: " Shipping invoice:",Z
  • Line Location: R+3
Function Call: WRITE
  • Prompt: " Return credit: ",X
  • Line Location: R+4
Function Call: WRITE
  • Prompt: "Pool/div:",X(4)
  • Condition for execution: X(4)]""
  • Line Location: R+5
Function Call: WRITE
  • Prompt: !?2,"Shipped to: ",$P(X,"^",5)
  • Line Location: R+6
Function Call: WRITE
  • Prompt: !,^LRD(65,LRI,5,LRA,0)
  • Line Location: R+7
Function Call: WRITE
  • Prompt: !,"Pt transfused:",$P(Y,"^")," ssn:",SSN," ABO:",$P(X(1),"^",5)," Rh:",$P(X(1),"^",6)
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !,"Tx reaction:",$S(X=0:"NO",X:"YES",1:"")," Rx specialty: ",$P(Z,"^",3)
  • Line Location: T+2
Function Call: WRITE
  • Prompt: "(",$P(Z,"^",7),")"
  • Condition for execution: $P(Z,"^",7)
  • Line Location: T+2
Function Call: WRITE
  • Prompt: !,^LRD(65,LRI,7,LRA,0)
  • Line Location: T+3
Function Call: WRITE
  • Prompt: !,LRAA(1),!,"DISPOSITION (Date rec'd from: ",LRSTR," to: ",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"UNIT ID",?14,"Component",?55,"Invoice #",?66,"Source"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"Date rec'd",?17,"ABO",?21,"Rh",?24,"Exp date",?36,"Logged-in by",?67,"Cost",?72,"Vol(ml)",!,"Disposition",?21,"Disposition date",?39,"Person entering disposition"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,LRP,?14,LRC," (continued from pg ",LRQ-1,")"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"Disposition comment(s):"
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,"Transfusion comment(s):"
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,"Restricted for:",$P(Y,"^")," ",SSN
  • Line Location: AU+0
Function Call: WRITE
  • Prompt: W
  • Line Location: AU+1
Function Call: WRITE
  • Prompt: !
  • Line Location: AU+1
Function Call: WRITE
  • Prompt: "Pos/incomplete screen tests:",$P($P(LRE,W(2)_":",2),";")
  • Condition for execution: W(2)]""
  • Line Location: AU+1
Function Call: WRITE
  • Prompt: ?40,"Donation type:",$P($P(LRF,W(3)_":",2),";")
  • Condition for execution: W(3)]""
  • Line Location: AU+1
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"Date re-entered: ",Y," Previous disposition: ",$P(Z,"^",2)," Date: "
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"Date re-entered: ",Y," Previous disposition: ",$P(Z,"^",2)," Date: "
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?3,"Previous shipping invoice: ",$P(Z,"^",5)," Receiving invoice: ",$P(Z,"^",6)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !?3,"Previous log-in person: ",$P(^VA(200,$P(Z,"^",7),0),"^"),!?3,"Previous date logged-in: "
  • Line Location: W+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !?3,"Ship to: ",$P(Z,"^",9)
  • Condition for execution: $P(Z,"^",9)]""
  • Line Location: W+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRD(65 - [#65] FIELD^DID
65.02 FIELD^DID
65.03 FIELD^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] P
^LAB(66 - [#66] R
^LR - [#63] P
^LRD(65 - [#65] R, R+5, R+7, R+8, R+9, R+10, T+3
^LRO(69.2 - [#69.2] LRBLJPA1+11
^VA(200 - [#200] R+2, R+5, W, W+2

Label References

Name Line Occurrences
AU R+8
H LRBLJPA1+10, R, H1
H1 H2, H3, H4
H2 R+7
H3 T+3
H4 R+5, R+7, R+8, R+9, R+10, R+11, T+2, W+1, W+2
P T, AU
R LRBLJPA1+11
T R+10
W R+9
Y R+2, R+5, R+9, W, W+2

Naked Globals

Name Field # of Occurrence
^( R+9
^(0 R, R+2, R+5, P
^(1 R
^(6 R+10
^(8 R+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRBLJPA1+11*
IOSL R, R+7, T+3, H4
IOST H
>> LR("%" H+4
>> LR("F" LRBLJPA1+11*, H
>> LR("Q" LRBLJPA1+11, R, R+5, R+7, R+8, R+9, R+10, R+11, T+3, H
, H1, H2, H3, W+1, W+2
>> LRA R+7*, R+9*, T+3*
>> LRAA LRBLJPA1+11
>> LRAA(1 H+1
>> LRC R*, H1
>> LRD LRBLJPA1+3*, R+5
>> LRD("POINTER" LRBLJPA1+3
>> LRDPF P*
>> LRE LRBLJPA1+8*, AU+1
>> LRE("POINTER" LRBLJPA1+8
>> LRF LRBLJPA1+9*, AU+1
>> LRF("POINTER" LRBLJPA1+9
>> LRI LRBLJPA1+11*, R, R+5, R+7, R+8, R+9, R+10, T+3
>> LRID LRBLJPA1+10*, LRBLJPA1+11*
>> LRLST H+1
>> LRP R*, H1
>> LRQ LRBLJPA1+10*, H1
>> LRSTR H+1
>> LRT LRBLJPA1+4*
>> LRT("POINTER" LRBLJPA1+4
>> LRTABO LRBLJPA1+6*
>> LRTABO("POINTER" LRBLJPA1+6
>> LRTINS LRBLJPA1+5*
>> LRTINS("POINTER" LRBLJPA1+5
>> LRTRH LRBLJPA1+7*
>> LRTRH("POINTER" LRBLJPA1+7
>> SSN P*, T, AU
>> W(2 R+8*, AU+1
>> W(3 R+8*, AU+1
>> X R*, R+2, R+3, R+4*, R+5*, R+6, R+8*, P*, T*, T+1*
, T+2, AU
>> X(1 R+5*, P*, T*
>> X(3 R+5*
>> X(4 R+5*
>> Y R*, R+1, R+2*, R+3*, R+4, R+5*, R+8*, R+9*, Y*, Y+1*
, Y+2*, P*, T*, AU, W*, W+2*
>> Z R*, R+3*, R+4, R+9*, R+10*, T, T+1, T+2, W, W+1
, W+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