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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSJPDCL

Package: Inpatient Medications

Routine: PSJPDCL


Information

PSJPDCL ;BIR/MHA - PADE HL7 ADT MESSAGE CLIENT TO VAFC ADT SERVER ;07/08/15

Source Information

Source file <PSJPDCL.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Health Level Seven 3 $$HLDATE^HLFNC  INIT^HLFNC2  GENERATE^HLMA  
Inpatient Medications 3 LOG^PSJPADE  PV19^PSJPDAPP  ($$CSIV,$$CSUD,$$PDACT)^PSJPDCLA  
Adverse Reaction Tracking 2 ^GMRADPT  EN1^GMRAOR2  
Kernel 2 ^%ZTLOAD  $$FMTHL7^XLFDT  
General Medical Record - Vitals 1 EN6^GMRVUTL  
Registration 1 IN5^VADPT  
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: 6

Package Total Caller Graph
Inpatient Medications 5 PSJ ADT-A01 ROUTER  PSJPDAPP  PSJPDCLA  PSJPDCLU  PSJPDCLV  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; Get ADT Message and send to PADE.
SEND ;
TR(SEG) ; Translate the VAFC message delimiters to HL7 delimiters for PADE
CHKPD(PSJWD,PSJRB) ;
REACT ;
AGY ;
OBX ;HT,WT
A08 ;
ROOMBED(RMBDNAM,WARDIEN) ; Return the Room-Bed IEN - 379

External References

Name Field # of Occurrence
^%ZTLOAD EN+42
$$GET1^DIQ AGY+11, AGY+32
^GMRADPT AGY+2
EN1^GMRAOR2 AGY+26
EN6^GMRVUTL OBX+2, OBX+8
$$HLDATE^HLFNC OBX+5, OBX+11
INIT^HLFNC2 EN+8, EN+13, SEND+4, SEND+12, A08+33
GENERATE^HLMA SEND+18
LOG^PSJPADE SEND+20
PV19^PSJPDAPP SEND+17
$$CSIV^PSJPDCLA CHKPD+16
$$CSUD^PSJPDCLA CHKPD+16
$$PDACT^PSJPDCLA EN+6
IN5^VADPT EN+16
$$FMTHL7^XLFDT AGY+11, AGY+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] GET1^DIQ
^GMR(120.86 - [#120.86] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] ROOMBED+3, ROOMBED+4
^DIC(42 - [#42] CHKPD+1, CHKPD+3
^ORD(101 - [#101] EN+11, A08+31
^PS(57.5 - [#57.5] CHKPD+31, CHKPD+32
^PS(58.7 - [#58.7] EN+1, EN+6, SEND+7, CHKPD+6, CHKPD+8, CHKPD+10, CHKPD+14, CHKPD+20, CHKPD+22, CHKPD+25
, CHKPD+27, CHKPD+33, CHKPD+34, A08+4, A08+17, A08+18, A08+19, A08+24, A08+25
^PS(58.71 - [#58.71] CHKPD+23, CHKPD+28, CHKPD+35
^SC - [#44] A08+14
^SC("B" A08+12
^TMP("A08" A08+1!, A08+2*, A08+3*
^TMP("HLS" A08+2, A08+6, A08+8, A08+9

Label References

Name Line Occurrences
$$CHKPD EN+29
$$ROOMBED CHKPD+19
$$TR EN+24, EN+25
AGY EN+31
OBX AGY+3
REACT AGY+31

Naked Globals

Name Field # of Occurrence
^(3 CHKPD+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT AGY+16~, AGY+17*, AGY+21*, AGY+23
ADTL AGY+26~
ADTL("O" AGY+26, AGY+28
ADTL("S" REACT+2, REACT+3, REACT+4, AGY+31
AEXT AGY+16~, AGY+20*, AGY+25
CNM SEND+1~, SEND+5*, SEND+15
CSEG TR+1~, TR+2*, TR+3*, TR+4
CT SEND+1~, SEND+6*, SEND+16*
>> DFN AGY+11
DN CHKPD+10~*, CHKPD+11, CHKPD+15
DT CHKPD+12, A08+23, A08+27
ECH EN+9~*, EN+28
FS EN+9~*, EN+27, A08+11
FTS EN+15~, EN+16*, EN+17*, SEND+16
GMRA AGY+1~, AGY+2*
GMRAL AGY+1~, AGY+3, AGY+5, AGY+16
GMRAL( AGY+18, AGY+19
GMRVSTR OBX+1~, OBX+2*, OBX+8*
HL EN+8, EN+33~*, SEND+4, SEND+12, A08+3, A08+5
HL("ECH" EN+9, TR+2
HL("ETN" EN+8, EN+10, EN+17, SEND+4, SEND+5, SEND+12
HL("FS" EN+9, SEND+16, TR+2
HLA SEND+1~, SEND+13!
HLA("HLS" SEND+2*, SEND+13*, SEND+16*
HLECH EN+33~, EN+35*
>> HLEID EN+2, EN+8
HLFS EN+33~, EN+34*
HLL SEND+13!
HLL("LINKS" SEND+15*
HLN A08+7~, A08+9*, A08+10, A08+11
>> HLNEXT EN+18
>> HLNODE EN+19, EN+20, EN+21, EN+22, EN+24, EN+26, EN+27
>> HLNODE( EN+25
HLP SEND+11~*, SEND+18
HLP("SUBSCRIBER" SEND+14*
>> HLQUIT EN+18
I EN+5~*, EN+6*, EN+18*, CHKPD+13~*, CHKPD+14*, CHKPD+15*, CHKPD+16*
IDX REACT+1*, REACT+2*, REACT+3, REACT+4, AGY+27~, AGY+28*
J EN+5~, EN+6*, EN+25*
KK AGY+16~, AGY+17*, AGY+18*, AGY+19, AGY+26, AGY+32
ND AGY+16~, AGY+19*, AGY+20, AGY+24, AGY+25
NECH EN+14~*, EN+16, REACT+3, AGY+9, AGY+25, OBX+3, OBX+9, A08+34~*
NFS EN+14~*, REACT+5, AGY+6, AGY+7, AGY+8, AGY+9, AGY+10, AGY+11, AGY+22, AGY+23
, AGY+24, AGY+25, AGY+30, AGY+32, OBX+3, OBX+4, OBX+5, OBX+9, OBX+10, OBX+11
, A08+34~*
NHL EN+10~, EN+13, EN+33, A08+33
NHL("ECH" EN+14, EN+35, TR+2, A08+34
NHL("FS" EN+14, EN+34, TR+2, A08+34
NSEG EN+15~, SEND+2, SEND+13
NSEG( EN+24*, EN+25*, AGY+13*, AGY+34*, OBX+7*, OBX+13*
PSJACT CHKPD+11*, CHKPD+12, A08+19~, A08+22*, A08+23, A08+25*, A08+26*, A08+27
PSJAP EN+3~, EN+4*, EN+7
PSJAP( CHKPD+7, CHKPD+37!
PSJCLN A08+7~, A08+11*, A08+12
PSJCLNI A08+7~, A08+12*, A08+13, A08+14
PSJDIV CHKPD+3~*, CHKPD+4, CHKPD+6, CHKPD+8, A08+7~, A08+14*, A08+15, A08+17, A08+24
PSJDIVI CHKPD+3~, CHKPD+8*, CHKPD+9, CHKPD+10, CHKPD+14, CHKPD+20, CHKPD+22, CHKPD+25, CHKPD+27, CHKPD+33
, CHKPD+34, A08+24*, A08+25
PSJDNS SEND+1~, SEND+9*, SEND+10, SEND+14, A08+19~, A08+20*, A08+21
PSJLOC EN+15~, EN+27*, EN+28
PSJND SEND+1~, SEND+7*, SEND+8, SEND+9, A08+7~, A08+19*, A08+20, A08+22
PSJPD CHKPD+5~*, CHKPD+6*, CHKPD+7, CHKPD+8, CHKPD+10, CHKPD+14, CHKPD+20, CHKPD+22, CHKPD+23, CHKPD+25
, CHKPD+27, CHKPD+29, CHKPD+33, CHKPD+34, CHKPD+36, CHKPD+37, A08+16~*, A08+17*, A08+18, A08+19
, A08+24, A08+25, A08+28
>> PSJPDO CHKPD+13
PSJQ EN+15~, EN+17*, EN+29*, EN+30, EN+32, CHKPD+1!, CHKPD+5*, CHKPD+23*, CHKPD+29*, CHKPD+36*
, CHKPD+38, A08+16~*, A08+28*, A08+29
PSJQ( SEND+6, SEND+15, CHKPD+23*, CHKPD+29*, CHKPD+36*, A08+28*
PSJRB CHKPD~, CHKPD+18, CHKPD+19
PSJRBD EN+15~, EN+16*, EN+29
PSJRBI CHKPD+19~*, CHKPD+20
PSJSAR CHKPD+5~, CHKPD+20*, CHKPD+21, CHKPD+22*, CHKPD+23*, CHKPD+25*, CHKPD+26, CHKPD+27*, CHKPD+28*, CHKPD+29
, CHKPD+32*, CHKPD+33*, CHKPD+34*, CHKPD+35*, CHKPD+36, A08+16~
PSJSND SEND+1~, SEND+11~, SEND+18, SEND+19*
PSJSND(1 SEND+19
PSJVNM SEND+1~, SEND+9*, SEND+10, A08+19~, A08+20*, A08+21
PSJVP SEND+1~, SEND+9*, SEND+10, SEND+14, A08+19~, A08+20*, A08+21
PSJWARD EN+15~, EN+28*, EN+29
PSJWD CHKPD~, CHKPD+1
PSJWDI CHKPD+1~*, CHKPD+2, CHKPD+3, CHKPD+19, CHKPD+25, CHKPD+31, CHKPD+32
PSJX EN+15~, EN+17*, EN+18, EN+30*, CHKPD+5~, CHKPD+17*, CHKPD+23*, CHKPD+24, CHKPD+29*, CHKPD+30
, CHKPD+36*, CHKPD+37, A08+7~*, A08+8, A08+13*, A08+15*
>> PSJXCL( CHKPD+23*, CHKPD+29*, CHKPD+36*
REAC REACT+1~*, REACT+3*, REACT+4*, REACT+5
RMBD ROOMBED+1~, ROOMBED+2*, ROOMBED+3*, ROOMBED+4
RMBDNAM ROOMBED~, ROOMBED+3
ROOMBED ROOMBED+1~, ROOMBED+2*, ROOMBED+3, ROOMBED+4*, ROOMBED+5
>> RXO CHKPD+15, CHKPD+16
SEG TR~, TR+2, REACT+5*, AGY+1~, AGY+6*, AGY+7*, AGY+8*, AGY+9*, AGY+10*, AGY+11*
, AGY+13, AGY+22*, AGY+23*, AGY+24*, AGY+25*, AGY+30*, AGY+32*, AGY+34*, OBX+3*, OBX+4*
, OBX+5*, OBX+7*, OBX+9*, OBX+10*, OBX+11*, OBX+13*
SEQ EN+15~, EN+17*, EN+23*, EN+24, EN+25, AGY+12*, AGY+13, AGY+33*, AGY+34, OBX+6*
, OBX+7, OBX+12*, OBX+13
SEV AGY+27~, AGY+28*, AGY+29*, AGY+30
SID EN+10~, EN+11*, EN+12, EN+13, A08+30~, A08+31*, A08+32, A08+33
SNM EN+10~*, EN+11, SEND+3, SEND+4, SEND+12, SEND+18, A08+30~*, A08+31
U AGY+20, AGY+24, AGY+25, OBX+4, OBX+5, OBX+10
VAIP EN+15~
VAIP("D" EN+16*
VAIP(6 EN+16
VAIP(8 EN+16
VR SEND+1~
WARDIEN ROOMBED~, ROOMBED+4
X EN+15~, OBX+3, OBX+4, OBX+5, OBX+9, OBX+10, OBX+11
XX EN+33~, EN+39*, SEND+1~, SEND+6*, SEND+7, SEND+15, A08+7~*, A08+8*, A08+9
ZTDESC EN+36~, EN+40*
ZTDTH EN+36~, EN+41*
ZTIO EN+36~, EN+37*
ZTRTN EN+36~, EN+38*
ZTSAVE EN+36~
ZTSAVE( EN+39*
ZZ1 SEND+11~*, SEND+15*, SEND+16
ZZ2 SEND+11~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All