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 |  Local Variables |  All
Print Page as PDF
Routine: DGRUADT

Package: Registration

Routine: DGRUADT


Information

DGRUADT ;ALB/SCK - MAIN DRIVER FOR RAI/MDS ADT MESSAGING; 7-8-99 ; 29 Aug 2006 9:07 AM

Source Information

Source file <DGRUADT.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 8 (CN40,MV1238,MV4,MV40,MV41)^DGRUADT0  BLDMSG^DGRUADT1  EDITADT^DGRUADT2  (DELASIH,UPSTAT)^DGRUASIH  $$CHKWARD^DGRUUTL  $$GETDIV^DGRUUTL1  (IN5,INP)^VADPT  $$SEND^VAFHUTL  
Health Level Seven 1 KILL^HLTRANS  
Kernel 1 ^%ZTLOAD  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Registration 2 DGRU INPATIENT CAPTURE  DGRUADT2  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point for generating an HL7 ADT message to the COTS system
; The message builder is tasked off to taskManager to build and transmit
; the ADT message to the vendor.
; Input:
; DGPMP - 0 node of the primary movement BEFORE the ADT action
; DGPMA - 0 node of the primary movement AFTER the ADT action
; DFN - Ien of the patient in the PATIENT File (#2)
; DGPMDA - Ien of the movement
; DGQUIET - Flag to suppress read/writes if set
; DGADT - Data array for processing ADT events
; DGTRACE - Debugging parameter
; DGPDIV - Division for prior Ward
; DGCDIV - Division for current Ward
; DGINTEG - Integration Database flag
; 0 - Not Integrated Site
; 1 - Integrated, Single Database
; 2 - Integrated, Multiple Databases
; DGPMVI - Array where results from call to IN5^VADPT returned
EXIT ;
INIT ;
EVENT ;
EVENTQ
SETVAR(NODE) ;
MOVETYPE(NODE) ;

External References

Name Field # of Occurrence
^%ZTLOAD EN+36
CN40^DGRUADT0 EVENT+82
MV1238^DGRUADT0 EVENT+42
MV4^DGRUADT0 EVENT+67
MV40^DGRUADT0 EVENT+53
MV41^DGRUADT0 EVENT+35, EVENT+56
BLDMSG^DGRUADT1 EVENT+21, EVENT+27, EVENT+45, EVENT+60, EVENT+65, EVENT+85, EVENT+105, EVENT+111, EVENT+136, EVENT+137
, EVENT+139, EVENT+143, EVENT+146
EDITADT^DGRUADT2 EVENT+71
DELASIH^DGRUASIH EVENT+140
UPSTAT^DGRUASIH EVENT+108
$$CHKWARD^DGRUUTL EVENT+19, EVENT+26, EVENT+44, EVENT+59, EVENT+64, EVENT+83, EVENT+100, EVENT+110, EVENT+134, EVENT+142
, EVENT+145
$$GETDIV^DGRUUTL1 EVENT+125, EVENT+128
$$GET1^DIQ EVENT+99, EVENT+131
KILL^HLTRANS EXIT+2
IN5^VADPT EVENT+39, EVENT+91, EVENT+119
INP^VADPT EVENT+17
$$SEND^VAFHUTL EN+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Executing HL7 ADT Messaging (RAI/MDS)"
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !,"Unable to determine wards for transfer cancellation"
  • Line Location: EVENT+122

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] GET1^DIQ
^DG(43 - [#43] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM("APRD" EVENT+97, EVENT+98
^DGPM("APTT3" EVENT+101
^DGRU(46.14 - [#46.14] EVENT+107
^TMP("DGRUADT1" EN+28
^TMP("HLS" EXIT+3!
^UTILITY("DGPM" EN+24

Label References

Name Line Occurrences
$$MOVETYPE EVENT+32, EVENT+50, EVENT+76
EVENT INIT+1
EVENTQ EVENT+9, EVENT+71, EVENT+74
EXIT EN+29, INIT+1
INIT EN+30
SETVAR EVENT+10, EVENT+75

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN EVENT+21, EVENT+27, EVENT+35, EVENT+42, EVENT+45, EVENT+53, EVENT+56, EVENT+60, EVENT+65, EVENT+67
, EVENT+82, EVENT+85, EVENT+97, EVENT+98, EVENT+101, EVENT+105, EVENT+107, EVENT+108, EVENT+111, EVENT+136
, EVENT+137, EVENT+139, EVENT+140, EVENT+143, EVENT+146
DGADMSN EVENT+1~, SETVAR+1*
DGASIH EVENT+42~, EVENT+94~, EVENT+104*
>> DGCDIV EVENT+128*, EVENT+135
DGEVENT EVENT+1~, EVENT+24*, EVENT+30*, EVENT+48*, EVENT+79*, EVENT+88*, EVENT+114*
DGIEN EVENT+106~, EVENT+107*, EVENT+108
>> DGINTEG EVENT+131*, EVENT+135
DGLDDAT EVENT+101~*, EVENT+102, EVENT+103!
DGMOVE EVENT+1~, EVENT+32*, EVENT+35, EVENT+50*, EVENT+53, EVENT+56, EVENT+58, EVENT+63, EVENT+67, EVENT+76*
, EVENT+82, EVENT+140
>> DGNOW EVENT+102
DGOIEN EVENT+95~, EVENT+98*, EVENT+99, EVENT+105
DGOMDT EVENT+95~, EVENT+96*, EVENT+97*, EVENT+98
DGOWARD EVENT+95~, EVENT+99*, EVENT+100, EVENT+105
>> DGPDIV EVENT+125*, EVENT+135
>> DGPMA EVENT+4, EVENT+9, EVENT+10, EVENT+16, EVENT+21, EVENT+26, EVENT+27, EVENT+32, EVENT+45, EVENT+50
, EVENT+59, EVENT+60, EVENT+64, EVENT+65, EVENT+67, EVENT+71, EVENT+74
>> DGPMAN EVENT+42, EVENT+94, EVENT+96, EVENT+102, EVENT+107
>> DGPMDA EVENT+21, EVENT+27, EVENT+45, EVENT+60, EVENT+65, EVENT+85, EVENT+111, EVENT+136, EVENT+137, EVENT+139
, EVENT+143, EVENT+146
>> DGPMP EVENT+4, EVENT+9, EVENT+71, EVENT+74, EVENT+75, EVENT+76, EVENT+83, EVENT+85, EVENT+105, EVENT+111
, EVENT+117, EVENT+136, EVENT+137, EVENT+139, EVENT+143, EVENT+146
>> DGPMVI(5 EVENT+19, EVENT+21
>> DGQUIET EN+26
DGSTAT EVENT+106~*, EVENT+108
DGTRACE EN+19~, EN+28*, EN+29, EVENT+20, EVENT+25, EVENT+31, EVENT+49, EVENT+80, EVENT+89, EVENT+115
DGTYPE EVENT+1~, EVENT+14, EVENT+24, EVENT+30, EVENT+48, EVENT+79, EVENT+88, EVENT+114, SETVAR+1*
DGWARD EVENT+93~*, EVENT+109*, EVENT+110, EVENT+111
DGWARDA EVENT+116~, EVENT+120*, EVENT+121, EVENT+128, EVENT+134, EVENT+137, EVENT+142, EVENT+145
DGWARDP EVENT+116~, EVENT+117*, EVENT+121, EVENT+125, EVENT+134, EVENT+136, EVENT+139, EVENT+142, EVENT+143, EVENT+145
, EVENT+146
NODE SETVAR~, SETVAR+1, MOVETYPE~, MOVETYPE+2
TYPE MOVETYPE+1~, MOVETYPE+2*, MOVETYPE+3
VAFH EN+19~, EN+24*
VAFHDT EVENT+1~, EVENT+140, SETVAR+1*
VAIN EVENT+15~
VAINDT EVENT+15~, EVENT+16*
VAIP EVENT+1~, EVENT+38~, EVENT+116~, EVENT+118~
VAIP("D" EVENT+38*, EVENT+90*, EVENT+118*
VAIP("M" EVENT+90*, EVENT+118*
VAIP(14 EVENT+93
VAIP(17 EVENT+44, EVENT+45
VAIP(5 EVENT+109, EVENT+120
X EN+32~, EN+34*
ZTDESC EN+32~, EN+33*
ZTDTH EN+32~, EN+35*
ZTIO EN+32~, EN+35*
ZTQUEUED EN+32~, EXIT+1
ZTREQ EN+32~, EXIT+1*
ZTRTN EN+32~, EN+33*
ZTSAVE EN+32~
ZTSAVE( EN+34*
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 |  Local Variables |  All