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

Package: Registration

Routine: DGPMVDL1


Information

DGPMVDL1 ;ALB/MIR - DELETE PATIENT MOVEMENTS, CONTINUED ; 11 JAN 88 @9

Source Information

Source file <DGPMVDL1.m>

Entry Points

Name Comments DBIA/ICR reference
D3 ;can this discharge be deleted?
3
47 ;if DISCHARGE FROM NHCU/DOM WHILE ASIH
D4
4 ;check-in...delete all related lodger movements
D5 ;can't be followed by another movement
5 ;check-out...delete pointer in check-out movement
D6 ;can't delete ts mvt associated w/CA
6 ; -- treating specialty xfrs
DD ;Delete discharge, update admission mvt, and PTF record

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You can not delete a WHILE ASIH type discharge"
  • Line Location: D3+1
Function Call: WRITE
  • Prompt: !,"Delete through corresponding NHCU/DOM movements"
  • Line Location: D3+2
Function Call: WRITE
  • Prompt: !,"Can only delete discharge for last admission"
  • Line Location: D3+3
Function Call: WRITE
  • Prompt: !,"There is a",$S(X:"n admission",1:" check-in")," movement following this discharge.",!,"You can only remove a discharge when it is the last movement for the patient."
  • Line Location: D3+5
Function Call: WRITE
  • Prompt: !,"You must delete the hospital discharge first"
  • Line Location: D3+6
Function Call: WRITE
  • Prompt: !,"There is a",$S(X:"n admission",1:" check-in")," movement following this check-out.",!,"You can only remove a check-out when it is the last movement for the patient."
  • Line Location: D5+2
Function Call: WRITE
  • Prompt: !,"You are not allowed to delete a specialty transfer that is",!,"assoicated with the initial admission movement."
  • Line Location: D6+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] Classic Fileman Calls
^DGPT - [#45] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call