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

Package: Lab Service

Routine: LRBLDEX1


Information

LRBLDEX1 ;AVAMC/REG/CYM - EX-BLOOD DONORS ;7/3/96 20:44 ;

Source Information

Source file <LRBLDEX1.m>

Entry Points

Name Comments DBIA/ICR reference
OUT
T
L
EN1 ;also from LRBLDEX2
HDR
H
EN ;from LRBLDEX2
H2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,A,?15,^TMP("LRBL",$J,A)
  • Line Location: LRBLDEX1+4
Function Call: WRITE
  • Prompt: D
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,LRP," (Donor #: ",LRI,")",?40,Y,?49,$P(W,"^",2),?52,$J($P(W,"^",5),2),?55,$P(W,"^",6),?62,$S($P(W,"^",4)=1:"YES",1:"NO"),?73,$S($P(W,"^",10):"YES",1:"NO")
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,"Reg/edited: "
  • Line Location: L+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: L+1
Function Call: WRITE
  • Prompt: " cum donations: ",$P(W,"^",7)
  • Condition for execution: $P(W,"^",7)
  • Line Location: L+1
Function Call: WRITE
  • Prompt: " total awards: ",$P(W,"^",8)
  • Condition for execution: $P(W,"^",8)
  • Line Location: L+1
Function Call: WRITE
  • Prompt: " demog ent/edit by:"
  • Condition for execution: $P(W,"^",9)
  • Line Location: L+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: L+1
Function Call: WRITE
  • Prompt: I
  • Line Location: L+2
Function Call: WRITE
  • Prompt: W
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !,$P(W,"^")," ",$P(W,"^",2)," ",$P(W,"^",3)," ",$P(W,"^",4)," "
  • Line Location: L+2
Function Call: WRITE
  • Prompt: !,$P(W,"^")," ",$P(W,"^",2)," ",$P(W,"^",3)," ",$P(W,"^",4)," "
  • Line Location: L+2
Function Call: WRITE
  • Prompt: " ",W(6)
  • Condition for execution: W(6)
  • Line Location: L+2
Function Call: WRITE
  • Prompt: F
  • Line Location: L+4
Function Call: WRITE
  • Prompt: Q:'W!(LR("Q")) S W(1)=$P(^(W,0),"^",2) W:'B
  • Line Location: L+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+31)
  • Line Location: L+4
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^")
  • Line Location: L+4
Function Call: WRITE
  • Prompt: "(",W(1),")"
  • Condition for execution: W(1)]""
  • Line Location: L+4
Function Call: WRITE
  • Prompt: F
  • Line Location: L+5
Function Call: WRITE
  • Prompt: Q:'W S W(1)=$P(^(W,0),"^",2) W:'B
  • Line Location: L+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+31)
  • Line Location: L+5
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^")
  • Line Location: L+5
Function Call: WRITE
  • Prompt: "(",W(1),")"
  • Condition for execution: W(1)]""
  • Line Location: L+5
Function Call: WRITE
  • Prompt: F
  • Line Location: L+6
Function Call: WRITE
  • Prompt: Q:'W S W(1)=$P(^(W,0),"^",2) W:'B
  • Line Location: L+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+31)
  • Line Location: L+6
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^")
  • Line Location: L+6
Function Call: WRITE
  • Prompt: "(",W(1),")"
  • Condition for execution: W(1)]""
  • Line Location: L+6
Function Call: WRITE
  • Prompt: F
  • Line Location: L+7
Function Call: WRITE
  • Prompt: Q:'W S W(1)=$P(^(W,0),"^",2) W:'B
  • Line Location: L+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+31)
  • Line Location: L+7
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^")
  • Line Location: L+7
Function Call: WRITE
  • Prompt: "(",W(1),")"
  • Condition for execution: W(1)]""
  • Line Location: L+7
Function Call: WRITE
  • Prompt: F
  • Line Location: L+8
Function Call: WRITE
  • Prompt: Q:'W W:'B
  • Line Location: L+8
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+31)
  • Line Location: L+8
Function Call: WRITE
  • Prompt: " ",$P(^(0),"^")
  • Line Location: L+8
Function Call: WRITE
  • Prompt: F
  • Line Location: L+9
Function Call: WRITE
  • Prompt: Q:'W S X=^(W,0) W:'B
  • Line Location: L+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: IOM<($X+10)
  • Line Location: L+9
Function Call: WRITE
  • Prompt: " ",$$EXTERNAL^DILFD(65.53,.01,"",X)
  • Line Location: L+9
Function Call: WRITE
  • Prompt: !,LRAA(1)," NO DONATIONS SINCE ",LRSTR
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?10,"Donor (Reg #)",?42,"DOB",?48,"SEX",?52,"ABO/Rh",?59,"APHERESIS",?69,"PERM DEFER",!,LR("%")
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !,LRP," (Donor #: ",LRI,") <continued from page ",LRQ-1,">"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"Donor ID",?15,"DONOR NAME",!,LR("%")
  • Line Location: H2+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
65.53 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call