Routine: ORY142

Information

ORY142 ; SLC/MKB - inits for ED pre-patch OR*3*142 ;7/3/02 13:57

Source file <ORY142.m>

Package	Total	Call Graph
VA Fileman	2	IXALL^DIK EN^DIU2
Kernel	1	$$NOW^XLFDT
Order Entry Results Reporting	1	AUDIT^OREV
Registration	1	$$SITE^VASITE
Toolkit	1	($$GET,GETLST)^XPAR

Name	Comments	DBIA/ICR reference
PRE	; -- preinit
P2	; -- SPECIALTY CHANGE rule
P1	; -- ADMISSION rule
DLGSEND(X)
P7	; -- ON PASS rule
P4	; -- DISCHARGE rule
P3	; -- WARD TRANSFER rule
PRMSEND(X)
P8	; -- FROM PASS rule
P5	; -- DEATH rule
PKGS(IEN,PKGS)	; -- save Included Packages
DCSEND(X)
P10	; -- FROM ASIH rule
P9	; -- TO ASIH rule
P6	; -- OR rule
POST	; -- postinit to convert old DC parameters to file #100.6 ; Creates a set of rules for [primary] division
MVTYPES(IEN,TYPES)	; -- save MAS Movement Types

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	P1+3, P3+3, P4+3, P5+2, P6+2
^ORD(100.03 - [#100.03]	POST+5
^ORD(100.6 - [#100.6]	POST+3, P1+1, P1+4, P1+5, P2+1, P2+3, P2+4, P3+1, P3+4, P3+5* , P4+1, P4+5, P5+1, P5+4, P6+1, P6+3, P7+1, P7+2, P8+1, P8+2 , P9+1, P9+2, P10+1, P10+2, P10+3, P10+7, MVTYPES+2, MVTYPES+3, PKGS+2, PKGS+3*
^ORD(101.41 - [#101.41]	PRE+1

Name	Line Occurrences
MVTYPES	P1+2, P2+2, P3+2, P4+2, P5+3, P7+2, P8+2, P9+2, P10+2
PKGS	P1+3, P2+2, P3+3, P4+4, P5+3, P6+2

Name	Field # of Occurrence
CNT	MVTYPES+1~, MVTYPES+2, MVTYPES+3, PKGS+1~, PKGS+2, PKGS+3
DIK	POST+4~, P10+4*
DIU	PRE+2~, PRE+3*
DIU(0	PRE+3*
I	POST+4~, P4+3, P5+2, MVTYPES+1~, MVTYPES+3, PKGS+1~, PKGS+3
IEN	MVTYPES~, MVTYPES+2, MVTYPES+3, PKGS~, PKGS+2, PKGS+3
ORADMIT	POST+4~, P1+1
ORASIH	POST+4~, P9+1, P10+1
ORDEATH	POST+4~, P5+1
ORDIS	POST+4~, P4+1
ORDIV	POST+4~, POST+9*, P1+1, P2+1, P3+1, P4+1, P5+1, P6+1, P7+1, P8+1 , P9+1, P10+1
ORGLOB	POST+4~, P10+6*
ORI	POST+4~, POST+5, POST+9, P1+1, P1+2, P1+3, P1+4, P1+5, P2+1, P2+2 , P2+3, P2+4, P3+1, P3+2, P3+3, P3+4, P3+5, P4+1, P4+2, P4+4 , P4+5, P5+1, P5+3, P5+4, P6+1, P6+2, P6+3, P7+1, P7+2, P8+1 , P8+2, P9+1, P9+2, P10+1, P10+2, P10+3, P10+7*
ORNOW	POST+4~, POST+9*, P1+4, P1+5, P2+3, P2+4, P3+4, P3+5, P4+5, P5+4 , P6+3, P7+2, P8+2, P9+2, P10+2
OROR	POST+4~, P6+1
ORPARM	POST+4~, POST+6, P2+2, P2+3
ORPARM("A"	POST+8*, P1+4
ORPARM("T"	POST+7*, P3+4
ORPASS	POST+4~, P7+1, P8+1
ORPKG	POST+4~, P1+3, P3+3, P4+4, P5+2, P5+3, P6+2*
ORPKG(	P4+3, P5+2
ORPKG(1	P1+3, P3+3, P6+2*
ORSPEC	POST+4~, P2+1
ORTRANS	POST+4~, P3+1
PKGS	PKGS~, PKGS+1
PKGS(	PKGS+3
TYPES	MVTYPES~, MVTYPES+1, MVTYPES+3
U	P1+1, P2+1, P3+1, P4+1, P4+3, P5+1, P5+2, P6+1, P7+1, P8+1 , P9+1, P10+1, P10+3, MVTYPES+1, MVTYPES+2, MVTYPES+3, PKGS+2
X	DLGSEND~, DLGSEND+1, DLGSEND+2, DCSEND~, DCSEND+1, DCSEND+2, DCSEND+3, DCSEND+4, PRMSEND~, PRMSEND+1 , PRMSEND+2