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

Package: Lab Service

Routine: LRGEN1


Information

LRGEN1 ;SLC/RWF-GENERAL DATA DISPLAY ;2/19/91 10:35

Source Information

Source file <LRGEN1.m>

Entry Points

Name Comments DBIA/ICR reference
DQ ;dequeued from LRGEN
WRTLN
AEDT(LRD,LRS,LRI,LRE,LRT) ;return Actual End DaTe
NX
NSET
LRPR
HEAD
HD1
LAST
BOT ;D KEYCOM^LRX:$E(IOST,1,2)'="C-"
B1
B2 ;Return to menu

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTLN+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: WRTLN+0
Function Call: WRITE
  • Prompt: !,LRFOOT," ",LRDAT
  • Line Location: LRPR+8
Function Call: WRITE
  • Prompt: !,?13,LRSAMP,?20
  • Line Location: LRPR+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,"WORK COPY: ",PNM," ",SSN," Age:",AGE," ",?50,"Prt Date:",LRPDT
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(LRPRTF_" Pg:"_LRPAGE,LRIOM)
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: ?20,LRHDR(LRSC)
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,$S($D(LRTHER):" Ther.",1:" Ref")," Range",?17,LRHDR(LRSC,2)
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,?13,"SPEC",?20,LRHDR(LRSC,1)
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,LREQUAL
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("[ *** End Of Report *** ]",LRIOM),!
  • Line Location: LAST+0
Function Call: WRITE
  • Prompt: !,LREQUAL
  • Line Location: BOT+2
Function Call: WRITE
  • Prompt: !!," ------------------------------ COMMENTS ------------------------------"
  • Line Location: BOT+3
Function Call: WRITE
  • Prompt: !," Key: 'L' = reference Low, 'H' = reference Hi, '*' = critical range"
  • Line Location: BOT+4
Function Call: WRITE
  • Prompt: !,LRDASH
  • Line Location: BOT+6
Function Call: WRITE
  • Prompt: !,$C(II+64)
  • Line Location: BOT+9
Function Call: WRITE
  • Prompt: ?5,^(J,0)
  • Line Location: BOT+10
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $O(^LR(LRDFN,LRSUB,LRIDT1,1,J))
  • Line Location: BOT+10
Function Call: WRITE
  • Prompt: !,"WORK COPY - DO NOT FILE ",PNM,?60,SSN
  • Line Location: B1+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: B1+1
Function Call: WRITE
  • Prompt: !?20," PRESS '^' TO STOP REPORT "
  • Line Location: B1+1
Function Call: WRITE
  • Prompt: !?20," PRESS 'Enter' TO RETURN TO THE MENU "
  • Line Location: B2+1
Info |  Source |  Entry Points |  Interaction Calls