Routine: LRAPPOW

Package	Total	Call Graph
Kernel	1	$$CJ^XLFSTR
Lab Service	1	(,F)^LRAPF

Package	Total	Caller Graph
Lab Service	2	LRAPLG LRSPT

Entry Points

Name	Comments	DBIA/ICR reference
NOTE	;
R	;
PAGE	;
FLG	;

External References

Name	Field # of Occurrence
^LRAPF	PAGE+2
F^LRAPF	PAGE+2
$$CJ^XLFSTR	R+4, R+8, R+12, R+16, R+18, R+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?19,$C(7),"* THIS PATIENT WAS A PRISONER OF WAR *" Line Location: FLG+2
Function Call: WRITE	Prompt: !! Line Location: FLG+4
Function Call: WRITE	Prompt: ?24,"POW PERIOD: ",X Line Location: FLG+5
Function Call: WRITE	Prompt: !!,"FORWARD A DUPLICATE SET OF SLIDES,BLOCKS AND REPRESENTATIVE " Line Location: FLG+7
Function Call: WRITE	Prompt: "WET TISSUE TO:" Line Location: FLG+8
Function Call: WRITE	Prompt: !!,?3,"DIRECTOR,ARMED FORCES INSTITUTE OF PATHOLOGY" Line Location: FLG+10
Function Call: WRITE	Prompt: !,?3,"ATTENTION: FORMER POW REGISTRY" Line Location: FLG+12
Function Call: WRITE	Prompt: !,?3,"WASHINGTON, D.C. 20306",!,"<A POW label (VA Form 10-5558) may " Line Location: FLG+14
Function Call: WRITE	Prompt: "be attached to packaged specimens>" Line Location: FLG+15
Function Call: WRITE	Prompt: !!,"MARK CASE CLEARLY AS:" Line Location: FLG+17
Function Call: WRITE	Prompt: " FORMER POW ",X Line Location: FLG+18
Function Call: WRITE	Prompt: !,"NOTE IN APPROPRIATE FORM THAT MATERIAL HAS BEEN SENT TO THE AFIP" Line Location: FLG+20
Function Call: WRITE	Prompt: !! Line Location: FLG+22
Function Call: WRITE	Prompt: !!,"Follow Guidelines for Performing Autopsy Examination on Former " Line Location: NOTE+2
Function Call: WRITE	Prompt: "Prisoners of War (POW's) PROFESSIONAL SERVICES LETTER IL 11-82-17" Line Location: NOTE+3
Function Call: WRITE	Prompt: !,"Be sure to take appropriate samples of:" Line Location: NOTE+5
Function Call: WRITE	Prompt: !,"BRAIN, NERVE, TESTES, PROSTATE, URINARY BLADDER, and KIDNEY" Line Location: NOTE+7
Function Call: WRITE	Prompt: $C(7),!!,$$CJ^XLFSTR(LRTMP,IOM) Line Location: R+4
Function Call: WRITE	Prompt: !! Line Location: R+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("***************",IOM) Line Location: R+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(LRTMP,IOM) Line Location: R+12
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(LRTMP,IOM) Line Location: R+16
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("the AFIP using the AFIP Requisition form. ",IOM) Line Location: R+18
Function Call: WRITE	Prompt: !! Line Location: R+20
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("***************",IOM) Line Location: R+22
Function Call: WRITE	Prompt: ! Line Location: R+24

Name	Line Occurrences (* Changed, ! Killed)
^DIC(22 - [#22]	FLG+5
^DPT - [#2]	LRAPPOW+11, LRAPPOW+14

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	LRAPPOW+11, LRAPPOW+14
IOM	R+4, R+8, R+12, R+16, R+18, R+22
IOSL	PAGE+2
>> LR("Q"	LRAPPOW+10*, LRAPPOW+11, FLG+1, FLG+3, FLG+6, FLG+9, FLG+11, FLG+13, FLG+16, FLG+19 , NOTE+1, NOTE+4, NOTE+6, R+2, R+5, R+7, R+9, R+13, R+17, R+19 , R+21, R+23
>> LRSF515	LRAPPOW+9*, PAGE+1
>> LRSS	FLG+21
LRTMP	R+1~, R+3, R+4, R+10, R+11, R+12, R+14, R+15*, R+16
U	LRAPPOW+11, LRAPPOW+12, FLG+5
>> X	LRAPPOW+12, LRAPPOW+15, LRAPPOW+16, FLG+5*, FLG+18

Customize PDF page

Package: Lab Service

Routine: LRAPPOW

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
FLG	LRAPPOW+13
NOTE	FLG+21
PAGE	FLG+1, FLG+3, FLG+6, FLG+9, FLG+11, FLG+13, FLG+16, FLG+19, NOTE+1, NOTE+4 , NOTE+6, R+2, R+5, R+7, R+9, R+13, R+17, R+19, R+21, R+23
R	LRAPPOW+16