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
Print Page as PDF
Routine: LRBLJPA2

Package: Lab Service

Routine: LRBLJPA2


Information

LRBLJPA2 ;AVAMC/REG/CYM - UNIT FINAL DISPOSITION ;6/20/96 07:13 ;

Source Information

Source file <LRBLJPA2.m>

Entry Points

Name Comments DBIA/ICR reference
C
A
B
D
H
H1
H2
H3
H4
H5
H6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,$S($D(^LAB(61.3,A,0)):$P(^(0),"^"),1:A)
  • Line Location: LRBLJPA2+6
Function Call: WRITE
  • Prompt: " (",$P(A(1),"^",2),")"
  • Condition for execution: $P(A(1),"^",2)]""
  • Line Location: LRBLJPA2+6
Function Call: WRITE
  • Prompt: !,"Modified to/from:"
  • Line Location: LRBLJPA2+7
Function Call: WRITE
  • Prompt: !?2,"Issued to/rec'd from:",$P(A(1),"^",5)," For patient:",$P(A(1),"^",6)
  • Line Location: C+1
Function Call: WRITE
  • Prompt: " (",$P(A(1),"^",7),")"
  • Condition for execution: $P(A(1),"^",7)
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !,$P(Y,"^")," ssn:",$P(Y,"^",9)," ",$P(X(1),"^",5)," ",$P(X(1),"^",6)," Date assigned:"
  • Line Location: A+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !,Y," ",$P(B(1),"^",6)," ",$P(B(1),"^",2)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: "(",$P(B(1),"^",7),")"
  • Condition for execution: $P(B(1),"^",7)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: " ",$P(B(1),"^",3)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: "(",$P(B(1),"^",8),")"
  • Condition for execution: $P(B(1),"^",8)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,C(1)
  • Line Location: B+2
Function Call: WRITE
  • Prompt: !,$S(LRA=60:"RBC antigen present",LRA=70:"RBC antigen absent",LRA=80:"HLA antigen present",1:"HLA antigen absent"),":"
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"Modified to/from:"
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,"Patient xmatched/assigned:"
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,"Crossmatch comment:"
  • Line Location: H5+0
Function Call: WRITE
  • Prompt: !,"Date unit relocated:"
  • Line Location: H6+0
Info |  Source |  Entry Points |  Interaction Calls