Routine: LRLNCHL7

Information

LRLNCHL7 ;DALCIOFO/RH-LEDI HL7 CODES ;1-OCT-1998

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,$$CJ^XLFSTR("This option prints a list of specimens from the",IOM) Line Location: EN+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("LAB ELECTRONICS CODE file (#64.061).",IOM) Line Location: EN+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("This list may assist you when linking your",IOM) Line Location: EN+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("local TOPOGRAPHY (#61) entries with the file 64.061.",IOM) Line Location: EN+4
Function Call: WRITE	Prompt: !!?5,"Report queued!" Line Location: QUE+2
Function Call: WRITE	Prompt: $S($P(^(0),U,5)="0070":"*",1:""),$P(^(0),U),?40 Line Location: START+7
Function Call: WRITE	Prompt: ! Condition for execution: $X>40 Line Location: START+7
Function Call: READ	Variable: LRN Timeout: DTIME Line Location: HDR+1
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("LEDI HL7 ELECTRONIC SPECIMEN CODES",IOM) Line Location: HDR+4
Function Call: WRITE	Prompt: !?5,LRPDT,?(IOM-15)," Page ",$J(LRPAGE,3) Line Location: HDR+5
Function Call: WRITE	Prompt: !,"* Source HL7 0070 Table" Line Location: HDR+6
Function Call: WRITE	Prompt: !,LRLINE,! Line Location: HDR+7
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+1