Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LR7OC0

Package: Lab Service

Routine: LR7OC0


Information

LR7OC0 ;slc/dcm - Convert orders from old to new format ;8/11/97

Source Information

Source file <LR7OC0.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;For a good time, enter here. Lab order conversion with KIDS.
EN1 ;Convert orders without KIDS
CHK ;Check that all lab orders were converted.
CK1 ;Check please (more validity checking). Find bad/missing ptrs to OE/RR 3.0
CK ;Rebuild C & D -xref in 69
COUNT ;Count orders in file 69
BULL(X,XMSUB) ;Send bulletin
TEST(ODT,SN) ;Test HL7 message build without calling
DISP ;Display HL7 message

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Missing ptr at LRSN level to 100:LRODT:"_LRODT_" LRSN:"_LRSN
  • Line Location: CK1+5
Function Call: WRITE
  • Prompt: !,"Bad ptr to 100:"_X_" LRODT:"_LRODT_" LRSN:"_LRSN
  • Line Location: CK1+7
Function Call: WRITE
  • Prompt: !,"Missing ORIFN at test level:LRODT:"_LRODT_" LRSN:"_LRSN_" IFN:"_TST_">>"_X
  • Line Location: CK1+8
Function Call: WRITE
  • Prompt: !!,"Valid Specimen Nodes: "_CT2
  • Line Location: COUNT+7
Function Call: WRITE
  • Prompt: !,"Total Specimen Count: "_CT1
  • Line Location: COUNT+8
Function Call: WRITE
  • Prompt: !,"Total Tests: "_CT3
  • Line Location: COUNT+9
Function Call: WRITE
  • Prompt: !,"Tests to Convert: "_CT4
  • Line Location: COUNT+10
Function Call: WRITE
  • Prompt: !!,"NO LRTMPO(""LRIFN"",LRNIFN) BUILT."
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: !,^(J)
  • Line Location: DISP+1
Info |  Source |  Entry Points |  Interaction Calls