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

Package: Lab Service

Routine: LRAPAULC


Information

LRAPAULC ;AVAMC/REG - ACCESSION COUNTS BY PATHOLOGIST ;8/14/95 08:12

Source Information

Source file <LRAPAULC.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
L
W
SP
WR
C
D
U
H
H1
T
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?30
  • Line Location: D+0
Function Call: WRITE
  • Prompt: !,$S($D(^VA(200,LRP,0)):$P(^(0),U),1:LRP)," :",?32,$J(LR(LRSS,LRP),5)
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !,"Unassigned accessions :",?32,$J(LR(LRSS,0),5)
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !?3,LRD,?30,"Accession #: ",LRC
  • Line Location: D+4
Function Call: WRITE
  • Prompt: !,"Accession counts by Senior Pathologist",!,"From: ",LRSTR," to:",LRLST,!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?30
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: $S(LRSS="SP":"SURGICAL PATHOLOGY",LRSS="CY":"CYTOPATHOLOGY",LRSS="EM":"ELECTRON MICROSCOPY",1:"AUTOPSY PATHOLOGY")," ACCESSION AREAS"
  • Line Location: T+0
Info |  Source |  Entry Points |  Interaction Calls