Routine: SCRPW10

Information

SCRPW10 ;RENO/KEITH - Clinic Group Maintenance functionality ; 15 Jul 98 02:38PM

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA FileMan	7	NOW^%DTC ^DIC FILE^DICN FIELD^DID ^DIE ^DIK ^DIR
Kernel	2	$$S^%ZTLOAD EN^XUTMDEVQ
Scheduling	2	DISP0^SCRPW23 ($$XY,END,TITL)^SCRPW50
Registration	1	KVA^VADPT

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
Scheduling	1	SCRPW CLINIC GROUP MAINT

Entry Points

Name	Comments	DBIA/ICR reference
ASK
END
EG
PG
PGP
DG
DG1
EA
E
A
S1
CLIN(A)
CL1
L
L1
L2
EDIT(DA)
PA
PAP
EXIT
OK()	;Ok to include in report?
CGH
CLP
HINI	;Initialize header variables
HDR	;Print report headers
STOP	;Check for stop task request
MCGR(SDN)	;Mark CLINIC GROUP record as type="report

External References

Name	Field # of Occurrence
NOW^%DTC	HINI+1
$$S^%ZTLOAD	STOP+1
^DIC	EG, DG1, E, A+1, CL1
FILE^DICN	MCGR+2
FIELD^DID	MCGR+2
^DIE	EG, E, S1, EDIT
^DIK	DG1+3
^DIR	ASK+2, PGP+3, DG1+3, EA, PA+1, PA+2, PA+3, PAP+10, HDR+1
DISP0^SCRPW23	PGP, PAP+8
$$XY^SCRPW50	HDR+2
END^SCRPW50	END, EXIT
TITL^SCRPW50	ASK
KVA^VADPT	EXIT
EN^XUTMDEVQ	PG, PA+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PG+0
Function Call: WRITE	Prompt: !!,"No 'report' type CLINIC GROUP records identified." Line Location: PGP+1
Function Call: WRITE	Prompt: !,SDCG Line Location: PGP+2
Function Call: WRITE	Prompt: ! Line Location: DG1+0
Function Call: WRITE	Prompt: !!,$C(7),"You cannot delete a clinic group that has clinics assigned to it!",! Line Location: DG1+1
Function Call: WRITE	Prompt: " ...deleted." Line Location: DG1+3
Function Call: WRITE	Prompt: ! Line Location: E+0
Function Call: WRITE	Prompt: ! Line Location: A+1
Function Call: WRITE	Prompt: !,"Assigned to ",SDCGNA Line Location: S1+0
Function Call: WRITE	Prompt: !!,$C(7),"Only clinics can be selected!" Line Location: CL1+0
Function Call: WRITE	Prompt: !!,"End of loop." Line Location: L1+2
Function Call: WRITE	Prompt: !!,"Clinic: ",SDCLN Line Location: L2+0
Function Call: WRITE	Prompt: ! Line Location: PA+2
Function Call: WRITE	Prompt: ! Line Location: PA+3
Function Call: WRITE	Prompt: ! Line Location: PA+4
Function Call: WRITE	Prompt: !!,"No clinic group assignments found!" Line Location: PAP+8
Function Call: WRITE	Prompt: !!,"Clinic group: ",$S(SDCG="~":"(not assigned)",1:$P(SDCG,"~")) Line Location: CGH+0
Function Call: WRITE	Prompt: !,$P($G(^SC(SDCL,0)),U),?40,$S(SDORD="CG":$S(SDCG="~":"(not assigned)",1:$P(SDCG,"~")),1:$P($G(^SD(409.67,+$P($G(^SC(SDCL,0)),U,31),0)),U)) Line Location: CLP+0
Function Call: WRITE	Prompt: !?(IOM-$L(SDTITL(SDI))\2),SDTITL(SDI) Line Location: HDR+3
Function Call: WRITE	Prompt: !,SDLINE,!,"Date printed: ",SDPNOW,?(IOM-6-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE Line Location: HDR+4
Routine Call	DIC Line Location: EG DG1 E A+1 CL1
Routine Call	DIE Line Location: EG E S1 EDIT
Routine Call	DIR Line Location: ASK+2 PGP+3 DG1+3 EA PA+1 PA+2 PA+3 PAP+10 HDR+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SD(409.67 - [#409.67]	Classic Fileman Calls, FIELD^DID
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HINI+1
^SC - [#44]	L2, PAP+6, OK+2, OK+3, OK+5, CLP
^SC("ASCRPW"	DG1+1
^SC("B"	L, L1+1, PAP+4, PAP+6
^SD(409.67 - [#409.67]	EG, PGP+1, PGP+2, PAP+6, OK+4, CLP
^TMP("SCRPW"	PAP!, PAP+6*, PAP+8, PAP+9, CLP

Label References

Name	Line Occurrences
$$OK	PAP+6
@(	ASK+2, EA+1
ASK	ASK+2
CGH	PAP+9
CL1	CL1
CLIN	S1, L
CLP	PAP+9
DG1	DG1+1, DG1+3
E	E
EDIT	L2
END	ASK+2
EXIT	EG+1, PGP+1, PGP+4, EA+1
HDR	PGP, PGP+2, PAP+8, CGH, CLP
HINI	PGP, PAP
L1	L
L2	L1+1
MCGR	EG
S1	A+1
STOP	PAP+5, HDR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!, HINI+1
%H	EXIT!
%I	EXIT!
A	CLIN~, EXIT!
DA	EG, DG~, DG1, E~, A!, S1, EDIT~, EXIT!
DA(1	MCGR+2*
DIC	EG~, DG~, DG1, DG1+3, E~, A!, S1~, CLIN!, EXIT!, MCGR+2~
DIC("A"	A, CLIN
DIC("P"	MCGR+2*
DIC(0	EG, DG1, E, A, CLIN, MCGR+2
DIE	EG~, E~, A!, S1!, EDIT~, EXIT!
DIK	DG~, DG1+3*
DINUM	MCGR+2~
DIR	SCRPW10+2~, PGP+3~, DG~, EA!, PA~, PAP+10~, EXIT!, HDR+1~
DIR("?"	DG1+2, PA+2, PA+3*
DIR("A"	ASK+1, DG1+2, EA, PA+1, PA+2, PA+3
DIR("B"	DG1+2, PA+2
DIR(0	ASK+1, PGP+3, DG1+2, EA, PA+1, PA+2, PAP+10, HDR+1
DLAYGO	EG~*
DR	EG, E~, A!, S1, EDIT~, EXIT!
DT	OK+5
DTOUT	ASK+2, EG, DG1, DG1+3, EA, E, A+1, CL1, L1+1, L1+3! , PA+1, PA+2, PA+3, EXIT!
DUOUT	ASK+2, EG, DG1, DG1+3, EA, E, A+1, CL1, L1+1, L1+3! , PA+1, PA+2, PA+3, EXIT!
IOF	HDR+2
IOM	HINI+1, HDR+3, HDR+4
IOSL	PGP+2, CGH, CLP
IOST	PGP, PGP+3, PAP+8, PAP+10, HDR+1, HDR+2
SDA	MCGR+2~
SDA("SPECIFIER"	MCGR+2
SDC	L1~, L1+2, L2
SDCG	PGP~, PGP+2, A+1, PAP+6, PAP+9*, EXIT!, CGH, CLP
SDCGN	PGP~, PGP+2*
SDCGNA	A+1*, S1, EXIT!
SDCL	A!, S1, CLIN!, CL1+1, L, L1+1, L1+3!, L2, PAP+6, OK+2 , OK+3, OK+5, CLP
SDCLN	CL1+1, L, L1+1, L1+3!, L2, PAP, PAP+4, PAP+6, PAP+9, EXIT! , CLP
SDCLNA	A!, EXIT!
SDI	L1~, L2, EXIT!, HDR+3
SDINAC	PA~, PA+2*, PAP+1, PAP+2, PAP+3, EXIT!, OK+4
SDLINE	EXIT!, HINI+1*, HDR+3, HDR+4
SDN	MCGR~, MCGR+2
SDORD	PA~, PA+1*, PAP+6, PAP+9, EXIT!, CLP
SDOUT	PGP~, PGP+2, PGP+3, PAP, PAP+4, PAP+5, PAP+8, PAP+9, PAP+10, EXIT! , CGH, CLP, HDR+1, HDR+2, STOP+1
SDPAGE	EXIT!, HINI+1, HDR+1, HDR+2, HDR+4
SDPNOW	EXIT!, HINI+1*, HDR+4
SDSTOP	PAP, PAP+5, EXIT!
SDTITL	PGP, PAP, EXIT!, HDR+3
SDTITL(	HDR+3
SDTITL(1	PAP+1, PAP+2, PAP+3*
SDTITLX	PAP*, EXIT!, HDR+4
SDUNAS	PA~, PA+3*, PAP+1, PAP+2, PAP+3, EXIT!, OK+4
SDX	OK+3~, OK+4, OK+5
U	A+1, CL1, CL1+1, L2, PAP+6, OK+2, OK+3, OK+5, CLP
X	ASK+2, EA, PA+1, EXIT!, MCGR+2~*
Y	ASK+2, EG, DG1, DG1+1, DG1+3, EA+1, E, A+1, CL1!, CL1+1 , L1~, L1+1, PA+1, PA+2, PA+3, EXIT!, HINI+1*, HDR+1, MCGR+2~
Y(0	CL1
>> ZTQUEUED	STOP+1
ZTSAVE	PG~, PA~, PA+4, EXIT!
ZTSAVE("SDINAC"	PA+2*
ZTSAVE("SDORD"	PA+1*
ZTSAVE("SDUNAS"	PA+3*
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling