Routine: ORY158

Information

ORY158 ;SLC/DAN ;11/14/02 08:36

Source file <ORY158.m>

Package	Total	Call Graph
Kernel	3	^%ZTLOAD $$FMADD^XLFDT BMES^XPDUTL
MailMan	1	^XMD
Order Entry Results Reporting	1	$$NMSP^ORCD

Name	Comments	DBIA/ICR reference
CHKPAR()	;Check to see if there is a parent order and if so, return provider
CHKACT	;Check actions for missing provider as well
UPDATE	;
INSTDT(PATCH)	;Returns installation date patch first installed at site
MAIL	;Send results of cleanup in a mail message to initiator
GETIEN(STDT)	;Find first IEN associated with given start date
POST	;Find child entries with a provider of 0 and update it to the correct provider
DQ	;Enter here for queued task

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	MAIL+20
^OR(100 - [#100]	UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+11, UPDATE+16*, CHKPAR+1, CHKPAR+3, CHKACT+2, CHKACT+3, GETIEN+3 , GETIEN+4
^TMP("ORFIX"	DQ+2!, DQ+4!, UPDATE+15*, MAIL+19, MAIL+21, MAIL+22
^TMP("ORTXT"	MAIL+6!, MAIL+8, MAIL+9, MAIL+10, MAIL+11, MAIL+12, MAIL+14, MAIL+15, MAIL+16, MAIL+17* , MAIL+18, MAIL+20, MAIL+22, MAIL+23, MAIL+25!
^XPD(9.7 - [#9.7]	INSTDT+2, INSTDT+3

Name	Field # of Occurrence
^(	GETIEN+4
^(0	CHKACT+3*

Name	Field # of Occurrence
CNT	DQ+1~, UPDATE+6, UPDATE+17, MAIL+11, MAIL+17
DATE	UPDATE+1~, UPDATE+2, UPDATE+3, UPDATE+4
DONE	GETIEN+1~, GETIEN+2, GETIEN+3, GETIEN+4
DUZ	MAIL+4
ERR	DQ+1~, UPDATE+5*, MAIL+13, MAIL+15, MAIL+17
I	CHKACT+1~, CHKACT+2, CHKACT+3, MAIL+1~, MAIL+7, MAIL+8, MAIL+9, MAIL+10, MAIL+11, MAIL+12* , MAIL+14, MAIL+15, MAIL+16, MAIL+17, MAIL+18, MAIL+20, MAIL+22, MAIL+23
IEN	UPDATE+1~, UPDATE+4, UPDATE+5, UPDATE+7, UPDATE+8, UPDATE+9, UPDATE+11, UPDATE+15, UPDATE+16, CHKPAR+1 , CHKACT+2, CHKACT+3, GETIEN+1~, GETIEN+2, GETIEN+4, GETIEN+5, INSTDT+1~, INSTDT+2*, INSTDT+3
ORD	MAIL+1~, MAIL+21*, MAIL+22
ORMSG	POST+2~, POST+6
ORMSG(1	POST+3*
ORMSG(2	POST+4*
ORMSG(3	POST+5*
PARENT	UPDATE+1~, CHKPAR+1*, CHKPAR+2, CHKPAR+3
PATCH	INSTDT~, INSTDT+2
PKG	UPDATE+1~, UPDATE+10, UPDATE+11, UPDATE+12, MAIL+1~, MAIL+19, MAIL+20, MAIL+21, MAIL+22
PKGNUM	UPDATE+1~, UPDATE+9*, UPDATE+10, UPDATE+15
PROV	UPDATE+1~, UPDATE+13, UPDATE+14, UPDATE+16, CHKPAR+3, CHKPAR+4, CHKPAR+5, CHKACT+3
STDT	GETIEN~, GETIEN+3*, GETIEN+4
U	UPDATE+8, UPDATE+9, UPDATE+11, UPDATE+16, CHKPAR+1, CHKPAR+3, CHKACT+3, MAIL+20, INSTDT+3
XMDUZ	MAIL+1~, MAIL+3*
XMSUB	MAIL+1~, MAIL+2*
XMTEXT	MAIL+1~, MAIL+5*
XMY	MAIL+1~
XMY(	MAIL+4*
ZTDESC	POST+2~, POST+7*
ZTDTH	POST+2~, POST+7*
ZTIO	POST+2~, POST+7*
ZTRTN	POST+2~, POST+7*
ZTSAVE	POST+2~
ZTSAVE("DUZ"	POST+7*
ZTSK	POST+2~, POST+9