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

Package: Lab Service

Routine: LRBLJDM


Information

LRBLJDM ;AVAMC/REG/CYM - MULTIPLE COMP PREP, INVENTORY ;5/21/97 14:56 ; 12/7/00 7:12am

Source Information

Source file <LRBLJDM.m>

Entry Points

Name Comments DBIA/ICR reference
C
ONLY
CK
T
F ;from LRBLJD
S ;from LRBLJD
SET
D
OUT
ISISBT(PROD) ; This function should only be called within this routine
; This function is a boolean of whether a product type is ISBT128 (true) or Codabar (false)
ISBTSPLT(UIEN,NUM) ; This function should only be called from within this routine
; This function checks for an appropriate number of split units for ISBT128 product types
; UIEN Unit Internal Entry Number
; PROD is the product code
; NUM is the number of aliquots requested by the user

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(LRP(X),"^"),?40,"vol(ml):",$J($P(LRP(X),"^",2),5)
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !?48,"-----",!?34,"Total vol(ml):",$J(S,5)
  • Line Location: C+2
Function Call: WRITE
  • Prompt: !!,$C(7),"Total volume of components greater than unit. SELECTIONS DELETED TRY AGAIN !",!!
  • Line Location: C+2
Function Call: WRITE
  • Prompt: " SELECTIONS DELETED TRY AGAIN",!
  • Line Location: C+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Component selected must be the ONLY ONE for this unit.",!," Selection ",$P(LRP(Y),"^")," canceled !",!
  • Line Location: ONLY+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Cannot select more than one red blood cell product.",!,"Selection ",$P(LRP(Y),"^")," canceled !",!
  • Line Location: CK+0
Function Call: WRITE
  • Prompt: $C(7),!,!!,"Must enter WKLD CODES in BLOOD PRODUCT FILE (#66)",!,"for ",$P(^LAB(66,LRV,0),U)," to divide unit.",!
  • Line Location: D+0
Function Call: READ
  • Formatting: !
  • Prompt: "Enter number of aliquots (1-5): "
  • Variable: A
  • Timeout: DTIME
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !!,"Answer must be 1,2,3,4, or 5",!
  • Line Location: D+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(66 - [#66] Classic Fileman Calls,  FIND1^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call