Routine: LRAPR

Package	Total	Call Graph
Lab Service	12	OERR^LR7OB63D ^LRAP ^LRAPDA GETDATA^LRAPESON (CHKSUP,CKSIGNR,RELCHK,UNRLSE)^LRAPR1 (,RELEASE,SECTION,STORE,TIUPREP)^LRAPRES (CLSSCHK,MAIN)^LRAPRES1 LOOKUP^LRAPUTL V^LRU ^LRUP X^LRUWK LEDI^LRVR0
VA FileMan	6	EN^DDIOL ^DIC $$GET1^DID FILE^DIE $$GET1^DIQ ^DIR
Kernel	2	($$FMTE,$$NOW)^XLFDT SIG^XUSESIG

Package	Total	Caller Graph
Lab Service	3	LRAPDA LRAPR LRAPRS

Entry Points

Name	Comments	DBIA/ICR reference
B	; Autopsy
EN	; Supplementary Report Entry Point
W
REST
DIE	; Define default supplementary report
DIE1	;
A
C	;
S	; from LRAPDA
CAP	; Store workload
SWITCH	; Check to see if electronic signature is enabled
ESIG	; Prompt for electronic signature
UPDATE	;
SUPCHK	; Check for unreleased supplementary reports
RINFO	; Display release information
NMPATH	; Check for missing pathologist name
RELEASE	; Prompt for release/unrelease
RELMN	; Allow release of main report as long as all supp reports are released, and signer is same person for main and supp report(s) ; Make sure all supp reports signed out
END	;

External References

Name	Field # of Occurrence
EN^DDIOL	DIE+28, DIE+32, UPDATE+4
^DIC	DIE1+9
$$GET1^DID	DIE+5
FILE^DIE	UPDATE+10, RELMN+25, RELMN+28
$$GET1^DIQ	DIE+10, DIE+12, DIE+14, DIE+20, DIE+22, DIE+24, DIE1+13, DIE1+15, UPDATE+14, UPDATE+16 , RELMN+9, RELMN+10, RELMN+11, RELMN+12, RELMN+13, RELMN+15, RELMN+16, RELMN+17, RELMN+18, RELMN+19
^DIR	EN+18, EN+23, DIE1+26, RELEASE+5
OERR^LR7OB63D	RELMN+29
^LRAP	A, C+1
^LRAPDA	LRAPR+30, B+21
GETDATA^LRAPESON	SWITCH+1
CHKSUP^LRAPR1	DIE1+31
CKSIGNR^LRAPR1	UPDATE+9
RELCHK^LRAPR1	RELMN+3
UNRLSE^LRAPR1	RELMN+26
^LRAPRES	LRAPR+6
RELEASE^LRAPRES	RELMN+27
SECTION^LRAPRES	EN+7
STORE^LRAPRES	RELMN+24
TIUPREP^LRAPRES	RELMN+23
CLSSCHK^LRAPRES1	EN+11
MAIN^LRAPRES1	UPDATE+18
LOOKUP^LRAPUTL	W+1
V^LRU	END+1
^LRUP	REST+5
X^LRUWK	LRAPR+13
LEDI^LRVR0	UPDATE+29
$$FMTE^XLFDT	SUPCHK+9, SUPCHK+16, RINFO+4
$$NOW^XLFDT	RELMN+22
SIG^XUSESIG	ESIG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?27,"Release Pathology Reports",!! Line Location: LRAPR+8
Function Call: WRITE	Prompt: !!?20,"Release Supplementary Pathology Reports",! Line Location: EN+3
Function Call: WRITE	Prompt: !! Line Location: EN+15
Function Call: WRITE	Prompt: $C(7),!!,"NO ",LRAA(1)," ACCESSIONS IN FILE FOR ",LRH(0),!! Line Location: EN+28
Function Call: WRITE	Prompt: " for ",LRH(0) Line Location: REST+0
Function Call: WRITE	Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0) Line Location: REST+2
Function Call: WRITE	Prompt: " not in ACCESSION file",!! Line Location: REST+3
Function Call: WRITE	Prompt: !,^(0) Line Location: REST+11
Function Call: WRITE	Prompt: ! Line Location: DIE1+3
Function Call: WRITE	Prompt: !!,"This supplementary report has already been released.",! Line Location: DIE1+17
Function Call: WRITE	Prompt: !!,"This supplementary report has already been released.",! Line Location: DIE1+19
Function Call: WRITE	Prompt: ! Line Location: DIE1+20
Function Call: WRITE	Prompt: " SIGNATURE NOT VERIFIED" Line Location: ESIG+4
Function Call: WRITE	Prompt: "...Released" Line Location: UPDATE+11
Function Call: WRITE	Prompt: $C(7),!,"Supplementary report "_LRSR2_" has not been released. " Line Location: SUPCHK+18
Function Call: WRITE	Prompt: "Cannot release." Line Location: SUPCHK+19
Function Call: WRITE	Prompt: $C(7),!,"Report " Line Location: RINFO+1
Function Call: WRITE	Prompt: "released " Line Location: RINFO+3
Function Call: WRITE	Prompt: $C(7),!,"Pathologist name missing. Cannot release." Line Location: NMPATH+2
Function Call: WRITE	Prompt: ! Line Location: RELEASE+2
Function Call: WRITE	Prompt: !!,?25,"* Main Report Release *",! Line Location: RELMN+21
Routine Call	DIC Line Location: DIE1+9
Routine Call	DIE Line Location: UPDATE+10 RELMN+25 RELMN+28
Routine Call	DIR Line Location: EN+18 EN+23 DIE1+26 RELEASE+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	REST+5, DIE+7, DIE+8, DIE+17, DIE+18, S+1, UPDATE+14, UPDATE+16, UPDATE+22, UPDATE+23 , SUPCHK+4, SUPCHK+5, SUPCHK+6, SUPCHK+8, SUPCHK+11, SUPCHK+12, SUPCHK+13, SUPCHK+15
^LRO(68 - [#68]	EN+27, REST+1, REST+4, S+1, S+2, S+3, S+4, S+5, S+7, CAP+1* , CAP+2
^VA(200 - [#200]	RINFO+5

Label References

Name	Line Occurrences
A	LRAPR+9
B	LRAPR+14
CAP	S+6
DIE	W+4
END	LRAPR+7, LRAPR+10, LRAPR+11, LRAPR+31, B+22, EN+8, EN+19, EN+20, W+2, A , C+2
ESIG	DIE1+23
RELMN	UPDATE+25
REST	W+5
SWITCH	LRAPR+4, EN+2
UPDATE	DIE1+24, DIE1+29
W	W+6

Naked Globals

Name	Field # of Occurrence
^(0	REST+5, S+1, S+4, S+5, CAP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LRAPR+3~
>> C	S+6*, CAP+1, CAP+2
DIC	DIE1+4~, DIE1+5, DIE1+6, DIE1+9!
DIC("A"	DIE1+7*
DIC("B"	DIE+3, DIE+14, DIE+24*, DIE+29
DIC(0	DIE1+8*
>> DILOCKTM	UPDATE+2
DIR	EN+14~, EN+18!, EN+21~, DIE1+4~, DIE1+22~, DIE1+26!, RELEASE+1~
DIR("A"	EN+16, DIE1+25, RELEASE+3, RELEASE+4
DIR("B"	EN+17, DIE1+25, RELEASE+2*
DIR(0	EN+16, EN+22, DIE1+25, RELEASE+2
DIROUT	DIE1+4~, DIE1+22~
DIRUT	EN+14~, EN+19, DIE1+4~, DIE1+22~, DIE1+27
>> DR	LRAPR+17, LRAPR+18, LRAPR+19, LRAPR+20, LRAPR+21, LRAPR+22, LRAPR+25, LRAPR+26, LRAPR+27, LRAPR+28 , LRAPR+29, B+2, B+3, B+6, B+9, B+10, B+11, B+12, B+14, B+15 , B+16, B+17, B+18, B+19, B+20*
DTOUT	DIE1+4~, DIE1+22~
DUZ	EN+11, S+3, CAP+1
DUZ(2	CAP+1
>> LR("CK"	W!
>> LRA	UPDATE+14, UPDATE+16
>> LRAA	EN+27, W+1, REST+1, REST+4, S+1, S+2, S+3, S+4, S+5, S+7 , CAP+1, CAP+2
>> LRAA(1	EN+28
>> LRAC	UPDATE+14, UPDATE+16, UPDATE+18
>> LRAD	EN+25*, EN+27, W+1, REST+1, REST+4, S+1, S+2, S+3, S+4, S+5 , S+7, CAP+1, CAP+2
>> LRAN	REST+1, REST+2, REST+4, S+1, S+2, S+3, S+4, S+5, S+7, CAP+1 , CAP+2
>> LRAU	RELMN+7*, RELMN+8, RELMN+14
>> LRCAPA	LRAPR+11
>> LRCKREL	DIE1+31, UPDATE+21, UPDATE+22, UPDATE+23*, UPDATE+25
LRDA	DIE+1~, DIE1+11*, DIE1+12, UPDATE+1
>> LRDATA	EN+6*, W+1, W+2
>> LRDFN	REST+4*, REST+5, DIE+6, DIE+7, DIE+8, DIE+16, DIE+17, DIE+18, S+1, UPDATE+14 , UPDATE+16, UPDATE+18, UPDATE+22, UPDATE+23, SUPCHK+4, SUPCHK+5, SUPCHK+6, SUPCHK+8, SUPCHK+11, SUPCHK+12 , SUPCHK+13, SUPCHK+15, RELMN+15, RELMN+16, RELMN+17, RELMN+18, RELMN+19
>> LRDICS	C+1*
>> LREND	EN+10, EN+11, EN+12, W+2
LRESSW	LRAPR+3~, LRAPR+5, EN+1~, EN+11, DIE1+16, DIE1+18, DIE1+21, DIE1+31, SWITCH+1, UPDATE+25
LRFDA	DIE+1~
LRFDA(	UPDATE+5*
LRFDA2	DIE+2~
LRFDA2(	UPDATE+6*
LRFILE	DIE+1~, DIE+5, DIE+10, DIE+12, DIE+14, DIE+16, DIE+20, DIE+22, DIE+24, DIE1+13 , DIE1+15, UPDATE+5, UPDATE+6
>> LRH(0	EN+16, EN+25*, EN+28, W+1, REST, REST+2
>> LRI	W+2, W+3, DIE+6, DIE+7, DIE+8, S+1, UPDATE+14, UPDATE+16, UPDATE+18, UPDATE+22 , SUPCHK+4, SUPCHK+5, SUPCHK+6, SUPCHK+8, RELMN+20
>> LRIDT	W+3*
LRIENS	DIE+1~, DIE+9, DIE+10, DIE+12, DIE+14, DIE+19, DIE+20, DIE+22, DIE+24, DIE1+12* , DIE1+13, DIE1+15, UPDATE+5, UPDATE+6, UPDATE+16
LRIENS1	DIE+1~, DIE+6, DIE+9, DIE+16, DIE+19, DIE1+12, RELMN+9, RELMN+10, RELMN+11, RELMN+12 , RELMN+13
>> LRK	S+1*, S+3, CAP+1
LRLKFL	DIE+1~, DIE1+5, DIE1+6, UPDATE+1*, UPDATE+2, UPDATE+12
>> LRLLOC	REST+4*
LRMSG	DIE+2~, DIE+26!, DIE+27, DIE+28, DIE+30!, DIE+31, DIE+32, UPDATE+3*, UPDATE+4
LRNOSP	DIE+1~, DIE+3, DIE+7, DIE+17*, DIE+25
>> LRNTIME	RELMN+22*
>> LRO(68	W+1
>> LRODT	REST+4*
>> LRP	UPDATE+18
>> LRPAT	RELMN+9, RELMN+15
>> LRQT	RELMN+2*, RELMN+4
LRQUIT	EN+6, DIE+1~, DIE1+1, DIE1+2, DIE1+10, DIE1+23, DIE1+27, ESIG+1, ESIG+5, RELMN+25 , RELMN+28, RELMN+30*
LRRLM	DIE+2~, DIE1+1, DIE1+15, DIE1+18, DIE1+19
LRRLS	DIE+1~, DIE1+13*, DIE1+16, DIE1+18
>> LRSEL	W+2, W+4
>> LRSF	DIE+5, UPDATE+16, UPDATE+18, RELMN+9, RELMN+10, RELMN+11, RELMN+12, RELMN+13
>> LRSN	REST+4*
>> LRSOP	LRAPR+16, B+1
LRSR	SUPCHK+1~, SUPCHK+2, SUPCHK+5, SUPCHK+6, SUPCHK+8, SUPCHK+12*, SUPCHK+13, SUPCHK+15
LRSR1	SUPCHK+1~, SUPCHK+2, SUPCHK+5, SUPCHK+6, SUPCHK+7, SUPCHK+12, SUPCHK+13*, SUPCHK+14, SUPCHK+17
LRSR2	SUPCHK+1~, SUPCHK+9, SUPCHK+16, SUPCHK+18
LRSRFL	DIE+2~, DIE+10, DIE+13, DIE+20, DIE+23
LRSRMD	DIE+2~, DIE+12, DIE+13, DIE+22, DIE+23
>> LRSS	LRAPR+10, LRAPR+12, LRAPR+14, EN+8, W+1, DIE+4, DIE+7, DIE+8, DIE+15, DIE1+5 , DIE1+6, S+1, UPDATE+14, UPDATE+16, UPDATE+18, UPDATE+22, UPDATE+23, UPDATE+29, SUPCHK+3, SUPCHK+4 , SUPCHK+5, SUPCHK+6, SUPCHK+8, SUPCHK+10, RELMN+7
>> LRT	S+2, S+3, S+4, S+5, S+7, CAP+1, CAP+2
>> LRT(	S+6
LRX	LRAPR+3~, DIE+1~, DIE+8, DIE+9, DIE+18, DIE+19
>> LRZ	RELMN+10, RELMN+16
>> LRZ(	RELMN+12, RELMN+18
>> LRZ(1	RINFO+5, RELMN+11, RELMN+17
>> LRZ(2	RINFO+2, RINFO+4, RELEASE+3, RELEASE+4, RELMN+13, RELMN+19
>> LRZ(3	NMPATH+1
U	UPDATE+14, SUPCHK+4, SUPCHK+6, SUPCHK+8, SUPCHK+11, SUPCHK+13, SUPCHK+15, RINFO+5
X	LRAPR+3~, LRAPR+11, LRAPR+12, LRAPR+13, W!, REST+4, REST+5, DIE1+4~, DIE1+22~, S+4 , CAP+2*
>> X1	ESIG+3
Y	LRAPR+3~, EN+14~, EN+20, EN+24, EN+25, W!, DIE1+4~, DIE1+10, DIE1+11, DIE1+22~ , DIE1+28, A, C+2, SUPCHK+8, SUPCHK+9, SUPCHK+15, SUPCHK+16, SUPCHK+20, NMPATH+3, RELEASE+6! , RELEASE+7*

Customize PDF page

Package: Lab Service

Routine: LRAPR

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Legends:

Package Component Superscript legend

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: