Routine: LRLNCDEL

Information

LRLNCDEL ; DALOI/CA/FHS - UNMAP LAB TESTS TO LOINC CODES OR DELETE LOINC MAPPINGS ;1-OCT-1998

Name	Comments	DBIA/ICR reference
START	;entry point from option LR LOINC MAPPING
EXIT	;
TEST
SPEC	; Ask Specimen- Lookup in Specimen multiple in Lab Test file #60
UNMAP	;Check to see if already mapped to a LOINC code
DIS	;Show the data
INDEX60	;Stores LOINC code in Laboratory Test file (#60) so know what tests are mapped.
SHOWPRE	;DISPLAY LOINC CODE ALREADY MAPPED TO NLT

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!! Line Location: START+3
Function Call: WRITE	Prompt: !! Line Location: TEST+0
Function Call: WRITE	Prompt: !?4,"Locked by another user" Line Location: TEST+8
Function Call: WRITE	Prompt: !!,"There is not a RESULT NLT CODE for "_LRTEST,".",! Line Location: TEST+10
Function Call: WRITE	Prompt: !,"You must select one now to continue with the mapping of this test!",! Line Location: TEST+11
Function Call: WRITE	Prompt: !! Line Location: TEST+16
Function Call: WRITE	Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U) Line Location: TEST+16
Function Call: WRITE	Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U) Line Location: TEST+16
Function Call: WRITE	Prompt: !?5,LRSPECN_" has a broken pointer" Line Location: SPEC+11
Function Call: WRITE	Prompt: !,"Another user is editing this record",! Line Location: UNMAP+6
Function Call: WRITE	Prompt: $C(7) Line Location: UNMAP+10
Function Call: WRITE	Prompt: !!!?5,"Lab Test: "_LRTEST_" / "_LRSPECL_" is NOT mapped to " Line Location: UNMAP+11
Function Call: WRITE	Prompt: !,"WKLD CODE: "_$P(Y,U,2)_" Time Aspect of: "_$G(LROUT(64.061,LRASPECT_",",.01,"E")) Line Location: UNMAP+12
Function Call: WRITE	Prompt: !!,LRSPECN,! Line Location: DIS+4
Function Call: WRITE	Prompt: !!,"This test and specimen is mapped to:" Line Location: SHOWPRE+2
Function Call: WRITE	Prompt: !,"LOINC code: ",LRLNC," ",$G(^LAB(95.3,+LRLNC,80)) Line Location: SHOWPRE+3
Function Call: WRITE	Prompt: !! Line Location: SHOWPRE+4