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

Package: Lab Service

Routine: LRBLPUS2


Information

LRBLPUS2 ;AVAMC/REG/CYM - PATIENT UNIT SELECTION ;08/20/2001 4:45 PM

Source Information

Source file <LRBLPUS2.m>

Entry Points

Name Comments DBIA/ICR reference
T
ORD
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(F,"^",2)," EXPIRE"
  • Line Location: LRBLPUS2+9
Function Call: WRITE
  • Prompt: "S IN ",L,$S(L>1:" DAYS",1:" DAY")
  • Condition for execution: L>0
  • Line Location: LRBLPUS2+9
Function Call: WRITE
  • Prompt: "S TODAY"
  • Condition for execution: 'L&'(O(2))
  • Line Location: LRBLPUS2+9
Function Call: WRITE
  • Prompt: $C(7),"D ",-1*L,$S(L=-1:" DAY",1:" DAYS")," AGO !",!
  • Line Location: LRBLPUS2+9
Function Call: WRITE
  • Prompt: !,"Assigned/xmatched to ",$P(N,U,1)," ",$P(N,U,9)
  • Line Location: LRBLPUS2+12
Function Call: WRITE
  • Prompt: !!,"UNIT OK for ",LRP," ",SSN," "
  • Line Location: LRBLPUS2+13
Function Call: WRITE
  • Prompt: !
  • Line Location: T+0
Function Call: WRITE
  • Prompt: L," DAY",$S(L=1:" ",1:"S ")
  • Condition for execution: L>0
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !,$C(7),"UNIT EXPIRED ",-1*L,$S(-1*L:" DAY(S) ",1:" "),H," HOUR(S) ",M," MINUTE(S) AGO"
  • Line Location: T+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