Routine: GMTSLREM

Information

GMTSLREM ; SLC/JER,KER - Electron Microscopy Comp Dvr ; 02/27/2002

Name	Comments	DBIA/ICR reference
MAIN	; Main Entry Point
WRT	; Writes Electron Microscopy Record
WRTSPC	; Writes Specimen field entries
TEXT	; Handles GROSS DESCRIPTION & MICROSCOPIC EXAM/DX Print
SUPPR	; Writes Supplementary Report
WRTP	; Writes Procedure field

Name	Line Occurrences
Function Call: WRITE	Prompt: ?8,"Collected:",?19,$P(X,U),?31,"Acc:",?36,$P(X,U,2),! Line Location: WRT+3
Function Call: WRITE	Prompt: ?9,"Specimen:" Line Location: WRTSPC+1
Function Call: WRITE	Prompt: ?19,^TMP("LREM",$J,IX,.1,GMS),! Line Location: WRTSPC+2
Function Call: WRITE	Prompt: ?(17-$L(X)),X_":",! Line Location: TEXT+1
Function Call: WRITE	Prompt: $P(GMTSLN,"\|"),! Line Location: TEXT+4
Function Call: WRITE	Prompt: "Supplementary Rpt: ",X,! Line Location: SUPPR+2
Function Call: WRITE	Prompt: $P(GMTSRL,"\|"),! Line Location: SUPPR+6
Function Call: WRITE	Prompt: ?7,"Procedures:" Line Location: WRTP+3
Function Call: WRITE	Prompt: ?21,$P(GMQ,"\|"),! Line Location: WRTP+8