Routine: DGDEATH

Information

DGDEATH ;ALB/MRL/PJR-PROCESS DECEASED PATIENTS ; 10/27/04 9:45pm

Source Information

Source file <DGDEATH.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC (,$$FIND1)^DIC (,FILE)^DIE ($$GET1,GETS)^DIQ
Registration	3	^DGBUL (,KILL)^DGPATV ^DGPMSTAT
Scheduling	3	$$PCMMXMY^SCAPMC25 $$PCMAIL^SCMCMM $$SDAPI^SDAMA301
Kernel	2	($$FMTE,$$HTFM)^XLFDT $$NS^XUAF4

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Registration	2	DG DEATH ENTRY ^DPT

Entry Points

Name	Comments	DBIA/ICR reference
Q1
LINE(X)	; add line contained in X to array
DEMOG	; list main demographics
F
GET
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
Q
SNDISP	; Source of Notification display choices
DEL	; delete death bulletin
SN
DSBULL	;
SA
XFR	; called from set x-ref of field .351 of file 2
DKBULL	;
DIS

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"Patient is currently in-house. Discharge him with a discharge type of DEATH." Line Location: GET+3
Function Call: WRITE	Prompt: ! Line Location: GET+7
Function Call: WRITE	Prompt: !,"Patient has a discharge type of Death",!,"Edit the discharge",! Line Location: DIS+0
Function Call: WRITE	Prompt: !,DIR("?",I) Line Location: SNDISP+11
Routine Call	DIC Line Location: GET+1
Routine Call	DIE Line Location: GET+7 GET+10 SN
Routine Call	DIC Line Location: DEMOG+7
Routine Call	DIE Line Location: DSBULL+7 DKBULL+4 DISCHRGE+7

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	SNDISP+2
^DG(405.2 - [#405.2]	DSBULL+6
^DGPM - [#405]	GET+4, XFR+11, XFR+15, DSBULL+5, APTT3+11
^DGPM("APTT3"	APTT3+6, APTT3+7, APTT3+10
^DGPM("ATID1"	GET+4
^DGS(41.1 - [#41.1]	SA
^DIC(21 - [#21]	F+7
^DIC(42 - [#42]	XFR+15, XFR+19
^DPT - [#2]	GET+2, GET+3, GET+4, GET+8, GET+9, SN, F+7, DEL+2, DEL+3, DEMOG+6 , APTT3+4
^TMP("DEATH"	GET+6*, GET+8!, GET+11!, SN+3!, DSBULL+9, DKBULL+3
^TMP($J	F+4, Q1+1!

Label References

Name	Line Occurrences
APTT3	XFR+7
DEL	DKBULL+5
DEMOG	XFR+4, DEL+8
DIS	GET+4
DISCHRGE	SN+1, DSBULL+8, DSBULL+10
GET	GET+3, GET+8, GET+11, SN+3
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+10, DEMOG+17, DEMOG+18, DEMOG+19, DEMOG+20
Q	GET+1
SA	F+6
SN	SN
SNDISP	SN
XFR	SN+2, DSBULL+8, DSBULL+10

Name	Field # of Occurrence
^(	GET+4
^(0	GET+4, XFR+11, XFR+19, F+7, SA*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	GET+5
A	GET+7!, Q!
ADM	XFR+11*, XFR+12, XFR+13, Q1+1!
DA	GET+1*, 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
DELTM	DEL+1~, DEMOG+15*, DEMOG+19
DFN	GET+1, GET+2, GET+3, GET+4, GET+8, GET+9, SN, 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, DKBULL+1, DKBULL+2 , DKBULL+3, 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
>> DGCMOR	DEMOG+10
DGCT	XFR+3, F+9, Q1+1!, DEL+4, DEL+11, DEL+13!, LINE+1*, LINE+2
DGDA	GET+4*, Q!
>> DGDAUTO	DISCHRGE+5
DGDDT	XFR+5*, XFR+13, Q1+1!
DGDEATH	XFR+3, F, Q1, Q1+1!, SA, DEL+4, DEL+12, DEL+13!
DGDNEW	GET+9*, GET+10, GET+11, SN, SN+1, SN+2, Q!
DGDOLD	GET+2*, SN+1, SN+2, Q!
DGDONOT	Q!, XFR+7, XFR+9, APTT3+3, APTT3+12*
DGDTHEN	GET+1*, Q!, XFR+9, XFR+13, XFR+16, XFR+18
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*
DGLIST	SNDISP+1~, SNDISP+2*, SNDISP+9
DGLNAME	SNDISP+1~, SNDISP+9*
>> DGLOCATN	DEMOG+7*, DEMOG+8
DGMTI	GET~
>> DGNAME	DEMOG+1
>> DGNOW	GET+5, DISCHRGE+4, DISCHRGE+5
DGPCMM	XFR+1~, F+8, DEL+1~, DEL+10
>> DGPMDA	DSBULL+4, DSBULL+5
DGSCHAD	F+6, Q1+1!, SA
DGT	XFR+5*, Q1+1!
DGTEXT	XFR+3!
DGTEXT(	LINE+2*
>> DGVETS	F+7, DEMOG+4
DGX	XFR+15, XFR+16!, DEMOG+5~, DEMOG+6, DEMOG+7, DEMOG+9
>> DGXFR0	XFR+19
DGXX	GET+4*, Q!, Q1+1!
DGY	GET+4*, Q!, Q1+1!
DIC	GET+1*, GET+7, Q!
DIC(0	GET+1*
DIE	GET+7*, Q!
DIR	SNDISP+1~
DIR("?"	SNDISP+4, SNDISP+5, SNDISP+6, SNDISP+7, SNDISP+8, SNDISP+9, SNDISP+10*, SNDISP+11
DIROUT	SNDISP+1~
DIRUT	SNDISP+1~
>> DISTYPE	DSBULL+5*, DSBULL+6
>> DOB	DEMOG+3
DR	GET+7, GET+10, SN*, Q!
DT	F+1, F+9, DEL+11
DTHINFO	DEL+1~
DTHINFO(2	DEMOG+12, DEMOG+14, DEMOG+15, DEMOG+16
DTOUT	SNDISP+1~
DUOUT	SNDISP+1~
DUZ	SA, DKBULL+3, DISCHRGE+6
>> FDA(2	DSBULL+7, DKBULL+2, DKBULL+3, DISCHRGE+5, DISCHRGE+6*
I	SNDISP+1~, SNDISP+11*
>> IVMDODUP	DSBULL+2
SDCNT	F~, F+2*, F+4
>> SOURCE	DEMOG+14*, DEMOG+20
>> SSN	DEMOG+2
TYPE	APTT3+2~, APTT3+5, APTT3+11, APTT3+12
U	XFR+15, F+5, DEMOG+7
X	XFR+5, Q1, DEL+4, DEL+12, LINE~, LINE+2, SNDISP+1~, SNDISP+9*
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
Y	GET+1, XFR+5, XFR+6, XFR+12, XFR+13, Q1+1!, SNDISP+1~, SNDISP+3, SNDISP+9*, SNDISP+10
YES	APTT3+2~, APTT3+5, APTT3+8, APTT3+9*, APTT3+12
Z	Q1+1!

Customize PDF page

Package: Registration

Routine: DGDEATH

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: