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

Package: Lab Service

Routine: LRBLPX1


Information

LRBLPX1 ;AVAMC/REG - XMATCH RESULTS (COND'T) ; 08/17/01 3:30 PM ;

Source Information

Source file <LRBLPX1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;from LRBLPX
C
STF
A
CK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$J(LRV,2),")",?6,$P(X,"^"),?20,$E($P(LRE,"^"),1,23),?45,$J(A,2),?48,H,?52
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: Y,?68,$E(L,1,12)
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: $C(7),!,"ABO not rechecked"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: $C(7),!,"ABO recheck (group ",X,") does not match ABO group of unit. Resolve discrepancy."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: $C(7),!,"Rh NEG unit not rechecked"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: $C(7),!,"Rh recheck (type ",X,") does not match Rh type of unit. Resolve discrepancy."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: $C(7),!?4,"No patient ABO &/or Rh results"
  • Line Location: EN+49
Function Call: WRITE
  • Prompt: !?4,"No antibody screen results"
  • Line Location: EN+50
Function Call: WRITE
  • Prompt: ?31,"(spec date:",Y," acc#:",$P($P(LRJ,"^",5)," ",3),")"
  • Line Location: EN+51
Function Call: WRITE
  • Prompt: !,$P(^LAB(61.3,Z,0),"^"),$E("..............",$X,14),?15,"RBC ANTIGEN"
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!,"Above antigen(s) not entered in RBC ANTIGEN ABSENT field"
  • Line Location: C+1
Function Call: WRITE
  • Prompt: $C(7),!,"Must have test in LAB TEST file (#60) called 'WKLD CROSSMATCH' with WKLD CODES."
  • Line Location: CK+2
Info |  Source |  Entry Points |  Interaction Calls