Routine: LRSCTX

Package	Total	Call Graph
Lab Service	2	($$CODE,$$DELHIER,$$TXT4CS)^LRSCT $$FILE^LRSCTX1
Automated Lab Instruments	1	$$SCT2IEN^LA7VHLU6
Kernel	1	($$TRIM,$$UP)^XLFSTR
VA FileMan	1	($$FIND1,FIND)^DIC

Package	Total	Caller Graph
Automated Lab Instruments	3	LA7SMU2 LA7VIN5B LA7VIN7

Entry Points

Name	Comments	DBIA/ICR reference
EN(LRFILE,LRTXT,LRSCT,LRHL7,LRERROR,CHECK)	; ; Main entry point for LRSCTX. ; Returns a matching entry for LRTXT in LRFILE or creates a new entry in LRFILE for LRTXT. ; Called by OBX^LA7VIN7
CHKSCT(LRFILE,LRSCT,HLINFO,ADD,INACTIVE)	; ; Private helper method ; Checks for an SCT match. If no existing LRFILE entry is found using the LEX data, a new entry in LRFILE will be created automatically. ; Inputs ; LRFILE: File number to search/add entry to (61, 61.2, 62) ; LRSCT: SCT Code to use for search ; HLINFO:<byref> (from EN^LRSCTX) ; ADD:<opt> dflt=0 0=dont add new entry 1=add new entry ; INACTIVE: <opt>0 or 1 <dflt=0> 1=use SCT even if inactive ; Outputs ; The IEN of the entry found or created. ; If a file error occurred, output=0 and the second "^" piece contains error info. ie "0^Unknown file #"
FIND(LRTXT,LRFILE,NTEXT)	; ; Private helper method ; Tries to find a matching text entry in the file specified. ; Inputs ; LRTXT: Text of term ; LRFILE: File # to use ; NTEXT:<byref> See Outputs ; Outputs ; 0 if no match, else the IEN of the matching record. ; NTEXT: New text to use for .01 field
MATCH(TEXT,DATA)	; ; Private helper method ; Scan the DATA array for an entry that matches TEXT. ; Inputs ; TEXT: The .01 text to match on ; DATA: <byref> a DILIST array from FIND^DIC ; Outputs ; 0 = no match or the IEN of the matching record.

Name	Field # of Occurrence
$$FIND1^DIC	FIND+24
FIND^DIC	FIND+29, FIND+35, FIND+46, FIND+54
$$SCT2IEN^LA7VHLU6	EN+61, CHKSCT+18
$$CODE^LRSCT	EN+58, CHKSCT+23
$$DELHIER^LRSCT	CHKSCT+54, FIND+43
$$TXT4CS^LRSCT	EN+52
$$FILE^LRSCTX1	EN+79, CHKSCT+65
$$TRIM^XLFSTR	EN+52, EN+70, EN+76, FIND+29, FIND+35, FIND+40, MATCH+15, MATCH+25, MATCH+33
$$UP^XLFSTR	CHKSCT+60, MATCH+15, MATCH+25, MATCH+33

Name	Line Occurrences (* Changed, ! Killed)
^LAB(64.061 - [#64.061]	CHKSCT+60

Name	Line Occurrences
$$CHKSCT	EN+40, EN+64
$$FIND	EN+48, EN+70, CHKSCT+30, CHKSCT+34, CHKSCT+47
$$MATCH	FIND+30, FIND+37, FIND+47, FIND+56

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADD	CHKSCT~, CHKSCT+14*, CHKSCT+50
CHECK	EN~, EN+32*, EN+73
DATA	EN+27~, EN+52, CHKSCT+13~, CHKSCT+22~, MATCH~
DATA("DILIST"	MATCH+19, MATCH+20, MATCH+23, MATCH+24, MATCH+30, MATCH+31, MATCH+32
DATA("F"	CHKSCT+29, CHKSCT+33
DATA("P"	CHKSCT+32
DATA("S"	CHKSCT+39, CHKSCT+40, CHKSCT+42!*
DATA(0	EN+56, CHKSCT+27
DIERR	EN+27~, EN+28~, FIND+18~, FIND+28!, FIND+34!, FIND+45!, FIND+53!
HLINFO	CHKSCT~, CHKSCT+65
HLINFO("R6247"	CHKSCT+64
I	EN+27~, CHKSCT+13~, CHKSCT+38, CHKSCT+39, CHKSCT+40, CHKSCT+41, MATCH+13~, MATCH+18, MATCH+19, MATCH+20 , MATCH+23, MATCH+24, MATCH+29, MATCH+30, MATCH+31, MATCH+32
INACTIVE	CHKSCT~, CHKSCT+14*, CHKSCT+25, CHKSCT+26
LR6247	EN+27~, EN+34, CHKSCT+22~, CHKSCT+64
LRDATA	EN+27~, FIND+18~, FIND+28!, FIND+30, FIND+34!, FIND+37, FIND+45!, FIND+47, FIND+53!, FIND+56
LRDATA("DILIST"	FIND+36, FIND+55
LRERROR	EN~, EN+75!, EN+79, EN+81, CHKSCT+13~, CHKSCT+65, CHKSCT+67
LRFIEN	EN+27~, EN+37, EN+40, EN+42, EN+48, EN+49, EN+61, EN+62, EN+64, EN+65 , EN+67, EN+70, EN+73, EN+79, EN+80, EN+81, EN+83, CHKSCT+13~, CHKSCT+15, CHKSCT+18 , CHKSCT+21, CHKSCT+30, CHKSCT+31, CHKSCT+34, CHKSCT+35, CHKSCT+45, CHKSCT+47, CHKSCT+49, CHKSCT+50, CHKSCT+65* , CHKSCT+66, CHKSCT+67, CHKSCT+69
LRFILE	EN~, EN+29, EN+35, EN+40, EN+48, EN+61, EN+64, EN+70, EN+79, CHKSCT~ , CHKSCT+14, CHKSCT+18, CHKSCT+30, CHKSCT+34, CHKSCT+47, CHKSCT+65, FIND~, FIND+20*, FIND+24, FIND+29 , FIND+35, FIND+46, FIND+54
LRFSEC	EN+27~, EN+33*
LRHL7	EN~, EN+40, EN+64, EN+79
LRHL7("FSEC"	EN+33
LRHL7("R6247"	EN+34
LRIEN	MATCH+13~, MATCH+16, MATCH+19, MATCH+26, MATCH+28, MATCH+30, MATCH+34*, MATCH+35
LRIN	EN+74~, EN+79, CHKSCT+13~, CHKSCT+53!, CHKSCT+65
LRIN(	EN+76, CHKSCT+54
LRIN(20	CHKSCT+56*
LRIN(21	EN+78, CHKSCT+57
LRIN(22	CHKSCT+61*
LRLEXSCT	EN+27~, CHKSCT+13~, CHKSCT+23*, CHKSCT+24, CHKSCT+25, CHKSCT+26, CHKSCT+55
LRMSG	EN+27~, FIND+18~, FIND+28!, FIND+34!, FIND+45!, FIND+53!
LRNIEN	FIND+18~, FIND+21, FIND+24, FIND+25, FIND+30, FIND+33, FIND+37, FIND+42, FIND+47, FIND+48 , FIND+51, FIND+56, FIND+57, FIND+60
LRSCT	EN~, EN+31, EN+40, CHKSCT~, CHKSCT+14, CHKSCT+18, CHKSCT+23, CHKSCT+56
LRTXT	EN~, EN+30, EN+43, EN+48, EN+52, EN+61, EN+70, EN+76, FIND~, FIND+19 , FIND+22*, FIND+24, FIND+29, FIND+30, FIND+35, FIND+37, FIND+40
LRX	EN+27~, EN+52*, EN+54
NM	MATCH+13~, MATCH+24, MATCH+25, MATCH+32, MATCH+33
NODE	EN+28~, CHKSCT+13~, CHKSCT+44, CHKSCT+45, CHKSCT+46
NTEXT	EN+27~, EN+47!, EN+48, EN+68!, EN+70, CHKSCT+13~, CHKSCT+30, CHKSCT+34, CHKSCT+47, FIND~ , FIND+49, FIND+57
REC	MATCH+13~, MATCH+23, MATCH+26, MATCH+31, MATCH+34
SCT	EN+55~, EN+56, EN+57, EN+58, EN+61, EN+64, MATCH+13~, MATCH+20, MATCH+21
SCTHIER	CHKSCT+22~, CHKSCT+27*, CHKSCT+58
SCTP	EN+27~, CHKSCT+13~, CHKSCT+32, CHKSCT+33, CHKSCT+54
TEXT	MATCH~, MATCH+14*, MATCH+15
TXT2	FIND+18~, FIND+43, FIND+44, FIND+46, FIND+47, FIND+49, FIND+54, FIND+56, FIND+57, MATCH+13~ , MATCH+15, MATCH+25, MATCH+33
X	EN+27~, EN+58, EN+59, EN+67, EN+81, CHKSCT+13~, CHKSCT+29, CHKSCT+30, CHKSCT+32, CHKSCT+34 , CHKSCT+40, CHKSCT+41, CHKSCT+46, CHKSCT+47, CHKSCT+58, CHKSCT+59, CHKSCT+60, CHKSCT+61, FIND+18~, FIND+40 , FIND+42, FIND+43, FIND+44
Y	EN+27~, CHKSCT+13~, CHKSCT+37!, CHKSCT+42!
Y(65536	CHKSCT+41*

Customize PDF page

Package: Lab Service

Routine: LRSCTX

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: