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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGDEATH

Package: Registration

Routine: DGDEATH


Information

DGDEATH ;ALB/MRL,PJR,DJS - PROCESS DECEASED PATIENTS ;Sep 17, 2020@09:34

Source Information

Source file <DGDEATH.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 7 MSG^DIALOG  (,$$FIND1,LIST)^DIC  (,FILE)^DIE  ($$GET1,GET1,GETS)^DIQ  ^DIR  ^DIWP  ^DIWW  
Registration 3 ^DGBUL  (,KILL)^DGPATV  ^DGPMSTAT  
Scheduling 3 $$PCMMXMY^SCAPMC25  $$PCMAIL^SCMCMM  $$SDAPI^SDAMA301  
Kernel 2 ($$FMTE,$$HTFM,$$NOW)^XLFDT  $$NS^XUAF4  

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: 3

Package Total Caller Graph
HINQ 1 DVBHCE18  
Income Verification Match 1 IVMLDEMD  
Registration 1 DG DEATH ENTRY  

Entry Points

Name Comments DBIA/ICR reference
GET
CONT
SN ; Story 340911 Source of Notification, updated to 1 or 8 (elz)
; Story 557815 and 557804 (elz) update screen to new business rule file
DOCT ; Story 340911 Supporting document type, added with story (elz)
DIS
Q
XFR ; called from set x-ref of field .351 of file 2
F
Q1
SA
DEL ; delete death bulletin
DEMOG ; list main demographics
LINE(X) ; add line contained in X to array
DSBULL ;
DKBULL ;
DISCHRGE ;
; If the patient is being discharged, determine values needed for
; Source of Notification and Date/Time last entered.
APTT3 ;Check to exclude "While an Inpatient" from DOD Bulletin
; Input: DFN Output: DGDONOT
OCK() ; - Only specific options for fields .357 and .358 Story 340911 (elz)
SDTHELP ;Supporting Document Type Help (XECUTABLE HELP for 2..357)

External References

Name Field # of Occurrence
^DGBUL Q1, DEL+12
^DGPATV XFR+3, DEL+5
KILL^DGPATV Q1+1, DEL+13
^DGPMSTAT XFR+5
MSG^DIALOG SA+5
^DIC GET+1, SN+3
$$FIND1^DIC DEMOG+7
LIST^DIC SDTHELP+5
^DIE DOCT+15
FILE^DIE CONT+10, SA+4, DSBULL+10, DKBULL+6, DISCHRGE+7
$$GET1^DIQ XFR+3
GET1^DIQ SDTHELP+7
GETS^DIQ DEMOG+11
^DIR CONT+3, CONT+6, DOCT+4
^DIWP SDTHELP+10
^DIWW SDTHELP+11
$$PCMMXMY^SCAPMC25 F+8, DEL+10
$$PCMAIL^SCMCMM F+9, DEL+11
$$SDAPI^SDAMA301 F+2
$$FMTE^XLFDT CONT+3, XFR+6, XFR+12, DEMOG+13
$$HTFM^XLFDT DISCHRGE+4
$$NOW^XLFDT CONT+9, DOCT+15
$$NS^XUAF4 DEMOG+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"YOU MAY NOT EDIT DATE OF DEATH IF IT WAS NOT ENTERED BY A USER AT THIS SITE"
  • Line Location: GET+6
Function Call: WRITE
  • Prompt: !?3,"Patient is currently in-house. Discharge him with a discharge type of DEATH."
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !!,"YOU MAY NOT EDIT DATE OF DEATH IF IT WAS NOT ENTERED BY A USER AT THIS SITE"
  • Line Location: CONT+13
Function Call: WRITE
  • Prompt: !!,"Death data not filed/updated!"
  • Line Location: SN+4
Function Call: WRITE
  • Prompt: !,*7,?5,"Source of Notification is REQUIRED!!"
  • Line Location: SN+5
Function Call: WRITE
  • Prompt: !!,"Death data not filed/updated!"
  • Line Location: DOCT+5
Function Call: WRITE
  • Prompt: !,*7,?5,"Supporting Document Type is REQUIRED!!"
  • Line Location: DOCT+6
Function Call: WRITE
  • Prompt: !,*7,?5,"Invalid Document Type for the Source."
  • Line Location: DOCT+9
Function Call: WRITE
  • Prompt: !,"Patient has a discharge type of Death",!,"Edit the discharge",!
  • Line Location: DIS+0
Routine Call
  • DIALOG
  • Line Location:
    • SA+5
Routine Call
  • DIC
  • Line Location:
    • GET+1
    • SN+3
Routine Call
  • DIC
  • Line Location:
    • DEMOG+7
Routine Call
  • DIC
  • Line Location:
    • SDTHELP+5
Routine Call
  • DIE
  • Line Location:
    • DOCT+15
Routine Call
  • DIE
  • Line Location:
    • CONT+10
    • SA+4
    • DSBULL+10
    • DKBULL+6
    • DISCHRGE+7
Routine Call
  • DIR
  • Line Location:
    • CONT+3
    • CONT+6
    • DOCT+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls,  GET1^DIQ,  GETS^DIQ
^DIC(4 - [#4] FIND1^DIC
^DG(47.75 - [#47.75] GET1^DIQ,  LIST^DIC
^DG(47.76 - [#47.76] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.2 - [#405.2] DSBULL+6
^DG(47.75 - [#47.75] DOCT+4, DSBULL+9
^DG(47.76 - [#47.76] SN+3
^DG(47.761 - [#47.761] DOCT+9
^DGPM - [#405] CONT+1, XFR+11, XFR+15, DSBULL+5, APTT3+11
^DGPM("APTT3" APTT3+6, APTT3+7, APTT3+10
^DGPM("ATID1" CONT+1
^DGS(41.1 - [#41.1] SA
^DIC(21 - [#21] F+7
^DIC(42 - [#42] XFR+15, XFR+19
^DPT - [#2] GET+2, CONT, CONT+1, CONT+13*, F+7, DEL+2, DEL+3, DEMOG+6, APTT3+4
^TMP("DEATH" CONT+14*, SN+4!, DOCT+5!, DOCT+15*, DOCT+17!, DSBULL+12, DKBULL+5
^TMP($J F+4, Q1+1!
^UTILITY($J SDTHELP+9!
^VA(200 - [#200] CONT+13

Label References

Name Line Occurrences
$$OCK DOCT+4, DOCT+6, DOCT+7, DOCT+10, DSBULL+9
APTT3 XFR+7
CONT GET+3
DEL DKBULL+7
DEMOG XFR+4, DEL+8
DIS CONT+1
DISCHRGE DOCT+15, DSBULL+11, DSBULL+13
DOCT DOCT+6, DOCT+9
GET CONT, CONT+6, CONT+11, CONT+13, SN+4, DOCT+5, DOCT+17
LINE XFR+8, XFR+9, XFR+10, XFR+13, XFR+14, XFR+16, XFR+17, XFR+19, XFR+20, F+5
, F+6, F+7, DEL+6, DEL+7, DEL+9, DEMOG+1, DEMOG+2, DEMOG+3, DEMOG+8, DEMOG+9
, DEMOG+19, DEMOG+20, DEMOG+21, DEMOG+22
Q GET+1
SA F+6
SN SN+5
XFR DOCT+16, DSBULL+11, DSBULL+13

Naked Globals

Name Field # of Occurrence
^( CONT+1
^(0 CONT+1, XFR+11, XFR+19, F+7, SA

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A Q!
ADM XFR+11*, XFR+12, XFR+13, Q1+1!
DA GET~, GET+1*, CONT+8, CONT+9, Q!, DEL+2, DSBULL+3, DKBULL+1
DATA GET~
DATE APTT3+2~, APTT3+7*, APTT3+8, APTT3+9, APTT3+10
>> DEATHVAL XFR+9, DEMOG+12*, DEMOG+13*
DELBY DEL+1~, DEMOG+16*, DEMOG+18*, DEMOG+20
DELTM DEL+1~, DEMOG+15*, DEMOG+21
DFN GET~, GET+1*, GET+2, CONT, CONT+1, CONT+13, Q!, XFR+2, XFR+3, F+1
, F+4, F+7, F+8, F+9, SA, DEL+2*, DEL+3, DEL+10, DEL+11, DEMOG+6
, DEMOG+11, DEMOG+12, DEMOG+14, DEMOG+15, DEMOG+16, DSBULL+3*, DSBULL+7, DSBULL+9, DKBULL+1*, DKBULL+4
, DKBULL+5, DISCHRGE+5, DISCHRGE+6, APTT3+4, APTT3+6, APTT3+7, APTT3+10
DG1 XFR+5*, XFR+9, XFR+11, XFR+13, XFR+16, XFR+18, Q1+1!
DGA1 XFR+11, XFR+15, XFR+16, Q1+1!
DGARRAY F~, F+2
DGARRAY("FLDS" F+1*
DGARRAY("SORT" F+1*
DGARRAY(1 F+1*
DGARRAY(3 F+1*
DGARRAY(4 F+1*
>> DGB Q1*, DEL+12*
DGCT XFR+3*, F+9*, Q1+1!, DEL+4*, DEL+11*, DEL+13!, LINE+1*, LINE+2
DGDA CONT+1*, Q!
>> DGDAUTO DISCHRGE+5
DGDDT XFR+5*, XFR+13, Q1+1!
DGDEATH XFR+3*, F, Q1, Q1+1!, SA+2, DEL+4*, DEL+12, DEL+13!
DGDNEW GET~, CONT+3*, CONT+14*, SN+4, SN+5, SN+6*, DOCT+4, DOCT+7*, DOCT+9, DOCT+10*
, DOCT+13, DOCT+14, DOCT+15, DOCT+16, Q!
DGDOCT GET~, DOCT+1*, DOCT+4
DGDOLD GET+2*, GET+3, CONT+3, CONT+13, SN+2, DOCT+1, DOCT+13, DOCT+15, DOCT+16, Q!
DGDONOT Q!, XFR+7*, XFR+9, APTT3+3*, APTT3+12*
DGDR CONT+7~
DGDR(2 CONT+8*, CONT+9*
DGDSON GET~, SN+2*, SN+3
DGDTHEN GET+1*, Q!, XFR+9, XFR+13, XFR+16, XFR+18
DGDWHO GET~
DGFAPT XFR+1~, F*, F+4*
DGFAPT1 XFR+1~, F+4*, F+5
DGFAPTI XFR+1~, F*, F+4, F+5*
DGI Q1+1!, SA*, SA+2, SA+3
>> DGLOCATN DEMOG+7*, DEMOG+8
DGMTI GET~
>> DGNAME DEMOG+1
>> DGNOW DISCHRGE+4*, DISCHRGE+5
DGPCMM XFR+1~, F+8*, DEL+1~, DEL+10*
>> DGPMDA DSBULL+4, DSBULL+5
DGSCHAD F+6*, Q1+1!, SA+3*
DGT XFR+5*, Q1+1!
DGTEXT XFR+3!
DGTEXT( LINE+2*
DGUPDATE GET~, DOCT+12*, DOCT+13*, DOCT+14
>> DGVETS F+7, DEMOG+4
DGX XFR+15*, XFR+16!, DEMOG+5~, DEMOG+6*, DEMOG+7, DEMOG+9
>> DGXFR0 XFR+19
DGXX CONT+1*, Q!, Q1+1!
DGY CONT+1*, Q!, Q1+1!
DIC GET~, GET+1*, SN+3*, Q!
DIC("A" SN+3*!
DIC("B" SN+3*!
DIC("S" SN+3*!
DIC(0 GET+1*, SN+3*
DIE GET~, GET+1*, DOCT+15*, Q!
DIR GET~
DIR("A" CONT+6*!
DIR("B" CONT+3*!, DOCT+4*!
DIR(0 CONT+3*, CONT+6*, DOCT+4*
DIROUT GET~, DOCT+5
DIRUT GET~, CONT+11
>> DISTYPE DSBULL+5*, DSBULL+6
DIWF SDTHELP+2~
DIWL SDTHELP+2~, SDTHELP+4*
DIWR SDTHELP+2~, SDTHELP+4*
>> DOB DEMOG+3
DR GET~, DOCT+12*, DOCT+14*, DOCT+15*, Q!
DT F+1, F+9, DEL+11
DTHINFO DEL+1~
DTHINFO(2 DEMOG+12, DEMOG+14, DEMOG+15, DEMOG+16
DTOUT GET~, SN+4, DOCT+5
DUOUT GET~, SN+4, DOCT+5
DUZ CONT+9, SA+2, DKBULL+5, DISCHRGE+6
ERROR SA+1~, SA+5
FDA SA+1~
FDA( SA+2*, SA+3*
FDA(2 DSBULL+7*, DSBULL+9*, DKBULL+4*, DKBULL+5*, DISCHRGE+5*, DISCHRGE+6*
>> HL("ETN" DEMOG+18
>> HL("MTN" DEMOG+18
>> HL("SAN" DEMOG+18
IOM SDTHELP+4
>> IVMDODUP DSBULL+2
MPIC SDTHELP+2~, SDTHELP+9*, SDTHELP+10
MPIDESC SDTHELP+2~, SDTHELP+7!
MPIDESC( SDTHELP+9, SDTHELP+10
MPII SDTHELP+2~, SDTHELP+4*, SDTHELP+6*, SDTHELP+7, SDTHELP+8
MPIOUT SDTHELP+2~
MPIOUT("DILIST" SDTHELP+6, SDTHELP+7, SDTHELP+8
>> P DOCT+13*, DOCT+14*
RETURN OCK+1~, OCK+2*, OCK+3*, OCK+4*, OCK+6*, OCK+7
SCREEN SDTHELP+2~, SDTHELP+3*, SDTHELP+5
SDCNT F~, F+2*, F+4
>> SOURCE DEMOG+14*, DEMOG+22
>> SSN DEMOG+2
TYPE APTT3+2~, APTT3+5*, APTT3+11*, APTT3+12
U XFR+15, F+5, DEMOG+7
X CONT+6, XFR+5, Q1*, DEL+4, DEL+12*, LINE~, LINE+2, SDTHELP+1, SDTHELP+2~, SDTHELP+10*
XDOD APTT3+2~, APTT3+4*, APTT3+5*, APTT3+7, APTT3+8, APTT3+9
XIEN APTT3+2~, APTT3+10*, APTT3+11
>> XMSUB XFR+3*, DEL+4*
>> XQY0 OCK+3, OCK+4, OCK+6
Y GET+1, CONT+3, CONT+6, CONT+13, CONT+14, SN+5, SN+6, DOCT+6, DOCT+7, DOCT+9
, DOCT+10, XFR+5*, XFR+6*, XFR+12*, XFR+13, Q1+1!
YES APTT3+2~, APTT3+5*, APTT3+8*, APTT3+9*, APTT3+12
Z Q1+1!
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 |  Naked Globals |  Local Variables  | All