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

Package: Lab Service

Routine: LRUPACA


Information

LRUPACA ;AVAMC/REG - LAB ACC COUNTS BY LOC ;2/18/93 13:09 ;

Source Information

Source file <LRUPACA.m>

Entry Points

Name Comments DBIA/ICR reference
DEV
QUE
OUT
T
B
ACY
ACY1
AC1
ACD
H
H1
H2
H3
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20,LRAA(1)," ACCESSION COUNTS"
  • Line Location: LRUPACA+12
Function Call: WRITE
  • Prompt: !,S,?30,$J(^TMP($J,"B",S),5)
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !?30,"-----",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(T(2),9)
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T)
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?41,$S($D(^LAB(60,T,0)):$P(^(0),"^"),1:T),?70,$J(T(1),9)
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !?30,S,?55,$J(Z,9)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: ?70,$J(V,9)
  • Line Location: B+0
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE ",LRAA(1)," COUNTS (",LRSTR,"-",LRLST,")",!,"INCLUSIVE DATES/TIMES WITH DATA: ",LRINCA
  • Line Location: H+3
Function Call: WRITE
  • Prompt: " TO ",LRINCB
  • Condition for execution: LRINCB]""
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,"Location",?26,"# Accessions",?69,"Test count",!,LR("%")
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,S
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,"Test",?35,"Location",?55,"Test count",?70,"Cum count",!,LR("%")
  • Line Location: H3+0
Info |  Source |  Entry Points |  Interaction Calls