Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SDECDTHCLNUP2

Package: Scheduling

Routine: SDECDTHCLNUP2


Information

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

Source Information

Source file <SDECDTHCLNUP2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  $$FMTE^XLFDT  
VA FileMan 2 FILE^DIE  $$GET1^DIQ  
Scheduling 1 RECDSET^SDEC52A  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SDEC DECEASED RECORD REPORT  

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

External References

Name Field # of Occurrence
^%ZIS DEVOPEN+1
^%ZISC DEVCLOSE+2
FILE^DIE REMOVEREC+19, UPDATEREQ+5
$$GET1^DIQ MAIN+16, MAIN+18, MAIN+40, PDET+2
RECDSET^SDEC52A REMOVEREC+7
$$FMTE^XLFDT PDET+3, RSUMM+3, RSUMM+4, RSUMM+7, RSUMM+9, CSUMM+3, CSUMM+4, CSUMM+7, CSUMM+9

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
Routine Call
  • %ZIS
  • Line Location:
    • DEVOPEN+1
Routine Call
  • DIE
  • Line Location:
    • REMOVEREC+19
    • UPDATEREQ+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] MAIN+14
^DPT("AEXP1" MAIN+13, MAIN+14
^SD(403.5 - [#403.5] MAIN+25, MAIN+27
^SD(403.56 - [#403.56] REMOVEREC+3, REMOVEREC+12
^SDEC(409.85 - [#409.85] MAIN+37, MAIN+39

Label References

Name Line Occurrences
$$REMOVEREC MAIN+30
$$UPDATEREQ MAIN+43
CSUMM MAIN+49
DEVCLOSE RPT+3, CLNUP+3
DEVOPEN MAIN+8
HEADER MAIN+8
MAIN RPT+3, CLNUP+3
PDET MAIN+28, MAIN+41
RSUMM MAIN+48

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CLNEDT MAIN+2~, MAIN+5*, MAIN+17
DA MAIN+2~, MAIN+4*, MAIN+13*, MAIN+14
DOD MAIN+2~, MAIN+16*, MAIN+17, MAIN+19, MAIN+28, MAIN+31, MAIN+32, MAIN+41, MAIN+44, MAIN+45
, PDET~, PDET+3
DODLU MAIN+2~, MAIN+18*, MAIN+19, MAIN+20
DTOUT MAIN+2~
DUOUT MAIN+2~
ECNT MAIN+2~, MAIN+4*, MAIN+30*, MAIN+43*, MAIN+49, CSUMM~, CSUMM+12
ENTERDT MAIN+2~, MAIN+6*, MAIN+20, MAIN+48, MAIN+49, RSUMM~, RSUMM+4, CSUMM~, CSUMM+4
FDA REMOVEREC+17~, UPDATEREQ+3~
FDA( REMOVEREC+18*, UPDATEREQ+4*
FDAERR REMOVEREC+17~, UPDATEREQ+3~, UPDATEREQ+6
FSTDT MAIN+2~, MAIN+4*, MAIN+31*, MAIN+44*, MAIN+48, MAIN+49, RSUMM~, RSUMM+6, RSUMM+7, CSUMM~
, CSUMM+6, CSUMM+7
HTYP RPT+2~*, RPT+3, CLNUP+2~*, CLNUP+3, MAIN~, MAIN+8, MAIN+28, MAIN+29, MAIN+30, MAIN+41
, MAIN+42, MAIN+43, MAIN+48, HEADER~, HEADER+2
I MAIN+2~, PDET+4*, RSUMM+2*, CSUMM+2*
IO DEVOPEN+2
LSTDT MAIN+2~, MAIN+4*, MAIN+32*, MAIN+45*, MAIN+48, MAIN+49, RSUMM~, RSUMM+8, RSUMM+9, CSUMM~
, CSUMM+8, CSUMM+9
LSTIEN REMOVEREC+2~, REMOVEREC+3*, REMOVEREC+13
PCNT MAIN+2~, MAIN+4*, MAIN+28*, MAIN+41*, MAIN+48, MAIN+49, RSUMM~, RSUMM+5, CSUMM~, CSUMM+5
PDDFN PDET~, PDET+2, PDET+3
PFLG MAIN+2~, MAIN+24*, MAIN+28*, MAIN+41*
POP MAIN+2~, MAIN+4*, MAIN+8, MAIN+9, DEVOPEN~, DEVOPEN+1
RCNT MAIN+3~, MAIN+4*, MAIN+33*, MAIN+48, MAIN+49, RSUMM~, RSUMM+10, CSUMM~, CSUMM+10
RDA MAIN+3~, MAIN+26*, MAIN+27*, MAIN+29, MAIN+30, REMOVEREC~, REMOVEREC+7
RDFN REMOVEREC~, REMOVEREC+12
REQIEN UPDATEREQ~, UPDATEREQ+4
RET REMOVEREC+2~, REMOVEREC+7, REMOVEREC+8
RRRIEN REMOVEREC+2~, REMOVEREC+12*, REMOVEREC+13, REMOVEREC+18
SCNT MAIN+3~, MAIN+4*, MAIN+46*, MAIN+48, MAIN+49, RSUMM~, RSUMM+11, CSUMM~, CSUMM+11
SDA MAIN+3~, MAIN+38*, MAIN+39*, MAIN+40, MAIN+42, MAIN+43
SDDFN MAIN+3~, MAIN+14*, MAIN+16, MAIN+18, MAIN+25, MAIN+27, MAIN+28, MAIN+30, MAIN+37, MAIN+39
, MAIN+41
SVSTAT MAIN+3~, MAIN+30*, MAIN+38~, MAIN+43*
UPEDT MAIN+3~, MAIN+5*, MAIN+48, MAIN+49, RSUMM~, RSUMM+3, CSUMM~, CSUMM+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All