Routine: ECXSCX3

Information

ECXSCX3 ;ALB/DHE- DSS Clinic & Stop Codes Validity Report 728.44 ;2/11/14 17:03

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
DSS Extracts	3	^ECXKILL STOP^ECXSTOP ($$EXPORT,EXPDISP)^ECXUTL1
VA FileMan	2	$$GET1^DIQ ^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	ECX STOP CODE VALIDITY

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry point from option
EXIT
START	; queued entry to print report
OUT	;
HEAD	; header for worksheet
PAUSE
ADD

External References

Name	Field # of Occurrence
^%ZIS	EN+14
HOME^%ZIS	EN+18, EXIT
^%ZISC	EN+18, EXIT, OUT+3
^%ZTLOAD	EN+17
$$GET1^DIQ	START+16, START+25
^DIR	PAUSE+3
^ECXKILL	EN+13, OUT+5
STOP^ECXSTOP	START+19, START+20, START+23
$$EXPORT^ECXUTL1	EN+7
EXPDISP^ECXUTL1	EN+12
$$FMTE^XLFDT	EN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will display stop code information of the ACTIVE ",!,"clinics in the Clinics and Stop Code file (#728.44). It will",!,"display stop codes that do not conform to the Business Rules for ",!,"Valid Stop Codes." Line Location: EN+3
Function Call: WRITE	Prompt: !!,"**REMINDER - The CREATE option last ran on ",$S($D(^ECX(728.44,"C")):$$FMTE^XLFDT($O(^ECX(728.44,"C"," "),-1),2),1:"- No date on file"),"." Line Location: EN+4
Function Call: WRITE	Prompt: !,"If the most recent clinic changes from the HOSPITAL LOCATION file #44",!,"are desired, run the CREATE option before running a report.**" Line Location: EN+5
Function Call: READ	Variable: X Timeout: 5 Line Location: EN+6
Function Call: WRITE	Prompt: !,"DSS Clinic stop code file does not exist",!! Line Location: EN+6
Function Call: WRITE	Prompt: !,"ERRORS:" Line Location: START+32
Function Call: WRITE	Prompt: !,"WARNINGS:" Line Location: START+35
Function Call: WRITE	Prompt: !!!?6,"NO PROBLEMS FOUND." Line Location: OUT+1
Function Call: WRITE	Prompt: !!!,?10,TOT," PROBLEM CLINICS FOUND." Line Location: OUT+2
Function Call: WRITE	Prompt: !,"CLINIC & STOP CODES VALIDITY REPORT",?71,"Page: ",PG Line Location: HEAD+2
Function Call: WRITE	Prompt: !!,"IEN#",?13,"CLINIC NAME",?53,"STOP",?63,"CREDIT",?72,"CHAR4" Line Location: HEAD+3
Function Call: WRITE	Prompt: !?53,"CODE",?63,"STOP",?72,"CODE" Line Location: HEAD+4
Function Call: WRITE	Prompt: !?63,"CODE" Line Location: HEAD+5
Function Call: WRITE	Prompt: !,LN Line Location: HEAD+6
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Routine Call	%ZIS Line Location: EN+14
Routine Call	%ZIS Line Location: EN+18 EXIT
Routine Call	DIR Line Location: PAUSE+3

FileNo	Call Tags
^SC - [#44]	GET1^DIQ
^ECX(728.441 - [#728.441]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ECX(728.44 - [#728.44]	EN+4, EN+6, START+8, START+9, START+19, START+20, START+23
^SC - [#44]	START+10, START+11
^TMP($J	EN+8!, EN+9, START+27, START+28, START+29

Label References

Name	Line Occurrences
ADD	START+34, START+37
EXIT	EN+14
HEAD	START+7, START+30, ADD+2, ADD+3
PAUSE	ADD+1
START	EN+11, EN+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	EN+14*
CLIEN	START+2~, START+8*, START+9, START+10, START+11, START+16, START+19, START+20, START+23, START+27 , START+31
CLNAME	START+2~, START+16*, START+27, START+31
CNT	EN+2~, EN+10, START+27, START+28, START+29
CODE	START+2~
CODE1	START+2~, START+19*, START+27, START+31
CODE2	START+2~, START+20*, START+27, START+31
CODE3	START+2~
CODE4	START+2~
CODE5	START+2~, START+23, START+25, START+27, START+31
DAT	START+3~, START+11*
DATE	START+2~, START+18*, START+19, START+20, START+23
DIR	PAUSE~
DIR(0	PAUSE+2*
DIRUT	PAUSE~, PAUSE+4
DT	START+14, START+15, START+18
ECXERR	EN+13!, START+4!, START+17!, START+24, START+32, OUT+4!
ECXERR(	START+28, START+33, START+34
ECXPORT	EN+2~, EN+7*, START+7, START+26, START+38
ERR	START+2~, START+17!
HEAD	START+3~
I	START+3~, START+28, START+33, START+34, START+36*, START+37
INACT	START+3~, START+11*, START+14, START+15
IO	START+1
IO("Q"	EN+15
IOF	OUT+3, HEAD+1
IOSL	START+30, PAUSE+1, ADD, ADD+3
IOST	HEAD+1, ADD, ADD+3
LN	START+3~, START+5*, OUT+4!, HEAD+6
NONAME	START+3~, START+16
NUM	EN+2~, START+28, START+29
PG	START+3~, START+5, OUT+4!, HEAD+1, HEAD+2
POP	EN+2~, EN+14
QFLG	START+3~, START+5*, OUT+4!
QUIT	START+2~, START+6, START+8, START+24, START+33, START+36, START+38, PAUSE+4, ADD+1
REACT	START+3~, START+11*, START+14, START+15
TOT	START+2~, START+6, START+24, OUT+1, OUT+2
TYPE	START+4!, START+17!, START+19, START+20, START+23*
U	START+10
WARNING	EN+13!, START+4!, START+17!, START+24, START+35, OUT+4!
WARNING(	START+29, START+36, START+37
WARNING(0	START+29
WRN	START+2~, START+17!
X	EN+6*!, PAUSE~
Y	START+3~, PAUSE~, PAUSE+4
ZTDESC	EN+2~, EN+16*
ZTDTH	EN+2~, EN+16*
>> ZTREQ	OUT+3*
ZTRTN	EN+2~, EN+16*
ZTSAVE	EN+2~, EN+16!
ZTSK	EN+2~, EN+19
ZUSR	EN+2~

Customize PDF page

Package: DSS Extracts