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

Package: Lab Service

Routine: LRBLDR


Information

LRBLDR ;AVAMC/REG/CYM - DONOR REGISTRATION FORM 6/28/96 12:53 ;

Source Information

Source file <LRBLDR.m>

Entry Points

Name Comments DBIA/ICR reference
DNR
QUE
PRT
C
H
H1
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"ENTER ""BLOOD BANK"" IN ACCESSION AREA FILE",!!
  • Line Location: LRBLDR+3
Function Call: WRITE
  • Prompt: $C(7),!!,"ENTER ""DNRHX"" (BLOOD DONOR HISTORY QUESTIONS) IN BLOOD BANK UTILITY FILE",!!
  • Line Location: LRBLDR+4
Function Call: WRITE
  • Prompt: !!?20,"Donor registration forms",!!
  • Line Location: LRBLDR+6
Function Call: WRITE
  • Prompt: !!,"Add all donors from a GROUP AFFILIATION: "
  • Line Location: LRBLDR+8
Function Call: WRITE
  • Prompt: $C(7),!!,"No list for printing donor registration forms !",!!
  • Line Location: DNR+1
Function Call: WRITE
  • Prompt: !!,"DONOR HISTORY"
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !!,"Date ..................at .....(time)",?40
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !?50,"(Donor)",!!?40
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: "."
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !?50,"(Witness)"
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !,"DONOR REGISTRATION",?60,"Date: ",T,!,"Collection site: ",S,!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,N,?31,"Sex: ",SEX,?38,"DOB: ",DOB
  • Line Location: H+2
Function Call: WRITE
  • Prompt: ?60,"ABO: ",E," Rh: ",F
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"SSN: ",SSN
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,A(1)," ",A(2)," ",A(3),!,A(4),", ",Z(5)," ",A(6),!,"Home phone: ",A(7)," Business phone: ",A(8)
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !?4,$S($D(^LAB(65.4,Y,0)):$P(^(0),"^",3),1:"")
  • Line Location: H+5
Function Call: WRITE
  • Prompt: ")"
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !!,"Donor History (continued from pg ",LRQ-1,")"
  • Line Location: H1+0

FileMan Files Accessed Via FileMan Db Call

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