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

Package: Registration

Routine: DGPMVDL


Information

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

Source Information

Source file <DGPMVDL.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 4 AB^DGPMV32  ASIHOF^DGPMV321  DD^DGPMVDL1  MSG^DGPTMSG1  
VA Fileman 2 ^DIE  ^DIK  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
Q1
Q
1 ;ihs/cmi/maw 06/18/2012 PATCH 1015 removed the delete of ptf to match patch 1013 code
2
D2 ;Can this transfer be deleted?
D1

External References

Name Field # of Occurrence
AB^DGPMV32 2
ASIHOF^DGPMV321 2+5
DD^DGPMVDL1 1+15, 2+1, 2+2, 2+4
MSG^DGPTMSG1 1+5
^DIE 1+6
^DIK 1+5, 1+12, 1+14
$$FMTE^XLFDT 1+4

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+3
Function Call: WRITE
  • Prompt: !,"ASIH transfer deleted",!
  • Line Location: 1+14
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
Routine Call
  • DIE
  • Line Location:
    • 1+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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.1 - [#405.1] D2+2, D2+6
^DGP(45.84 - [#45.84] D2+5
^DGPM - [#405] D1, 1+9, 1+11, 1+14, D2+5, 2+2, 2+3, 2+4, 2+5
^DGPM("APMV" D1
^DGPM("APTT3" 2+2
^DGPM("ATID2" 2+3
^DGPM("CA" 1+9
^DGPT("ACENSUS" D1+3
^DGS(41.1 - [#41.1] 1+6
^UTILITY("DGPM" 1+10*, 1+11*, 1+14*

Label References

Name Line Occurrences
Q1 1+14, 1+15

Naked Globals

Name Field # of Occurrence
^( D1, 2+3
^("A" 1+10*, 1+14*
^(0 D1, D1+3, 1+10, 1+14, D2+5, D2+6, 2+2, 2+3, 2+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA 1+5*!, 1+6*, 1+10*, 1+11, 1+14*
>> DFN D1, 2+2, 2+3
>> DGI 1+9*, 1+10, 1+11
>> DGJ 2+3*, 2+4, 2+5
>> DGMSG 1+4*
>> DGMSG1 1+4*
>> DGPM0 D2+2, 2
>> DGPM2 D2+1, D2+2, D2+6
>> DGPMAB 2+5*
>> DGPMABL 2
>> DGPMADM 1+15*, 2+1*, 2+2*, 2+4*
>> DGPMAN D1+2, D1+3, 1+4, 1+5, 1+14, D2+4
>> DGPMCA D1, 2+1
>> DGPMDA 1+6, 1+9
>> DGPMER D1*, D1+1, D1+2*, D1+3*, D2+1*, D2+2*, D2+3*, D2+4*, D2+5*, D2+6*
>> DGPMND 2*
>> DGPMP D2+1, D2+3, D2+4, D2+5, D2+6, 2+1, 2+2, 2+3, 2+4
>> DGPMTYP 1+10*, 1+11, 2+1*, 2+2, 2+3
>> DGX 1+14*, D2+6*, 2+2*, 2+3*, 2+4
>> DGX1 1+14*, 1+15
>> DIE 1+6*
DIK 1+5*!, 1+10*, 1+14*
>> DR 1+6*
FLAG 1+5!
I D1*, 1+5!, 2+3*
>> J D1*
ORQUIT Q1!
U D1+3, 1+5
Info |  Source |  Call 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