Routine: LRORD2

Information

LRORD2 ;VA/SLC/CJS - MORE OF LAZY ACCESSION LOGGING ;8/11/97 [ 04/09/2003 8:55 AM ]

Source Information

Source file <LRORD2.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	5	^DIC DO^DIC1 YN^DICN DQ^DICQ EN^DIQ
Lab Service	2	DUP^LRORD2 GS^LRORD3

Caller Graph

Caller Graph Total: 14

Package	Total	Caller Graph
Lab Service	13	LREXECU LREXECU1 LRMIBL LRORD LRORD1 LRORD1GU LRORD2 LRORDD LRORDGUI LRORDST LROW1A LROW2 LRWU1
IHS Changes To Lab	1	BLRORD1

Entry Points

Name	Comments	DBIA/ICR reference
Q20	;
TCOM(TEST,COM)	;Get comments by test
URG	;from LRMIBL, LRORD1, LRWU1
LRM	; F LRSSX=LRM:1 D Q15,^DIC Q:Y<1 S LRWPC=LRWPC+1,LRTSTS=+Y,LRTX(LRTSTS)="",LRURGG=$P(Y(0),U,18) D ENQ K DIC("S") D GS^LRORD3 I LRSAMP>0&(LRSPEC>0) D Q20 S:'LREND LRM=LRM+1 I LREND K LRSAME Q ; ----- BEGIN IHS/OIT/MKK - LR5.21030 -- S:Y<1 %=1 corrects an issue at Q14^LRORD1
RC1
GCOM	;from LRORD1, LRPHITEM, LRTSTJAN, LRWU1
RCS	;from LREXECU, LRORDST, LROW2
Q15	;from LRORD
ENQ
ZQ
URG1
DUP	;from LRORDD
RCOM	;from LRORDST, LROW1
Z3
Z0
Z1
Z2
MORE	;get more tests, from LRORD1

External References

Name	Field # of Occurrence
^DIC	LRM+2, URG+8
DO^DIC1	ZQ
YN^DICN	Z3+1
DQ^DICQ	ZQ
EN^DIQ	ENQ
DUP^LRORD2	Q20+4
GS^LRORD3	LRM+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20," ~ ",$P(^LAB(60,LRTSTS,0),U)," ",$S($D(^LAB(62,LRSAMP,0)):$P(^(0),U),1:"")," ",$S($D(^LAB(61,LRSPEC,0)):$P(^(0),U),1:"")," ~" Line Location: Q20+1
Function Call: WRITE	Prompt: !," ",DIC,^(DR,0) Line Location: Q20+8
Function Call: WRITE	Prompt: !," ",DIC,^(DR,0) Line Location: Q20+10
Function Call: READ	Timeout: DTIME Variable: % Line Location: Q20+14
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: Q20+14
Function Call: WRITE	Prompt: !,"For ",$P(^TMP("LRSTIK",$J,LRSSX),U,2) Line Location: Q20+15
Function Call: WRITE	Prompt: !,"No up-arrows or semicolons allowed." Line Location: RC1+0
Function Call: WRITE	Prompt: " (",$E(B3,1,$L(B3)-1),")" Line Location: Z0+0
Function Call: WRITE	Prompt: !,"Unless special comments are required, this comment will be associated with",!,"all tests requested for this entry." Line Location: Z3+1
Function Call: WRITE	Prompt: " too long",! Line Location: Z1+0
Function Call: WRITE	Prompt: !,"Since this test, collection sample, and site/specimen has already",!,"been requested on this order, it will NOT be duplicated.",$C(7),!,"If you really need a duplicate, place a separate order." Line Location: DUP+1
Function Call: WRITE	Prompt: !,"Since this test, collection sample, and site/specimen has already",! Line Location: DUP+3
Function Call: WRITE	Prompt: "been requested on this order, it will NOT be duplicated.",$C(7),! Line Location: DUP+4
Function Call: WRITE	Prompt: "If you really need a duplicate, place a separate order." Line Location: DUP+5
Routine Call	DIC Line Location: LRM+2 URG+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls
^LAB(62.05 - [#62.05]	Classic Fileman Calls
^LAB(62.5 - [#62.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	Q20+4, Q20+7, Q20+10, URG+1, TCOM+3
^LAB(61 - [#61]	Q20+4
^LAB(62 - [#62]	Q20+4
^LAB(62.07 - [#62.07]	RCOM+3
^LAB(62.5 - [#62.5]	Z2
^LAB(69.9 - [#69.9]	URG+2
^TMP("LRSTIK"	%+1

Label References

Name	Line Occurrences
%	%
ENQ	LRM+2
Q15	LRM+2
Q20	LRM+2
RCOM	RCOM+3, Z3+1, ZQ+1, GCOM+1
TCOM	Z3+2
URG	Q20+12
URG1	URG+1
Z1	Z0
Z2	Z1
Z3	RC1, Z3+1
ZQ	RC1, Z0

Naked Globals

Name	Field # of Occurrence
^(	Q20+10, RCOM+3
^(0	Q20+4, Q20+7, URG+1
^(9	Z2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRM+2, %, Z3+1*
A4	Z0!, Z1*
B3	Z0!, Z1
B6	Z0!, Z1, Z2
>> BGUPRAM	URG+6
>> BLRGUI	Q20+4, Q20+10, URG+5, URG+6, RCOM+3, RCOM+4, RCOM+5, RC1, Z0, Z3 , Z3+1, DUP+2, DUP+7
>> BPCCOM	RCOM+5
COM	TCOM~, TCOM+2, TCOM+4
>> D	ZQ*
>> DA	ENQ*
DIC	ENQ, Q15+3, Q20+10, URG+5!, URG+6, URG1!, ZQ!
DIC("A"	URG+5*
DIC("B"	Q20+12, URG+5, URG+6*
DIC("S"	LRM+2!, Q15+1, Q15+2, URG+5, URG+8, ZQ*
DIC(0	Q15+3, URG+5, URG+6, ZQ
>> DIE	ZQ*
DO	ZQ!
>> DR	ENQ, Q20+10
DTIME	%, RCOM+4
>> DZ	ZQ*
H	URG+1*, URG+8, URG1!
H(0	URG+1*, URG+5, URG+6
>> I	Z2
>> LRCCOM	RCOM+1, RCOM+3, RCOM+4, RCOM+5, RC1, Z0, Z3+1, Z3+2, Z1, Z1+1 , ZQ, GCOM+1
>> LREND	LRM+2, Q20+3, Q20+6, DUP+6, DUP+7*
>> LREXP	Q20+7, Q20+12, RCOM+1, RCOM+3, RCOM+4, GCOM+1*
>> LRGCOM	GCOM+1*
>> LRKIL	RCOM+3
>> LRLABKY	ENQ, Q15+1, Q20+10
>> LRM	LRM+2*
>> LRORDR	Q15+1, URG+5, URG+6, URG+8
>> LRORDRR	Q15+2
>> LROT(	Q20+4, Q20+7, Q20+12, URG1*, DUP+2, DUP+7
>> LROUTINE	Q20+12, URG+2*, URG+5
LRPCE	Z0*, Z1+1!
>> LRQ	Z3
LRSAME	LRM+2!, LRM+4!
>> LRSAMP	LRM+2, Q20+4, Q20+7, Q20+10, Q20+12, URG1, DUP+2, DUP+7
>> LRSPEC	LRM+2, Q20+4, Q20+7, Q20+12, URG1, DUP+2, DUP+7
>> LRSSX	LRM+2*, Q20+7, Q20+12, %+1, URG1
>> LRTCOM(	TCOM+3, TCOM+4
>> LRTEST(	Z3+2
>> LRTSTN	Z3+2
>> LRTSTNM	RCOM+1*
>> LRTSTS	LRM+2*, ENQ, Q20+4, Q20+7, Q20+10, URG+1, DUP+2, DUP+7
>> LRTX(	LRM+2*
LRURGG	LRM+2*, URG+1!
>> LRWPC	LRM+2*
TEST	TCOM~, TCOM+2, TCOM+3, TCOM+4
U	LRM+2, Q15+1, Q20+4, Q20+7, %+1, URG+1, URG+2, Z2
>> V	Z1*
X	URG+1, URG+6, URG+8, URG1, Z2, ZQ, TCOM+1~, TCOM+3, TCOM+4
>> Y	LRM+2, URG+8, Z1, Z2
>> Y(0	LRM+2
>> Z	Q20+3, Q20+4, DUP+2, DUP+7

Customize PDF page

Package: Lab Service

Routine: LRORD2

Call Graph Total: 7

Caller Graph Total: 14