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

Package: Lab Service

Routine: LRAPAUSR


Information

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

Source Information

Source file <LRAPAUSR.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA Fileman 8 ^%DT  EN^DDIOL  UPDATE^DIE  ^DIK  Y^DIQ  ^DIR  ^DIWP  ^DIWW  
Lab Service 5 D^LRAUAW  (D,K,L,S,XR,YN)^LRU  (D,EN,EN2)^LRUA  ^LRUP  ^LRUPS  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRAPAUPT  LRAPMOD  LRAURPT  

Entry Points

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

External References

Name Field # of Occurrence
^%DT LRAPAUSR+6
^%ZIS DEV+2
HOME^%ZIS DEV+8
^%ZISC LST+4
^%ZTLOAD DEV+7
EN^DDIOL LRAPAUSR+12
UPDATE^DIE GETP+4
^DIK EN+3
Y^DIQ EN+11, EN+14
^DIR CONT+2
^DIWP WRT+3, SUPM+16
^DIWW WRT+4, SUPM+17
D^LRAUAW EN+15
D^LRU LRAPAUSR+6, EN+7, EN+15, EN+24, SUPA+12, SUPM+10
K^LRU LST+3
L^LRU QUE
S^LRU QUE
XR^LRU LRAPAUSR+7
YN^LRU SPC+6, END+2
D^LRUA EN+16, EN+17
EN^LRUA QUE
EN2^LRUA LRAPAUSR+9, SGL+6
^LRUP EN
^LRUPS GETP+1, SGL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,LRO(68)," Autopsy Supplementary Reports"
  • Line Location: LRAPAUSR+7
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: !,$E(LRP,1,30),?31,HRCN,?49,"SEX:",SEX,?55,"DOB:",DOB,!,LRLLOC
  • Line Location: FT+6
Function Call: WRITE
  • Prompt: ?31,LRM(1),?55,"AGE AT DEATH: ",AGE
  • Line Location: FT+7
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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+8
Routine Call
  • DIR
  • Line Location:
    • CONT+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • DIE
  • Line Location:
    • GETP+4

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+10, EN+13
^LR - [#63] EN, EN+1, EN+5, EN+20, EN+21, EN+26, WRT+1, WRT+3, SUPA+3, SUPA+6
, SUPA+14, SUPM+3, SUPM+4, SUPM+13, SUPM+14, SGL+2
^LRO(69.2 - [#69.2] LRAPAUSR+8, LRAPAUSR+12, GETP+1, CH, QUE+5, LST!, LST+1, EN+1, EN+4, END+3!*
^UTILITY($J E!, SUPM+11!
^VA(200 - [#200] SUPA+10, SUPM+9

Label References

Name Line Occurrences
CH LRAPAUSR+10
CONT LST+2, H+1
DEV SGL+7
E WRT
EN QUE+4, QUE+6
END LRAPAUSR+10
FT EN+22, EN+25, EN+28, WRT+2, SUPM+5, SUPM+15, TOP+1
GETP GETP+1, GETP+4
H EN+18, EN+22, EN+25, WRT+2, SUPM+5, SUPM+15, TOP+1
LST QUE+4
SGL LRAPAUSR+10, SGL+1
SPC SPC+2, SGL+4
SUPA EN+26
SUPM SUPA+15
TOP WRT+3
W H+6, FT+3, FT+4
WRT EN+27

Naked Globals

Name Field # of Occurrence
^( QUE+6
^(0 LRAPAUSR+8, LST+1*, SUPA+7, SUPA+10, SUPM+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SPC+6*, LST+5!, END+2*, END+3
>> %DT LRAPAUSR+6*
>> %ZIS DEV+2*
>> A SUPA+3*, SUPA+4, SUPA+7*, SUPA+8, SUPA+9, SUPM+3*, SUPM+4, SUPM+13, SUPM+14
>> A2 SUPA+7*, SUPA+9*, SUPA+10*, SUPA+12
>> AGE EN+8*, FT+7
>> B SUPA+3*, SUPA+4*, SUPA+6, SUPM+12*, SUPM+13*, SUPM+14
>> C EN+10*, EN+13*
>> DA EN+2*, EN+15*
>> DA(1 EN+2*
DIK EN+2*, EN+3!
DIR LST+5!, CONT+1!
DIR(0 CONT+1*
DIRUT LST+5!
>> DIWF E*, SUPM+11*
>> DIWL E*, SUPM+11*
>> DIWR E*, SUPM+11*
>> DOB FT+6
DTIME SPC
DTOUT LST+5!, CONT+3
DUOUT LST+5!
>> FDA(1 GETP+3*
FDAIEN GETP+4!
FDAIEN(2 GETP+2*
>> HRCN FT+6
IO QUE
IO("Q" DEV+4, DEV+8!
IOF LST+4, H+2
IOM E, SUPM+11, FT+4
IOSL EN+22, EN+25, WRT+2, SUPM+5, SUPM+15, FT+2
IOST LST+2, LST+4, H+1
KA EN+3!
>> LR("%" W, H+8, H+12
>> LR("AU1" SGL+2
>> LR("F" LST+2, EN+18*, WRT+2*, H+1, H+2, TOP+1*
>> LR("Q" QUE+4, QUE+5, LST+2, EN+18, EN+20, EN+22, EN+25, EN+28, WRT+1, WRT+2
, WRT+4, SUPA+3, SUPA+5, SUPM+3, SUPM+5, SUPM+13, SUPM+15, SUPM+17, SUPM+18, H+1
, FT+1, CONT+3*
>> LR(63 EN+15
>> LRA EN+20*, EN+21, EN+26, WRT+1, WRT+3, SUPA+3, SUPA+6, SUPA+14, SUPM+3, SUPM+4
, SUPM+13, SUPM+14
>> LRAA LRAPAUSR+8, LRAPAUSR+12, GETP+1, GETP+3, CH, QUE+5, LST, LST+1, EN+1, EN+4
, END+3
>> LRAC EN+5*, H+11
>> LRAN GETP+1, GETP+2, QUE+5*, QUE+6, EN+1, EN+2, EN+4, SGL+1
LRAP QUE+4!, SGL+5*
>> LRAPX LRAPAUSR+10, SPC+4
LRAURPT QUE+3*, LST!
>> LRB EN+21*, EN+24
>> LRC WRT*, WRT+1*, WRT+3
>> LRDFN GETP+3, QUE+4*, QUE+6*, EN, EN+1, EN+5, EN+15, EN+20, EN+21, EN+26
, WRT+1, WRT+3, SUPA+3, SUPA+6, SUPA+14, SUPM+3, SUPM+4, SUPM+13, SUPM+14, SGL+2
, SGL+5
>> LRFLG LRAPAUSR+6*
>> LRH EN+15*, H+9
>> LRH(1 EN+7*, EN+19, H+9
>> LRH(2 EN+7*, H+11
>> LRH(3 LRAPAUSR+6*, FT+3
>> LRLLOC EN+8*, FT+6
>> LRM(1 EN+6*, EN+15, EN+16*, FT+7
>> LRM(2 EN+5*, EN+16*, H+10
>> LRM(3 EN+6*, EN+16, EN+17*, FT+3
>> LRO(68 LRAPAUSR+7
>> LRP FT+6
>> LRQ EN*, H+3*, H+8
>> LRQ(1 FT+4
>> LRQ(8 H+11
>> LRQ(9 SUPA+15
>> LRS SPC+4*, E
>> LRS(1 LRAPAUSR+8*
>> LRS(2 LRAPAUSR+8*
>> LRS(3 EN+14*, H+10
>> LRS(5 QUE+3*
LRSAV SPC+6*, LST, LST+3!, SGL+5*
>> LRSF515 QUE+2*
>> LRSGN SUPA+7*, SUPA+9*, SUPA+12, SUPM+6*, SUPM+8*, SUPM+10
>> LRSVC EN+11*
>> LRT SUPM+4*, SUPM+6, SUPM+8, SUPM+14*, SUPM+16
>> LRW(9 EN+6*, FT+3
>> LRZ WRT+1*, WRT+4, SUPM+13*, SUPM+17
>> POP DEV+3
>> SEX FT+6
U LRAPAUSR+8, SPC+1, EN+10, EN+13, EN+26, SGL+2, SGL+4, CONT+3
X LRAPAUSR+6*, GETP+1*, SPC*, SPC+1, SPC+2, SPC+4, LST+5!, EN*, EN+5*, EN+6
, EN+7, EN+8, EN+10, EN+13, EN+15*, EN+16*, EN+17, WRT+3*, SUPM+6*, SUPM+8*
, SUPM+9*, SUPM+10, SUPM+16*, SGL+1*, SGL+4, CONT+3, TOP, TOP+1*
XTMP LRAPAUSR+11*, LRAPAUSR+12!
Y LRAPAUSR+6, LST+5!, EN+7*, EN+10*, EN+11, EN+13*, EN+14, EN+15*, EN+24*, SUPA+7*
, SUPA+9*, SUPA+12, SUPM+6*, SUPM+8*, SUPM+10
>> Y2 SUPM+6*, SUPM+8*, SUPM+10
>> Z TOP*, TOP+1
>> ZTDESC DEV+5*
>> ZTQUEUED LST+4
>> ZTREQ LST+4*
>> ZTRTN DEV+6*
>> ZTSAVE("LR*" DEV+6*
ZTSK DEV+7, DEV+8!
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