Routine: SCRPW14

Package	Total	Call Graph
Scheduling	5	(,PVIEW)^SCRPW15 $$DIVA^SCRPW17 (END,SUBT,TITL)^SCRPW50 ($$GETOE,GETCPT,GETDX,GETPRV)^SDOE $$OLD^SDOEUT
VA Fileman	3	^%DT ^DIC ^DIR
Kernel	2	$$S^%ZTLOAD EN^XUTMDEVQ

Package	Total	Caller Graph
Scheduling	1	SCRPW15

Entry Points

Name	Comments	DBIA/ICR reference
STAT	;Prompt for encounter statuses to include
SET	;Set global for a division
CATE
DIV(SDIV)	;Evaluate division
DSET(SDIV)
STOP	;Check for stop task request
SRT(SDIV)	;Set report total for summary format
CATP	;Get providers
CAT(SDS)	;Determine if encounter fits category
SET1(SDIV)
CATS	;Get stop codes
EXIT
FDT
LIST(X)	;Get list for detail
LDT
QUE
PSET(SDIV)	;
EVAL	;Evaluate encounter
RPT	;Print report

External References

Name	Field # of Occurrence
^%DT	FDT, LDT
$$S^%ZTLOAD	STOP+1
^DIC	STAT+4, LIST+3
^DIR	CATE+1, CATE+3, CATE+4, QUE+2
^SCRPW15	RPT+5
PVIEW^SCRPW15	QUE+1
$$DIVA^SCRPW17	SCRPW14+5
END^SCRPW50	EXIT
SUBT^SCRPW50	SCRPW14+6, CATE, CATE+2, QUE, STAT+1
TITL^SCRPW50	SCRPW14+5
$$GETOE^SDOE	RPT+4, CATS+2
GETCPT^SDOE	SET+4
GETDX^SDOE	SET+2
GETPRV^SDOE	CATP+1
$$OLD^SDOEUT	PSET+1
EN^XUTMDEVQ	QUE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FDT+0
Function Call: WRITE	Prompt: ! Line Location: FDT+1
Function Call: WRITE	Prompt: !!,$C(7),"Ending date must be after beginning date!",! Line Location: LDT+1
Function Call: WRITE	Prompt: ! Line Location: CATE+3
Function Call: WRITE	Prompt: ! Line Location: CATE+4
Function Call: WRITE	Prompt: !!,"You have selected the following report parameters:",! Line Location: QUE+1
Function Call: WRITE	Prompt: ! Line Location: QUE+4
Function Call: WRITE	Prompt: !!,"Choose as many of the following statuses",!,"as you wish to include in the report:",! Line Location: STAT+2
Function Call: WRITE	Prompt: !?10,"CHECKED IN",!?10,"CHECKED OUT",!?10,"NO ACTION TAKEN",!?10,"INPATIENT APPOINTMENT",!?10,"NON-COUNT",!?10,"ACTION REQUIRED",! Line Location: STAT+3
Function Call: WRITE	Prompt: ! Line Location: LIST+2
Function Call: WRITE	Prompt: ! Line Location: LIST+4
Routine Call	DIC Line Location: STAT+4 LIST+3
Routine Call	DIR Line Location: CATE+1 CATE+3 CATE+4 QUE+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SD(409.63 - [#409.63]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	PSET+1
^DD("DD"	FDT+1, LDT+2
^SCE("APAR"	CATS+2
^SCE("B"	RPT+4
^TMP("SCRPW"	RPT+3!, SRT+1, SET1, DSET, PSET+8, PSET+16*

Label References

Name	Line Occurrences
$$CAT	EVAL+2
$$DIV	EVAL+2
CATP	CAT+4
CATS	CAT+5
DSET	SET+3
EVAL	RPT+4
EXIT	SCRPW14+5, FDT, LDT, CATE+1, CATE+3, CATE+4, CATE+5, QUE+2, RPT+5
FDT	FDT+1
LDT	LDT+1, LDT+2
LIST	CATE+5
PSET	SET+5
QUE	CATE+4
SET	EVAL+2
SET1	SET+1
SRT	EVAL+2
STAT	CATE+1
STOP	EVAL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RPT+1~
%DT	SCRPW14+4~, FDT*
%DT("A"	FDT, LDT
%DT(0	FDT*
DFN	RPT+1~
DIC	SCRPW14+4~, STAT+3~, LIST+2~
DIC("A"	STAT+4*
DIC("B"	STAT+3*, STAT+4!
DIC("S"	STAT+4, LIST+2
DIC(0	STAT+3, LIST+2
DIR	SCRPW14+4~, QUE+2!
DIR("A"	CATE+1, CATE+3, CATE+4, QUE+2
DIR("B"	CATE+3, CATE+4, QUE+2*
DIR(0	CATE+1, CATE+3, CATE+4, QUE+2
DTOUT	SCRPW14+4~, FDT, LDT, CATE+1, CATE+3, CATE+4, QUE+2, STAT+4, LIST+3
DUOUT	SCRPW14+4~, CATE+1, CATE+3, CATE+4, QUE+2, STAT+4, LIST+3
I	STAT+3~, STAT+4*
SD	SCRPW14+4~
SD("BDT"	FDT+1*, LDT+1, RPT+4
SD("CAT"	CATE+1*, CATE+5, PSET+1, CAT+3, CAT+4, CAT+5
SD("EDT"	LDT+2*, RPT+4
SD("FMT"	CATE+3*, CATE+4, SRT+1, SET+1, CAT+3, CATP+2, CATS+1, CATS+2
SD("LIST"	CATE+5, LIST+3*, PSET+1, CAT+3, CATP+2, CATS+1, CATS+2
SD("ORD"	CATE+4, CATE+5
SD("PBDT"	FDT+1*
SD("PEDT"	LDT+2*
SD("STAT"	CATE+1, STAT+2!, STAT+4*, EVAL+2
SDCH	RPT+2~, CATS+2*
SDCH0	RPT+2~, CATS+2*
SDCL	RPT+2~, CAT+3*
SDCOL	RPT+2~
SDD	RPT+2~, DSET*
SDD0	RPT+2~
SDDET	RPT+2~
SDDIV	SCRPW14+4~, SCRPW14+5, RPT+3, DIV+1
SDDIV(	RPT+3, DIV+1
SDDIV(""	RPT+3
SDDT	RPT+2~, RPT+4*, SRT+1, SET1
SDFFS	RPT+2~
SDI	SCRPW14+4~, QUE+3*, RPT+1~
SDIV	RPT+4*, EVAL+2, DIV~, DIV+1, SRT~, SRT+1, SET+1, SET+3, SET+5, SET1~ , DSET~, PSET~, PSET+8, PSET+16
SDIVN	RPT+1~
SDLINE	RPT+2~
SDLIST	RPT+2~, SET+2!, SET+4!, CATP+1!
SDLIST(	SET+3, SET+5, PSET+13, PSET+14, CATP+2
SDMD	RPT+1~, RPT+3*, EVAL+2, SET+1, SET+3, SET+5
SDMOD	PSET+11~, PSET+14*, PSET+16
SDMODN	PSET+11~, PSET+12, PSET+13, PSET+14
SDN	RPT+2~
SDOE	RPT+2~, RPT+4*, SET+2, SET+4, PSET+1, CATP+1, CATS+2
SDOE0	RPT+2~, RPT+4*, EVAL+2, SRT+1, SET1, CAT+3, CATS+1
SDOED	RPT+2~, SET+3*
SDOED0	RPT+2~, SET+3*, DSET
SDOUT	RPT+1~, RPT+3, RPT+4, RPT+5, STOP+1, EVAL+1
SDP	RPT+2~, PSET+4, PSET+8, PSET+16, CATP+2
SDP0	RPT+2~
SDPAGE	RPT+2~
SDPG	RPT+2~
SDPI	RPT+2~, CATP+2*
SDPNOW	RPT+2~
SDPR	RPT+2~, PSET+1*
SDPT	RPT+2~
SDQ	RPT+1~, PSET+5, PSET+6, PSET+8, PSET+16
SDR	RPT+2~, DSET*
SDRPEN	RPT+2~
SDRPEN(	SRT+1*
SDRPUN	RPT+2~
SDRPVS	RPT+2~
SDS	RPT+2~, EVAL+2!*, SET1, DSET, PSET+8, PSET+16, CAT~, CAT+3, CAT+4, CAT+5
SDS(	EVAL+2, CAT+3, CATP+2, CATS+1, CATS+2
SDSC	RPT+2~, CATS+1, CATS+2
SDSTOP	RPT+1~, RPT+3, EVAL+1
SDSV	RPT+2~
SDT	RPT+2~
SDT1	RPT+2~
SDT2	RPT+2~
SDTIT	RPT+1~
SDTOT	RPT+2~
SDTOT1	RPT+2~
SDTOT2	RPT+2~
SDUN	RPT+2~
SDVP	RPT+2~, SET+5*, PSET+1, PSET+13, PSET+14
SDVP0	RPT+2~, SET+5*, PSET+4, PSET+5
SDVS	RPT+2~
SDX	RPT+1~
U	FDT, LDT, STAT+4, LIST+3, RPT+3, RPT+4, EVAL+2, SRT+1, SET1, DSET , PSET+1, PSET+4, PSET+5, CAT+3, CATP+2, CATS+1, CATS+2
X	SCRPW14+4~, FDT, LDT, STAT+4, LIST~, LIST+2, LIST+3, RPT+1~
Y	SCRPW14+4~, FDT+1, LDT+1, LDT+2, CATE+1, CATE+3, CATE+4, QUE+2, STAT+4, LIST+3 , RPT+1~
>> ZTQUEUED	STOP+1
ZTSAVE	SCRPW14+4~, QUE+4
ZTSAVE(	QUE+3*
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling

Routine: SCRPW14

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: