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

Package: Lab Service

Routine: LRSPRPTA


Information

LRSPRPTA ;DALOI/STAFF - CY/EM/SP PATIENT RPT (cont'd) ;03/21/13 15:29

Source Information

Source file <LRSPRPTA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; from LRSPRPT
; Suppress SNOMED codes except on Preliminary
PPL ; Print any performing laboratories

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Submitted by: ",LRW(5),?44,"Date obtained: ",LRTK
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"Specimen (Received ",LRTK(1),"):"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !?14,"*+* SUPPLEMENTARY REPORT HAS BEEN ADDED *+*"
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !?19,"*+* REFER TO BOTTOM OF REPORT *+*",!
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,"Comment:"
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,^LR(LRDFN,LRSS,LRI,99,LRB,0)
  • Line Location: EN+22
Function Call: WRITE
  • Prompt: W
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !,"Brief Clinical History:"
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: W
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !,"Preoperative Diagnosis:"
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: W
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !,"Operative Findings:"
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: W
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !,"Postoperative Diagnosis:"
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !?27,"Surgeon/physician: ",LRMD
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !,?26,LRMD("SR-ATTEND")
  • Line Location: EN+37
Function Call: WRITE
  • Prompt: !,?26,$P(LRMD("ERR"),"^",2)
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: !,LR("%1")
  • Line Location: EN+40
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+50
Function Call: WRITE
  • Prompt: ?31,$S(LRSS="SP":"Pathology Resident: ",LRSS="CY":"Screened by: ",LRSS="EM":"Prepared by: ",1:" "),LRRMD
  • Line Location: EN+51
Function Call: WRITE
  • Prompt: !,LR(69.2,.13)
  • Line Location: EN+54
Function Call: WRITE
  • Prompt: !,LR(69.2,.03)
  • Line Location: EN+61
Function Call: WRITE
  • Prompt: !,LR(69.2,.04)
  • Line Location: EN+67
Function Call: WRITE
  • Prompt: !,LR(69.2,.14)
  • Line Location: EN+73
Function Call: WRITE
  • Prompt: !,"Supplementary Report:"
  • Line Location: EN+81
Function Call: WRITE
  • Prompt: !!,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: PPL+10
Function Call: WRITE
  • Prompt: !,"Performing Laboratory:",!
  • Line Location: PPL+11
Function Call: WRITE
  • Prompt: !,"Performing Laboratory (cont'd):",!
  • Line Location: PPL+14
Function Call: WRITE
  • Prompt: !,LRPL(LRJ)
  • Line Location: PPL+15
Info |  Source |  Entry Points |  Interaction Calls