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

Package: Lab Service

Routine: LRUPT


Information

LRUPT ;AVAMC/REG/WTY - PATIENT TESTS ORDERED BY DATE ;9/25/00

Source Information

Source file <LRUPT.m>

Entry Points

Name Comments DBIA/ICR reference
ASK
REST
GETP
SHOW
S
FIX
A
YRCHK ;Increment year and look for accession
DATA
DAY
LIST
MORE
HDR
AUTO
AP
REF ; if referred test, get referral status
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"Is this the patient "
  • Line Location: GETP+1
Function Call: WRITE
  • Prompt: " TESTS ORDERED"
  • Line Location: SHOW+0
Function Call: WRITE
  • Prompt: !?5,"*** No ",LRAA(1)," entries ***",!!
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: " ",$E(Z(11),1,10)
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !!,LRDATE,?18,Z(12),?37,$E(Z(5),1,12)
  • Line Location: DATA+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: ?13,"UID: "_LRUID
  • Line Location: LIST+3
Function Call: READ
  • Formatting: !
  • Prompt: "MORE TESTS ? NO// "
  • Variable: A("A")
  • Timeout: DTIME
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: $C(7),!,"Answer YES or NO"
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: @IOF,LRP," SSN: ",SSN
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: LRDATE,?18,Z(12)
  • Line Location: MORE+1
Function Call: WRITE
  • Prompt: !,"Spec Date/time",?18,"Acc #"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: ?59,"Tests"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: ?37,"PHYSICIAN",?51,"SPECIMEN(S)"
  • Condition for execution: "CYEMSP"[LRSS
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $C(7),!,"No autopsy !!!"
  • Line Location: AUTO+0
Function Call: WRITE
  • Prompt: !,"Autopsy date/time",?19,"Autopsy #"
  • Line Location: AUTO+2
Function Call: WRITE
  • Prompt: !,$S(Y[1700:"???",1:Y),?23,$S($D(Z(6)):Z(6),1:"??")
  • Line Location: AUTO+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B>1
  • Line Location: REF+4
Function Call: WRITE
  • Prompt: ?35,"Shipping Manifest: "_LRMAN
  • Line Location: REF+4
Function Call: WRITE
  • Prompt: !,?(79-$L(LRX)),LRX
  • Line Location: REF+5
Function Call: WRITE
  • Prompt: !
  • Line Location: REF+5
Info |  Source |  Entry Points |  Interaction Calls