Routine: ORY350B

Information

ORY350B ;SLCOIFO - PRE- AND POST-INSTALL B FOR PATCH OR*3.0*350 ;04/16/15 07:44

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	3	$$FIND1^DIC ^DIE ^DIK
Kernel	2	^%ZTLOAD (BMES,MES)^XPDUTL
MailMan	1	^XMD
Toolkit	1	($$GET,DEL,EN,ENVAL)^XPAR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORY350

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;Pre-Init Entry Point
POST	;Post-Init Entry Point
PEOMRPT	;Remove new & changed reports from OE/RR REPORTS file (101.24)
PAR	; Parameter Value Transport
LOAD	; load data into ^TMP (expects ROOT to be defined)
DEL	;Delete package level parameters
PUT	;Setup package level parameters
SET(ONAME,P,S)	;Set the parameter
EDITEAD	;edit OR GTX EARLIEST DATE to OR GTX CLINICALLY INDICATED DATE
LU(FILE,NAME,FLAGS,SCREEN,INDEXES)	; call FileMan Finder to look up file entry
CONSPAR	; set any value found for EAD at PKG level back into the CID at SYS level.
DELPARM	;remove ORCDGMRC EARLIEST DATE DEFAULT from the system
CONSULT	;
START	;start search for consult orders
FINDORD	;find cons/proc orders and change OR GTX EARLIEST DATE item ID value from EARLIEST to CLINICALLY
UPDATEID(ORDA)	;update ID value for order. Change "EARLIEST" to "CLINICALLY"
SENDMAIL	;send message with list of edited orders
DATA	; parameter data

External References

Name	Field # of Occurrence
^%ZTLOAD	CONSULT+5
$$FIND1^DIC	LU+1
^DIE	EDITEAD+13, EDITEAD+14, UPDATEID+7
^DIK	PEOMRPT+3, DELPARM+13
^XMD	SENDMAIL+6
$$GET^XPAR	CONSPAR+11
DEL^XPAR	DELPARM+7
EN^XPAR	PAR+11, SET+5, CONSPAR+12
ENVAL^XPAR	DELPARM+4
BMES^XPDUTL	EDITEAD+1, EDITEAD+8, CONSPAR+1, CONSPAR+9, CONSPAR+10, CONSPAR+14, CONSPAR+16, CONSPAR+20, DELPARM+6, DELPARM+12 , CONSULT+6, CONSULT+7
MES^XPDUTL	EDITEAD+9, EDITEAD+10, EDITEAD+14, EDITEAD+15, EDITEAD+16, CONSPAR+2, CONSPAR+3, CONSPAR+4, CONSPAR+15, CONSPAR+17 , DELPARM+8, DELPARM+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,OERR Line Location: DELPARM+7
Routine Call	DIC Line Location: LU+1
Routine Call	DIE Line Location: EDITEAD+13 EDITEAD+14 UPDATEID+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORD(101.24 - [#101.24]	Classic Fileman Calls
^ORD(101.41 - [#101.41]	Classic Fileman Calls
^XTV(8989.51 - [#8989.51]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FILE(100	UPDATEID+7
^FILE(101.41	EDITEAD+14
^OR(100 - [#100]	FINDORD+14, FINDORD+17, FINDORD+18, UPDATEID+4, UPDATEID+5
^ORD(100.98 - [#100.98]	FINDORD+11, FINDORD+12
^ORD(101.24 - [#101.24]	PEOMRPT+3
^ORD(101.41 - [#101.41]	EDITEAD+4, EDITEAD+6
^TMP("OR350_EADID"	CONSULT+1!, FINDORD+2, FINDORD+3, FINDORD+4, FINDORD+5, FINDORD+6, FINDORD+7, FINDORD+8, FINDORD+9, FINDORD+22* , FINDORD+23, UPDATEID+7, UPDATEID+8*
^TMP($J	PAR+2!, PAR+4, PAR+7, PAR+9, PAR+10, PAR+12!
^XTV(8989.51 - [#8989.51]	DELPARM+12

Label References

Name	Line Occurrences
$$LU	CONSPAR+7, CONSPAR+8
CONSPAR	POST+2
CONSULT	PRE+3
DEL	PAR+1
DELPARM	CONSPAR+21
EDITEAD	PRE+2
FINDORD	START+1
LOAD	PAR+5
PAR	POST+1
PEOMRPT	PRE+1
PUT	PAR+1
SENDMAIL	START+2
SET	DEL+3, DEL+4, DEL+5, DEL+6, DEL+7, DEL+8, DEL+9, DEL+10, DEL+11, DEL+12 , DEL+13, DEL+14, DEL+15, PUT+3, PUT+4, PUT+5, PUT+6, PUT+7, PUT+8, PUT+9 , PUT+10, PUT+11, PUT+12, PUT+13, PUT+14
UPDATEID	FINDORD+20

Naked Globals

Name	Field # of Occurrence
^("KEY"	PAR+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	PEOMRPT+1~, PEOMRPT+3, EDITEAD+2~, EDITEAD+6, EDITEAD+7, EDITEAD+14, DELPARM+10~, DELPARM+12, DELPARM+13, UPDATEID+2~ , UPDATEID+6
DA(1	UPDATEID+6*
DIE	EDITEAD+2~, EDITEAD+5, UPDATEID+2~, UPDATEID+6
DIFROM	SENDMAIL+1~
DIK	PEOMRPT+1~, PEOMRPT+3, DELPARM+10~, DELPARM+11
DR	EDITEAD+2~, EDITEAD+12, UPDATEID+2~, UPDATEID+3
DUZ	CONSULT+3, SENDMAIL+3
ENT	PAR+3~, PAR+6, PAR+11, DELPARM+1~, DELPARM+3, DELPARM+7*
FILE	LU~, LU+1
FLAGS	LU~, LU+1
I	PAR+3~, LOAD+1, LOAD+2
IDX	PAR+3~, PAR+6, PAR+7, PAR+9, PAR+10
INDEXES	LU~, LU+1
INST	PAR+8~, PAR+9*, PAR+11
NAME	LU~, LU+1
OERR	DELPARM+1~, DELPARM+4, DELPARM+7, DELPARM+8
ONAME	SET~, SET+5
ORCIDIEN	CONSPAR+5~, CONSPAR+8*, CONSPAR+10
ORCON	FINDORD+10~, FINDORD+11*, FINDORD+19
ORCONREC	CONSULT+2~, CONSULT+3*
ORCOUNT	FINDORD+1~, FINDORD+2, FINDORD+3, FINDORD+4, FINDORD+5, FINDORD+6, FINDORD+7, FINDORD+8, FINDORD+9, FINDORD+21 , FINDORD+22, FINDORD+23, UPDATEID+7, UPDATEID+8*
ORDA	UPDATEID~, UPDATEID+1, UPDATEID+4, UPDATEID+5, UPDATEID+6, UPDATEID+7, UPDATEID+8
ORDATE	FINDORD+13~*, FINDORD+14
ORDISGRP	FINDORD+10~, FINDORD+18*, FINDORD+19
ORDISTXT	EDITEAD+2~, EDITEAD+3*
OREADIEN	CONSPAR+5~, CONSPAR+7*, CONSPAR+9
ORERR	PAR+8~, PAR+11, SET+4~, SET+5, CONSPAR+5~, CONSPAR+12, CONSPAR+13, CONSPAR+16, CONSPAR+17
ORI	PEOMRPT+1~, PEOMRPT+2, PEOMRPT+3
ORID	EDITEAD+2~, EDITEAD+3*
ORIDX	FINDORD+14~, FINDORD+15, FINDORD+16
ORIFN	FINDORD+10~, FINDORD+16*, FINDORD+17, FINDORD+18, FINDORD+20
ORITEM	UPDATEID+2~, UPDATEID+4, UPDATEID+5, UPDATEID+6
ORLIST	DELPARM+1~, DELPARM+4
ORLIST(	DELPARM+7
ORMSG	CONSPAR+5~, CONSPAR+19*
ORNAME	EDITEAD+2~, EDITEAD+3*, EDITEAD+4
ORPARCID	CONSPAR+5~, CONSPAR+6*, CONSPAR+8, CONSPAR+10, CONSPAR+12, CONSPAR+14, CONSPAR+20
ORPAREAD	CONSPAR+5~, CONSPAR+6*, CONSPAR+7, CONSPAR+9, CONSPAR+11
ORPARVAL	CONSPAR+5~, CONSPAR+11*, CONSPAR+12, CONSPAR+19, CONSPAR+20
ORPROC	FINDORD+10~, FINDORD+12*, FINDORD+19
ORVAL	PAR+8~, PAR+10*, PAR+11
P	DEL+1~, DEL+2, DEL+3, DEL+4, DEL+5, DEL+6, DEL+7, DEL+8, DEL+9, DEL+10 , DEL+11, DEL+12, DEL+13, DEL+14, DEL+15, PUT+1~, PUT+2, PUT+3, PUT+4, PUT+5 , PUT+6, PUT+7, PUT+8, PUT+9, PUT+10, PUT+11, PUT+12, PUT+13, PUT+14, SET~ , SET+5
PAR	PAR+8~, PAR+9, PAR+11, DELPARM+1~, DELPARM+3, DELPARM+4, DELPARM+7, DELPARM+12
REF	PAR+3~, LOAD+1, LOAD+2, LOAD+3
ROOT	PAR+3~, PAR+4*, LOAD+3
S	SET~, SET+5
SCREEN	LU~, LU+1
U	PAR+9, CONSPAR+17, FINDORD+18, UPDATEID+5
VAL	PAR+3~, LOAD+1, LOAD+2, LOAD+3
XMDUZ	SENDMAIL+1~, SENDMAIL+4*
XMMG	SENDMAIL+1~
XMSUB	SENDMAIL+1~, SENDMAIL+2*
XMTEXT	SENDMAIL+1~, SENDMAIL+5*
XMY	SENDMAIL+1~
XMY(	SENDMAIL+3*
XMZ	SENDMAIL+1~
>> XPDABORT	EDITEAD+7, EDITEAD+11, EDITEAD+16
ZTDESC	CONSULT+2~, CONSULT+4*, CONSULT+7
ZTIO	CONSULT+2~, CONSULT+4*
ZTRTN	CONSULT+2~, CONSULT+4*
ZTSAVE	CONSULT+2~
ZTSAVE("ORCONREC"	CONSULT+3*
ZTSK	CONSULT+2~, CONSULT+6, CONSULT+7

Marked Items

Name	Field # of Occurrence
$T(DATA+I	LOAD+1
$T(DATA+I+1	LOAD+1

Customize PDF page

Package: Order Entry Results Reporting