Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 3 (EN1,NEW1)^LR7OB0  ORD1^LR7OB1  $$VER^LR7OU1  
Kernel 2 (,KILL)^%ZTLOAD  MSG^XQOR  
MailMan 1 ^XMD  
VA Fileman 1 NOW^%DTC  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC EN1+10
^%ZTLOAD EN+2
KILL^%ZTLOAD EN1+15
EN1^LR7OB0 TEST+6, TEST+9
NEW1^LR7OB0 EN1+7
ORD1^LR7OB1 TEST+5
$$VER^LR7OU1 EN+1, EN1+1
^XMD BULL+4
MSG^XQOR TEST+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN1+10
^LR - [#63] CHK+4, CK1+4
^LRCNVRT( EN1+5
^LRO(69 - [#69] EN1+4, EN1+5, EN1+6, EN1+8*, EN1+9*, EN1+11!, CHK+3, CHK+4, CHK+5, CK1+3
, CK1+4, CK1+5, CK1+8, CK+3, CK+4*, CK+5, CK+6, CK+7*, COUNT+3, COUNT+5
, COUNT+6
^OR(100 - [#100] CHK+7, CHK+8, CK1+7, COUNT+6, TEST+8
^ORD(100.99 - [#100.99] EN1+2
^TMP( DISP+1
^TMP("LRAP" TEST+3!
^TMP("LRBB" TEST+3!
^TMP("LRCH" TEST+3!

Label References

Name Line Occurrences
BULL EN1+14
CK EN1+4
DISP TEST+10

Naked Globals

Name Field # of Occurrence
^( CHK+5, CK1+8, CK+3, COUNT+6, DISP+1
^(0 EN1+4, EN1+6, CHK+4, CK1+4, CK+3, COUNT+6
^(3 COUNT+6
^(4 CHK+7, CHK+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1+10
APMSG TEST+2~
BBMSG TEST+2~
CHMSG TEST+2~
CONTROL TEST+2~, TEST+4*, TEST+6, TEST+8, TEST+9
CT1 COUNT+1~, COUNT+2*, COUNT+4*, COUNT+8
CT2 COUNT+1~, COUNT+2*, COUNT+5*, COUNT+7
CT3 COUNT+1~, COUNT+2*, COUNT+6*, COUNT+9
CT4 COUNT+1~, COUNT+2*, COUNT+6*, COUNT+10
DUZ BULL+3
>> I DISP+1*
>> J DISP+1*
LINK CHK+1~
LR1 EN1+3~
LRNIFN TEST+2~, TEST+7*
LRODT EN1+3~, EN1+6*, EN1+7, EN1+8, CHK+1~, CHK+4*, CHK+5, CHK+9, CK1+1~, CK1+4*
, CK1+5, CK1+7, CK1+8, TEST+2~
LRORD EN1+3~, EN1+4*, EN1+5*, EN1+6, EN1+9, CHK+1~, CHK+2*, CHK+3*, CHK+4, CK1+1~
, CK1+2*, CK1+3*, CK1+4, TEST+2~
LRSN EN1+3~, EN1+6*, EN1+7, EN1+8, CHK+1~, CHK+4*, CHK+5, CHK+9, CK1+1~, CK1+4*
, CK1+5, CK1+7, CK1+8, TEST+2~
LRTMPO TEST+2~
LRTMPO("LRIFN" TEST+6, TEST+7
MSG TEST+2~
ODT CK+1~, CK+2*, CK+3*, CK+4, CK+5, CK+6, CK+7, COUNT+1~, COUNT+3*, COUNT+5
, COUNT+6, TEST~, TEST+5, TEST+6, TEST+9
ORD COUNT+1~, COUNT+2*, COUNT+3*
ORIFN CHK+9*, CK1+1~, CK1+4*, CK1+5, CK1+6, CK1+7
>> ORX4 CHK+9*
SN CK+1~, CK+3*, CK+4, CK+5, CK+6, CK+7, COUNT+1~, COUNT+3*, COUNT+5, COUNT+6
, TEST~, TEST+5, TEST+6, TEST+9
SUBHEAD EN1+3~
>> T0 CHK+5*, CHK+7, CHK+8, CHK+9
TST EN1+3~, CHK+1~, CHK+5*, CK1+1~, CK1+8*, COUNT+6*
X EN1+3~, EN1+14, CHK+8*, CK1+4*, CK1+7, CK1+8*, CK+1~, CK+3*, CK+4, CK+6*
, CK+7, COUNT+1~, BULL~, TEST+2~, TEST+7*, TEST+8*
X(1 EN1+12*
X(2 EN1+13*
X0 CHK+1~, CHK+4*, CHK+9
X3 COUNT+1~, COUNT+6*
>> XMDUZ BULL+3*
XMSUB BULL~
>> XMTEXT BULL+3*
>> XMY( BULL+3*
>> Y EN1+10*, EN1+12
>> ZTDTH EN+2*
>> ZTIO EN+2*
>> ZTRTN EN+2*
ZTSK EN1+13, EN1+15!

Marked Items

Name Field # of Occurrence
$T(MSG^XQOR TEST+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All