Routine: ECXTRYIT

Information

ECXTRYIT ;BIR/DMA-Test Run for Setup Extract Print Population ;6/15/17 15:30

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$HTE,$$HTFM)^XLFDT
VA FileMan	1	^DIR

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
DSS Extracts	1	ECXTRYIT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry point from ooption
DATE
END
START	;queued entry point
HEAD

External References

Name	Field # of Occurrence
^%ZIS	DATE+2
^%ZISC	END, START+21
^%ZTLOAD	DATE+2
^DIR	DATE
$$FMTE^XLFDT	START+20, HEAD
$$HTE^XLFDT	DATE
$$HTFM^XLFDT	EN+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will print the admission data and data for the last",!,"transfer and treating specialty change for all patients who",!,"were in the hospital on the day you select.",!! Line Location: EN+2
Function Call: WRITE	Prompt: !!,"NOTE - This will generate a report of your inpatient population on the",!,"BEGINNING of the day you select, not the end of the day as MAS/HAS reports",! Line Location: EN+3
Function Call: WRITE	Prompt: "do. For example, for this report, if you choose October 1, 1994, the report",!,"will start at midnight at the beginning of the day." Line Location: EN+4
Function Call: WRITE	Prompt: " For the MAS/HAS report,",!,"you would choose September 30, 1994. The MAS/HAS report begins at midnight",!,"at the end of the day.",!!! Line Location: EN+5
Function Call: WRITE	Prompt: !!,"Must be a date in the past",!! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"This report must be queued to a 132 column printer.",! Line Location: DATE+1
Function Call: WRITE	Prompt: F Line Location: START+20
Function Call: WRITE	Prompt: Q:W="" Line Location: START+20
Function Call: WRITE	Prompt: !,?5,$P(NAM,"^"),?45,$P(EC,"^"),?66,$$FMTE^XLFDT($P(EC,"^",2)) Line Location: START+20
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEAD+0
Function Call: WRITE	Prompt: !!,?30,"INPATIENT WARD LIST (DSS) FOR ",$$FMTE^XLFDT(ECD)," FOR WARD ",W,!!,?12,"PATIENT",?50,"SSN",?66,"ADMIT DATE",! Line Location: HEAD+0
Routine Call	%ZIS Line Location: DATE+2
Routine Call	DIR Line Location: DATE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	START+3, START+4, START+5, START+14, START+18
^DGPM("APMV"	START+14
^DGPM("ATID1"	START+3, START+4
^DIC(42 - [#42]	START+18
^DPT - [#2]	START+18
^TMP($J	START+2!, START+3, START+5, START+7, START+14, START+17, START+18, START+20, START+21!

Label References

Name	Line Occurrences
DATE	DATE
END	DATE, DATE+2
HEAD	START+20

Naked Globals

Name	Field # of Occurrence
^(	START+3, START+4, START+7!, START+14, START+18, START+20
^(0	START+3, START+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DATE+2*!
DFN	START+1~, START+2, START+3, START+4, START+5, START+7, START+14, START+17*, START+18
DIR	DATE!
DIR("A"	DATE*
DIR("B"	DATE*
DIR(0	DATE*
DIRUT	DATE, END!
DT	EN+1*, DATE
DTOUT	END!
DUOUT	END!
EC	START+1~, START+3, START+4, START+5, START+14, START+20
EC1	START+1~, START+3, START+4, START+5
ECAS	START+1~, START+3*
ECCA	START+1~, START+14, START+17, START+18
ECD	DATE*, END!, START+2, START+3, START+5, HEAD
ECD0	START+1~, START+2*, START+3, START+14
ECDA	START+1~, START+3, START+4, START+5, START+14*
ECM	START+1~, START+14*
ECX	START+1~, START+3, START+4, START+5
IOF	HEAD
IOSL	START+20
NAM	START+1~, START+20*
POP	DATE+2, END!
W	START+1~, START+18, START+20, HEAD
X	END!, START+7*
Y	DATE, END!
>> ZTDESC	DATE+2*
>> ZTREQ	START+21*
>> ZTRTN	DATE+2*
>> ZTSAVE("ECD"	DATE+2*

Customize PDF page

Package: DSS Extracts