Routine: ORY138

Information

ORY138 ;SLC/DAN ;3/14/02 15:31

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Order Entry Results Reporting	4	$$NMSP^ORCD SETALL^ORDD100 ES^ORDD100A $$VALUE^ORX8
Kernel	3	^%ZTLOAD ($$FMADD,$$NOW)^XLFDT MES^XPDUTL
VA Fileman	2	^DIE EN^DIQ1
MailMan	1	^XMD
Registration	1	(,INP)^VADPT
Toolkit	1	$$GET^XPAR

Entry Points

Name	Comments	DBIA/ICR reference
PTNM(IEN)	;Return pt name or -1 if unable to determine
XREF(IEN,DG,NDG)	;Update xrefs for TO field
FIXPPDG	;This section will fix incorrect package pointer and display group problems.
INSTDT(PATCH)	;Returns installation date patch first installed at site
FIXES	;This section will add missing AE Xrefs from active orders
MAIL	;Send results of cleanup in a mail message to initiator
GETIEN(STDT)	;Find first IEN associated with given start date
CHKACT	;Compares current action field with actual current action and updates if necessary
ADM(IEN,ENTERED)	;Determine if patient was inpatient when order was entered
DQ	;Enter here for queued task

External References

Name	Field # of Occurrence
^%ZTLOAD	ORY138+15
^DIE	XREF+3
EN^DIQ1	FIXPPDG+20, FIXPPDG+21
$$NMSP^ORCD	FIXES+9, FIXPPDG+17
SETALL^ORDD100	CHKACT+4
ES^ORDD100A	FIXES+16
$$VALUE^ORX8	FIXPPDG+25
^VADPT	PTNM+4
INP^VADPT	ADM+7
$$FMADD^XLFDT	FIXPPDG+3
$$NOW^XLFDT	FIXES+5
^XMD	MAIL+31
$$GET^XPAR	FIXES+4
MES^XPDUTL	ORY138+13, ORY138+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	FIXPPDG+7, FIXPPDG+8, FIXPPDG+11
^OR(100 - [#100]	FIXES+6, FIXES+7, FIXES+8, FIXES+9, FIXES+10, FIXES+11, FIXES+13, FIXES+14, FIXES+17, FIXPPDG+14 , FIXPPDG+15, FIXPPDG+27, FIXPPDG+28, FIXPPDG+35, FIXPPDG+36, GETIEN+3, GETIEN+4, ADM+3, XREF+2!, CHKACT+2 , CHKACT+3, CHKACT+4*
^ORD(100.98 - [#100.98]	FIXPPDG+9, FIXPPDG+10, FIXPPDG+12
^TMP("ORFIX"	DQ+2!, DQ+4!, FIXES+17, FIXES+18, FIXPPDG+27, FIXPPDG+28, FIXPPDG+29, FIXPPDG+35, FIXPPDG+36, FIXPPDG+38 , FIXPPDG+39*, MAIL+11, MAIL+12, MAIL+20, MAIL+22, MAIL+24, MAIL+26, MAIL+28
^TMP("ORTXT"	DQ+4!, MAIL+6!, MAIL+8, MAIL+9, MAIL+10, MAIL+11, MAIL+12, MAIL+13, MAIL+15, MAIL+16 , MAIL+17, MAIL+18, MAIL+19, MAIL+20, MAIL+21, MAIL+23, MAIL+25, MAIL+27, MAIL+28, MAIL+30
^XPD(9.7 - [#9.7]	INSTDT+2, INSTDT+3

Label References

Name	Line Occurrences
$$ADM	FIXPPDG+33
$$GETIEN	FIXPPDG+4
$$INSTDT	FIXPPDG+2
$$PTNM	FIXES+12, FIXPPDG+22
CHKACT	FIXES+10
FIXES	DQ+3
FIXPPDG	DQ+3
MAIL	DQ+3
XREF	FIXPPDG+29, FIXPPDG+38

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACT	CHKACT+1~, CHKACT+3*, CHKACT+4
ADMITTED	FIXPPDG+1~, FIXPPDG+33*, FIXPPDG+34, FIXPPDG+37, FIXPPDG+38
BADDG	FIXPPDG+1~, FIXPPDG+12*, FIXPPDG+13, FIXPPDG+19
BADPKG	FIXPPDG+1~, FIXPPDG+11*, FIXPPDG+13, FIXPPDG+19
CNT	FIXES+1~, FIXES+2, FIXES+17, FIXES+18, FIXPPDG+1~, FIXPPDG+6, FIXPPDG+19, FIXPPDG+39
CURACT	CHKACT+1~, CHKACT+2*, CHKACT+4
CURDT	FIXES+1~, FIXES+5*, FIXES+13
DA	FIXES+1~, FIXES+15, FIXPPDG+1~, FIXPPDG+20!, FIXPPDG+21!, XREF+1~, XREF+3
DATE	FIXES+1~, FIXES+7, FIXES+8, FIXPPDG+1~, FIXPPDG+2, FIXPPDG+3*, FIXPPDG+4
DFN	ADM+2~, ADM+3, ADM+4, ADM+5, PTNM+1~, PTNM+3*
DG	FIXPPDG+1~, FIXPPDG+18*, FIXPPDG+19, FIXPPDG+21, FIXPPDG+29, FIXPPDG+38, XREF~, XREF+2
>> DGN	FIXPPDG+21*, FIXPPDG+29, FIXPPDG+38
DIC	FIXPPDG+1~, FIXPPDG+20!, FIXPPDG+21!
DIE	XREF+1~, XREF+3*
DIK	FIXPPDG+1~
DIQ	FIXPPDG+20!, FIXPPDG+21!
DONE	GETIEN+1~, GETIEN+2, GETIEN+3, GETIEN+4
DR	FIXPPDG+1~, FIXPPDG+20!, FIXPPDG+21!, XREF+1~, XREF+3*
DUZ	MAIL+4
EDG	FIXPPDG+1~, FIXPPDG+37*, FIXPPDG+38
ENTERED	FIXPPDG+1~, FIXPPDG+32*, FIXPPDG+33, ADM~, ADM+6
ERR	DQ+1~, FIXPPDG+5, FIXPPDG+13, MAIL+14, MAIL+17, MAIL+20
I	MAIL+1~, MAIL+7, MAIL+8, MAIL+9, MAIL+10, MAIL+11, MAIL+12, MAIL+13, MAIL+15, MAIL+16* , MAIL+17, MAIL+18, MAIL+19, MAIL+20, MAIL+21, MAIL+23, MAIL+25, MAIL+27, MAIL+28, MAIL+29 , MAIL+30, CHKACT+1~, CHKACT+3
IDG	FIXPPDG+1~, FIXPPDG+9*, FIXPPDG+13, FIXPPDG+37
IEN	FIXES+1~, FIXES+8, FIXES+9, FIXES+10, FIXES+11, FIXES+13, FIXES+14, FIXES+15, FIXES+17, FIXPPDG+1~ , FIXPPDG+4, FIXPPDG+5, FIXPPDG+14, FIXPPDG+15, FIXPPDG+25, FIXPPDG+27, FIXPPDG+28, FIXPPDG+29, FIXPPDG+33, FIXPPDG+35 , FIXPPDG+36, FIXPPDG+38, GETIEN+1~, GETIEN+2, GETIEN+4, GETIEN+5, INSTDT+1~, INSTDT+2, INSTDT+3, ADM~ , ADM+3, PTNM~, PTNM+2, PTNM+3, XREF~, XREF+2, XREF+3, CHKACT+2, CHKACT+3, CHKACT+4
IPKG	FIXPPDG+1~, FIXPPDG+7*, FIXPPDG+13, FIXPPDG+36
>> J	MAIL+26*, MAIL+27, MAIL+28
LASTRUN	FIXES+1~, FIXES+4*, FIXES+5
NDG	XREF~, XREF+3
ODG	FIXPPDG+1~, FIXPPDG+10*, FIXPPDG+13, FIXPPDG+29, FIXPPDG+37
OPKG	FIXPPDG+1~, FIXPPDG+8*, FIXPPDG+13, FIXPPDG+28
OR0	FIXPPDG+1~, FIXPPDG+15*, FIXPPDG+16, FIXPPDG+18, FIXPPDG+22, FIXPPDG+24, FIXPPDG+32, XREF+2
ORARRAY	FIXPPDG+1~, FIXPPDG+20!, FIXPPDG+21!
ORARRAY(	FIXPPDG+20, FIXPPDG+21
>> ORD	MAIL+24*, MAIL+25, MAIL+26, MAIL+28
ORMSG	ORY138+7~, ORY138+13
ORMSG(1	ORY138+8*
ORMSG(2	ORY138+9*
ORMSG(3	ORY138+10*
ORMSG(4	ORY138+11*
ORMSG(5	ORY138+12*
PAT	FIXES+1~, FIXES+3, FIXES+6, FIXES+7, FIXES+8, FIXES+12, MAIL+22*, MAIL+23, MAIL+24, MAIL+26 , MAIL+28
PATCH	INSTDT~, INSTDT+2
PCLASS	FIXPPDG+1~, FIXPPDG+24*, FIXPPDG+27, FIXPPDG+35
PKG	FIXPPDG+1~, FIXPPDG+16*, FIXPPDG+17, FIXPPDG+19, FIXPPDG+20, FIXPPDG+28, FIXPPDG+36
>> PKGN	FIXPPDG+20*, FIXPPDG+28, FIXPPDG+36
PTNAME	FIXES+1~, FIXES+12, FIXES+17, FIXPPDG+1~, FIXPPDG+22, FIXPPDG+23, FIXPPDG+27, FIXPPDG+28, FIXPPDG+29, FIXPPDG+35 , FIXPPDG+36, FIXPPDG+38
STDT	GETIEN~, GETIEN+3*, GETIEN+4
STOPDT	FIXES+1~, FIXES+13*, FIXES+14, FIXES+17
TYPE	FIXPPDG+1~, FIXPPDG+25*, FIXPPDG+26, FIXPPDG+31
U	FIXES+9, FIXES+13, FIXPPDG+16, FIXPPDG+18, FIXPPDG+22, FIXPPDG+24, FIXPPDG+27, FIXPPDG+28, FIXPPDG+32, FIXPPDG+35 , FIXPPDG+36, FIXPPDG+39, MAIL+11, MAIL+12, INSTDT+3, ADM+3, XREF+2, CHKACT+2, CHKACT+3, CHKACT+4
VADM	PTNM+1~
VADM(1	PTNM+5, PTNM+6
VAIN	ADM+2~
VAIN(1	ADM+8
VAINDT	ADM+2~, ADM+6*
XMDUZ	MAIL+1~, MAIL+3*
XMSUB	MAIL+1~, MAIL+2*
XMTEXT	MAIL+1~, MAIL+5*
XMY	MAIL+1~
XMY(	MAIL+4*
>> ZTDESC	ORY138+14*
>> ZTDTH	ORY138+14*
>> ZTIO	ORY138+14*
>> ZTRTN	ORY138+14*
>> ZTSAVE("DUZ"	ORY138+14*
ZTSK	ORY138+7~, ORY138+16

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORY138

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: