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

FileMan Files Accessed Via FileMan Db Call

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

Naked Globals

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!
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