Routine: LRARNPX1

Information

LRARNPX1 ; IHS/DIR/AAB - NEW PERSON CONVERSION FOR ^LAR("Z" ; [ 07/22/2002 1:07 PM ]

Source Information

Source file <LRARNPX1.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	2	^%ZISC ^%ZTLOAD
Lab Service	1	(EXCEPT,HEAD)^LRARNPX0

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRARNPX

Entry Points

Name	Comments	DBIA/ICR reference
11	;
WRITE	;
WRIT1	;
POINT(LRFLD,Y,LRNAM,LRSB)	; ; LRFLD - documented at line tag PROV ; Y = value from data the should be entry in ^VA(200,Y)) ; LRNAM is the externalization of the person/provider pointer from 16 ; LRSB is an array with subscript identifiers LRSB(0) first level ; LRSB(1) second level ....
REQUE	; reque task to print out exceptions
PROV(LRFLD,X1,LRSB)	; ; X1 = Pointer value of data that pointed to FILE 16 ; LRFLD = field number or if in a subfile subfile number,field number ; quits with the new value pointer from file 200 or logs an exception ; in ^XTMP("LR52","global root",LRJOB #,subscript 1,LRZD0,field number) ; =error and quits with the old value concantenated with "ERR" ; LRSB is an array that carries all subscripts from the file in ; which the conversion is being done.
1	;
OUT	;
NOP	;
REENT	; re-entry for reque if LRIO is busy from above

External References

Name	Field # of Occurrence
^%ZISC	REENT+5
^%ZTLOAD	REQUE+4
EXCEPT^LRARNPX0	POINT+7, POINT+8, POINT+9
HEAD^LRARNPX0	REENT+2, 11+5, WRIT1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?(IOM-$L("** none found "))\2," NONE FOUND **" Line Location: REENT+3
Function Call: WRITE	Prompt: @IOF Line Location: REENT+5
Function Call: WRITE	Prompt: !!!,"The value ("_+LRVL_") """_$P(LRVL,U,2)_""",",!,"in field "_LRTIT_", could not be repointed.",!,"This occured in: ",LRD0 Line Location: 11+6
Function Call: WRITE	Prompt: !!!,"The value ("_+LRVL_") """_$P(LRVL,U,2)_""",",!,"in field "_LRTIT_", could not be repointed.",!,"This occured in: ",LRD0,!,"The "_LRSF_": subfile of """,LRSB,"""",?54,"entry: "_LRD1 Line Location: WRIT1+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	REENT+4, WRITE+7, WRITE+8, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14
^VA(200 - [#200]	PROV+10, PROV+12
^XTMP("LR52"	POINT+7, POINT+8, POINT+9*, REENT+3, REENT+4, WRITE+1, WRITE+2, WRITE+3, WRITE+4, 11+1 , 11+2

Label References

Name	Line Occurrences
1	REENT+4
11	1+1
NOP	PROV+11, PROV+12
POINT	PROV+11, PROV+12
REQUE	OUT+1
WRIT1	WRITE+8, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14

Naked Globals

Name	Field # of Occurrence
^(	11+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
I	REQUE+1~, REQUE+3*
IOF	REENT+5
IOM	REENT+3
IOSL	11+5, WRIT1+1
LRAC	REENT+6!
LRD0	REENT+4*, REENT+6!, WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE+7, WRITE+8, WRITE+9, WRITE+10 , WRITE+11, WRITE+12, WRITE+13, WRITE+14, 11+1, 11+2, 11+6, WRIT1+2
LRD0(0	REENT+4, WRITE+7
LRD1	REENT+6!, WRITE+2*, WRITE+3, WRITE+4, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14 , WRIT1+2
LRD1(0	WRITE+8, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14*
LRFILE	POINT+7, POINT+8, POINT+9, REENT+2, REENT+3, REENT+4, REENT+6!, WRITE+1, WRITE+2, WRITE+3 , WRITE+4, WRITE+6, 11+1, 11+2, 11+4, 11+5, WRIT1+1
LRFLD	PROV~, PROV+11, PROV+12, POINT~, POINT+7, POINT+8, POINT+9, REENT+6!, WRITE+3, WRITE+4 , WRITE+5, WRITE+6, 11+2, 11+3, 11+4
LRIO	OUT+1, REENT+7!, REQUE+2
LRJOB	POINT+7, POINT+8, POINT+9, REENT+3, REENT+4, REENT+6!, WRITE+1, WRITE+2, WRITE+3, WRITE+4 , 11+1, 11+2, REQUE+2
LRNAM	PROV+8~, PROV+10, PROV+11, PROV+12, POINT~, POINT+7, POINT+8, POINT+9, REENT+7!
LRSB	PROV~, PROV+11, PROV+12, POINT~, REENT+4*, REENT+6!, 1+1, WRITE+1, WRITE+2, WRITE+3 , WRITE+4, WRITE+8, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14, 11+1, 11+2 , WRIT1+2
LRSB(0	POINT+7, POINT+8, POINT+9
LRSB(1	POINT+9
LRSF	REENT+6!, WRITE+8, WRITE+9, WRITE+10, WRITE+11, WRITE+12, WRITE+13, WRITE+14*, WRIT1+2
LRST	REENT+6!
LRTI	REENT+6!
LRTIT	REENT+6!, WRITE+5, WRITE+6, 11+3, 11+4, 11+6, WRIT1+2
LRVL	REENT+6!, WRITE+4, 11+2, 11+6, WRIT1+2
LRZD0	POINT+7, POINT+8, POINT+9, REENT+7!
LRZD1	POINT+7, POINT+8, POINT+9, REENT+7!
LRZD2	POINT+8, POINT+9, REENT+7!
U	PROV+10, POINT+7, POINT+8, POINT+9, WRITE+5, WRITE+6, 11+3, 11+4, 11+6, WRIT1+2
X	PROV+8~, PROV+9*, PROV+10, PROV+11, PROV+12, REENT+7!
X1	PROV~, PROV+9, NOP+1, REENT+7!
Y	PROV+8~, PROV+12*, PROV+13, POINT~, POINT+7, POINT+8, POINT+9, REENT+7!
ZTDESC	REENT+7!, REQUE+2*
ZTDTH	REENT+7!, REQUE+2*
ZTIO	REENT+7!, REQUE+2*
ZTRTN	REENT+7!, REQUE+2*
ZTSAVE	REENT+7!
ZTSAVE(	REQUE+3*

Customize PDF page

Package: Lab Service

Routine: LRARNPX1

Call Graph Total: 3

Caller Graph Total: 1