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

Package: Lab Service

Routine: LRAPCUM


Information

LRAPCUM ;DALOI/STAFF - AP PATIENT CUM ;03/21/13 15:28

Source Information

Source file <LRAPCUM.m>

Entry Points

Name Comments DBIA/ICR reference
P
R
C
F
E
W
MORE
S
U
B
SP
WP
A

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?15,LRAA(1)," PATIENT REPORT(S) DISPLAY"
  • Line Location: LRAPCUM+5
Function Call: WRITE
  • Prompt: !
  • Line Location: P+0
Function Call: WRITE
  • Prompt: $C(7),!!,"No ",LRAA(1)," reports on file",!
  • Line Location: R+1
Function Call: WRITE
  • Prompt: Q:LRA(2)?1P
  • Line Location: R+2
Function Call: WRITE
  • Prompt: !?2,$P(^LR(LRDFN,LRSS,LRI,LRV,C,0),U)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,"Date Spec taken: ",LRW(1),?38,"Pathologist:",LRW(2),!,"Date Spec rec'd: ",LRW(10),?38,$S(LRSS="SP":"Resident: ",1:"Tech: "),LRW(4)
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,$S($L(LRW(3)):"Date completed: ",1:"REPORT INCOMPLETE"),LRW(3),?38,"Accession #: ",$P(B,"^",6),!,"Submitted by: ",$P(B,"^",5),?38,"Practitioner:",LRW(7),!,LR("%")
  • Line Location: W+4
Function Call: WRITE
  • Prompt: !,$C(7),"Report not verified",!
  • Line Location: W+5
Function Call: WRITE
  • Prompt: !,"Specimen: "
  • Line Location: W+6
Function Call: WRITE
  • Prompt: !,"Brief Clinical History:"
  • Line Location: W+7
Function Call: WRITE
  • Prompt: !,"Preoperative Diagnosis:"
  • Line Location: W+8
Function Call: WRITE
  • Prompt: !,"Operative Findings:"
  • Line Location: W+9
Function Call: WRITE
  • Prompt: !,"Postoperative Diagnosis:"
  • Line Location: W+10
Function Call: WRITE
  • Prompt: !,LR(69.2,.13)
  • Line Location: W+12
Function Call: WRITE
  • Prompt: !,LR(69.2,.03)
  • Line Location: W+14
Function Call: WRITE
  • Prompt: !,LR(69.2,.04)," (Date Spec taken: ",LRW(1),")"
  • Line Location: W+16
Function Call: WRITE
  • Prompt: !,LR(69.2,.14)
  • Line Location: W+17
Function Call: WRITE
  • Prompt: !,"Comments:"
  • Line Location: W+40
Function Call: WRITE
  • Prompt: !,$P(^(A,0),"^")
  • Line Location: W+41
Function Call: READ
  • Formatting: !
  • Prompt: "'^' TO STOP: "
  • Variable: LRA(2)
  • Timeout: DTIME
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: MORE+0
Function Call: WRITE
  • Prompt: $C(13),$J("",15),$C(13)
  • Line Location: MORE+3
Function Call: WRITE
  • Prompt: !,E(1)," ",E," Date: ",T(2)," ",!
  • Line Location: WP+0
Function Call: WRITE
  • Prompt: !,^(A,0)
  • Line Location: A+0
Info |  Source |  Entry Points |  Interaction Calls