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

Package: Registration

Routine: DGPMVDL1


Information

DGPMVDL1 ;ALB/MIR - DELETE PATIENT MOVEMENTS, CONTINUED ; 11 JAN 88 @9 [ 03/09/2001 9:45 AM ]

Source Information

Source file <DGPMVDL1.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 3 FAMT^DGPMV30  FINDLAST^DGPMV32  DS^DGPTMSG1  
VA Fileman 3 C^%DTC  ^DIE  ^DIK  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To ADT 1 BDGAPI1  
Registration 1 DGPMVDL  

Entry Points

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

External References

Name Field # of Occurrence
C^%DTC 3+3, 47+2
FAMT^DGPMV30 47+2
FINDLAST^DGPMV32 3+3, 47+1
DS^DGPTMSG1 3+1
^DIE 3+4, 3+5, 47+2, DD+14
^DIK 4+1, 5+2, DD+11

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
Routine Call
  • DIE
  • Line Location:
    • 3+4
    • 3+5
    • 47+2
    • DD+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] Classic Fileman Calls
^DGPT - [#45] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] D3+6, 3+2, 3+4, 4+1, 5+3, DD+2, DD+3, DD+6, DD+7, DD+11
, DD+12, DD+13, DD+14
^DGPM("APTT1" D3+3, D3+4, D5+1
^DGPM("APTT4" D3+4, D5+1
^DGPM("CA" 4+1
^UTILITY("DGPM" 3+4*, 5+1*, 5+3*, DD+3*, DD+6*, DD+7*, DD+8*, DD+11*, DD+12*, DD+13*

Label References

Name Line Occurrences
47 3
DD 3+1

Naked Globals

Name Field # of Occurrence
^("A" DD+11*
^("IHSP" DD+6
^("P" 5+1, DD+3
^(0 D3+6, 3+2, 3+4, DD+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA 3+2!*, 3+3, 3+4, 3+5*, 47+2*, 4+1*, 5+2*, DD+2*, DD+7, DD+8
, DD+11, DD+14*
>> DFN D3+3, D3+4, D5+1
DG 3+4!
DGFAC 47+2!
>> DGI 4+1*
>> DGMAS 47+2*
>> DGPM0 D3+6, 47+1
>> DGPMAB 3+3, 47+2
DGPMADM 3+1*, DD+2, DD+3, DD+6, DD+12, DD+13!, DD+14, DD+15!
>> DGPMAN D3+2, 3+2, 5+1
>> DGPMCA 3+1, 5+1, 5+3
>> DGPMDA 47+2, 4+1, 5+2
>> DGPMER D3+1*, D3+2*, D3+3*, D3+5*, D3+6*, D5+2*, D6+1*
>> DGPMNI 3+2*, 47+1*
>> DGPMP D3+1, D3+2, D3+3, D3+4, D3+6, 3, 47+1, D5+1, D6+1
>> DGPMPD 3+3*, 3+5
>> DGPMPTF 3+2*, 3+5
>> DGPMTN 3+2*, 47+1*
>> DIE 3+3*, 3+5*, 47+2*, DD+14*
>> DIK 4+1*, 5+2*, DD+11*
DQ 3+4!
>> DR 3+3*, 3+5*, 47+2*, DD+14*
>> X D3+4*, D3+5, 3+3, 47+2, D5+1*, D5+2
>> X1 3+3*, 47+2*
>> X2 3+3*, 47+2*
>> Y D3+4*, D3+5, D5+1*, D5+2
Info |  Source |  Call Graph |  Caller 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