Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRAURPT

Package: Lab Service

Routine: LRAURPT


Information

LRAURPT ;AVAMC/REG/WTY - AUTOPSY RPT ; 17-Oct-2014 09:22 ; MKK

Source Information

Source file <LRAURPT.m>

Call Graph

Call Graph Total: 20

Package Total Call Graph
Lab Service 10 SUPA^LRAPAUSR  ^LRAPT2  MAIN^LRAPTIUP  (RELEASE,TIUCHK)^LRAPUTL  D^LRAUAW  FOC^LRSPRPT  (D,K,L,S,XR,YN)^LRU  (D,EN,EN2)^LRUA  
^LRUP  ^LRUPS  
VA Fileman 7 EN^DDIOL  UPDATE^DIE  ^DIK  Y^DIQ  ^DIR  ^DIWP  ^DIWW  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 4 LRAPAUPT  LRAPT2  LRAPT3  LRSPRPT1  

Entry Points

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

    External References

    Name Field # of Occurrence
    ^%ZIS DEV+1
    HOME^%ZIS DEV+7
    ^%ZISC DEVEND+2
    ^%ZTLOAD DEV+6
    EN^DDIOL LRAURPT+12
    UPDATE^DIE GETP+5
    ^DIK EN+5
    Y^DIQ EN+14, EN+16
    ^DIR CONT+2
    ^DIWP F+3, WRT+3
    ^DIWW F+4, WRT+4
    SUPA^LRAPAUSR EN+32
    ^LRAPT2 EN+35
    MAIN^LRAPTIUP PSGL+6, PQUE+11
    RELEASE^LRAPUTL PQUE+7, SGL+2
    TIUCHK^LRAPUTL PQUE+9, SGL+6
    D^LRAUAW EN+17
    FOC^LRSPRPT PSGL+13, PSGL+23, PQUE+19, PQUE+30
    D^LRU EN+9, EN+10, EN+11, EN+17, EN+31
    K^LRU LST+3
    L^LRU QUE+1
    S^LRU QUE+1
    XR^LRU LRAURPT+9
    YN^LRU SPC+14, SPC+17, END+2
    D^LRUA EN+18, EN+19, EN+20
    EN^LRUA QUE+1
    EN2^LRUA LRAURPT+9, SGL+9
    ^LRUP EN+2
    ^LRUPS GETP+1, SGL+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,LRO(68)," Autopsy Protocols"
    • Line Location: LRAURPT+9
    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: !,"Patient: ",$E(LRP,1,30),?43,HRCN,?56,"SEX:",SEX,?63,"DOB:",DOB
    • Line Location: FT+9
    Function Call: WRITE
    • Prompt: !,$E(LRLLOC,1,22),?23,"Physician: ",$E(LRM(1),1,28)
    • Line Location: FT+10
    Function Call: WRITE
    • Prompt: ?63,"AGE AT DEATH:",$J(AGE,3)
    • Line Location: FT+11
    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
    Routine Call
    • %ZIS
    • Line Location:
      • DEV+7
    Routine Call
    • DIR
    • Line Location:
      • CONT+2
    Routine Call
    • %ZIS
    • Line Location:
      • DEV+1
    Routine Call
    • DIE
    • Line Location:
      • GETP+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^LRO(69.2 - [#69.2] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(63 EN+13, EN+15
    ^LR - [#63] F+1, F+3, EN+2, EN+3, EN+7, EN+27, EN+28, EN+29, EN+32, WRT+1
    , WRT+3
    ^LRO(69.2 - [#69.2] LRAURPT+11, GETP+1, GETP+2, CH+1, QUE+9, PQUE+2, PQUE+6, LST+1!, LST+2, EN+3
    , EN+6, END+4!, END+5*
    ^UTILITY($J E!

    Label References

    Name Line Occurrences
    CH LRAURPT+10
    CONT PSGL+10, PSGL+15, PSGL+18, PSGL+25, PQUE+17, PQUE+22, PQUE+27, PQUE+33, H+2
    DEV SGL+11
    DEVEND LST+4
    E F, WRT
    EN PSGL+4, PSGL+16, PQUE+24
    END LRAURPT+10
    F EN+24, EN+26
    FT F+2, EN+25, EN+27, EN+29, EN+37, WRT+2, TOP+2
    GETP GETP+1, GETP+2, GETP+5
    H F+2, EN+22, EN+25, EN+27, EN+29, WRT+2, TOP+2
    LST PSGL+1
    SGL LRAURPT+10, SGL+1
    SPC SPC+8, SGL+8
    TOP F+3, WRT+3
    W H+5, FT+3, FT+7
    WRT EN+33

    Naked Globals

    Name Field # of Occurrence
    ^(0 LST+2*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % SPC+14*, SPC+17*, END+2*, END+3
    >> %ZIS DEV+1*
    >> A F+1*, F+3
    >> AGE EN+12*, FT+11
    >> C EN+13*, EN+15*
    DA EN+4*, EN+5!, EN+17*
    DA(1 EN+4*
    DIK EN+4*, EN+5!
    DIR CONT+1!
    DIR(0 CONT+1*
    >> DIWF E*
    >> DIWL E*
    >> DIWR E*
    >> DOB FT+9
    DTIME SPC+6
    >> DTOUT CONT+3
    >> FDA(2 GETP+4*
    FDAIEN GETP+5!
    FDAIEN(2 GETP+3*
    >> HRCN FT+9
    IO QUE+1
    IO("Q" DEV+3, DEV+7!
    IOF PSGL+22, PQUE+23, PQUE+25, H+4, DEVEND+1
    IOM CH+5, E, FT+7
    IOSL F+2, EN+25, EN+29, WRT+2, FT+2
    IOST PSGL+10, PSGL+15, PSGL+18, PSGL+22, PSGL+25, PQUE+13, PQUE+17, PQUE+20, PQUE+22, PQUE+23
    , PQUE+25, PQUE+26, PQUE+27, PQUE+31, PQUE+33, H+2, DEVEND+1
    >> LR( QUE+9*, EN+27
    >> LR("%" W+1, EN+25, H+7, H+11
    >> LR("AU1" PSGL+4, LST+4, SGL+3, SGL+4*, SGL+7
    >> LR("DVD" CH+4!, CH+5*, PQUE+13, PQUE+20, PQUE+26, PQUE+31
    >> LR("F" PSGL+9*, PSGL+10, PSGL+15, PSGL+18, PSGL+25, PQUE+5!, PQUE+16*, PQUE+17, PQUE+22, PQUE+27
    , PQUE+33, EN+22*, H+2, H+4
    >> LR("Q" DEV+2*, DEV+8*, QUE+3*, PSGL+5, PSGL+8*, PSGL+10, PSGL+11, PSGL+12*, PSGL+14*, PSGL+15
    , PSGL+18, PSGL+19, PSGL+20*, PSGL+24*, PSGL+25, PQUE+2, PQUE+15*, PQUE+17, PQUE+18, PQUE+21*
    , PQUE+22, PQUE+27, PQUE+28, PQUE+32*, PQUE+33, F+1, F+2, F+4, EN+22, EN+25
    , EN+27, EN+28, EN+29, EN+34, EN+36, WRT+1, WRT+2, WRT+4, H+1, H+2
    , FT+1, CONT+3*
    >> LR("SPSM" EN+1*
    >> LR(63 EN+17
    >> LRA EN+28*, EN+29, EN+32, WRT+1, WRT+3
    >> LRAA LRAURPT+11, GETP+1, GETP+2, GETP+4, CH+1, QUE+9, PQUE+2, PQUE+6, LST+1, LST+2
    , EN+3, EN+6, END+4, END+5
    >> LRAC EN+7*, H+10
    >> LRAN GETP+1, GETP+2, GETP+3, PQUE+1*, PQUE+2*, PQUE+6, EN+3, EN+4, EN+6, SGL+1
    LRAP PSGL+1, PSGL+2, PSGL+9!, PSGL+17!, SGL+10*
    >> LRAPX LRAURPT+10, SPC+1, SPC+15
    >> LRAU(1 EN+24
    >> LRAU(2 EN+26
    LRAURPT QUE+9*, LST+1!
    >> LRB EN+29*, EN+31
    >> LRC WRT*, WRT+1*, WRT+3
    >> LRD SPC+14*, EN+35, SGL+7*
    >> LRD("V" LRAURPT+9*, SGL+1!
    >> LRDFN GETP+4, PSGL+2*, PQUE+6*, PQUE+7, PQUE+9, F+1, F+3, EN+2, EN+3, EN+7
    , EN+17, EN+27, EN+28, EN+29, EN+32, WRT+1, WRT+3, SGL+2, SGL+6, SGL+10
    LREL LRAURPT+8~, PQUE+7, SGL+2
    LREL(1 PQUE+8, SGL+3, SGL+5
    LRFFF QUE+2~, QUE+7*, QUE+8*, PSGL+7*, PQUE+4*, PQUE+12*, PQUE+34*, DEVEND+1
    >> LRFOC QUE+6*, QUE+8, PSGL+12, PSGL+20, PQUE+4, PQUE+13, PQUE+18, PQUE+26, PQUE+28
    >> LRH EN+17*, H+8
    >> LRH(1 EN+10*, EN+23, H+8
    >> LRH(17 EN+11*, FT+4, FT+6
    >> LRH(2 EN+9*, H+10
    >> LRH(3 EN+11*, FT+4, FT+6
    >> LRI PSGL+13*, PSGL+23*
    >> LRLLOC EN+12*, FT+10
    >> LRM(1 EN+8*, EN+17, EN+18*, FT+10
    >> LRM(2 EN+7*, EN+18, EN+19*, H+9
    >> LRM(3 EN+8*, EN+19, EN+20*, FT+5
    >> LRO(68 LRAURPT+9
    >> LRP FT+9
    LRPTR LRAURPT+8~, PSGL+3, PSGL+6, PQUE+9, PQUE+10, PQUE+11, PQUE+14!, EN+21, SGL+6, SGL+7
    >> LRQ PQUE+3*, EN+2*, H+3*, H+6
    >> LRQ(1 FT+7
    >> LRQ(8 H+10
    >> LRQUIT QUE+3*, PSGL+8, PSGL+14, PSGL+24, PQUE+3*, PQUE+15, PQUE+21, PQUE+32
    >> LRS SPC+11*, E, SGL+7*
    >> LRS(3 EN+16*, H+9
    >> LRS(5 QUE+9*
    LRSAV SPC+17*, LST+1, LST+3!, SGL+10*
    >> LRSF515 QUE+5*
    >> LRSS PQUE+7, PQUE+9, SGL+2, SGL+6
    >> LRSVC EN+14*
    >> LRV F+1, F+3, EN+24*, EN+26*
    >> LRW(9 EN+8*, FT+5
    >> LRZ F+1*, F+4, WRT+1*, WRT+4
    >> POP DEV+2
    >> SEX FT+9
    U SPC+7, EN+13, EN+15, EN+32, SGL+8, CONT+3
    >> X GETP+1*, SPC+6*, SPC+7, SPC+8, SPC+11, F+3*, EN+2*, EN+7*, EN+8, EN+9
    , EN+10, EN+11, EN+12, EN+13, EN+15, EN+17*, EN+18*, EN+19*, EN+20, WRT+3*
    , SGL+1*, SGL+8, CONT+3, TOP+1, TOP+2*
    >> Y EN+9*, EN+10*, EN+11*, EN+13*, EN+14, EN+15*, EN+16, EN+17*, EN+31*
    >> Z TOP+1*, TOP+2
    >> ZTDESC DEV+4*
    >> ZTQUEUED DEVEND+2
    >> ZTREQ DEVEND+2*
    >> ZTRTN DEV+5*
    >> ZTSAVE("LR*" DEV+5*
    ZTSK DEV+6, DEV+7!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All