Routine: SDSCNSCP

Information

SDSCNSCP ;ALB/JAM - ASCD NSC Encounters Purge ; 4/24/07 4:29pm

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

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