Routine: SDSCNSCP

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZTLOAD $$FMTE^XLFDT
Scheduling	3	$$GETOE^SDOE GETDATE^SDSCOMP (DIV,TYPE)^SDSCUTL
VA Fileman	3	^DIK $$GET1^DIQ ^DIR
PCE Patient Care Encounter	1	$$PRIMVPRV^PXUTL1
Registration	1	(DEM,KVA)^VADPT

Package

Total

Call Graph

Kernel

^%ZIS ^%ZTLOAD $$FMTE^XLFDT

Scheduling

$$GETOE^SDOE GETDATE^SDSCOMP (DIV,TYPE)^SDSCUTL

VA Fileman

^DIK $$GET1^DIQ ^DIR

PCE Patient Care Encounter

$$PRIMVPRV^PXUTL1

Registration

(DEM,KVA)^VADPT

Package	Total	Caller Graph
Scheduling	1	SDSC PURGE NSC ENC

Package

Total

Caller Graph

Scheduling

SDSC PURGE NSC ENC

Name	Comments	DBIA/ICR reference
FND	; Find records and delete
EN	; Entry Point
EXIT	;clean up variables before exiting option
BEG	; Begin report
HDR	; Print report

External References

Name	Field # of Occurrence
^%ZIS	EN+22
^%ZTLOAD	EN+27
^DIK	FND+23
$$GET1^DIQ	FND+17, FND+21
^DIR	EN+7, EN+19
$$PRIMVPRV^PXUTL1	FND+21
$$GETOE^SDOE	FND+8
GETDATE^SDSCOMP	EN+4
DIV^SDSCUTL	EN+6
TYPE^SDSCUTL	EN+12
DEM^VADPT	FND+19
KVA^VADPT	FND+24
$$FMTE^XLFDT	FND+22, HDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You do not have privileges to run this report." Line Location: EN+13
Function Call: WRITE	Prompt: !!,"This option will permanently remove the outpatient encounters that are at a" Line Location: EN+14
Function Call: WRITE	Prompt: !,"NEW status when both the Encounter SC value and the ASCD value are 'NO' from" Line Location: EN+15
Function Call: WRITE	Prompt: !,"the SDSC SERVICE CONNECTED CHANGES file (#409.48).",! Line Location: EN+16
Function Call: WRITE	Prompt: !,"REQUEST QUEUED" Line Location: EN+27
Function Call: WRITE	Prompt: !!,"Grand total of NSC Records Purged: ",SDGTOT Line Location: BEG+9
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(SDOEDT,2),?16,SDOE,?30,$E(VADM(1),1,25),?55,$E(SDPRV,1,19),?75,SCVST Line Location: FND+22
Function Call: WRITE	Prompt: !!,"Number of NSC Records Purged: ",SDCNT," for "_SDSCDNM Line Location: FND+26
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: SDHDR,?67,"PAGE: ",SDPG Line Location: HDR+4
Function Call: WRITE	Prompt: !,?5,"For Encounters Dated ",$$FMTE^XLFDT(SDSCTDT,2)," THRU ",$$FMTE^XLFDT(SDEDT,2)," For Division: ",SDSCDNM,!! Line Location: HDR+5
Function Call: WRITE	Prompt: "Encounter Date",?16,"Encounter No.",?30,"Patient Name",?55,"Provider",?73,"SC Val" Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+7
Function Call: WRITE	Prompt: "-" Line Location: HDR+7
Routine Call	DIR Line Location: EN+7 EN+19
Routine Call	%ZIS Line Location: EN+22

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^SDSC(409.48 - [#409.48]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	BEG+7
^SDSC(409.48 - [#409.48]	FND+5, FND+7, FND+8

Name	Line Occurrences
EXIT	EN+4, EN+8, EN+20, EN+22, EN+23, BEG+4, BEG+10
FND	BEG+4, BEG+8
HDR	FND+3, FND+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+22!*
DA	FND+1~, FND+23*
DFN	FND+1~, FND+19*
DIK	FND+1~, FND+23*
DIR	EN+1~, EN+10!
DIR("?"	EN+18*
DIR("A"	EN+17*
DIR("B"	EN+17*
DIR(0	EN+17*
DTOUT	EN+2~, EN+8, EN+20
DUOUT	EN+2~, EN+8, EN+20
I	HDR+1~, HDR+7*
IO("Q"	EN+23, EN+27!
IOC	EN+22!
IOF	HDR+3
ION	EN+26
IOP	EN+22!
IOSL	FND+25
IOST	FND+25
POP	EN+1~, EN+22
SCLN	EN+9, EN+10!
SCVST	FND+1~, FND+17, FND+18, FND+20, FND+22
SDCNT	FND+1~, FND+4, FND+20, FND+26
SDEDIV	FND+1~, FND+12*, FND+13
SDEDT	FND+5, HDR+5, EXIT+1!
SDGTOT	BEG+1~, BEG+2, BEG+9, FND+20
SDHDR	HDR+1~, HDR+2*, HDR+4
SDI	BEG+1~, BEG+6*
SDL	FND+1~, FND+4, FND+21, FND+25
SDOE	FND+1~, FND+6, FND+7, FND+8, FND+22, FND+23
SDOE0	FND+1~, FND+8*, FND+9, FND+17, FND+19
SDOEDT	FND+1~, FND+4, FND+5, FND+7, FND+22
SDOPT	EXIT+1!
SDPG	BEG+1~, BEG+2, HDR+4, HDR+8
SDPRV	FND+1~, FND+21*, FND+22
SDSCBDT	EXIT+1!
SDSCCR	EXIT+1!
SDSCDATA	FND+1~, FND+8*, FND+9, FND+11, FND+12, FND+15
SDSCDIV	BEG+1~, BEG+3, BEG+4, BEG+5, BEG+6, BEG+7, FND+13
SDSCDNM	BEG+1~, BEG+4, BEG+7, FND+26, HDR+5
SDSCDVLN	EN+1~, EN+9*, BEG+3
SDSCDVSL	EN+1~, EN+9*, BEG+3, BEG+6
SDSCEDT	EXIT+1!
SDSCTAT	EXIT+1!
SDSCTDT	EN+4, FND+4, HDR+5, EXIT+1!
SDTYPE	EN+13, EXIT+1!
SDV0	FND+1~, FND+17*, FND+21
U	FND+11, FND+12, FND+15, FND+17, FND+19
>> VADM(1	FND+22
X	EN+1~
Y	EN+1~, EN+9, EN+20
ZTDESC	EN+1~, EN+24*
ZTDTH	EN+1~, EN+24*
ZTIO	EN+22!, EN+26*
ZTQUEUED	EN+1~
ZTRTN	EN+1~, EN+24*
ZTSAVE	EN+1~
ZTSAVE("SDEDT"	EN+25*
ZTSAVE("SDSCDVLN"	EN+25*
ZTSAVE("SDSCDVSL"	EN+25*
ZTSAVE("SDSCTDT"	EN+26*

Customize PDF page

Package: Scheduling

Routine: SDSCNSCP

Information

Source Information

Call Graph

Call Graph Total: 11

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: