Routine: SDECDTHCLNUP2

Information

SDECDTHCLNUP2 ;ALB/JAS - RECALL REMINDER & SDEC APPT REQUEST REPORT/CLEAN-UP FOR DECEASED PATIENTS ; Mar 20, 2023

Source Information

Entry Points

Name	Comments	DBIA/ICR reference
RPT	;
CLNUP	;
MAIN(HTYP)	;
REMOVEREC(RDA,RDFN)	; Delete RECALL REMINDER record and update corresponding ; DELETE REASON field in RECALL REMINDER REMOVED file.
UPDATEREQ(REQIEN)	; Update CURRENT STATUS field in SDEC APPT REQUEST file ; CURRENT STATUS - Field #23, Value="C" (CLOSED)
HEADER(HTYP)	; Header for report data
PDET(PDDFN,DOD)	; Detail line for Patient
RSUMM(ENTERDT,FSTDT,LSTDT,PCNT,RCNT,SCNT,UPEDT)	; Report Summary
CSUMM(ECNT,ENTERDT,FSTDT,LSTDT,PCNT,RCNT,SCNT,UPEDT)	; Clean-up Summary
DEVOPEN(POP)	;Prompt for device
DEVCLOSE	;Close device

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," RECALL REMINDER Record IEN: "_RDA Line Location: MAIN+29
Function Call: WRITE	Prompt: !," SDEC APPT REQUEST Record IEN: "_SDA Line Location: MAIN+42
Function Call: WRITE	Prompt: !!!,?15,$S(HTYP="RPT":"Report",1:"Clean-up")_" for Scheduling records for deceased patients.",!! Line Location: HEADER+2
Function Call: WRITE	Prompt: !!!,"PATIENT NAME: "_$$GET1^DIQ(2,PDDFN,.01,"E") Line Location: PDET+2
Function Call: WRITE	Prompt: !,"PATIENT IEN: ",PDDFN,?45,"DATE OF DEATH: "_$P($$FMTE^XLFDT(DOD),"@") Line Location: PDET+3
Function Call: WRITE	Prompt: ! Line Location: PDET+4
Function Call: WRITE	Prompt: "-" Line Location: PDET+4
Function Call: WRITE	Prompt: !! Line Location: RSUMM+2
Function Call: WRITE	Prompt: "=" Line Location: RSUMM+2
Function Call: WRITE	Prompt: !!,"Date of Death on or before: "_$P($$FMTE^XLFDT(UPEDT),"@") Line Location: RSUMM+3
Function Call: WRITE	Prompt: !,"Date of Death Last Updated on or before: "_$P($$FMTE^XLFDT(ENTERDT),"@") Line Location: RSUMM+4
Function Call: WRITE	Prompt: !!,"Deceased patients with active records: ",PCNT Line Location: RSUMM+5
Function Call: WRITE	Prompt: !,"Earliest Date of Death found: "_$P($$FMTE^XLFDT(FSTDT),"@") Line Location: RSUMM+7
Function Call: WRITE	Prompt: !,"Latest Date of Death found: "_$P($$FMTE^XLFDT(LSTDT),"@") Line Location: RSUMM+9
Function Call: WRITE	Prompt: !!,"Total associated RECALL REMINDER records: ",RCNT Line Location: RSUMM+10
Function Call: WRITE	Prompt: !,"Total associated SDEC APPT REQUEST records: ",SCNT Line Location: RSUMM+11
Function Call: WRITE	Prompt: !! Line Location: CSUMM+2
Function Call: WRITE	Prompt: "=" Line Location: CSUMM+2
Function Call: WRITE	Prompt: !!,"Date of Death on or before: "_$P($$FMTE^XLFDT(UPEDT),"@") Line Location: CSUMM+3
Function Call: WRITE	Prompt: !,"Date of Death Last Updated on or before: "_$P($$FMTE^XLFDT(ENTERDT),"@") Line Location: CSUMM+4
Function Call: WRITE	Prompt: !!,"Deceased patients with records cleaned up: ",PCNT Line Location: CSUMM+5
Function Call: WRITE	Prompt: !,"Earliest Date of Death found: "_$P($$FMTE^XLFDT(FSTDT),"@") Line Location: CSUMM+7
Function Call: WRITE	Prompt: !,"Latest Date of Death found: "_$P($$FMTE^XLFDT(LSTDT),"@") Line Location: CSUMM+9
Function Call: WRITE	Prompt: !!,"Total associated RECALL REMINDER records that were removed: ",RCNT Line Location: CSUMM+10
Function Call: WRITE	Prompt: !,"Total associated SDEC APPT REQUEST records that were closed: ",SCNT Line Location: CSUMM+11
Function Call: WRITE	Prompt: !,"Total unsuccessful updates: ",ECNT Line Location: CSUMM+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^SDEC(409.85 - [#409.85]	GET1^DIQ

Customize PDF page

Package: Scheduling

Routine: SDECDTHCLNUP2

Information

Source Information

Entry Points

Interaction Calls

FileMan Files Accessed Via FileMan Db Call