Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call