Routine: LRAPT2

Information

LRAPT2 ;AVAMC/REG/WTY - AUTOPSY PRT ;08/23/01

Source file <LRAPT2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Acc #: ",$P(O(2),"^",6),?32,"AUTOPSY DATA" Line Location: LRAPT2+13
Function Call: WRITE	Prompt: ?52,"Age: ",$J($P(O(2),"^",9),3) Line Location: LRAPT2+14
Function Call: WRITE	Prompt: !,"Date/time Died",?52,"Date/time of Autopsy" Line Location: LRAPT2+16
Function Call: WRITE	Prompt: !,Y,?32,$E(LRAU(3),1,18) Line Location: LRAPT2+19
Function Call: WRITE	Prompt: ! Line Location: LRAPT2+22
Function Call: WRITE	Prompt: ! Line Location: LRAPT2+30
Function Call: WRITE	Prompt: X Line Location: LRAPT2+45
Function Call: WRITE	Prompt: ! Line Location: LRAPT2+49
Function Call: WRITE	Prompt: !,LRAU(1) Line Location: LRAPT2+50
Function Call: WRITE	Prompt: !,LRAU(2) Line Location: LRAPT2+55
Function Call: WRITE	Prompt: X Line Location: M+10
Function Call: WRITE	Prompt: X Line Location: A+9
Function Call: WRITE	Prompt: X Line Location: E+12
Function Call: WRITE	Prompt: !!,"SNOMED code(s):" Line Location: HD+2
Function Call: WRITE	Prompt: !! Line Location: EN+13
Function Call: WRITE	Prompt: "Heart(gm)" Condition for execution: $D(B) Line Location: EN+13
Function Call: WRITE	Prompt: ! Line Location: EN+19
Function Call: WRITE	Prompt: $J(B(9),5) Condition for execution: $D(B(9)) Line Location: EN+19