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

Package: Lab Service

Routine: LRBLDPA2


Information

LRBLDPA2 ;AVAMC/REG/CYM - BLOOD DONOR PRINT 6/26/96 20:57 ;

Source Information

Source file <LRBLDPA2.m>

Entry Points

Name Comments DBIA/ICR reference
T
R
A ;donor antigen list from LRBLDPA1
C
L
P

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"COLLECTION STARTED: ",Y
  • Line Location: LRBLDPA2+3
Function Call: WRITE
  • Prompt: ?40,"COMPLETED: ",Y
  • Line Location: LRBLDPA2+3
Function Call: WRITE
  • Prompt: !?9,"PROCESSED: ",Y,?40,"COLLECTION WT(gm): ",$P(LRZ,U,5)
  • Line Location: LRBLDPA2+4
Function Call: WRITE
  • Prompt: !,"EMPTY PRIMARY UNIT(gm): ",$P(LRZ,U,6),?40,"COLLECTION VOL(ml): ",$P(LRZ,U,7)
  • Line Location: LRBLDPA2+5
Function Call: WRITE
  • Prompt: !,"PROCESSING TECH: ",X
  • Line Location: LRBLDPA2+6
Function Call: WRITE
  • Prompt: !,"COLLECTION DISPOSITION: ",Y
  • Line Location: LRBLDPA2+8
Function Call: WRITE
  • Prompt: !,"COLLECTION DISPOSITION COMMENT:"
  • Condition for execution: E=1
  • Line Location: LRBLDPA2+9
Function Call: WRITE
  • Prompt: !?3,LRA
  • Line Location: LRBLDPA2+9
Function Call: WRITE
  • Prompt: !,"ABO INTERPRETATION: ",Y
  • Line Location: LRBLDPA2+10
Function Call: WRITE
  • Prompt: ?40,"TECH: ",X
  • Line Location: LRBLDPA2+10
Function Call: WRITE
  • Prompt: ?40,"TECH: ",X
  • Line Location: LRBLDPA2+10
Function Call: WRITE
  • Prompt: !,"ABO RECHECK: ",Y
  • Line Location: LRBLDPA2+11
Function Call: WRITE
  • Prompt: ?40,"RECHECH TECH: ",X
  • Line Location: LRBLDPA2+11
Function Call: WRITE
  • Prompt: ?40,"RECHECH TECH: ",X
  • Line Location: LRBLDPA2+11
Function Call: WRITE
  • Prompt: !,"RH INTERPRETATION: ",Y
  • Line Location: LRBLDPA2+12
Function Call: WRITE
  • Prompt: ?40,"TECH: ",X
  • Line Location: LRBLDPA2+12
Function Call: WRITE
  • Prompt: ?40,"TECH: ",X
  • Line Location: LRBLDPA2+12
Function Call: WRITE
  • Prompt: !,"RH RECHECK: ",Y
  • Line Location: LRBLDPA2+13
Function Call: WRITE
  • Prompt: ?40,"RECHECH TECH: ",X
  • Line Location: LRBLDPA2+13
Function Call: WRITE
  • Prompt: ?40,"RECHECH TECH: ",X
  • Line Location: LRBLDPA2+13
Function Call: WRITE
  • Prompt: !!,"COMPONENT PREPARED:"
  • Condition for execution: E=1
  • Line Location: LRBLDPA2+15
Function Call: WRITE
  • Prompt: !?3,$S($D(^LAB(66,X,0)):$P(^(0),U),1:X)
  • Line Location: LRBLDPA2+15
Function Call: WRITE
  • Prompt: !,NAME,": ",Y
  • Line Location: T+1
Function Call: WRITE
  • Prompt: ?40,"TECH: ",X
  • Line Location: T+2
Function Call: WRITE
  • Prompt: !,NAME,": ",$P(I,U,3)
  • Line Location: T+3
Function Call: WRITE
  • Prompt: ?40,"DISPOSITION DATE: ",Y
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !,"DATE STORED: ",Y
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !,"DATE STORED: ",Y
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !,"COMPONENT VOL(ml): ",$P(LRA,U,5)
  • Line Location: R+1
Function Call: WRITE
  • Prompt: ?40,"LABELING TECH:",X
  • Line Location: R+1
Function Call: WRITE
  • Prompt: !,"DISPOSITION TECH:",X
  • Line Location: R+2
Function Call: WRITE
  • Prompt: ?40,"DISPOSITION: ",Y
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !,"COMPONENT DISPOSITION COMMENT:"
  • Condition for execution: G=1
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !,LRB
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !,"Antigen(s) present",?40,"| Antigen(s) absent",!
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>1
  • Line Location: A+3
Function Call: WRITE
  • Prompt: ?40,"|"
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !
  • Line Location: A+4
Function Call: WRITE
  • Prompt: !,"CMV ANTIBODY: ",Y
  • Line Location: A+5
Function Call: WRITE
  • Prompt: X
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !?3,$P(^LAB(61.3,B,0),U)
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !?5,$P(LRB,U,2)
  • Condition for execution: $P(LRB,U,2)]""
  • Line Location: L+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.54 FIELD^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call