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

Package: Lab Service

Routine: LRBLPT


Information

LRBLPT ;AVAMC/REG - TRANSFUSION RESULTS ;9/7/95 08:59 ;

Source Information

Source file <LRBLPT.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
R
T
SEL
N
ALL
M
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?28,"Enter transfusion results"
  • Line Location: LRBLPT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No units currently assigned/xmatched.",!
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !
  • Line Location: R+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !,"You may select a specialty not in the treating specialty file."
  • Line Location: T+1
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: T+2
Function Call: WRITE
  • Prompt: ^(3)
  • Condition for execution: $D(^(3))
  • Line Location: T+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Select units (1-",LRZ,") to enter TRANSFUSION results: "
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !,"Enter numbers from 1 to ",LRZ,!,"For 2 or more selections separate each with a ',' (ex. 1,3,4)",!,"Enter 'ALL' for all units."
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: $C(7),!,"No CONTROL CHARACTERS, LETTERS or more than 200 characters allowed."
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: $C(7),!,"START with a NUMBER !!",!
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: N+4
Function Call: WRITE
  • Prompt: $J(LRZ,2),") "
  • Condition for execution: $D(LRG)
  • Line Location: N+4
Function Call: WRITE
  • Prompt: $P(X,"^"),?17,$E(M,1,22),?40,$J($P(X,"^",7),2),?43,$P(X,"^",8),?48
  • Line Location: N+5
Function Call: WRITE
  • Prompt: Y,?64,F
  • Line Location: N+5
Function Call: READ
  • Formatting: !
  • Prompt: "Press RETURN"
  • Variable: X
  • Timeout: DTIME
  • Line Location: M+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: M+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^DIC(45.7 - [#45.7] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call