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

Package: Lab Service

Routine: LRUPAC


Information

LRUPAC ;AVAMC/REG - LAB ACCESSION COUNTS BY DATE ;2/18/93 13:08 ;

Source Information

Source file <LRUPAC.m>

Entry Points

Name Comments DBIA/ICR reference
DEV
QUE
OUT
Z
AC1
H
AN
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,W(1)," ACCESSION COUNTS"
  • Line Location: LRUPAC+3
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(60,T,0),"^"),"= ",S(S,T)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !?5,$P(^LAB(60,T,0),"^"),"= ",T(T)
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE ",?21,W(1)," COUNTS(",LRSTR,"-",LRLST,")",!,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,"Number of accessions: "
  • Line Location: AN+0
Function Call: WRITE
  • Prompt: $S($D(S(LRU)):S(LRU),1:0)
  • Line Location: AN+0
Info |  Source |  Entry Points |  Interaction Calls