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

Package: Lab Service

Routine: LRBLDPA1


Information

LRBLDPA1 ;AVAMC/REG/CYM - BLOOD DONOR PRINT ;7/5/96 20:57 ;

Source Information

Source file <LRBLDPA1.m>

Entry Points

Name Comments DBIA/ICR reference
W
G
V
M
H
H1
S

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LRBLDPA1+7
Function Call: WRITE
  • Prompt: "PERMANENT DEFERRAL: ",Y
  • Condition for execution: X]""
  • Line Location: LRBLDPA1+7
Function Call: WRITE
  • Prompt: ?29,"DEFERRAL ENTER/EDIT: ",X
  • Condition for execution: X]""
  • Line Location: LRBLDPA1+7
Function Call: WRITE
  • Prompt: !,"PERMANENT DEFERRAL DATE CHANGE: ",Y
  • Line Location: LRBLDPA1+8
Function Call: WRITE
  • Prompt: !!,"SCHEDULING/RECALL: "
  • Line Location: LRBLDPA1+12
Function Call: WRITE
  • Prompt: !?19
  • Line Location: LRBLDPA1+12
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>1
  • Line Location: LRBLDPA1+14
Function Call: WRITE
  • Prompt: ?19,F(E)
  • Line Location: LRBLDPA1+14
Function Call: WRITE
  • Prompt: !!?3,"APHERESIS: ",Y,?28,"CUMULATIVE DONATIONS: ",$P(LRX,U,7)
  • Line Location: LRBLDPA1+15
Function Call: WRITE
  • Prompt: !,"TOTAL AWARDS: ",$P(LRX,U,8),?34,"GIVE NEW AWARD: "
  • Line Location: LRBLDPA1+16
Function Call: WRITE
  • Prompt: Y
  • Line Location: LRBLDPA1+16
Function Call: WRITE
  • Prompt: !?2,"DEMOG EDIT: ",X
  • Line Location: LRBLDPA1+17
Function Call: WRITE
  • Prompt: ?45,"DATE REG/EDITED: ",Y
  • Line Location: LRBLDPA1+17
Function Call: WRITE
  • Prompt: !!?3,"ADDRESS: ",$P(X,U)," ",$P(X,U,2)
  • Line Location: LRBLDPA1+18
Function Call: WRITE
  • Prompt: !?12,Y
  • Condition for execution: Y]""
  • Line Location: LRBLDPA1+18
Function Call: WRITE
  • Prompt: !?12,$P(X,U,4),", "
  • Line Location: LRBLDPA1+18
Function Call: WRITE
  • Prompt: !?12,$P(X,U,4),", "
  • Line Location: LRBLDPA1+18
Function Call: WRITE
  • Prompt: !,"HOME PHONE: ",$P(X,U,7),?38,"WORK PHONE: ",$P(X,U,8)
  • Line Location: LRBLDPA1+19
Function Call: WRITE
  • Prompt: D:LRN=1
  • Line Location: LRBLDPA1+20
Function Call: WRITE
  • Prompt: Q:LR("Q")
  • Line Location: LRBLDPA1+21
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !!,NAME,": ",Y
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?40,"DONATION CODE: ",Y
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"COLLECTION SITE: ",X
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"COLLECTION SITE: ",X
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"ARRIVAL/APPT TIME: ",Y,?40,"ENTER/EDIT: "
  • Line Location: W+2
Function Call: WRITE
  • Prompt: X
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !,NAME,": ",Y
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,NAME,": ",Y
  • Line Location: W+4
Function Call: WRITE
  • Prompt: !,NAME,": ",$P(X,U)," ",$P(X,U,9)
  • Line Location: W+5
Function Call: WRITE
  • Prompt: ?40,"DONOR REACTION: ",X
  • Line Location: W+6
Function Call: WRITE
  • Prompt: !,"UNIT ID: ",$P(LRX,U,4)
  • Condition for execution: $P(LRX,U,4)]""
  • Line Location: W+8
Function Call: WRITE
  • Prompt: ?40,"PRIMARY BAG: "
  • Line Location: W+8
Function Call: WRITE
  • Prompt: Y
  • Line Location: W+8
Function Call: WRITE
  • Prompt: !,"ANTICOAGULANT: ",Y,?40,"BAG LOT #: ",$P(LRZ,U,10)
  • Line Location: W+9
Function Call: WRITE
  • Prompt: !," BLOOD DONOR: ",PNM,?45,"DOB: ",LRDOB,!?9,"SEX: ",SEX,?42,"ABO/RH: ",LRABO," ",LRRH,!
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,"GROUP AFFILIATION:"
  • Line Location: H1+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.54 FIELD^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call