Routine: ORY132

Information

ORY132 ;SLC/REV -- postinit rtn for OR*3*132 ;12/13/01 06:25 [4/29/02 4:53pm]

Source file <ORY132.m>

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$FMTE,$$NOW)^XLFDT ($$PATCH,MES)^XPDUTL
Order Entry Results Reporting	2	$$ORDERER^ORQOR2 VERSION^ORY132
MailMan	1	^XMD
Toolkit	1	(GETLST,PUT)^XPAR
VA Fileman	1	UPDATE^DIE

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORY132

Name	Comments	DBIA/ICR reference
PRE	; -- preinit
VERSION	;;19.7
SETVAL	;
SURGRPT	; Add Surgery report to Reports tab
CPREG	; Register TIU Clinical Procedures RPCs if TIU1.0109 present
INSERT(OPTION,RPC)
FIXALERT	; convert "1" in ALERT ON RESULTS field to Ordering Provider
SENDPAR(ANAME)	; Return true if the current parameter should be sent
TASKJOB	; Queue background task to update Order file for Alert Results field.
LINE(DATA)
SURGREG	; Register TIU SURGERY RPCs if TIU1.0112 present
MAIL	; send bulletin of installation time
POST	; -- postinit

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	FIXALERT+2, FIXALERT+3, FIXALERT+5*
^ORD(101.24 - [#101.24]	SETVAL+2, SURGRPT+2, SURGRPT+3

Name	Field # of Occurrence
ANAME	SENDPAR~, SENDPAR+1, SENDPAR+2, SENDPAR+3
COUNT	MAIL+1~, MAIL+2, LINE+1, LINE+2
DATA	LINE~, LINE+2
DIERR	INSERT+4~
DIFROM	MAIL+1~
DUZ	FIXALERT+12, MAIL+5
ERR	INSERT+4~
FDA	INSERT+4~
FDA(	INSERT+6*
FDA(19	INSERT+5*
FDAIEN	INSERT+4~
FOUND	SURGRPT+1~, SURGRPT+3, SURGRPT+5, SURGRPT+6, SURGRPT+7
I	MAIL+1~, MAIL+5*
MENU	CPREG+1~, CPREG+2, CPREG+3, SURGREG+1~, SURGREG+2, SURGREG+3
OPTION	INSERT~, INSERT+5
ORDUZ	FIXALERT+1~, FIXALERT+4*, FIXALERT+5
ORERR	SURGRPT+1~, SURGRPT+4
ORI	SURGRPT+1~, SURGRPT+3, SURGRPT+5, SURGRPT+6
ORLST	SURGRPT+1~, SURGRPT+4, SURGRPT+8
ORLST(	SURGRPT+5, SURGRPT+6, SURGRPT+8
ORP	SETVAL+1~, SETVAL+2, SETVAL+3, SURGRPT+1~, SURGRPT+2, SURGRPT+9
ORS	SURGRPT+1~, SURGRPT+8*, SURGRPT+9
ORSURG	SURGRPT+1~, SURGRPT+3*, SURGRPT+6
ORT	SETVAL+1~, SETVAL+2, SETVAL+3, SURGRPT+1~, SURGRPT+2, SURGRPT+9
ORTEXT	FIXALERT+1~
ORX	FIXALERT+1~, FIXALERT+2*, FIXALERT+3, FIXALERT+4, FIXALERT+5
RPC	CPREG+1~, CPREG+3, SURGREG+1~, SURGREG+3, INSERT~, INSERT+6
SMDUZ	FIXALERT+9~
SMY	FIXALERT+9~
START	MAIL+1~
TEXT	MAIL+1~
TEXT(	LINE+2*
TEXT(1	FIXALERT+6*
U	SURGRPT+6, FIXALERT+3, FIXALERT+5
VER	POST+1~, POST+2*
>> X	MAIL+8*, MAIL+9
XMDUZ	FIXALERT+11, MAIL+1~, MAIL+4
XMSUB	FIXALERT+9~, FIXALERT+10, MAIL+1~, MAIL+3
XMTEXT	FIXALERT+9~, FIXALERT+13, MAIL+1~, MAIL+6
XMY	MAIL+1~
XMY(	FIXALERT+12, MAIL+5
ZTDESC	TASKJOB+2~, TASKJOB+4*
ZTDTH	TASKJOB+2~, TASKJOB+4*
ZTIO	TASKJOB+2~, TASKJOB+4*
ZTRTN	TASKJOB+2~, TASKJOB+4*
ZTSAVE	TASKJOB+2~
ZTSAVE("DUZ"	TASKJOB+4*
ZTSK	TASKJOB+2~, TASKJOB+6, TASKJOB+7

Name	Field # of Occurrence
$T(VERSION	MAIL+3, MAIL+8
$T(VERSION^ORY132	POST+2