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

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 ;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
2
D2 ;Can this transfer be deleted?
D1

External References

Name Field # of Occurrence
AB^DGPMV32 2
ASIHOF^DGPMV321 2+5
DD^DGPMVDL1 1+11, 2+1, 2+2, 2+4
MSG^DGPTMSG1 1+7
^DIE 1+8
^DIK 1+7, 1+9, 1+10
$$FMTE^XLFDT 1+6

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
Routine Call
  • DIE
  • Line Location:
    • 1+8

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
^DGCPT(46 - [#46] 1+3
^DGICD9(46.1 - [#46.1] 1+4
^DGP(45.84 - [#45.84] D2+5
^DGPM - [#405] D1, 1+9, 1+10, 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+8
^UTILITY("DGPM" 1+9*, 1+10*

Label References

Name Line Occurrences
Q1 1+10, 1+11

Naked Globals

Name Field # of Occurrence
^( D1, 2+3
^("A" 1+9*, 1+10*
^(0 D1, D1+3, 1+9, 1+10, 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+3*, 1+4, 1+7*!, 1+8*, 1+9*, 1+10*
>> DFN D1, 2+2, 2+3
>> DGI 1+9*
>> DGJ 2+3*, 2+4, 2+5
>> DGMSG 1+6*
>> DGMSG1 1+6*
>> DGPM0 D2+2, 2
>> DGPM2 D2+1, D2+2, D2+6
>> DGPMAB 2+5*
>> DGPMABL 2
>> DGPMADM 1+11*, 2+1*, 2+2*, 2+4*
>> DGPMAN D1+2, D1+3, 1+3, 1+6, 1+7, 1+10, D2+4
>> DGPMCA D1, 2+1
>> DGPMDA 1+8, 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+9*, 2+1*, 2+2, 2+3
>> DGX 1+10*, D2+6*, 2+2*, 2+3*, 2+4
>> DGX1 1+10*, 1+11
>> DIE 1+8*
DIK 1+3*, 1+7*!, 1+9*, 1+10*
>> DR 1+8*
FLAG 1+3*, 1+4*, 1+5!, 1+7!
I D1*, 1+3*, 1+4*, 1+7!, 2+3*
>> J D1*
ORQUIT Q1!
U D1+3, 1+3, 1+7
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