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 ; IHS/DIR/AAB - UNIT FINAL DISPOSITION 02/11/98 09:24 ; [ 07/07/1998 12:41 PM ]

Source Information

Source file <LRBLJPA1.m>

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

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRBLJPA  LRBLJPA2  

Entry Points

Name Comments DBIA/ICR reference
H2
H
H1
H4
P ;Q:'$D(^LR(X,0)) S X(1)=^(0),Y=$P(X(1),"^",3),(LRDPF,X)=$P(X(1),"^",2),X=^DIC(X,0,"GL"),Y=@(X_Y_",0)"),SSN=$P(Y,"^",9) D SSN^LRU Q
R
AU ;I X D P W !,"Restricted for:",$P(Y,"^")," ",SSN
T ;S X=+Z,(Y,X(1))="" D P W !,"Pt transfused:",$P(Y,"^")," ssn:",SSN," ABO:",$P(X(1),"^",5)," Rh:",$P(X(1),"^",6)
W
H3
Y

External References

Name Field # of Occurrence
FIELD^DID LRBLJPA1+4, LRBLJPA1+5, LRBLJPA1+6, LRBLJPA1+7, LRBLJPA1+8, LRBLJPA1+9, LRBLJPA1+10
^LRBLJPA2 R+11
F^LRU H+1
M^LRU H
SSN^LRU P+1
$$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: !,"Pt transfused:",$P(Y,"^")," HRCN:",HRCN," ABO:",$P(X(1),"^",5)," Rh:",$P(X(1),"^",6)
  • Line Location: T+1
Function Call: WRITE
  • Prompt: !,"Tx reaction:",$S(X=0:"NO",X:"YES",1:"")," Rx specialty: ",$P(Z,"^",3)
  • Line Location: T+3
Function Call: WRITE
  • Prompt: "(",$P(Z,"^",7),")"
  • Condition for execution: $P(Z,"^",7)
  • Line Location: T+3
Function Call: WRITE
  • Prompt: !,^LRD(65,LRI,7,LRA,0)
  • Line Location: T+4
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: !,"Restricted for:",$P(Y,"^")," ",HRCN
  • Line Location: AU+1
Function Call: WRITE
  • Prompt: W
  • Line Location: AU+2
Function Call: WRITE
  • Prompt: !
  • Line Location: AU+2
Function Call: WRITE
  • Prompt: "Pos/incomplete screen tests:",$P($P(LRE,W(2)_":",2),";")
  • Condition for execution: W(2)]""
  • Line Location: AU+2
Function Call: WRITE
  • Prompt: ?40,"Donation type:",$P($P(LRF,W(3)_":",2),";")
  • Condition for execution: W(3)]""
  • Line Location: AU+2
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+1
^LAB(66 - [#66] R
^LR - [#63] P+1
^LRD(65 - [#65] R, R+5, R+7, R+8, R+9, R+10, T+4
^LRO(69.2 - [#69.2] LRBLJPA1+12
^VA(200 - [#200] R+2, R+5, W, W+2

Label References

Name Line Occurrences
AU R+8
H LRBLJPA1+11, R, H1
H1 H2, H3, H4
H2 R+7
H3 T+4
H4 R+5, R+7, R+8, R+9, R+10, R+11, T+3, W+1, W+2
P T+1, AU+1
R LRBLJPA1+12
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
^(1 R
^(6 R+10
^(8 R+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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