Routine: LRCKF60

Package	Total	Call Graph
Kernel	1	^%ZISC
Lab Service	1	LOG^LRCKF
VA Fileman	1	^DIM

Package	Total	Caller Graph
Lab Service	1	LRCKF

Entry Points

External References

Name	Field # of Occurrence
^%ZISC	LRCKF60+3
^DIM	CHK+11
LOG^LRCKF	LRCKF60+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: LRCKF60+3
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: LRCKF60+3
Function Call: WRITE	Prompt: !," CHECKING LAB TEST FILE ^LAB(60 ",!," DD VERSION is ",$S($D(^DD(60,0,"VR"))#2:^("VR"),1:"Missing"),! Line Location: ENT+1
Function Call: WRITE	Prompt: !! Line Location: END+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="P-" Line Location: END+0
Function Call: WRITE	Prompt: !!,$P(^LAB(60,DA,0),U) Line Location: NAME+0
Function Call: WRITE	Prompt: !,?5 Line Location: NAME+1
Function Call: WRITE	Prompt: !!,"ENTRY ",DA," HAS NO ZERO NODE.. REMOVED" Line Location: CHK+0
Function Call: WRITE	Prompt: "F- A test can NOT be Atomic and Cosmic at the same time." Line Location: CHK+3
Function Call: WRITE	Prompt: "W- Atomic test has no site/specimen, therefore no units or range." Line Location: CHK+4
Function Call: WRITE	Prompt: "F- Test MUST have a HIGHEST URGENCY ALLOWED value." Line Location: CHK+5
Function Call: WRITE	Prompt: "F- Atomic test has a location but not a DATA NAME." Line Location: CHK+6
Function Call: WRITE	Prompt: "F- The data name field must be re-entered to set up location & field." Line Location: CHK+7
Function Call: WRITE	Prompt: "F- BAD Data name." Line Location: CHK+8
Function Call: WRITE	Prompt: "F- Needs a print name entered." Line Location: CHK+10
Function Call: WRITE	Prompt: "F- BAD print code." Line Location: CHK+11
Function Call: WRITE	Prompt: "W- Does not have a print order." Line Location: CHK+12
Function Call: WRITE	Prompt: "F- BAD pointer to the Accession file." Line Location: C2+0
Function Call: WRITE	Prompt: "F- BAD Lab collection sample pointer to the Collection sample file." Line Location: C2+1
Function Call: WRITE	Prompt: "F- BAD pointer to the Procedure file." Line Location: C2+2
Function Call: WRITE	Prompt: "F- BAD Edit code pointer to the Execute code file." Line Location: C2+3
Function Call: WRITE	Prompt: "F- BAD 'Batch data code' pointer to the execute code file." Line Location: C2+4
Function Call: WRITE	Prompt: "F- BAD pointer in panel.. " Line Location: PANEL+0
Function Call: WRITE	Prompt: "F- Test is on it's own panel. (infinite loop)" Line Location: PANEL+1
Function Call: WRITE	Prompt: "F- BAD entry in specimen/site subfile. ",LRSSP Line Location: SPEC+0
Function Call: WRITE	Prompt: "F- BAD specimen/site subfile pointer to file #61." Line Location: SPEC+1
Function Call: WRITE	Prompt: "F- BAD type of delta check pointer." Line Location: SPEC+2
Function Call: WRITE	Prompt: "F- BAD collection sample pointer to file #62." Line Location: COLSAMP+0
Function Call: WRITE	Prompt: "F- BAD required comment pointer to execute code file." Line Location: COLSAMP+1
Function Call: WRITE	Prompt: "W- ",$S(LRLCS:"LAB ",1:""),"Collection sample ",$P(^LAB(62,+X,0),U)," does not have a matching Site/Specimen entry." Line Location: LROKCS+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(60	ENT+1
^DD(63.04	CHK+8
^LAB(60 - [#60]	ENT+2, NAME, CHK!, CHK+1, CHK+2, CHK+3, CHK+4, CHK+6, CHK+7, CHK+8 , CHK+9, CHK+12, CHK+13, CHK+14, C2+4, C2+5, C2+6, C2+7, PANEL, LROKCS+1
^LAB(61 - [#61]	SPEC+1
^LAB(61.5 - [#61.5]	C2+2
^LAB(62 - [#62]	C2+1, COLSAMP, LROKCS, LROKCS+2
^LAB(62.07 - [#62.07]	C2+3, C2+4, COLSAMP+1
^LAB(62.1 - [#62.1]	SPEC+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	CAP+1, CAP+2!
CAP	CAP+1, CAP+2!
>> DA	ENT+2*, NAME, CHK, CHK+1, CHK+2, CHK+3, CHK+4, CHK+6, CHK+7, CHK+8 , CHK+9, CHK+12, CHK+13, CHK+14, C2+4, C2+5, C2+6, C2+7, PANEL+1, LROKCS+1
IO	ENT+1
IOF	LRCKF60+3, END
IOST	LRCKF60+3, END
LA0	END!, CHK+2*, CHK+5, CHK+6, CHK+7, C2+1, C2+2, C2+3
LRATOMIC	END!, CHK+2*, CHK+3, CHK+4, CHK+12, LROKCS+2
LRCAP	CAP+2!
>> LRCKW	CHK+4, CHK+12, LROKCS+2
>> LRCS	C2+7*
LRDA	ENT+1, END!, NAME
>> LREND	LRCKF60+3
>> LRIX	CHK+14*
LRLCS	END!, C2+6*, LROKCS+2
LROKCS	END!, LROKCS+1*, LROKCS+2
>> LRSSP	C2+5*, SPEC
LRYES	END!, CHK+1
>> P1	CHK+9*, CHK+10, CHK+11
U	ENT+1*, NAME, CHK+1, CHK+2, CHK+5, CHK+6, CHK+7, CHK+10, CHK+11, CHK+12 , C2+1, C2+2, C2+3, C2+6, SPEC+2, COLSAMP+1, LROKCS, LROKCS+2
>> X	CHK+7, CHK+11, CHK+14, C2+5, C2+6, C2+7, PANEL, PANEL+1, SPEC, SPEC+1 , SPEC+2, COLSAMP, COLSAMP+1, LROKCS, LROKCS+2
>> Y	LROKCS*, LROKCS+1
>> ZTRTN	LRCKF60+3*

Customize PDF page

Package: Lab Service

Routine: LRCKF60

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LROKCS
CAP
END
NAME
CHK
ENT	;from LRCKF
C2	;I $P(LA0,U,6),$D(^LRO(68,+$P(LA0,U,6),0))[0 D NAME W "F- BAD pointer to the Accession file."
SPEC
COLSAMP
PANEL

Name	Line Occurrences
CAP	CHK+13
CHK	ENT+2
COLSAMP	C2+7
ENT	LRCKF60+3
LROKCS	C2+6, COLSAMP+2
NAME	CHK+3, CHK+4, CHK+5, CHK+6, CHK+7, CHK+8, CHK+10, CHK+11, CHK+12, C2+1 , C2+2, C2+3, C2+4, PANEL, PANEL+1, SPEC, SPEC+1, SPEC+2, COLSAMP, COLSAMP+1 , LROKCS+2, CAP+1
PANEL	CHK+14
SPEC	C2+5

Name	Field # of Occurrence
^(	CHK+6, CHK+7, CHK+8, CHK+9, CHK+12, CHK+14, C2+5, C2+7
^("VR"	ENT+1
^(0	CHK+14, C2+5, C2+7, LROKCS
^(4	C2+4