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

Package: Registration

Routine: DGPMEVT


Information

DGPMEVT ;ALB/RMO - MAS MOVEMENT EVENT DRIVER; 26 DEC 89 ; 2/2/04 3:18pm

Source Information

Source file <DGPMEVT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 ^DIE  $$GET1^DIQ  
Kernel 1 EN1^XQOR  
PCE Patient Care Encounter 1 ^VSIT  
Registration 1 INP^VADPT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Registration 3 DGPMV3  DGPMVPU  DGSWITCH  
IHS Changes To ADT 1 BDGAPI1  

Entry Points

Name Comments DBIA/ICR reference
NEW(DGPM,DGPMA) ; --- add a new entry, new admit
; INPUT : DGPM - IEN of admission movement
; DGPMA - Oth node of admission movement
VISIT ;-- create visit file entry for new admissions
ERR ;
NEWQ ;

External References

Name Field # of Occurrence
^DIE NEW+21
$$GET1^DIQ DGPMEVT+20
INP^VADPT DGPMEVT+26
^VSIT NEW+17
EN1^XQOR DGPMEVT+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Serious error ! DGPM MOVEMENT EVENTS protocol not found"
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: !,"in Protocol file #101. No events fired !"
  • Line Location: ERR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ERR+3
Routine Call
  • DIE
  • Line Location:
    • NEW+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(150.9 - [#150.9] DGPMEVT+16
^DIC(42 - [#42] NEW+8
^DPT - [#2] NEW+12
^ORD(101 - [#101] DGPMEVT+26
^SC - [#44] NEW+9
^UTILITY("DGPM" VISIT+6, VISIT+7, VISIT+9*

Label References

Name Line Occurrences
$$NEW VISIT+8
NEWQ NEW+13
VISIT DGPMEVT+16

Naked Globals

Name Field # of Occurrence
^("A" VISIT+7
^("P" VISIT+7
^(44 NEW+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA NEW+21*, NEW+22!
DGPM NEW~, NEW+21
DGPMA DGPMEVT+19, VISIT+10*, NEW~, NEW+8, NEW+12, NEW+16, NEW+23*, NEWQ+2
>> DGPMCA DGPMEVT+20*, DGPMEVT+21*
>> DGPMDA DGPMEVT+20, VISIT+10
>> DGPMP DGPMEVT+19, DGPMEVT+21
DGX VISIT+4~, VISIT+5*, VISIT+6*, VISIT+7, VISIT+8, VISIT+9, VISIT+10
DGY VISIT+4~, VISIT+7*, VISIT+8*, VISIT+9, VISIT+10
DIC NEW+22!
DIE NEW+21*, NEW+22!
DIROUT DGPMEVT+13!
DR NEW+21*, NEW+22!
DTOUT DGPMEVT+13!
OROLD DGPMEVT+26~
U DGPMEVT+16, DGPMEVT+21, NEW+12
VAIN DGPMEVT+26!
VSIT VISIT+11!, NEW+3!, NEW+16*, NEWQ+1!
VSIT("ELG" NEW+12*, NEW+13
VSIT("IEN" NEW+20, NEW+21, NEW+23
VSIT("LOC" NEW+8*, NEW+9!
VSIT("SVC" NEW+16*
VSIT(0 NEW+16*
X DGPMEVT+26*!
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