Routine: LRAPAUSR

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

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!

Customize PDF page

Package: Lab Service

Routine: LRAPAUSR

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: