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

Package: Lab Service

Routine: LRBLDRR


Information

LRBLDRR ;AVAMC/REG/CYM - REVIEW/RELEASE COMPONENTS ;1/24/97 11:04 ;

Source Information

Source file <LRBLDRR.m>

Entry Points

Name Comments DBIA/ICR reference
P
S
REST
SUPER
ASK
E
W

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,"Review-label-release components",!!?20,LRAA(4),!
  • Line Location: LRBLDRR+6
Function Call: WRITE
  • Prompt: !!?15,"STANDARD UNIT ID LABELING "
  • Line Location: LRBLDRR+6
Function Call: READ
  • Formatting: !!
  • Prompt: "Select UNIT FOR LABEL/RELEASE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: P+0
Function Call: WRITE
  • Prompt: !
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,$C(7),"Someone else is editing this entry! "
  • Line Location: P+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: REST+7
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: REST+7
Function Call: WRITE
  • Prompt: $S(LRQ("S")="A":"AUTOLOGOUS ",LRQ("S")="D":"DIRECTED ",1:" ")
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: "For: "
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: "For: "
  • Line Location: REST+8
Function Call: WRITE
  • Prompt: ?53,"Unit: ",LRG
  • Line Location: REST+9
Function Call: WRITE
  • Prompt: !,"Unit testing:",?70,"Tech"
  • Line Location: REST+10
Function Call: WRITE
  • Prompt: $C(7),!,"Must perform ABO/Rh testing !!",!
  • Line Location: REST+12
Function Call: WRITE
  • Prompt: $C(7),!,"Donor ABO (",LRQ(5),") is different from unit ABO (",LRJ(10),"). Resolve discrepancy."
  • Line Location: REST+14
Function Call: WRITE
  • Prompt: $C(7),!,"Donor Rh (",LRQ(6),") is different from unit Rh (",$E(LRJ(11),1,3),"). Resolve discrepancy."
  • Line Location: REST+15
Function Call: WRITE
  • Prompt: $C(7),!!,"No components prepared !",!
  • Line Location: REST+19
Function Call: WRITE
  • Prompt: !!,"Donation: ",LRJ(1),?36,"Collection completed: ",Y,!?5,"Component",?36,"Date/time stored",?58,"Expiration date"
  • Line Location: REST+20
Function Call: WRITE
  • Prompt: !,$J(A,2),".",?5,$P(F(A),U,4),?27,$S(L=2:"Discard",L=1:"Quarant",$P(F(A),U,3)]"":"released",$P(F(A),U,2)]"":"labeled",1:""),?36,$P(F(A),U,5),?58,$P(F(A),U,6)
  • Line Location: REST+21
Function Call: WRITE
  • Prompt: $C(7),!!,LRN(6.1),": ",LRJ(6.1)
  • Line Location: REST+22
Function Call: WRITE
  • Prompt: !!,"If you continue with label/release of ",LRG," a message will be",!,"sent to all users holding the blood bank supervisor's key.",!,"Do you want to continue with label/release of ",LRG
  • Line Location: SUPER+0
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?5,LRN(A),?36,": ",LRJ(A),?70,$S(LRE(A)="":"",$D(^VA(200,LRE(A),0)):$P(^(0),"^",2),1:LRE(A))
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !?5,LRN(A),?36,": ",LRJ(A),?70,$S(LRE(A)="":"",$D(^VA(200,LRE(A),0)):$P(^(0),"^",2),1:LRE(A))
  • Line Location: W+0

FileMan Files Accessed Via FileMan Db Call

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