Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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)

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call