Routine: LRNPXA

Information

LRNPXA ; IHS/DIR/FJE - NEW PERSON CONVERSION FOR ^LAR("Z" ; [ 1/23/93 ]

Source file <LRNPXA.m>

Package	Total	Call Graph
Lab Service	3	($$CDHTFM,$$DDDATE,$$NOW)^LRAFUNC1 DEVICE^LRNPXA0 ($$PROV,OUT)^LRNPXA1
Kernel	1	^%ZTLOAD

Package	Total	Caller Graph
Lab Service	1	LRCHIVD

Name	Comments	DBIA/ICR reference
DISP	; to display to the user the tasked job descriptions and TASK ; numbers for the different conversion routines
CH	; change pointers in CHEM HEM, TOX, RIA, SER, etc. subfile 63.999904 ; sub("CH") Change REQUESTING PERSON field .1 pointer ; ^LAR("Z",LRDFN,"CH",LRIDT,"NPC")=1 Indicates this record has been
MI	; change pointers in MICROBIOLOGY subfile 63.999905 ; sub("MI") Change PHYSICIAN field .07 pointer ; ^LAR("Z",LRDFN,"MI",LRIDT,"NPC")=1 Indicates this record has been ; converted to File 200. This node is used when restoring arc records. ; "NPC")=2 indicates record processed but no provider number
EN	;
QUE	; ; Task off JOB to convert file 63.9999
WRAPUP	;
DQ	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,$C(7),"Please do ^XUP ",!! Line Location: EN+1
Function Call: WRITE	Prompt: $C(7),!!!,$C(7),"Task # "_ZTSK,!,"with the description of '"_LRDSC_"'" Line Location: DISP+2
Function Call: WRITE	Prompt: !,"has been schedlued to run " Line Location: DISP+3
Function Call: WRITE	Prompt: $$DDDATE^LRAFUNC1($$CDHTFM^LRAFUNC1(ZTSK("D")),2)_".",$C(7),! Line Location: DISP+4

Name	Line Occurrences (* Changed, ! Killed)
^LAR("Z" - [#63.9999]	DQ+8, CH+7, CH+8, CH+9, CH+10, CH+13, MI+7, MI+8, MI+9, MI+10* , MI+11*
^XTMP("LR52"	DQ+5!, DQ+6, DQ+10
^XTMP("LR52TIME"	DQ+5!, DQ+7, DQ+11

Name	Field # of Occurrence
^("NPC"	CH+13, MI+11

Name	Field # of Occurrence
%	WRAPUP+1!
%X	WRAPUP+1!
%Y	WRAPUP+1!
%ZIS	WRAPUP+1!
DIC	WRAPUP+1!
DUZ	EN+1
DUZ(0	EN+1
I	WRAPUP+1!
LRAC	EN+2~, WRAPUP+2!
LRD0	CH+9, CH+12, CH+13, WRAPUP+2!
LRD1	WRAPUP+2!
LRDSC	EN+2~, QUE+3*, DISP+2, WRAPUP+2!
LRDT	EN+2~, WRAPUP+3!
LRFILE	DQ+2~, DQ+3*, DQ+5, DQ+6, DQ+7, DQ+10, DQ+11, WRAPUP+2!
LRIO	EN+2~, EN+3, QUE+4, WRAPUP+2!
LRJOB	EN+2~, DQ+3*, DQ+6, DQ+7, DQ+10, DQ+11, WRAPUP+2!
LRLST	DQ+2~, DQ+8*, WRAPUP+2!
LRPRV	CH+5~, CH+9, CH+10, CH+11, CH+12, MI+5~, MI+9, MI+10, MI+11, WRAPUP+2!
LRSB	CH+5~, CH+12, MI+5~, MI+11, WRAPUP+3!
LRSB(0	CH+6, MI+6
LRSORT	WRAPUP+3!
LRST	DQ+3*, WRAPUP+3!
LRTSK	DQ+2~, DQ+3*, WRAPUP+2!
LRZD0	EN+2~, DQ+2~, DQ+3, DQ+8, DQ+10, CH+7, CH+8, CH+9, CH+10, CH+13 , MI+7, MI+8, MI+9, MI+10, MI+11, WRAPUP+2!
LRZD1	CH+5~, CH+7, CH+8, CH+9, CH+10, CH+13, MI+5~, MI+7, MI+8, MI+9 , MI+10, MI+11, WRAPUP+2!
POP	WRAPUP+1!
U	DQ+11, CH+9, CH+12, MI+9, MI+11
X	EN+2~, WRAPUP+1!
Y	WRAPUP+1!
ZTDESC	QUE+3*, WRAPUP+1!
ZTDTH	DISP+5!, WRAPUP+1!
ZTIO	QUE+2*, WRAPUP+1!
>> ZTQUEUED	DQ+1
ZTRTN	QUE+4*, WRAPUP+1!
ZTSAVE	WRAPUP+1!
ZTSAVE("LRIO"	QUE+4*
ZTSK	EN+2~, DQ+3, DISP+2, DISP+5!, WRAPUP+1!
ZTSK("D"	DISP+4