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

Package: Lab Service

Routine: LRBLPED


Information

LRBLPED ;AVAMC/REG/CRT - PEDIATRIC UNIT PREPARATION ;7/30/95 15:36 ; 12/18/00 2:19pm

Source Information

Source file <LRBLPED.m>

Entry Points

Name Comments DBIA/ICR reference
P
U
ALL
H
I
D
OK
MORE
C
F
END
SCRN() ; Screen for BLOOD PRODUCT file (#66)
LRP(DA) ; Find & return Product Code to be used for next child

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?15,"Division: ",LRAA(4)
  • Line Location: LRBLPED+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: P+0
Function Call: WRITE
  • Prompt: $C(7)," SPACE BAR not allowed."
  • Line Location: P+0
Function Call: WRITE
  • Prompt: $$STRIP^LRBLB(.X)
  • Line Location: P+3
Function Call: WRITE
  • Prompt: $C(7),!,"Code not entered in BLOOD PRODUCT file or not product label.",!
  • Line Location: P+4
Function Call: WRITE
  • Prompt: $C(7),!,"Either not an entry in BLOOD COMPONENT FILE (#66) or",!,"Must enter MAX AGE FOR PEDIATRIC USE field for the entry in file 66."
  • Line Location: P+5
Function Call: WRITE
  • Prompt: $C(7),!,$P(^DD(66,.22,0),U)," must be entered for this component",!,"and pediatric product selection must be an entry in the Blood Product file."
  • Line Location: P+6
Function Call: WRITE
  • Prompt: $C(7),!,$P(^DD(66,.23,0),U)," must be entered for this component"
  • Line Location: P+7
Function Call: WRITE
  • Prompt: $C(7),!!,"Must have WKLD codes entered in Blood Product file for ",$P(^LAB(66,LRO,0),U)
  • Line Location: P+9
Function Call: WRITE
  • Prompt: $C(7),!!,"Volume of component must be entered in BLOOD COMPONENT file",!?20,"for ",$P(Y,U,2),"."
  • Line Location: P+11
Function Call: WRITE
  • Prompt: $$STRIP^LRBLB(.X)
  • Line Location: U+3
Function Call: WRITE
  • Prompt: !?3
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: !?3
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: $C(7),!!,"No units to choose from !",!
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !?3
  • Line Location: H+2
Function Call: WRITE
  • Prompt: $J(Z,2)
  • Condition for execution: $D(Z(1))
  • Line Location: I+5
Function Call: WRITE
  • Prompt: ?7,$P(LRF,"^",2),?20,$J($P(LRF,"^",8),2)," ",$P(LRF,"^",9)
  • Line Location: I+5
Function Call: WRITE
  • Prompt: ?28,Y
  • Line Location: I+5
Function Call: WRITE
  • Prompt: $J($S(LRB=0:"<1",1:LRB),4)," ",$S(LRB>1:"DAYS",1:"DAY ")," OLD ",$J($P(LRF,"^",12),3)
  • Line Location: I+6
Function Call: WRITE
  • Prompt: " ? "
  • Condition for execution: '$P(LRF,"^",12)&($P(LRF,"^",12)'=0)
  • Line Location: I+6
Function Call: WRITE
  • Prompt: " ml"
  • Line Location: I+6
Function Call: WRITE
  • Prompt: !?3
  • Line Location: I+7
Function Call: READ
  • Prompt: "'^' TO STOP: "
  • Variable: A(2)
  • Timeout: DTIME
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13),?3
  • Line Location: MORE+1
Function Call: READ
  • Prompt: ": "
  • Variable: A(2)
  • Timeout: DTIME
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !?3
  • Line Location: C+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRD(65 - [#65] GET1^DIQ
^LAB(66 - [#66] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call