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

Package: Registration

Routine: DGPMVDL


Information

DGPMVDL ;ALB/MIR - DELETE PATIENT MOVEMENTS ; 2/13/04 1:01pm

Source Information

Source file <DGPMVDL.m>

Entry Points

Name Comments DBIA/ICR reference
D1
1 ;S DA=$P(DGPMAN,U,16),DIK="^DGPT(",FLAG=1,I=0 F S I=$O(^DGCPT(46,"C",DA,I)) Q:'I I '$G(^DGCPT(I,9)) S FLAG=0 Q
Q1
Q
D2 ;Can this transfer be deleted?
2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Cannot delete before ASIH transfers are removed"
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: !,"Must delete discharge first"
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: !,"Cannot delete while PTF Census record #",$O(^(0))," is closed."
  • Line Location: D1+3
Function Call: WRITE
  • Prompt: !,"CANNOT DELETE THE PTF RECORD WHEN THERE ARE ACTIVE ORDERS OR CPT ENTRIES."
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: !,"ASIH transfer deleted",!
  • Line Location: 1+10
Function Call: WRITE
  • Prompt: !,"Cannot delete transfer - would create an invalid transfer pair"
  • Line Location: D2+2
Function Call: WRITE
  • Prompt: !,"Must delete through corresponding hospital admission"
  • Line Location: D2+3
Function Call: WRITE
  • Prompt: !,"Cannot delete while discharge exists"
  • Line Location: D2+4
Function Call: WRITE
  • Prompt: !,"Cannot delete when corresponding admission PTF closed out"
  • Line Location: D2+5
Function Call: WRITE
  • Prompt: !,DGX," movement must be removed first"
  • Line Location: D2+6

FileMan Files Accessed Via FileMan Db Call

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