Routine: LRWLST12

Information

LRWLST12 ;DALOI/STAFF - ACCESSION SETUP ;8/19/2013

Name	Comments	DBIA/ICR reference
CAP	; from LRWLST11,LRTSTJAM
CAP1	;
C3	;
VMSG	;
ORUT2	; Update ordered test in file #69.6 ; Called by LRWLST11
PROVCPY	; Copy remote ordering provider from file #69.6 to ordered test multiple (#.35) ; Called from LRWLST11
APMOVE	; Copy anatomic pathology data from file #69.6 to corresponding fields in file #63 for this accession. ; Called from LRWLST11
MAILALRT(LRRNAME,LRFMERR)	; ; Send mail message alert when FileMan DBS errors returned ; Inputs ; LRRNAME: Routine name (TAG~RTN) ; LRFMERR:<byref><opt> FileMan error local array
CYWKLD(LR61NAME,LR61,LR62,LRAA)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CYWKLD+9
Function Call: WRITE	Prompt: !!,"CY Workload Profile For:" Line Location: CYWKLD+10
Function Call: WRITE	Prompt: ! Line Location: CYWKLD+11
Function Call: WRITE	Prompt: !," SPECIMEN: ",LR61NAME Line Location: CYWKLD+12
Function Call: WRITE	Prompt: !," SPECIMEN TOPOGRAPHY: ",$$GET1^DIQ(61,LR61_",",.01) Line Location: CYWKLD+13
Function Call: WRITE	Prompt: !," COLLECTION SAMPLE: ",$$GET1^DIQ(62,LR62_",",.01) Line Location: CYWKLD+14
Function Call: WRITE	Prompt: ! Line Location: CYWKLD+15