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

Package: Lab Service

Routine: LRUPACT


Information

LRUPACT ;AVAMC/REG - LAB ACC COUNTS BY TREATING SPECIALTY ;9/30/93 11:57 ;

Source Information

Source file <LRUPACT.m>

Entry Points

Name Comments DBIA/ICR reference
DEV
QUE
OUT
F
T
ACY
AC1
ACD
H
H1
H2
H4
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,LRAA(1)," ACCESSION COUNTS BY TREATING SPECIALTY"
  • Line Location: LRUPACT+3
Function Call: WRITE
  • Prompt: !,T(6),?30,$J(^TMP($J,"B",S),5)
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !?30,"-----",!,"Total Accessions: ",?30,$J(Q(2),5),?41,"Total tests: ",?70,$J(LRT,9)
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !,N
  • Line Location: QUE+6
Function Call: WRITE
  • Prompt: !?30,M,?55,$J(Z,9)
  • Line Location: F+0
Function Call: WRITE
  • Prompt: ?70,$J(V,9)
  • Line Location: F+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: F+1
Function Call: WRITE
  • Prompt: !?41,N,?70,$J(T(1),9)
  • Line Location: T+0
Function Call: WRITE
  • Prompt: !?70,"---------",!?25,"Sub-total for ",T(6),":",?70,$J(T(5),9),!,LR("%")
  • Line Location: T+1
Function Call: WRITE
  • Prompt: !,"LABORATORY SERVICE ",LRAA(1)," COUNTS(",LRSTR,"-",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Specialty",?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,"Specialty",?55,"Test count",?70,"Cum count",!,LR("%")
  • Line Location: H4+0
Info |  Source |  Entry Points |  Interaction Calls