Routine: ECXSCRP

Information

ECXSCRP ;ALB/JAM - Restricted Stop Code Nonconforming Clinic Report; 07/24/03 ;2/11/14 16:56

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	YX^%DTC $$GET1^DIQ ^DIR
DSS Extracts	2	FIX^ECXSCLD ($$EXPORT,EXPDISP)^ECXUTL1

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: 2

Package	Total	Caller Graph
DSS Extracts	1	ECX CLN STOP REP
Scheduling	1	SD53P568

Entry Points

Name	Comments	DBIA/ICR reference
EN	;foreground entry point
END
PROCESS	;background entry point
PRN	;print line
SCCHK(SCIEN,TYP)	;check stop code against file 40.7
PAGE	;
SCIEN(SCIEN)	;Get stop code IEN
HDR	;header for data from file #728.44

External References

Name	Field # of Occurrence
YX^%DTC	PROCESS+5
^%ZIS	EN+27
HOME^%ZIS	EN+30
^%ZISC	END
^%ZTLOAD	EN+30
$$GET1^DIQ	PROCESS+12, PROCESS+14, PROCESS+15, PROCESS+27
^DIR	EN+12, PAGE+4
FIX^ECXSCLD	EN+16
$$EXPORT^ECXUTL1	EN+17
EXPDISP^ECXUTL1	EN+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+2
Function Call: WRITE	Prompt: !,"This option reviews the Primary and Secondary Stop Codes and any existing Four" Line Location: EN+3
Function Call: WRITE	Prompt: !,"Character Codes in the Clinics and Stop Codes file #728.44." Line Location: EN+4
Function Call: WRITE	Prompt: !,"It produces a report highlighting any nonconformance reasons that pertain" Line Location: EN+5
Function Call: WRITE	Prompt: !,"to the Primary and Secondary Codes, or the Four Character Codes if present." Line Location: EN+6
Function Call: WRITE	Prompt: !,"Please contact the responsible party for corrective action." Line Location: EN+7
Function Call: WRITE	Prompt: !,"Please be patient, this may take a few moments..." Line Location: EN+14
Function Call: WRITE	Prompt: !!," REPORT REQUIRES 132 COLUMNS TO PRINT CORRECTLY ",!! Line Location: EN+24
Function Call: WRITE	Prompt: !!,?25,$S(CNTX:CNTX,1:"NO")_" PROBLEM CLINICS FOUND." Line Location: PROCESS+28
Function Call: WRITE	Prompt: !,IEN,?14,$E(NAM,1,24),?48,PSC,?58,SSC,?75,NCODE,?91,STR Line Location: PRN+4
Function Call: WRITE	Prompt: ! Line Location: PAGE+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: ECXRDT,?73,"Page: ",ECXPG,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?18,"STOP CODE NON-CONFORMING CLINICS REPORT",!,?32 Line Location: HDR+3
Function Call: WRITE	Prompt: $S(ECXPCF="A":"Active",ECXPCF="I":"Inactive",1:"All")_" Clinics",! Line Location: HDR+4
Function Call: WRITE	Prompt: !,"CLINICS AND STOP CODES File (#728.44) - (Use 'Enter/Edit DSS " Line Location: HDR+5
Function Call: WRITE	Prompt: "Stop Codes for",!,?25,"Clinics' [ECXSCEDIT] menu option to " Line Location: HDR+6
Function Call: WRITE	Prompt: "make corrections)",!! Line Location: HDR+7
Function Call: WRITE	Prompt: "IEN #",?14,$S(ECXPCF="B":"(*currently inactive)",1:"CLINIC NAME") Line Location: HDR+8
Function Call: WRITE	Prompt: ?48,"STOP",?58,"CREDIT",?75,"CHAR4",?91,"REASON FOR NON-" Line Location: HDR+9
Function Call: WRITE	Prompt: !,?48,"CODE",?58,"STOP CODE",?75,"CODE",?91,"CONFORMANCE" Line Location: HDR+10
Function Call: WRITE	Prompt: !,$E(LNS,1,132) Line Location: HDR+11
Routine Call	DIR Line Location: EN+12 PAGE+4
Routine Call	%ZIS Line Location: EN+27
Routine Call	%ZIS Line Location: EN+30

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	SCCHK+8, SCIEN+5, SCIEN+6, SCIEN+9, SCIEN+10, SCIEN+11
^ECX(728.44 - [#728.44]	EN+16, PROCESS+9, PROCESS+11
^SC - [#44]	PROCESS+10
^TMP($J	EN+18!, EN+19, PRN+2

Label References

Name	Line Occurrences
END	EN+12, EN+27, EN+28
HDR	PROCESS+8, PRN+3
PAGE	PRN+3
PRN	PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+26, PROCESS+27
PROCESS	EN+21, EN+32
SCCHK	PROCESS+19, PROCESS+20
SCIEN	SCCHK+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	PROCESS+4~, PROCESS+5*
%ZIS	EN+25!, EN+27*
%ZIS("B"	EN+27*
ACF	PROCESS+4~, PROCESS+14*, PROCESS+16
ARRY	SCCHK+1~
ARRY(	SCIEN+13*
ARRY("A"	SCIEN+14
CLNF	PROCESS+4~, PROCESS+6, PROCESS+11, PRN+1*
CNT	EN+1~, EN+20, PRN+2
CNTX	PROCESS+3~, PROCESS+6, PROCESS+9, PROCESS+28
CTY	SCCHK+1~, SCCHK+3*, SCCHK+14
DIR	EN+1~, EN+12!, PAGE+1~, PAGE+4!
DIR("?"	EN+10, EN+11
DIR("A"	EN+9*
DIR(0	EN+8, PAGE+4
DIRUT	EN+1~, EN+12
DPC	PROCESS+3~, PROCESS+12*, SCCHK+6
DSC	PROCESS+3~, PROCESS+12*, SCCHK+6
DT	SCCHK+10, SCIEN+12
ECX	EN+1~, EN+16, PROCESS+3~, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+26, PROCESS+27
ECXF	PROCESS+3~, PROCESS+6, PROCESS+9, PROCESS+13, PRN+5*
ECXOUT	PROCESS+3~, PROCESS+6, PROCESS+9, PROCESS+17, PROCESS+21, PROCESS+25, PRN+3, PAGE+4
ECXPCF	EN+1~, EN+13*, PROCESS+16, HDR+4, HDR+8
ECXPG	PROCESS+3~, PROCESS+6, HDR+2, HDR+12
ECXPORT	EN+1~, EN+17*, PROCESS+8, PROCESS+28, PRN+2
ECXRDT	PROCESS+4~, PROCESS+5*, HDR+2
ECXSD	EN+1~
FLG	SCCHK+1~, SCIEN+11, SCIEN+12, SCIEN+13
HTYP	PROCESS+4~, PROCESS+14*, PRN+1
I	SCCHK+1~, SCIEN+8, SCIEN+9, SCIEN+10, SCIEN+11, SCIEN+13
IEN	PROCESS+3~, PROCESS+6, PROCESS+8, PROCESS+9*, PROCESS+10, PROCESS+11, PRN+2, PRN+4
INACT	SCCHK+1~, SCCHK+8, SCCHK+9, SCCHK+10, SCIEN+11, SCIEN+12
INDT	PROCESS+4~, PROCESS+13*
IO	EN+31
IO("Q"	EN+25!, EN+28!
IOF	EN+2, HDR+1
ION	EN+30
IOP	EN+25!
IOSL	PRN+3
IOST	PAGE+2
JJ	PAGE+1~, PAGE+3*
LNS	PROCESS+3~, PROCESS+6*, HDR+11
NAM	PROCESS+3~, PROCESS+12, PROCESS+13, PROCESS+14, PRN+2, PRN+4
NCODE	PROCESS+4~, PROCESS+15, PROCESS+26, PRN+2, PRN+4
POP	EN+25!, EN+27
PSC	EN+1~, PROCESS+3~, PROCESS+11*, PROCESS+18, PROCESS+19, PRN+2, PRN+4, SCCHK+6
RTY	SCCHK+1~, SCCHK+8*, SCCHK+13, SCCHK+14
SCI	SCCHK+1~, SCCHK+4, SCCHK+8, SCIEN+5, SCIEN+6, SCIEN+14
SCIEN	PROCESS+3~, SCCHK~, SCCHK+4, SCCHK+7, SCCHK+10, SCCHK+11, SCCHK+13, SCCHK+15, SCIEN~, SCIEN+1 , SCIEN+5, SCIEN+6, SCIEN+9, SCIEN+15
SCN	SCCHK+1~, SCCHK+8*, SCCHK+12
SS	PAGE+1~, PAGE+3*
SSC	EN+1~, PROCESS+3~, PROCESS+11*, PROCESS+20, PRN+2, PRN+4, SCCHK+6
STR	PROCESS+3~, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+26, PROCESS+27, PRN+1, PRN+2, PRN+4, SCCHK+2! , SCCHK+7, SCCHK+10, SCCHK+11, SCCHK+12, SCCHK+13, SCCHK+15
TYP	PROCESS+4~, SCCHK~, SCCHK+3, SCCHK+6, SCCHK+15
U	PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+26, PROCESS+27, SCCHK+8, SCCHK+12
X	EN+1~, PAGE+1~
Y	EN+1~, EN+13, PROCESS+5, PAGE+1~, PAGE+4
ZTDESC	EN+1~, EN+29*
ZTIO	EN+1~, EN+30*
ZTQUEUED	EN+1~, END
>> ZTREQ	END*
ZTRTN	EN+1~, EN+30*
>> ZTSAVE("ECXPCF"	EN+29*
ZTSK	EN+30!

Customize PDF page

Package: DSS Extracts