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

Package: Lab Service

Routine: LRUPS


Information

LRUPS ;AVAMC/REG/WTY - PATIENT SPEC LOOK-UP ;3/20/01

Source Information

Source file <LRUPS.m>

Entry Points

Name Comments DBIA/ICR reference
GETP
I
EN
ACC
OK
GOT
L
WT
SP
CY
AU
EN1 ;from LRAPMOD, LRSPRPT, LRSPT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETP+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No data for ",PNM
  • Line Location: EN+0
Function Call: WRITE
  • Prompt: !!,"Count #",?10,"Accession #",?29,"Date",?45,"Site/specimen"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Specimen(s)",?30,"Count #",?40,"Accession #",?55,"Date Obtained"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"No specimens entered for "_LRH(0)
  • Line Location: EN+13
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ACC+0
Function Call: WRITE
  • Prompt: !?11,"Choose Count #(1-",C,"): "
  • Line Location: ACC+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Enter numbers only",!!
  • Line Location: ACC+1
Function Call: WRITE
  • Prompt: " Doesn't exist for ",PNM
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!," Accession #: ",LRAC
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,"More accessions "
  • Line Location: WT+0
Function Call: WRITE
  • Prompt: " not verified"
  • Line Location: SP+0
Function Call: WRITE
  • Prompt: !?2,"(",$J(C,2),")",?10,LRAC,?25,Y
  • Line Location: CY+0
Function Call: WRITE
  • Prompt: ?45,$S($D(^LAB(61,LRST,0)):$E($P(^(0),U),1,34),1:"")
  • Condition for execution: LRST
  • Line Location: CY+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No autopsy entry for ",LRP,!!
  • Line Location: AU+1
Function Call: WRITE
  • Prompt: $C(7),!!,"No autopsy accession"
  • Line Location: AU+3
Function Call: WRITE
  • Prompt: $C(7),!!,"No autopsy # for ",LRP
  • Line Location: AU+8
Function Call: WRITE
  • Prompt: !,"Autopsy performed: ",Y," Acc # ",LRAC
  • Line Location: AU+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+1
Info |  Source |  Entry Points |  Interaction Calls