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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSJPDCLA

Package: Inpatient Medications

Routine: PSJPDCLA


Information

PSJPDCLA ;BIR/MA/MC - PADE HL7 - CLINIC CHECK ;07/08/15

Source Information

Source file <PSJPDCLA.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Registration 6 IN5^VADPT  $$EN^VAFCPID  $$IN^VAFHLPV1  $$PIVCHK^VAFHPIVT  $$SEND^VAFHUTL  $$SITE^VASITE  
Inpatient Medications 4 (GETPTO,LOG)^PSJPADE  ($$GETSAR,GETPSARS,KILLTMP,PV19)^PSJPDAPP  ($$CHKPD,AGY)^PSJPDCL  RESNDORDS^PSJPDCLA  
Health Level Seven 2 INIT^HLFNC2  GENERATE^HLMA  
Kernel 2 ^%ZTLOAD  $$FMTHL7^XLFDT  
VA FileMan 2 ^%DT  ^DIR  

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

Package Total Caller Graph
Inpatient Medications 10 PSGOEE  PSIVOPT1  PSJ PADE SEND SURGERY CASES  PSJ PADE SURGERY TASK  PSJ SIU-SDAM ROUTER  PSJPADE  PSJPDAPP  PSJPDCL  
PSJPDCLA  PSJPDCLU  
Kernel 2 ^DIC(19  ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; Get SDAM Message and send to PADE.
EN1 ;
CLCI ;
SEND ;
TR(SEG) ; Translate the VAFC message delimiters to HL7 delimiters for PADE
PDACT(PSJPD) ;
CHKPDCL(PSJCL) ;
CHKINPF ;
SRCS ;Surgery case nightly task
TASK ;
SRBLD ;
DIVCHK(DIV) ;
CSIV() ;
CSUD() ;
AIL ;
SCH ;
PIVOT(DFN,PSJON,PSWARDH,PSRBDH,PSFTSH) ; Get pivot # for patient=DFN and order=PSJON
LOGPIVOT(DFN,PSJON) ; Get pivot for Patient DFN, order PSJON, from log file
RESNDORDS(DFN,PSJOR,PSJDIV,PDSYS,FILTER) ; Resend all orders for the input CLINIC's SEND AREA

External References

Name Field # of Occurrence
^%DT SRCS+6
^%ZTLOAD EN1+44, SRCS+15
^DIR SRCS+12
INIT^HLFNC2 EN1+8, EN1+13, SEND+3, TASK+4
GENERATE^HLMA CLCI+14, SEND+18
GETPTO^PSJPADE RESNDORDS+13, RESNDORDS+25
LOG^PSJPADE CLCI+15, SEND+19
$$GETSAR^PSJPDAPP RESNDORDS+11, RESNDORDS+17
GETPSARS^PSJPDAPP CLCI+17
KILLTMP^PSJPDAPP CLCI+19
PV19^PSJPDAPP CLCI+13, SEND+16
$$CHKPD^PSJPDCL EN1+28, TASK+37
AGY^PSJPDCL SRBLD+17
RESNDORDS^PSJPDCLA CLCI+18
IN5^VADPT EN1+25, CHKINPF+1, TASK+35, PIVOT+9
$$EN^VAFCPID SRBLD+4
$$IN^VAFHLPV1 SRBLD+10
$$PIVCHK^VAFHPIVT PIVOT+14
$$SEND^VAFHUTL EN1+1
$$SITE^VASITE EN1+38, TASK+19
$$FMTHL7^XLFDT SCH+2, SCH+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"PADE not setup - Quitting..."
  • Line Location: SRCS+1
Function Call: WRITE
  • Prompt: !!,"PADE HL7 Protocols are not setup - Quitting..."
  • Line Location: SRCS+3
Function Call: WRITE
  • Prompt: !,"No data to send for the given date - Quitting..."
  • Line Location: SRCS+10
Routine Call
  • DIR
  • Line Location:
    • SRCS+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] CHKINPF+2
^DPT - [#2] EN1+24, CLCI+6, TASK+26, TASK+33
^ORD(101 - [#101] EN1+11, EN1+12, SRCS+3, TASK+3
^PS(52.6 - [#52.6] CSIV+3
^PS(52.7 - [#52.7] CSIV+9
^PS(55 - [#55] CSIV+1, CSIV+2, CSIV+7, CSIV+8, CSUD+1, PIVOT+6, PIVOT+7
^PS(57.8 - [#57.8] CHKPDCL+29, CHKPDCL+30
^PS(58.7 - [#58.7] EN1+2, EN1+4, CLCI+2, SEND+6, PDACT+1, PDACT+2, CHKPDCL+7, CHKPDCL+9, CHKPDCL+15, CHKPDCL+16
, CHKPDCL+18, CHKPDCL+20, CHKPDCL+24, CHKPDCL+26, CHKPDCL+31, CHKPDCL+33, CHKPDCL+37, CHKPDCL+38, CHKPDCL+43, CHKPDCL+44
, CHKPDCL+48, CHKPDCL+49, CHKINPF+5, CHKINPF+7, CHKINPF+8, TASK+23, TASK+25, TASK+26, TASK+27, TASK+29
, DIVCHK+2
^PS(58.71 - [#58.71] CHKPDCL+21, CHKPDCL+27, CHKPDCL+34, CHKPDCL+45, CHKPDCL+50, TASK+30
^PS(58.72 - [#58.72] LOGPIVOT+5, LOGPIVOT+6
^PSDRUG - [#50] CSIV+4, CSIV+10, CSUD+2
^SC - [#44] EN1+37, CHKPDCL+3, CHKPDCL+5, TASK+18, TASK+20
^SC("B" EN1+36, CHKPDCL+1
^SRF - [#130] TASK+11, TASK+12, TASK+13, TASK+15
^SRF("AC" SRCS+9, TASK+9, TASK+10
^SRS - [#131.7] TASK+16
^TMP($J RESNDORDS+14*, RESNDORDS+22, RESNDORDS+23, RESNDORDS+24, RESNDORDS+26*

Label References

Name Line Occurrences
$$CHKPDCL EN1+33
$$CSIV CHKPDCL+15
$$CSUD CHKPDCL+16
$$PDACT EN1+4
CHKINPF EN1+20
EN1 SRCS+1, TASK+1
SCH SRBLD+18
SEND TASK+42
SRBLD CLCI+10, TASK+42

Naked Globals

Name Field # of Occurrence
^(2 CHKPDCL+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SRCS+4!, SRCS+6*, SRCS+8!
%DT("A" SRCS+5*
%DT("B" SRCS+5*
%DT(0 SRCS+5*
ADMDT PIVOT+3~, PIVOT+10*, PIVOT+14
BDT SRCS+7~, SRCS+9*, SRCS+10, TASK+5~, TASK+8*, TASK+9*, TASK+10
CNM EN1+10~*, EN1+12, SRCS+2~*, SRCS+3, TASK+1~, TASK+2*, TASK+3
CSEG TR+1~, TR+2*, TR+3*, TR+4
CT SEND+1~, SEND+4*, SEND+15
DC CHKPDCL+10~*, CHKPDCL+11, CHKINPF+9~*, CHKINPF+10
DFN EN1+24, CLCI+6, CLCI+17, CLCI+18, TASK+5~, TASK+11*, TASK+26, TASK+33, SRBLD+4, SRBLD+10
, CSIV+1, CSIV+2, CSIV+7, CSIV+8, CSUD+1, SCH+2, PIVOT~, PIVOT+1, PIVOT+6, PIVOT+7
, PIVOT+14, LOGPIVOT~, LOGPIVOT+1, LOGPIVOT+5, RESNDORDS~, RESNDORDS+13, RESNDORDS+14, RESNDORDS+24, RESNDORDS+25, RESNDORDS+26
DIN CSIV+1~, CSIV+2*, CSIV+3*, CSIV+4, CSIV+8*, CSIV+9*, CSIV+10
DIR SRCS+11!
DIR("A" SRCS+11*
DIR("B" SRCS+11*
DIR(0 SRCS+11*
DIV DIVCHK~, DIVCHK+2
DN CHKPDCL+9~*, CHKPDCL+10, CHKPDCL+14, CHKINPF+8~*, CHKINPF+9
DT PDACT+6, CHKPDCL+11, CHKINPF+10, SRCS+5, TASK+7
ECH EN1+9~*
EDT SRCS+7~, SRCS+9*, SRCS+10, TASK+8*, TASK+9
EVNTDATE SRBLD+1~
EVNTHL7 SRBLD+1~
FILTER RESNDORDS~, RESNDORDS+11
FS EN1+9~*, EN1+18
FTS EN1+22~, EN1+23*, EN1+31*, CLCI+11, SEND+15, TASK+5~, TASK+20*, TASK+41*
HL EN1+8, CLCI+10~*, SEND+3, SEND+12*, TASK+5~, TASK+6*
HL("ECH" EN1+9, TR+2, TASK+6
HL("ETN" EN1+8
HL("FS" EN1+9, CLCI+11, SEND+15, TR+2, TASK+6
HLA CLCI+12!, SEND+1~, SEND+17!
HLA("HLS" CLCI+13*, SEND+2*, SEND+17*
HLECH EN1+14~, CLCI+9*
>> HLEID EN1+7, EN1+8
HLFS EN1+14~*, CLCI+9*, TASK+6*, SRBLD+12, SRBLD+13, SRBLD+14, AIL+2, AIL+3, AIL+4, SCH+2
SCH+3, SCH+4
>> HLNEXT EN1+17
>> HLNODE EN1+18
HLP CLCI+12!*, CLCI+14, SEND+10~*, SEND+18
HLP("DT" EN1+35
HLP("SUBSCRIBER" CLCI+12*, SEND+11*
HLQ SRBLD+1~, SRBLD+2*
>> HLQUIT EN1+17
I EN1+3~*, EN1+4*, EN1+17*, CHKPDCL+12~*, CHKPDCL+13*, CHKPDCL+14*, CHKPDCL+15*, CHKPDCL+16*
II TASK+5~, TASK+10*, TASK+11, TASK+12, TASK+13, TASK+15, LOGPIVOT+3~, LOGPIVOT+5*, LOGPIVOT+6
J EN1+3~, EN1+4*, CSIV+1~*, CSIV+2, CSIV+7*, CSIV+8, CSIV+9, CSUD+1~*, CSUD+2
M SRBLD+3~, SRBLD+7*
NECH EN1+14~*, EN1+31, CLCI+9*, TASK+5~, TASK+6*, TASK+41, AIL+3, AIL+4, SCH+4, PIVOT+13
NFS EN1+14~*, CLCI+9*, TASK+5~, TASK+6*
NHL EN1+13, CLCI+10, SEND+12, TASK+4~, TASK+6
NHL("ECH" EN1+14, CLCI+9, TR+2
NHL("FS" EN1+14, CLCI+9, TR+2
NSEG EN1+15~, EN1+23!, CLCI+10!, CLCI+13, SEND+2, SEND+17, TASK+5~, TASK+22!
NSEG( CLCI+11*, SEND+15*, SRBLD+6*, SRBLD+7*, SRBLD+16*, AIL+6*, SCH+6*
NSEG(9999 SEND+4
PCLSAS RESNDORDS+8~, RESNDORDS+11*, RESNDORDS+12, RESNDORDS+17*, RESNDORDS+18
PDL EN1+15~
PDL(16 SCH+5*
PDSYS RESNDORDS~, RESNDORDS+11, RESNDORDS+14, RESNDORDS+17, RESNDORDS+22, RESNDORDS+23, RESNDORDS+24, RESNDORDS+26
PSFTSH PIVOT~, PIVOT+13*
PSJACT PDACT+2~, PDACT+5*, PDACT+6
PSJAP EN+2~*, EN1+5, EN1+22, EN1+32*, PDACT+7*, SRCS+1~*, TASK+1~*, TASK+3*, TASK+6, TASK+21
TASK+38*
PSJAP( PDACT+7*, CHKPDCL+8, CHKINPF+6, CHKINPF+7!, CHKINPF+8!, CHKINPF+10!, DIVCHK+3
PSJAP(0 EN1+21
PSJBAP EN1+22~*, EN1+32, TASK+5~, TASK+6*, TASK+38
PSJCL CHKPDCL~, CHKPDCL+1, CHKPDCL+5*, CHKPDCL+39
PSJCLI CHKPDCL+1~*, CHKPDCL+2, CHKPDCL+3, CHKPDCL+5, CHKPDCL+18, CHKPDCL+24, CHKPDCL+29, CHKPDCL+30
PSJDIV EN1+15~, EN1+37*, EN1+38, CLCI+18, CHKPDCL+3~*, CHKPDCL+4, CHKPDCL+7, CHKPDCL+9, CHKPDCL+15, CHKPDCL+16
, CHKPDCL+18, CHKPDCL+20, CHKPDCL+24, CHKPDCL+26, CHKPDCL+31, CHKPDCL+33, CHKPDCL+37, CHKPDCL+38, CHKPDCL+43, CHKPDCL+44
, CHKPDCL+48, CHKPDCL+49, CHKINPF+2~*, CHKINPF+3, CHKINPF+5, CHKINPF+8, TASK+5~, TASK+18*, TASK+19, TASK+23
TASK+25, TASK+27, TASK+29, AIL+3, RESNDORDS~, RESNDORDS+11, RESNDORDS+17
PSJDNM EN1+15~, EN1+38*, TASK+5~, TASK+19*, SRBLD+13, AIL+3
PSJDNS CLCI+3*, CLCI+12, SEND+1~, SEND+8*, SEND+9, SEND+11, PDACT+2~, PDACT+3*, PDACT+4
PSJDTM EN1+15~, EN1+35*, TASK+5~, TASK+15*, SCH+2, SCH+4, SCH+5
PSJLEN CHKPDCL+38~, CHKPDCL+40
PSJLEN( CHKPDCL+39*, CHKPDCL+42
PSJLEN(999 CHKPDCL+41
PSJLOGEN LOGPIVOT+3~
PSJLOGND LOGPIVOT+3~, LOGPIVOT+6*, LOGPIVOT+7, LOGPIVOT+8, LOGPIVOT+9
PSJLOGOR LOGPIVOT+3~, LOGPIVOT+8*
PSJND CLCI+2*, CLCI+3, CLCI+6, SEND+1~, SEND+6*, SEND+7, SEND+8, PDACT+2~*, PDACT+3, PDACT+5
PSJNIP EN1+23~*, EN1+29*, CLCI+4*, CLCI+8*, TASK+5~, TASK+20*, TASK+39*, SRBLD+9
PSJOLIDT PIVOT+3~, PIVOT+6*, PIVOT+7*, PIVOT+8, PIVOT+9
PSJON PIVOT~, PIVOT+2, PIVOT+5, PIVOT+6, PIVOT+7, LOGPIVOT~, LOGPIVOT+2, LOGPIVOT+8
PSJOR EN1+15~, EN1+36*, EN1+37, CLCI+18, TASK+5~, TASK+13*, TASK+14, TASK+16*, TASK+17, TASK+18
TASK+20, TASK+27, AIL+4, SCH+2, RESNDORDS~, RESNDORDS+11, RESNDORDS+13, RESNDORDS+14, RESNDORDS+17
PSJORACT LOGPIVOT+3~, LOGPIVOT+7*
PSJORN EN1+15~, EN1+16*, EN1+17, EN1+18*, EN1+19, EN1+33, EN1+36, TASK+5~, TASK+20*, SRBLD+13
AIL+4
PSJOTYP PIVOT+3~, PIVOT+5*, PIVOT+6, PIVOT+7
PSJPA EN1+6, SRCS+1~*, TASK+1~*
PSJPD PDACT~, PDACT+1, PDACT+2, PDACT+7, CHKPDCL+6~*, CHKPDCL+7*, CHKPDCL+8, CHKPDCL+9, CHKPDCL+15, CHKPDCL+16
, CHKPDCL+18, CHKPDCL+20, CHKPDCL+22, CHKPDCL+24, CHKPDCL+26, CHKPDCL+27, CHKPDCL+31, CHKPDCL+33, CHKPDCL+35, CHKPDCL+37
, CHKPDCL+38, CHKPDCL+43, CHKPDCL+44, CHKPDCL+46, CHKPDCL+48, CHKPDCL+49, CHKPDCL+51, CHKINPF+4~*, CHKINPF+5*, CHKINPF+6
CHKINPF+7, CHKINPF+8, CHKINPF+10, TASK+5~, TASK+22*, TASK+23*, TASK+24, TASK+25, TASK+26, TASK+27
TASK+28, TASK+29, TASK+31, DIVCHK+1~, DIVCHK+2*, DIVCHK+3
>> PSJPDO CHKPDCL+1, CHKPDCL+12
PSJPIVOT PIVOT+3~, PIVOT+14*, PIVOT+15, LOGPIVOT+3~, LOGPIVOT+4*, LOGPIVOT+10*, LOGPIVOT+11*, LOGPIVOT+12
PSJPV50 EN1+15~, EN1+16*, EN1+18*, SRBLD+14
PSJQ EN1+15~, EN1+16*, EN1+26~, EN1+28*, EN1+29, EN1+30, EN1+33!*, EN1+34, CHKPDCL+6*, CHKPDCL+22*
, CHKPDCL+27*, CHKPDCL+35*, CHKPDCL+46*, CHKPDCL+51*, CHKPDCL+52, TASK+5~, TASK+21!, TASK+31*, TASK+34~, TASK+37*
TASK+39, TASK+40
PSJQ( CLCI+1, CLCI+10, SEND+5, SEND+13, CHKPDCL+22*, CHKPDCL+27*, CHKPDCL+35*, CHKPDCL+46*, CHKPDCL+51*, TASK+31*
PSJQ("" TASK+32
PSJQS TASK+33~, TASK+40*
PSJQS( SEND+14
PSJQW EN1+23~, EN1+30*
PSJQW( CLCI+7, CLCI+8
PSJRBD EN1+26~, EN1+27*, EN1+28, TASK+34~, TASK+36*, TASK+37
PSJSAR CHKPDCL+6~, CHKPDCL+18*, CHKPDCL+19, CHKPDCL+20*, CHKPDCL+21*, CHKPDCL+22, CHKPDCL+24*, CHKPDCL+25, CHKPDCL+26*, CHKPDCL+27*
, CHKPDCL+30*, CHKPDCL+31*, CHKPDCL+32, CHKPDCL+33*, CHKPDCL+34*, CHKPDCL+35, CHKPDCL+37*, CHKPDCL+41*, CHKPDCL+42*, CHKPDCL+43*
, CHKPDCL+44*, CHKPDCL+45*, CHKPDCL+46, CHKPDCL+49*, CHKPDCL+50*, CHKPDCL+51, TASK+5~, TASK+27*, TASK+28, TASK+29*
TASK+30*, TASK+31
PSJSND CLCI+14, SEND+10~, SEND+18
PSJSYDIV RESNDORDS+8~, RESNDORDS+22*, RESNDORDS+23
PSJT TASK+5~, TASK+21!*
PSJT( TASK+24, TASK+25!, TASK+26!, TASK+28!
>> PSJTASK TASK+1
PSJVNM CLCI+3*, SEND+1~, SEND+8*, SEND+9, PDACT+2~, PDACT+3*, PDACT+4
PSJVP CLCI+3*, CLCI+12, SEND+1~, SEND+8*, SEND+9, SEND+11, PDACT+2~, PDACT+3*, PDACT+4
PSJWC CHKPDCL+38~*, CHKPDCL+39
PSJWD EN1+26~, EN1+27*, EN1+28, TASK+34~, TASK+36*, TASK+37
PSJX EN1+15~, EN1+16*, CHKPDCL+17*, CHKPDCL+22*, CHKPDCL+23, CHKPDCL+27*, CHKPDCL+28, CHKPDCL+35*, CHKPDCL+36, CHKPDCL+46*
, CHKPDCL+47
PSPIVTMP LOGPIVOT+3~, LOGPIVOT+5, LOGPIVOT+9*, LOGPIVOT+10, LOGPIVOT+11
PSRBDH PIVOT~, PIVOT+4*, PIVOT+12*
PSWARDH PIVOT~, PIVOT+4*, PIVOT+11*
PTSNDLOG RESNDORDS+8~
QQ CSIV+1~*, CSIV+5*, CSIV+6, CSIV+7, CSIV+11*, CSIV+12, CSUD+1~*, CSUD+3*, CSUD+4
RESNDCL RESNDORDS+8~, RESNDORDS+23*, RESNDORDS+24, RESNDORDS+25, RESNDORDS+26
>> RXO CHKPDCL+14, CHKPDCL+15, CHKPDCL+16, CSIV+1, CSIV+2, CSIV+7, CSIV+8, CSUD+1
SCH CSIV+1~*, CSIV+4*, CSIV+5, CSIV+10*, CSIV+11, CSUD+1~*, CSUD+2*, CSUD+3
>> SDAMEVT EN+1
>> SDATA EN+1
SDT SRCS+7~, SRCS+8*, SRCS+9, TASK+7~*, TASK+8
SEG TR~, TR+2, SRBLD+1~, SRBLD+10*, SRBLD+11*, SRBLD+12*, SRBLD+13*, SRBLD+14*, SRBLD+16, AIL+1*
AIL+2*, AIL+3*, AIL+4*, AIL+6, SCH+1*, SCH+2*, SCH+3*, SCH+4*, SCH+6
SENDAREA RESNDORDS+8~, RESNDORDS+18*, RESNDORDS+19, RESNDORDS+23
SEQ EN1+15~, EN1+16*, CLCI+10*, CLCI+11*, TASK+5~, TASK+22*, SRBLD+5*, SRBLD+6, SRBLD+7, SRBLD+15*
SRBLD+16, AIL+5*, AIL+6, SCH+5*, SCH+6
SNM EN1+10~*, EN1+11, EN1+13, CLCI+14, SEND+3, SEND+18, SRCS+2~*, SRCS+3, TASK+1~, TASK+2*
TASK+3, TASK+4
VAFPID SRBLD+1~, SRBLD+3~, SRBLD+4*, SRBLD+6
VAFPID( SRBLD+7
VAFPID(0 SRBLD+7
VAFSTR SRBLD+1~, SRBLD+2*, SRBLD+4, SRBLD+8*, SRBLD+9*, SRBLD+10
VAIP CHKINPF+1~, PIVOT+3~
VAIP("D" PIVOT+9*
VAIP(13 PIVOT+10, PIVOT+14
VAIP(5 EN1+27, CHKINPF+1, CHKINPF+2, TASK+36, PIVOT+11
VAIP(6 EN1+27, TASK+36, PIVOT+12
VAIP(8 EN1+31, TASK+41, PIVOT+13
VR SEND+1~
XX EN1+41*, CLCI+1~*, CLCI+2, CLCI+7, CLCI+8, CLCI+10, CLCI+17, CLCI+18, SEND+1~, SEND+4*
SEND+5*, SEND+6, SEND+13, SEND+14, SRCS+14*
Y EN1+14~, SRCS+6, SRCS+8, SRCS+12
>> ZTDESC EN1+42*, SRCS+13*
>> ZTDTH EN1+43*, SRCS+13*
ZTIO EN1+39*, SRCS+13*, SRCS+15!
>> ZTQUEUED SRCS+15
>> ZTREQ SRCS+15*
>> ZTRTN EN1+40*, SRCS+13*
>> ZTSAVE( EN1+41*, SRCS+14*
ZTSK SRCS+15!
ZZ1 CLCI+1~, CLCI+4*, CLCI+7*, CLCI+11, SEND+13~, SEND+14*, SEND+15
ZZ2 CLCI+10~*, CLCI+11, SEND+13~*, SEND+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All