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

Package: Lab Service

Routine: LRUMD


Information

LRUMD ;AVAMC/REG/CYM - MD SELECTED LAB RESULTS ;2/19/98 09:13 ;

Source Information

Source file <LRUMD.m>

Entry Points

Name Comments DBIA/ICR reference
MI
A
DT
QUE
P
I
W
H
H1
L ;from LRUMDU
EN
END
EN2
GRP() ; function to determine if patient is in selected patient group list when printing by test list
; returns 1 if patient is ok to print, 0 if patient is not in selected patient group list

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?11,"Print/display microbiology results (excluding antibiotics)",!?26,"instead of defined lab tests"
  • Line Location: MI+0
Function Call: READ
  • Prompt: "Enter T or P: "
  • Variable: Z
  • Timeout: DTIME
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"Print by (T)est list (P)atient list",!
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7)," Enter 'T' for Test List or 'P' for Patient list"
  • Line Location: A+0
Function Call: WRITE
  • Prompt: Q
  • Line Location: I+0
Function Call: WRITE
  • Prompt: ?(16+(X*8)),$J($P(Y,"^"),6),$P(Y,"^",2)
  • Line Location: W+4
Function Call: WRITE
  • Prompt: ?(16+(X*8)),$J(^TMP($J,"N",LR,X),7)
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%1")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: W
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,SSN,?18,$E(LRL,1,5),?39,LRP
  • Line Location: H1+0
Function Call: READ
  • Formatting: !?10
  • Prompt: "if they haven't used the lists since: T-6 MONTHS// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN2+0
Function Call: WRITE
  • Prompt: !?10,"Enter a date in the past",!
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,"DONE"
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: !!?10,$C(7),"DONE"
  • Line Location: EN2+5
Info |  Source |  Entry Points |  Interaction Calls