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

Package: Lab Service

Routine: LRBLDMV


Information

LRBLDMV ;AVAMC/REG - MOVE BLOOD DONATION ;12/19/94 11:53 ;

Source Information

Source file <LRBLDMV.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
REST
F
E
A
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?17,"Move a donation from one donor to another",!
  • Line Location: LRBLDMV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No donation date."
  • Line Location: REST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: " UNIT ID: ",LRU
  • Line Location: REST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: REST+5
Function Call: WRITE
  • Prompt: $C(7),!!,"Donation date ",LRD(1)," exists for ",LRT(1)
  • Line Location: REST+5
Function Call: WRITE
  • Prompt: !,"ABO GROUP: ",LRABO," Rh TYPE: ",LRRH
  • Line Location: A+0
Function Call: WRITE
  • Prompt: ?30,"File Number: ",LR,?50,"SSN: ",$P(Y(0),U,13),!,$P(X,U)," ",$P(X,U,2)," ",$P(X,U,3),!,$P(X,U,4)," ",$P($G(^DIC(5,+$P(X,U,5),0)),U)," ",$P(X,U,6)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: $C(7),!!," PERMANENT DEFERRAL "
  • Line Location: A+2
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: A+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRE - [#65.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call