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

Package: Lab Service

Routine: LRAURPT


Information

LRAURPT ;AVAMC/REG/WTY - AUTOPSY RPT ;9/22/00

Source Information

Source file <LRAURPT.m>

Entry Points

Name Comments DBIA/ICR reference
GETP ;Add a patient to the report queue
CH ;Check Queue
SPC ;Spacing
DEV ;Device Handling
QUE ;
  • ICR #1959
    • Status: Retired
    • Usage: Controlled Subscription
    PSGL ;Single Report
    PQUE ;Print all on queue
    LST ;
    W ;
    F
    E
    EN ;
    WRT
    H ;
    FT ;Footer
    SGL ;Print single report entry point
    DEVEND ;Close device
    CONT ;
    END ;
    TOP ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,LRO(68)," Autopsy Protocols"
    • Line Location: LRAURPT+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: GETP+1
    Function Call: WRITE
    • Prompt: !!,"Print special studies, journal references, weights, and "
    • Line Location: SPC+12
    Function Call: WRITE
    • Prompt: "measures: "
    • Line Location: SPC+13
    Function Call: WRITE
    • Prompt: !!,"Save protocol list for reprinting "
    • Line Location: SPC+16
    Function Call: WRITE
    • Prompt: !
    • Line Location: DEV+2
    Function Call: WRITE
    • Prompt: !,"Request Queued, #",ZTSK
    • Condition for execution: $D(ZTSK)
    • Line Location: DEV+6
    Function Call: WRITE
    • Prompt: !
    • Line Location: DEV+6
    Function Call: WRITE
    • Prompt: !,LR("%")
    • Line Location: W+1
    Function Call: WRITE
    • Prompt: !!,LRAU(1),!
    • Line Location: EN+24
    Function Call: WRITE
    • Prompt: !!,LR("%")
    • Line Location: EN+25
    Function Call: WRITE
    • Prompt: !,LRAU(2),!
    • Line Location: EN+26
    Function Call: WRITE
    • Prompt: Y
    • Line Location: EN+31
    Function Call: WRITE
    • Prompt: !!
    • Line Location: H+5
    Function Call: WRITE
    • Prompt: !?5,"CLINICAL RECORD |",?40,"AUTOPSY PROTOCOL",?73,"Pg ",LRQ
    • Line Location: H+6
    Function Call: WRITE
    • Prompt: !,LR("%")
    • Line Location: H+7
    Function Call: WRITE
    • Prompt: !,"Date died: ",LRH,?40,"| Autopsy date: ",LRH(1)
    • Line Location: H+8
    Function Call: WRITE
    • Prompt: !,"Resident: ",LRM(2),?40,"| ",$E(LRS(3),1,13)
    • Line Location: H+9
    Function Call: WRITE
    • Prompt: ?56,"Autopsy No. ",$S(LRQ(8)]"":LRQ(8)_LRH(2)_" "_LRAC,1:LRAC)
    • Line Location: H+10
    Function Call: WRITE
    • Prompt: !,LR("%")
    • Line Location: H+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: FT+2
    Function Call: WRITE
    • Prompt: W
    • Line Location: FT+3
    Function Call: WRITE
    • Prompt: !
    • Line Location: FT+3
    Function Call: WRITE
    • Prompt: !,"Pathologist: ",LRM(3),?52,LRW(9),?55,"| Date "
    • Line Location: FT+5
    Function Call: WRITE
    • Prompt: $E($S(LRH(3)]"":LRH(3),1:LRH(17)),1,12)
    • Line Location: FT+6
    Function Call: WRITE
    • Prompt: W
    • Line Location: FT+7
    Function Call: WRITE
    • Prompt: !,LRQ(1),?IOM-17,"AUTOPSY PROTOCOL"
    • Line Location: FT+7
    Function Call: WRITE
    • Prompt: !,"Patient: ",$E(LRP,1,30),?43,SSN,?56,"SEX:",SEX,?63,"DOB:",DOB
    • Line Location: FT+8
    Function Call: WRITE
    • Prompt: !,$E(LRLLOC,1,22),?23,"Physician: ",$E(LRM(1),1,28)
    • Line Location: FT+9
    Function Call: WRITE
    • Prompt: ?63,"AGE AT DEATH:",$J(AGE,3)
    • Line Location: FT+10
    Function Call: WRITE
    • Prompt: !
    • Line Location: CONT+2
    Function Call: WRITE
    • Prompt: $C(7),!!,"OK to delete the AUTOPSY PROTOCOL list "
    • Line Location: END+1
    Function Call: WRITE
    • Prompt: !!,"OK, LET'S FORGET IT.",!
    • Line Location: END+7

    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