Routine: PSJDSS

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Naked Globals
Local Variables

Information

PSJDSS ;ALB/JRC-REGENERATE DSS EXTRACT DATA FILE (#728.113) & (728.904) ; 10/8/08 1:53pm

Source Information

Source file <PSJDSS.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	2	^%ZTLOAD $$FMTE^XLFDT
Uncategorized	2	^ECXPIV1 ^ECXUD1
Inpatient Medications	1	$$CODES^PSIVUTL
MailMan	1	^XMD
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry Point	ICR #5201 Status: Pending Usage: Private
CHECK(X)	;Check intermediate file for existing entries in selected time frame
IV	;Process iv records to be recreated for intermediate file
START	;Start recompile after queue
MSG	; send message to mail group 'DSS-ECGRP'
UDUPDATE	;Update unit dose extract data file (#728.904)
UD	;Process ud records to be recreated for intermediate file
IVUPDATE	;Update dss intermediate file (#728.113)
DATE()	;Prompt user for start date

Name	Field # of Occurrence
^%ZTLOAD	EN+9
^DIR	DATE+4, DATE+11
^ECXPIV1	IVUPDATE+11
^ECXUD1	UDUPDATE+2
$$CODES^PSIVUTL	IVUPDATE+9
$$FMTE^XLFDT	MSG+6
^XMD	MSG+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	IVUPDATE+1, UDUPDATE+1
^ECX(	CHECK+4
^PS(	IVUPDATE+8
^PS(55 - [#55]	IV+5, IV+6, IV+7, IV+8, IV+9, IV+10, IV+12, UD+5, UD+7, UD+8 , UD+10, UD+11, UD+12, IVUPDATE+4, IVUPDATE+5, IVUPDATE+6, IVUPDATE+7, IVUPDATE+11
^TMP($J	START+7!, IVUPDATE+3!, IVUPDATE+11*

Name	Line Occurrences
$$CHECK	EN+6
$$DATE	EN+5
@(	START+3
IVUPDATE	IV+13
MSG	START+5
UDUPDATE	UD+15

Name	Field # of Occurrence
^(	CHECK+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	IVUPDATE+2~, IVUPDATE+5*
ADSTR	IVUPDATE+2~, IVUPDATE+7*, IVUPDATE+10
ADUNITS	IVUPDATE+2~, IVUPDATE+7, IVUPDATE+9, IVUPDATE+10
B	IVUPDATE+2~, IVUPDATE+5*
COST	UD+2~, UD+13*, UDUPDATE+2
COUNT	START+1~, UD+4, IVUPDATE+11, UDUPDATE+2*, MSG+8
DATE	IV+2~, IV+4, IV+5, IV+6, IV+7, UD+2~, UD+4, UD+6, UD+7*, UD+8
DCST	IVUPDATE+2~, IVUPDATE+8*, IVUPDATE+10
DDATE	UD+2~, UD+13*, UD+14, UDUPDATE+2
DDRG	IVUPDATE+2~, IVUPDATE+8*, IVUPDATE+10, IVUPDATE+11
DFN	IV+2~, IV+6, IV+7, IV+8, IV+9, IV+10, IV+12, UD+2~, UD+4, UD+5* , UD+7, UD+8, UD+10, UD+11, UD+12, IVUPDATE+4, IVUPDATE+5, IVUPDATE+6, IVUPDATE+7, IVUPDATE+10 , IVUPDATE+11, UDUPDATE+2
DIR	DATE+1~, DATE+8!
DIR("A"	DATE+3, DATE+10
DIR(0	DATE+2, DATE+9
DIRUT	DATE+1~, DATE+5, DATE+12
DISP	UD+2~, UD+10*, UD+11
DRG	IVUPDATE+2~, IVUPDATE+6*, IVUPDATE+7
DRGTYP	IVUPDATE+2~, IVUPDATE+6*, IVUPDATE+7, IVUPDATE+8, IVUPDATE+9
DRUG	UD+2~, UD+13*, UDUPDATE+2
DSDATE	IVUPDATE+2~, IVUPDATE+5*, IVUPDATE+11
ECGRP	MSG+1~, MSG+3*, MSG+4
ECMSG	MSG+1~
ECMSG(1	MSG+5*
ECMSG(2	MSG+6*
ECMSG(3	MSG+7*
ECMSG(4	MSG+8*
ECMSG(5	MSG+9*
ECUD	IVUPDATE+2~, IVUPDATE+10, IVUPDATE+11, UDUPDATE+2*
ENDDATE	EN+3~, EN+7, DATE+13, CHECK+4, IV+4, IV+11, UD+4*, UD+14, MSG+6
>> EXTRACT	EN+2, EN+6, EN+7, START+3, MSG+2, MSG+3, MSG+5
FILE	CHECK+2~, CHECK+3, CHECK+4
HOW	UD+2~, UD+13*
>> I	EN+8*
IVROOM	IVUPDATE+2~, IVUPDATE+5*, IVUPDATE+11
LABN	IV+2~, IV+8*, IV+9, IV+10, IV+12
ND	IVUPDATE+2~, IVUPDATE+7, IVUPDATE+8, IVUPDATE+9
NODE	UD+2~, UD+11*, UD+13
ON	IV+2~, IV+7, IV+8, IV+9, IV+10, IV+12, UD+2~, UD+8, UD+10, UD+11 , UD+12, IVUPDATE+4, IVUPDATE+5, IVUPDATE+6, IVUPDATE+7, IVUPDATE+10, IVUPDATE+11, UDUPDATE+2
PROV	IVUPDATE+2~, IVUPDATE+4*, IVUPDATE+10
PROVIDER	UD+2~, UD+13*, UDUPDATE+2
PSGSTRT	UD+2~, UD+12*, UDUPDATE+2
PSIVC	IV+2~, IV+9*, IVUPDATE+10
PSIVI	IV+2~, IV+13*
PSIVNOW	IV+2~, IV+10*, IV+11, IVUPDATE+10
PSIVQTY	IV+2~, IV+12*, IV+13
QTY	UD+2~, UD+13*, UDUPDATE+2
SOLSTR	IVUPDATE+2~, IVUPDATE+7*, IVUPDATE+10
START	IVUPDATE+2~, IVUPDATE+4*, IVUPDATE+11
STDATE	EN+3~, EN+7, DATE+6*, CHECK+4, IV+4, IV+11, UD+4, UD+14, MSG+6
TYP	IVUPDATE+2~, IVUPDATE+4*, IVUPDATE+10
U	IV+9, IV+10, IV+12, UD+13, IVUPDATE+4, IVUPDATE+8, IVUPDATE+9, IVUPDATE+10, IVUPDATE+11
WARD	UD+2~, UD+13*, UDUPDATE+2
X	DATE+1~, DATE+8!, CHECK~, CHECK+3, CHECK+5, IVUPDATE+1, IVUPDATE+2~, IVUPDATE+4, UDUPDATE+1*
XMDUZ	MSG+1~, MSG+3*
XMSUB	MSG+1~, MSG+2*
XMTEXT	MSG+1~, MSG+10*
XMY	MSG+1~, MSG+4!
XMY("G.DSS-"	MSG+4*
Y	DATE+1~, DATE+6, DATE+8!, DATE+13, IVUPDATE+2~, IVUPDATE+9*
>> ZTDESC	EN+7*
>> ZTIO	EN+7*
>> ZTRTN	EN+7*
>> ZTSAVE(	EN+8*
>> ZTSK	EN+10, EN+11

Customize PDF page

Package: Inpatient Medications

Routine: PSJDSS

Call Graph Total: 7