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
Print Page as PDF
Routine: LRUPA

Package: Lab Service

Routine: LRUPA


Information

LRUPA ;AVAMC/REG/WTY - LAB ACCESSION LIST:DATE & TEST ;9/25/00

Source Information

Source file <LRUPA.m>

Entry Points

Name Comments DBIA/ICR reference
A
N1
N2
QUE
H ;from LRUPA1
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRO(68)," ACCESSION LIST"
  • Line Location: LRUPA+7
Function Call: WRITE
  • Prompt: !!,"Accession list date: ",Z(1)," OK "
  • Line Location: LRUPA+9
Function Call: WRITE
  • Prompt: !
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No accession numbers for ",Z(1)
  • Line Location: A+2
Function Call: READ
  • Formatting: !
  • Prompt: "Start with Acc #: FIRST // "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: N1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter NUMBERS only"
  • Line Location: N1+0
Function Call: READ
  • Formatting: !
  • Prompt: "Start with Acc #: "
  • Variable: N(1)
  • Timeout: DTIME
  • Line Location: N1+1
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!"
  • Line Location: N1+1
Function Call: READ
  • Formatting: !
  • Prompt: "Go to Acc #: LAST // "
  • Variable: N(2)
  • Timeout: DTIME
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NUMBERS ONLY !!",!!
  • Line Location: N2+0
Function Call: WRITE
  • Prompt: !!,"LIST BY PATIENT "
  • Line Location: N2+1
Function Call: WRITE
  • Prompt: !!,"LIST BY COLLECTION SAMPLE "
  • Line Location: N2+2
Function Call: WRITE
  • Prompt: !?72,"-----",!,"Cell block (b) count: ",Q(1),?58,"Slide count:",?72,$J(Q(2),5)
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !,LRO(68)," ACCESSIONS for ",Z(1),!
  • Line Location: H+2
Function Call: WRITE
  • Prompt: "Collection Sample: ",C,!
  • Condition for execution: $D(C)#2
  • Line Location: H+2
Function Call: WRITE
  • Prompt: "# = Not VA patient "
  • Line Location: H+3
Function Call: WRITE
  • Prompt: "* = Reviewed by pathologist"
  • Condition for execution: LRSS="CY"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?30,"*=STAT"
  • Condition for execution: LRSS="CH"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?55,$S("SPCYEMAU"[LRSS:"% =Incomplete",1:"")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: ?55,$S("SPCYEMAU"[LRSS:"% =Incomplete",1:"")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"Acc num",?12,$S(LRSS="MI":"Patient/Source",1:"Patient"),?28,"ID",?34,"Loc"
  • Line Location: H+4
Function Call: WRITE
  • Prompt: ?48,"Organ/tissue",!,LR("%")
  • Line Location: H+4
Function Call: WRITE
  • Prompt: "Specimen date"
  • Condition for execution: LRSS="BB"
  • Line Location: H+5
Function Call: WRITE
  • Prompt: ?72,"Count"
  • Line Location: H+5
Function Call: WRITE
  • Prompt: ?64,"Test",?76,"Tech",!,LR("%")
  • Line Location: H+6
Function Call: WRITE
  • Prompt: ?42,"Date/time of Autopsy"
  • Condition for execution: LRSS="AU"
  • Line Location: H+7
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+7
Info |  Source |  Entry Points |  Interaction Calls