Routine: SDSCRP

Information

SDSCRP ;ALB/JAM - Restricted Stop Code Nonconforming Clinic Report; 07/24/03

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA FileMan	2	YX^%DTC ^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: 2

Package	Total	Caller Graph
Scheduling	2	SD CLN STOP CODE REP 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; var INACT added SD*547
HDR	;Header for data from file #44
PAGE	;

External References

Name	Field # of Occurrence
YX^%DTC	PROCESS+4
^%ZIS	EN+11
HOME^%ZIS	EN+14
^%ZISC	END
^%ZTLOAD	EN+14
^DIR	EN+7, PAGE+4
$$FMTE^XLFDT	SCCHK+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+2
Function Call: WRITE	Prompt: !!,?25,$S(CNTX:CNTX,1:"NO")_" PROBLEM CLINICS FOUND." Line Location: PROCESS+22
Function Call: WRITE	Prompt: !,IEN,?8,$E(NAM,1,28),?37,PSCN,?46,SSCN,?57,STR Line Location: PRN+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: SDRDT,?73,"Page: ",SDPG,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?18,"NON-CONFORMING CLINICS STOP CODE REPORT",!,?32 Line Location: HDR+3
Function Call: WRITE	Prompt: $S(SDPCF="A":"Active",SDPCF="I":"Inactive",1:"All")_" Clinics",! Line Location: HDR+4
Function Call: WRITE	Prompt: !,"HOSPITAL LOCATION FILE (#44) - (Use Set up a Clinic [SDBUILD]" Line Location: HDR+5
Function Call: WRITE	Prompt: " menu option to",!,?32,"make corrections)" Line Location: HDR+6
Function Call: WRITE	Prompt: !!,?37,"PRIMARY",?46,"SECONDARY",?57,"REASON FOR" Line Location: HDR+7
Function Call: WRITE	Prompt: !?8,$S(SDPCF="B":"CLINIC NAME",1:""),?37,"STOP",?46,"CREDIT",?57,"NON" Line Location: HDR+8
Function Call: WRITE	Prompt: !,"IEN",?8,$S(SDPCF="B":"(*currently inactive)",1:"CLINIC NAME") Line Location: HDR+9
Function Call: WRITE	Prompt: ?37,"CODE",?46,"STOP CODE",?57,"CONFORMANCE",!,$E(LNS,1,80) Line Location: HDR+10
Function Call: WRITE	Prompt: ! Line Location: PAGE+3
Routine Call	DIR Line Location: EN+7 PAGE+4
Routine Call	%ZIS Line Location: EN+11
Routine Call	%ZIS Line Location: EN+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	PROCESS+16, PROCESS+17, SCCHK+4
^SC - [#44]	PROCESS+8, PROCESS+9, PROCESS+11

Label References

Name	Line Occurrences
END	EN+7, EN+11, EN+12
HDR	PROCESS+6, PRN+1
PAGE	PRN+1
PRN	PROCESS+19, PROCESS+20, PROCESS+21
PROCESS	EN+16
SCCHK	PROCESS+20, PROCESS+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	PROCESS+4*
%ZIS	EN+10!, EN+11*
%ZIS("A"	EN+11*
ACF	PROCESS+3~, PROCESS+14*, PROCESS+15
CNTX	PROCESS+2~, PROCESS+5, PROCESS+8, PROCESS+22
CTY	SCCHK+1~, SCCHK+3*, SCCHK+9
DIR	EN+1~, EN+7!, PAGE+1~, PAGE+4!
DIR("?"	EN+5, EN+6
DIR("A"	EN+4*
DIR(0	EN+3, PAGE+4
DIRUT	EN+1~, EN+7
ECX	PROCESS+2~, PROCESS+9*, PROCESS+10, PROCESS+11
IDAT	PROCESS+2~, PROCESS+11*, PROCESS+12
IDT	PROCESS+2~, PROCESS+12*, PROCESS+13
IEN	PROCESS+2~, PROCESS+5, PROCESS+8, PROCESS+9, PROCESS+11, PRN+2
INACT	SCCHK+1~, SCCHK+4*, SCCHK+5
IO	EN+15
IO("Q"	EN+10!, EN+12!
IOF	EN+2, HDR+1
ION	EN+14
IOP	EN+10!
IOSL	PRN+1
IOST	PAGE+2
JJ	PAGE+1~, PAGE+3*
LNS	PROCESS+2~, PROCESS+5*, HDR+10
NAM	PROCESS+2~, PROCESS+11, PROCESS+12, PROCESS+13*, PROCESS+14, PRN+2
POP	EN+10!, EN+11
PSC	PROCESS+2~, PROCESS+9*, PROCESS+16, PROCESS+19, PROCESS+20
PSCN	PROCESS+2~, PROCESS+16*, PRN+2
RDT	PROCESS+2~, PROCESS+12*, PROCESS+13
RTY	SCCHK+1~, SCCHK+4*, SCCHK+8, SCCHK+9
SCIEN	PROCESS+23!, SCCHK~, SCCHK+4, SCCHK+7
SCN	SCCHK+1~, SCCHK+4*, SCCHK+5, SCCHK+6, SCCHK+8, SCCHK+10
SDF	PROCESS+2~, PROCESS+5, PROCESS+8, PROCESS+9, PRN+3*
SDOUT	PROCESS+2~, PROCESS+5, PROCESS+8, PROCESS+18, PRN+1, PAGE+4
SDPCF	EN+1~, EN+8*, PROCESS+15, HDR+4, HDR+8, HDR+9
SDPG	PROCESS+2~, PROCESS+5, HDR+2, HDR+11
SDRDT	PROCESS+3~, PROCESS+4*, HDR+2
SS	PAGE+1~, PAGE+3*
SSC	PROCESS+2~, PROCESS+9*, PROCESS+17, PROCESS+21
SSCN	PROCESS+2~, PROCESS+17*, PRN+2
STR	PROCESS+2~, PROCESS+19, PROCESS+20, PROCESS+21, PRN+2, SCCHK+2!, SCCHK+5, SCCHK+7, SCCHK+8, SCCHK+10*
TYP	PROCESS+23!, SCCHK~, SCCHK+3, SCCHK+7, SCCHK+10
U	PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+16, PROCESS+17, SCCHK+4
X	EN+1~, PAGE+1~
Y	EN+1~, EN+8, PROCESS+4, PAGE+1~, PAGE+4
ZTDESC	EN+1~, EN+13*
ZTIO	EN+1~, EN+14*
ZTQUEUED	EN+1~, END
>> ZTREQ	END*
ZTRTN	EN+1~, EN+14*
>> ZTSAVE("SDPCF"	EN+13*
ZTSK	EN+14!

Customize PDF page

Package: Scheduling