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

Package: Lab Service

Routine: LRBLJD1


Information

LRBLJD1 ;AVAMC/REG/CYM - POOL COMPONENTS ;10/9/97 07:24 ; 12/18/00 2:04pm

Source Information

Source file <LRBLJD1.m>

Entry Points

Name Comments DBIA/ICR reference
ID
C
K
XR
S
SET
CMV

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Must enter WKLD CODES in BLOOD PRODUCT FILE (#66)",!,"for ",$P(^LAB(66,LRV,0),U)," to pool unit.",!
  • Line Location: LRBLJD1+8
Function Call: WRITE
  • Prompt: !?31,"Unit ID",?41,"ABO/Rh",!!,"Selection 1 (unit ID to pool): ",$P(LRE,"^"),?41,$J($P(LRE,"^",7),2),?44,$P(LRE,"^",8)
  • Line Location: LRBLJD1+9
Function Call: WRITE
  • Prompt: !!,"No need to pool 1 unit",!
  • Line Location: LRBLJD1+11
Function Call: WRITE
  • Prompt: !!,"Pool will contain the following ",$P(^LAB(66,LRE(4),0),"^")," units:",!?3,"ID #",?30,"Expiration date"
  • Line Location: LRBLJD1+12
Function Call: WRITE
  • Prompt: !,$J(A,2),?3,$P(LRP(A),"^",2),?20,$P(LRP(A),"^",3),?30
  • Line Location: LRBLJD1+13
Function Call: WRITE
  • Prompt: Y
  • Line Location: LRBLJD1+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: ID+0
Function Call: WRITE
  • Prompt: !,$C(7),"UNITS selected were NOT pooled !",!
  • Line Location: ID+0
Function Call: WRITE
  • Prompt: !!,$C(7),$S($D(^DD(65,.01,3)):^(3),1:""),!
  • Line Location: ID+5
Function Call: WRITE
  • Prompt: !,$C(7),"SORRY THAT ALREADY EXISTS",!
  • Line Location: ID+6
Function Call: WRITE
  • Prompt: !
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,"Cannot pool this unit"
  • Line Location: C+3
Function Call: WRITE
  • Prompt: !,$J(A,2),") ",$P(Y,U),?30,$P(Y,U,2)
  • Line Location: S+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: S+2
Function Call: WRITE
  • Prompt: $C(7),!,"Select a number from 1 to ",A
  • Line Location: S+2

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