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

Package: Lab Service

Routine: LRBLJW


Information

LRBLJW ;AVAMC/REG/CYM - INVENTORY ABO/RH WORKSHEET ;6/14/96 20:40 ;

Source Information

Source file <LRBLJW.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
WRK
S
C
D
L
W
INV
M
H
H1
FT
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?24,"PRINT ABO/RH INVENTORY WORKSHEET",!!
  • Line Location: LRBLJW+4
Function Call: WRITE
  • Prompt: !,"List ABO/Rh worksheet entries "
  • Line Location: LRBLJW+5
Function Call: WRITE
  • Prompt: !,"Add/delete ABO/Rh worksheet entries "
  • Line Location: LRBLJW+6
Function Call: WRITE
  • Prompt: $C(7),!!,"THERE ARE NO ENTRIES TO PRINT !"
  • Line Location: LRBLJW+7
Function Call: WRITE
  • Prompt: !!,"Save list for repeat printing "
  • Line Location: LRBLJW+8
Function Call: WRITE
  • Prompt: !,$J(C,3),")",?5,$P(LRI,"^"),?19,$J($P(LRI,"^",7),2),?23,$P(LRI,"^",8),?27,"|",?38,"|",?43,"| | | | | | | |",!,LR("%")
  • Line Location: WRK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: C+0
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't add this to the worksheet now ",!!,"Someone else is editing this record",!!
  • Line Location: C+4
Function Call: WRITE
  • Prompt: $C(7),!!,"I can't delete this from the worksheet now",!!,"Someone else is editing this record",!!
  • Line Location: D+0
Function Call: WRITE
  • Prompt: W:C#2=1
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: C#2=1
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?40
  • Condition for execution: C#2=0
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $J(C,2),") ",$P(LRI,"^")," ",$J($P(LRI,"^",7),2)," ",$P(LRI,"^",8)
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"Invoice #: ",F
  • Line Location: INV+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,LRO(68)," INVENTORY ABO/Rh TESTING WORKSHEET"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Incubator temp:",?28,"Reagent rack:",!,"Num",?5,"Donor ID",?18,"|Supplier",?27,"|VA interp",?38,"| |---ANTI----|Rh| |Du|"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?18,"|ABO Rh",?27,"| ABO Rh",?38,"|tech",?42,"|A |B |AB| D|Ct|Du|Ct|",!,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !!,"INVENTORY WORKSHEET must be an entry in the LAB LETTER FILE (65.9)",!,"to print legend."
  • Line Location: FT+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRD(65 - [#65] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call