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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRAPAUSR

Package: Lab Service

Routine: LRAPAUSR


Information

LRAPAUSR ;AVAMC/REG/WTY - AUTOPSY SUPPLEMENTARY REPORT;9/14/01

Source Information

Source file <LRAPAUSR.m>

Entry Points

Name Comments DBIA/ICR reference
GETP ;Add a patient to the report queue
CH
SPC
DEV ;
QUE
LST
W
E
EN
WRT
SUPA ;Print supplementary report audit information
SUPM ;Print previous versions of supplementary reports
H ;Header
FT ;Footer
SGL ;Entry point for printing single report
CONT ;
END ;
TOP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,LRO(68)," Autopsy Supplementary Reports"
  • Line Location: LRAPAUSR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GETP+1
Function Call: WRITE
  • Prompt: !!,"Save supplementary report list for reprinting "
  • Line Location: SPC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"Request Queued, #",ZTSK
  • Condition for execution: $D(ZTSK)
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: W+0
Function Call: WRITE
  • Prompt: Y
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !?14,"*+* SUPPLEMENTARY REPORT HAS BEEN ADDED/MODIFIED*+*"
  • Line Location: SUPA+1
Function Call: WRITE
  • Prompt: !,"(Added/Last modified: "
  • Line Location: SUPA+2
Function Call: WRITE
  • Prompt: Y,LRSGN,A2,")"
  • Line Location: SUPA+12
Function Call: WRITE
  • Prompt: !,?25,"**-* NOT VERIFIED *-**"
  • Line Location: SUPA+14
Function Call: WRITE
  • Prompt: !,"Date ",Y2,Y,LRSGN,X
  • Line Location: SUPM+10
Function Call: WRITE
  • Prompt: !?13,"==========Text below appears on final report=========="
  • Line Location: SUPM+19
Function Call: WRITE
  • Prompt: !
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !?5,"CLINICAL RECORD |",?40,"AUTOPSY SUPPLEMENTARY REPORT"
  • Line Location: H+7
Function Call: WRITE
  • Prompt: ?73,"Pg ",LRQ,!,LR("%")
  • Line Location: H+8
Function Call: WRITE
  • Prompt: !,"Date died: ",LRH,?40,"| Autopsy date: ",LRH(1)
  • Line Location: H+9
Function Call: WRITE
  • Prompt: !,"Resident: ",LRM(2),?40,"| ",LRS(3)
  • Line Location: H+10
Function Call: WRITE
  • Prompt: ?56,"Autopsy No. ",$S(LRQ(8)]"":LRQ(8)_LRH(2)_" "_LRAC,1:LRAC)
  • Line Location: H+11
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+12
Function Call: WRITE
  • Prompt: !
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: W
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: !!,"Pathologist: ",LRM(3),?52,LRW(9),?55,"| Date ",$E(LRH(3),1,12)
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: W
  • Line Location: FT+4
Function Call: WRITE
  • Prompt: !,LRQ(1),?(IOM-30),"AUTOPSY SUPPLEMENTARY REPORT"
  • Line Location: FT+4
Function Call: WRITE
  • Prompt: !,$E(LRP,1,30),?31,SSN,?49,"SEX:",SEX,?55,"DOB:",DOB,!,LRLLOC
  • Line Location: FT+5
Function Call: WRITE
  • Prompt: ?31,LRM(1),?55,"AGE AT DEATH: ",AGE
  • Line Location: FT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+2
Function Call: WRITE
  • Prompt: $C(7),!!,"OK to delete the AUTOPSY SUPPLEMENTARY REPORT list "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"OK, LET'S FORGET IT.",!
  • Line Location: END+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(69.2 - [#69.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call