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

Package: Lab Service

Routine: LRBLPED1


Information

LRBLPED1 ;AVAMC/REG/CRT - PEDIATRIC UNIT PREPARATION ;2/6/91 09:18 ; 11/28/00 10:31am

Source Information

Source file <LRBLPED1.m>

Entry Points

Name Comments DBIA/ICR reference
VOL
A
PREP
DATE
CK
W
V

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,$P(LRF,"^",2)," Cannot use this unit. Volume=0",!,"Please enter DISGARD in disposition field."
  • Line Location: LRBLPED1+3
Function Call: WRITE
  • Prompt: !!,$P(LRF,"^",2),?20,$J($P(LRF,"^",8),2)," ",$P(LRF,"^",9)
  • Line Location: VOL+2
Function Call: WRITE
  • Prompt: ?28,Y," Vol(ml): ",LRV(2)," Wt(gm): ",LRG
  • Line Location: VOL+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!!,"To change the weight enter an 'E' or to change the volume enter a 'V'",!,"Press 'RETURN' or 'ENTER' key to accept default volume.",!
  • Line Location: A+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter volume(ml) for pediatric unit: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: PREP+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Volume must be whole number from 1 to ",$S(X>LRV(2):LRV(2),1:LRV(.4))
  • Line Location: PREP+1
Function Call: WRITE
  • Prompt: $C(7),"Sorry, the limit is 26 pediatric units from ",$P(LRF,"^",2),"."
  • Line Location: PREP+6
Function Call: WRITE
  • Prompt: !!,LRI," ",LRABO," ",LRRH," vol(ml):",LRV(1)
  • Line Location: PREP+7
Function Call: WRITE
  • Prompt: $C(7),!?3,"Cannot exceed expiration date of selected unit."
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: $C(7),!?3,"Exceeds allowable expiration date"
  • Line Location: DATE+1
Function Call: READ
  • Formatting: !
  • Prompt: "Enter corrected weight in grams: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: W+0
Function Call: WRITE
  • Prompt: R
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,$C(7),"Enter a whole number from 1 to 500"
  • Line Location: W+0
Function Call: READ
  • Formatting: !
  • Prompt: "Enter corrected volume in ml: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: V+0
Function Call: WRITE
  • Prompt: !,$C(7),"Enter a whole number from 1 to 500"
  • Line Location: V+0
Info |  Source |  Entry Points |  Interaction Calls