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

Package: Clinical Procedures

Routine: MDCPVDEF


Information

MDCPVDEF ;HINES OIFO/BJ/TJ - CP Outbound message record maintenance routine.;30 Jul 2007

Source Information

Source file <MDCPVDEF.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 NOW^%DTC  (FILE,UPDATE)^DIE  $$EXTERNAL^DILFD  GETS^DIQ  
Clinical Procedures 1 $$QUE^MDCPMESQ  
Registration 1 IN5^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Clinical Procedures 8 MD DGPM PATIENT MOVEMENT  MDC ADT_A01 OUTBOUND  MDC ADT_A02 OUTBOUND  MDC ADT_A03 OUTBOUND  MDC ADT_A11 OUTBOUND  MDC ADT_A12 OUTBOUND  MDC ADT_A13 OUTBOUND  MDCPHL7C  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
GENDESTS ;
; Filters outbound messages. See HL*1.6*56/66 Site Manager and Developer Manual
; p. 11-7 to 11-11 (inc).
EN ;
; Parses outbound message from PIMS to send to 3rd party devices via ADT/A?? message.
SENDMSG(DIVISION,WARD,MSGTYPE,EVNTTYPE) ;
GENDEST2(IEN) ; Filters outbound messages. Unlike GENDESTS, this is set to filter
; assuming that we have not yet queued the outbound message.
ADD(MDCPDFN,MDCPDIV,MDCPWARD,MDCPBED,MDCPMSG,MDCPEVNT,MDCPMVMT,MDCPROT) ;
A01 ;Look into admissions (A01)
ARRYDEST(DIVISION,WARD,MSGTYPE,EVNTTYPE) ;
A02 ;Look into transfers (A02)
VADATA ;Look into VADPT
LASTLOC(MDCPDFN,MDCPLOC) ;
GETSUBS ;
; Get subscriber protocols
DEL(MDCPIFN) ;

External References

Name Field # of Occurrence
NOW^%DTC ADD+29
FILE^DIE DEL+16
UPDATE^DIE ADD+52, ADD+66
$$EXTERNAL^DILFD ARRYDEST+14
GETS^DIQ GENDEST2+13
$$QUE^MDCPMESQ ADD+64
IN5^VADPT VADATA+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Executing HL7 ADT Messaging (MD CP Flowsheets)",!
  • Line Location: EN+47
Function Call: WRITE
  • Prompt: !,"No CP Flowsheets subscriber(s) for the movement location.",!
  • Line Location: EN+48
Routine Call
  • DIE
  • Line Location:
    • ADD+52
    • ADD+66
Routine Call
  • DIE
  • Line Location:
    • DEL+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] EXTERNAL^DILFD
^MDC(704.005 - [#704.005] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] EN+31
^DIC(42 - [#42] EN+30
^MDC(704.005 - [#704.005] ADD+37, ADD+38, ADD+57, ADD+59, GENDESTS+28, GENDESTS+29, A02+1, A02+2, A02+3, A02+5
, A02+6, A01+2, A01+3, A01+4, A01+6, A01+7
^MDC(704.006 - [#704.006] ARRYDEST+7, ARRYDEST+8, ARRYDEST+9, ARRYDEST+10, ARRYDEST+12, SENDMSG+18, SENDMSG+21, SENDMSG+22
^ORD(101 - [#101] GETSUBS+13, ARRYDEST+14

Label References

Name Line Occurrences
$$SENDMSG EN+48
A01 A02+1
ADD EN+49
ARRYDEST GENDESTS+30, GENDEST2+18
DEL ADD+60
LASTLOC EN+23, EN+24
VADATA A01+2

Naked Globals

Name Field # of Occurrence
^(0 GETSUBS+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ADD+29
DFN VADATA+1~*
>> DGPMA EN+16, EN+18, EN+19, EN+45
>> DGPMDA EN+20
>> DGPMP EN+16, EN+18, EN+19
DIVISION ARRYDEST~, ARRYDEST+7, SENDMSG~, SENDMSG+18, SENDMSG+21
DUZ(2 EN+31
EVNTTYPE ARRYDEST~, ARRYDEST+9, SENDMSG~, SENDMSG+18, SENDMSG+21
>> HL("ECH" GENDESTS+21
>> HL("ETN" GENDESTS+30
>> HL("FS" GENDESTS+20
>> HL("MTN" GENDESTS+30
>> HLL("LINKS" ARRYDEST+14*
>> HLNEXT GENDESTS+22
>> HLNODE GENDESTS+23
>> HLQUIT GENDESTS+22
I GENDESTS+18~, ARRYDEST+5~, ARRYDEST+6*, ARRYDEST+13*, ARRYDEST+14
IEN GENDESTS+18~, GENDESTS+19*, GENDESTS+28, GENDESTS+29, GENDEST2~, GENDEST2+13, GENDEST2+14, GENDEST2+15, GENDEST2+16, GENDEST2+17
LASTLOC LASTLOC+12~*, A02+3*, A02+4, A02+5, A02+6, A01+4*, A01+5, A01+6, A01+7
MDBED EN+17~, EN+24*, EN+25, EN+49, GENDESTS+18~, GENDESTS+27*, A02+6*, A01+7*, VADATA+5*
MDCDAT A02+2~*, A02+3, A01+3~*, A01+4
MDCFDA ADD+42~, ADD+63!, DEL+14~
MDCFDA( ADD+43*, ADD+44*, ADD+45*, ADD+46*, ADD+47*, ADD+48*, ADD+49*, ADD+50*, ADD+51*, ADD+64*
, ADD+65*, DEL+15*
>> MDCIEN GENDESTS+19
MDCPBED ADD~, ADD+47
MDCPDFN ADD~, ADD+37, ADD+38, ADD+43, ADD+57, ADD+59, LASTLOC~, A02+1, A02+2, A02+3
, A01+2, A01+3, A01+4, VADATA+1
MDCPDIV ADD~, ADD+45, GENDEST2+11~, GENDEST2+14*, GENDEST2+18
MDCPDTTM ADD+28~, ADD+29*, ADD+44
MDCPEVNT ADD~, ADD+31, ADD+36, ADD+38, ADD+49, ADD+54, ADD+55, ADD+64, GENDEST2+11~, GENDEST2+16*
, GENDEST2+18
MDCPFLG ADD+30~*, ADD+39*, ADD+41
MDCPIEN ADD+42~
MDCPIEN(1 ADD+52, ADD+64, ADD+65
MDCPIFN DEL~, DEL+15
MDCPLOC LASTLOC~, A02+5, A02+6, A01+6, A01+7, VADATA+4, VADATA+5
MDCPMSG ADD~, ADD+37, ADD+38, ADD+48, ADD+57, ADD+59, GENDEST2+12~
MDCPMSG("704.005" GENDEST2+14, GENDEST2+15, GENDEST2+16, GENDEST2+17
MDCPMSGT GENDEST2+11~, GENDEST2+15*, GENDEST2+18
MDCPMVMT ADD~, ADD+50
MDCPOLD ADD+35~, ADD+36*, ADD+37, ADD+55*, ADD+57, ADD+59
MDCPPAIR ADD+42~
MDCPPOLD ADD+35~, ADD+38*, ADD+39
MDCPPREV ADD+35~, ADD+37*, ADD+39, ADD+56~, ADD+57*, ADD+58, ADD+59
MDCPROT ADD~, ADD+51, GENDESTS+18~, ARRYDEST+5~, ARRYDEST+12*, ARRYDEST+14
MDCPSUB GENDESTS+18~, ARRYDEST+5~, ARRYDEST+6*, ARRYDEST+7*, ARRYDEST+8, ARRYDEST+9, ARRYDEST+10, ARRYDEST+12
MDCPV1 GENDESTS+18~, GENDESTS+23*, GENDESTS+25
MDCPWARD ADD~, ADD+46, GENDEST2+17*, GENDEST2+18, ARRYDEST+5~, ARRYDEST+10*, ARRYDEST+11
MDDA EN+17~
MDDFN EN+17~, EN+21*, EN+23, EN+24, EN+49
MDDIV EN+17~, EN+30*, EN+31*, EN+48, EN+49, GENDESTS+18~, GENDESTS+25*, GENDESTS+26, GENDESTS+27
MDDIVI GENDESTS+18~, GENDESTS+28*, GENDESTS+30
MDEDIT EN+17~, EN+19*
MDEVNT EN+17~, EN+45*, EN+46*, EN+48, EN+49
MDHLECH GENDESTS+18~, GENDESTS+21*, GENDESTS+26, GENDESTS+27
MDHLFS GENDESTS+18~, GENDESTS+20*, GENDESTS+23, GENDESTS+25
MDIFN ADD+56~, ADD+59*, ADD+60
MDMVMT EN+17~, EN+20*, EN+49
MDNODE EN+17~, EN+18*, EN+21, EN+22, EN+23, EN+24, VADATA+2
MDQUIT EN+17~
>> MDROOT GETSUBS+13
MDTYPE EN+17~, EN+22*, EN+24, EN+46, VADATA+2
MDWARD EN+17~, EN+23*, EN+25, EN+30, EN+48, EN+49, GENDESTS+18~, GENDESTS+26*, A02+5*, A01+6*
, VADATA+4*
MDWARDI GENDESTS+18~, GENDESTS+29*, GENDESTS+30
MSGTYPE ARRYDEST~, ARRYDEST+8, SENDMSG~, SENDMSG+18, SENDMSG+21
RETRN ADD+62~, ADD+64, ADD+65
U EN+21, EN+22, EN+23, EN+24, EN+30, GENDESTS+28, GENDESTS+29, GETSUBS+13, ARRYDEST+8, ARRYDEST+9
, ARRYDEST+10, ARRYDEST+12, ARRYDEST+14, SENDMSG+22, A02+5, A02+6, A01+6, A01+7, VADATA+4, VADATA+5
USE SENDMSG+16~, SENDMSG+18*, SENDMSG+20*, SENDMSG+22*, SENDMSG+23
VAIP EN+17~
VAIP("D" VADATA+2*
VAIP(5 VADATA+4
VAIP(6 VADATA+5
WARD ARRYDEST~, ARRYDEST+11, SENDMSG~, SENDMSG+17, SENDMSG+18, SENDMSG+19
WD SENDMSG+20~*, SENDMSG+21*, SENDMSG+22
Y GETSUBS+12~*, GETSUBS+13*
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