Routine: LRIPOS

Package	Total	Call Graph
Lab Service	5	ENT^LRIGCOPY ^LRIPOS2 ^LRIPOS3 ^LRIPOS4 ^LRIPOSXM
VA Fileman	3	%XY^%RCR ^DIE (,IXALL)^DIK

Entry Points

Name	Comments	DBIA/ICR reference
LAM	;
EN	;
END	;
EXC
ENQUE
APGRP	;Checking for LR as an application group for New Person file
1
BXREF	; Setting B Xref for 65.54,.01
VA200
ALPHA	;
VER
FIN
WKL	;

External References

Name	Field # of Occurrence
%XY^%RCR	EN+19, EXC+2
^DIE	APGRP+7
^DIK	EN+8, EN+9, 1+2, 1+3, 1+4, 1+5, LAM+1, LAM+2, LAM+3, WKL+7 , WKL+8, WKL+9
IXALL^DIK	BXREF+3
ENT^LRIGCOPY	EN+2
^LRIPOS2	ENQUE+4
^LRIPOS3	BXREF+5
^LRIPOS4	EN+10
^LRIPOSXM	ALPHA+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"The ASK PROVIDER field (#10) in the Laboratory Site file (#69.9)" Line Location: EN+14
Function Call: WRITE	Prompt: !,"is set to Yes to comply with OERR Alert requirements",! Line Location: EN+15
Function Call: WRITE	Prompt: !,"^LS(95) global is obsolete, it is replaced by ^LAB(95)",! Line Location: EN+17
Function Call: WRITE	Prompt: !?10,"Moving LAB JOURNAL Data from ^LS(95) to ^LAB(95) ",! Line Location: EN+18
Function Call: WRITE	Prompt: !,"Transfer complete",! Line Location: EN+20
Function Call: WRITE	Prompt: !!?15,"The global ^LS(95) will be deleted in a later version.",!! Line Location: EN+21
Function Call: WRITE	Prompt: !!?5,"Updating LR Menu Items ",! Line Location: BXREF+5
Function Call: WRITE	Prompt: !?10,"Done",! Line Location: BXREF+5
Function Call: WRITE	Prompt: !!," Moving excepted location x-ref to the 2 node.",! Line Location: EXC+0
Function Call: WRITE	Prompt: !!,"Removing other obsolete fields ",! Line Location: 1+1
Function Call: WRITE	Prompt: "." Line Location: 1+2
Function Call: WRITE	Prompt: ! Line Location: 1+3
Function Call: WRITE	Prompt: "." Line Location: 1+3
Function Call: WRITE	Prompt: ! Line Location: 1+4
Function Call: WRITE	Prompt: "." Line Location: 1+4
Function Call: WRITE	Prompt: ! Line Location: 1+5
Function Call: WRITE	Prompt: ! Line Location: LAM+3
Function Call: WRITE	Prompt: "." Line Location: LAM+3
Function Call: WRITE	Prompt: "." Line Location: END+1
Function Call: WRITE	Prompt: !,"Adding new Workload urgencies to file 62.05 ",! Line Location: WKL+2
Function Call: WRITE	Prompt: !!,"Removing can be ordered STAT field for Accession Test Group file",! Line Location: WKL+7
Function Call: WRITE	Prompt: !,?5,"Sending Mailman message " Line Location: ALPHA+1
Function Call: WRITE	Prompt: !!?10,"I see you are installing Lab for the first time.",! Line Location: ALPHA+2
Function Call: WRITE	Prompt: !!?7,"Not able to LOCK the ^VA(200) global ",!,"Please release the LOCK on this global",! Line Location: APGRP+2
Function Call: WRITE	Prompt: !,"Adding 'LR' as an application group to the New Person File",!! Line Location: APGRP+3
Function Call: WRITE	Prompt: !!?10,"Removing Obsolete ^LAB('X') Global",!! Line Location: FIN+0
Function Call: WRITE	Prompt: !,"Post Init Complete",!! Line Location: FIN+1
Function Call: WRITE	Prompt: !!?10,$C(7),"Adjusting your Accession file",!! Line Location: ENQUE+0
Function Call: WRITE	Prompt: "." Line Location: ENQUE+2
Routine Call	DIE Line Location: APGRP+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(60.12	END+12!
^DD(62.07	END+3*
^DD(62.1	END+2, END+5
^DD(62.4	END+6, END+7, END+8*
^DD(62.43	END+4*
^DD(62.46	END+9*
^DD(63.04	EN+2!, VA200, VA200+1
^DD(68	END+10, END+11
^DD(68.14	END+13!
^DIC("AC"	APGRP+1
^DIC(67.9	END+1*
^LAB(	EN+6*
^LAB("VERSION"	VER!
^LAB("X"	FIN!
^LAB(60 - [#60]	EN+3!, EN+12, EN+13*
^LAB(62.05 - [#62.05]	WKL+1, WKL+3, WKL+4
^LAB(64.2 - [#64.2]	EN+8
^LAB(64.5 - [#64.5]	BXREF+1
^LAB(69.9 - [#69.9]	EN+11, EXC+1!, EXC+2
^LAB(95 - [#95]	EN+16
^LAC("VERSION"	VER!
^LAH("LR5XTIME"	EN+3!
^LAM("VERSION"	VER!
^LAM("VR"	EN+5*
^LAM(0	EN+11*
^LAR("VERSION"	VER!
^LR("TMP"	EN+3!
^LR("VERSION"	VER!
^LRD("VERSION"	VER!
^LRE("VERSION"	VER!
^LRO("VERSION"	VER!
^LRO(68 - [#68]	ENQUE+2, ENQUE+3!
^LRT("VERSION"	VER!
^LS(95	EN+16
^VA(200 - [#200]	APGRP+2, APGRP+7
^XTMP634	EN+2!

Label References

Name	Line Occurrences
1	BXREF+6
ALPHA	WKL+6
APGRP	ALPHA+1
ENQUE	BXREF+8
VA200	EN+2
VER	BXREF+7

Naked Globals

Name	Field # of Occurrence
^(	WKL+3
^("LR52TIME"	EN+3!
^(0	EN+8*, EXC+2, WKL+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	EN+19, EXC+2
>> %Y	EN+19, EXC+2
>> AC	EXC+1*, EXC+2
>> CM	EN+2*
CNT	EN+12*, EN+13!
DA	EN+3!, EN+7, EN+9!, BXREF+2~, BXREF+3, 1+2!, 1+3!, 1+4!, 1+5!, LAM+1! , LAM+2!, LAM+3!, WKL+7!, WKL+8!, WKL+9, APGRP+4!
DA(1	EN+7, EN+9, BXREF+3, 1+2, 1+3, 1+4, 1+5, LAM+1, LAM+3, WKL+7 , WKL+8, WKL+9
DA(2	EN+7*
DA(3	EN+9*
DIC	APGRP+4!*
DIC(0	APGRP+4*
DIE	APGRP+4!*
>> DIFQ	EN+1
DIK	EN+3!, EN+8, EN+9!, BXREF+2~, BXREF+3, 1+2!, 1+3, 1+4, 1+5, LAM+1 , LAM+2, LAM+3, WKL+7, WKL+8, WKL+9*
DIK(1	BXREF+3*
DLAYGO	APGRP+4*, APGRP+7!
DR	APGRP+4!, APGRP+5*
DR(1	APGRP+6*
DR(2	APGRP+7*
>> GLO	EN+2*
>> GLO1	EN+2*
I	EN+12, EN+13!, END+1
>> LRAA	ENQUE+2*, ENQUE+3
LRDA	EN+5~*, EN+6
LRDAI	EN+5~, EN+6*
>> LRDT	ENQUE+2*, ENQUE+3
>> LRFIRST	BXREF+6, ALPHA+2
LRLLOC	1!
>> LRSN	ENQUE+2*, ENQUE+3
>> LRTEST	ENQUE+3*
>> LRURG	WKL+3*
>> LRURGI	WKL+3*, WKL+4
>> LRURGN	WKL+3*, WKL+4
>> LRVR	BXREF+7, WKL+6, WKL+7, ALPHA+1, ENQUE+4
SX	EXC+2*, 1!
U	EN+8, EN+11, EN+13, EXC+2, WKL+1, WKL+3, WKL+4

Marked Items

Name	Field # of Occurrence
$T(	EN+5

Customize PDF page

Package: Lab Service

Routine: LRIPOS

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items