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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSJHL3

Package: Inpatient Medications

Routine: PSJHL3


Information

PSJHL3 ;BIR/RLW - PHARMACY ORDER SEGMENTS ; 8/19/14 2:08pm

Source Information

Source file <PSJHL3.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Inpatient Medications 7 EN^PSGS0  $$CODES^PSIVUTL  GETSIOPI^PSJBCMA5  DISPLAY^PSJHL2  ($$IVTYPE,CALL,INIT,SEGMENT,SEGMENT2,SET,ZRX,ZZZ)^PSJHLU  $$LASTREN^PSJLMPRI  $$DOSE1^PSJOCDS  
Kernel 2 ($$FMADD,$$FMTHL7)^XLFDT  ($$TRIM,$$UP)^XLFSTR  
National Drug File 1 (,$$DFSU,$$PROD0)^PSNAPIS  
Order Entry Results Reporting 1 $$ESC^ORHLESC  
Pharmacy Data Management 1 $$EN^PSSUTIL1  

Entry Points

Name Comments DBIA/ICR reference
EN1(PSJHLDFN,PSOC,PSJORDER) ; start here
; passed in are PSJHLDFN (patient ien)
; PSJORDER (file root of order)
; OC (order control code - NW for new order, OK for finished order, OC for order canceled)
INIT ; initialize HL7 variables
RXO ; pharmacy prescription order segment (used to send Orderable Item to OE/RR)
RXE ; pharmacy encoded order segment
IVRXE ; RXE segment for IV orders
; If an Inpatient Med IV order, send RXE w/dispense drug info.
; If an IV FLUID order, send start/stop date and duration in the RXE
; and send an RXC for each additive and solution.
RXC ;component segments
RXR ; med route segment
ZRX ; pharmacy Z-segment
CNT ;Count dispense drugs for an order
FINDDOSE(PSJDD,PSJF1P1,PSJDO) ;

External References

Name Field # of Occurrence
$$ESC^ORHLESC RXO+4, RXO+6, RXE+39, RXE+47, RXE+52, RXE+54, RXE+55, RXE+57, RXE+59, RXE+60
IVRXE+7, IVRXE+9, IVRXE+17, IVRXE+35, IVRXE+36, RXR+4, RXR+8, RXR+11
EN^PSGS0 RXE+7
$$CODES^PSIVUTL RXR+6, RXR+10
GETSIOPI^PSJBCMA5 IVRXE+23, IVRXE+25, IVRXE+30
DISPLAY^PSJHL2 RXO+11, RXE+61, IVRXE+16, RXC+19, RXR+12
$$IVTYPE^PSJHLU EN1+7
CALL^PSJHLU EN1+10
INIT^PSJHLU INIT+1
SEGMENT^PSJHLU RXO+11, RXE+61, IVRXE+16, RXC+19, RXR+12
SEGMENT2^PSJHLU RXE+62
SET^PSJHLU IVRXE+20, IVRXE+39
ZRX^PSJHLU ZRX+1
ZZZ^PSJHLU EN1+9
$$LASTREN^PSJLMPRI RXE+12, IVRXE+4
$$DOSE1^PSJOCDS FINDDOSE+9
^PSNAPIS RXE+50, RXE+53
$$DFSU^PSNAPIS RXE+53
$$PROD0^PSNAPIS RXE+50
$$EN^PSSUTIL1 RXE+56
$$FMADD^XLFDT RXE+34
$$FMTHL7^XLFDT RXE+39, IVRXE+7
$$TRIM^XLFSTR IVRXE+14
$$UP^XLFSTR RXO+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"INSUFFICIENT DATA FOR ^PSJHL3"
  • Line Location: EN1+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] RXO+6, RXE+55
^PS(50.607 - [#50.607] RXE+54
^PS(50.7 - [#50.7] RXO+6, RXC+10
^PS(51.2 - [#51.2] RXR+4, RXR+8, RXR+11
^PS(52.6 - [#52.6] RXC+9, RXC+10
^PS(52.7 - [#52.7] RXC+9, RXC+10
^PS(53.1 - [#53.1] IVRXE+29
^PS(55 - [#55] RXE+28, IVRXE+24, IVRXE+25, IVRXE+38
^PSDRUG - [#50] RXE+48, RXE+52
^PSNDF( RXE+50, RXE+53
^TMP("PSJBCMA5" IVRXE+22!, IVRXE+23, IVRXE+26, IVRXE+28!*, IVRXE+31, IVRXE+33!*, IVRXE+34, IVRXE+35, IVRXE+36, IVRXE+39!
^VA(200 - [#200] RXE+60, IVRXE+9

Label References

Name Line Occurrences
$$FINDDOSE RXE+45
INIT EN1+6
IVRXE RXE+9, RXE+10, RXE+11
RXE EN1+8
RXO EN1+8
RXR EN1+8
ZRX EN1+8

Naked Globals

Name Field # of Occurrence
^( RXC+6
^(0 RXE+50, RXC+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD RXC+1~, RXC+6*
ADDITIVE RXC+1~
ADSNODE IVRXE+4~
CNT EN1+5~, RXE+2*, RXE+42*, RXE+58*, CNT+1*
COMMENTS EN1+5~
DDIEA EN1+5~
DDIEN EN1+5~, RXE+2*, RXE+42*, RXE+45, RXE+48, RXE+52, RXE+56
DDNUM EN1+5~, RXE+2*, RXE+42*, RXE+43, CNT+1*
>> DFN RXE+28
DOA RXE+17~, RXE+22*, RXE+24*, RXE+31, RXE+34, RXE+36
DOSE EN1+5~, RXO+4*, RXE+44, RXE+45
DOSEFORM EN1+5~, RXO+6*, RXE+55
DOSEOR EN1+5~, RXO+4*, RXE+41, RXE+45, RXE+46, RXE+59
DT RXE+33
DURATION EN1+5~
DUZ RXE+60, IVRXE+9, IVRXE+10
>> FIELD(0 RXO+2*, RXE+3*, RXC+3*, RXR+2*
>> FIELD(1 RXO+5*, RXO+6*, RXO+7*, RXO+10*, RXE+39*, RXE+44*, RXE+45*, RXE+46*, RXE+47*, RXE+59*
IVRXE+7*, RXC+7*, RXC+8, RXR+3*, RXR+4, RXR+5*, RXR+7*, RXR+8, RXR+9*, RXR+11*
>> FIELD(14 RXE+60*, IVRXE+10*
>> FIELD(2 RXE+52*, RXC+10*, RXC+11*, RXC+12*
>> FIELD(21 RXE+40*, IVRXE+8*
>> FIELD(23 IVRXE+14*, IVRXE+15*
>> FIELD(24 IVRXE+14*, IVRXE+15
>> FIELD(25 RXE+56*, RXE+57*
>> FIELD(26 RXE+56*
>> FIELD(3 RXC+13*
>> FIELD(4 RXC+14*, RXC+17, RXC+18*, RXR+6*, RXR+10*
>> FIELD(5 RXE+54*, RXC+15*
>> FIELD(6 RXE+55*
FREQ RXE+17~, RXE+23*, RXE+24, RXE+26, RXE+31
>> INFUSE IVRXE+12*, IVRXE+13*, IVRXE+14, IVRXE+15
>> IVLIM RXO+9*, RXO+10
IVLNOD RXO+8~*, RXO+9
IVTYPE EN1+5~, EN1+7*, RXE+10
JJ IVRXE+17*, IVRXE+18*, IVRXE+20!
JORD RXE+17~, RXE+27*, RXE+28
>> LIMIT RXO+1*, RXO+11, RXE+2*, RXE+61, IVRXE+16, RXC+2*, RXC+19, RXR+1*, RXR+12
LINES IVRXE+26~*, IVRXE+27, IVRXE+31~*, IVRXE+32
LYN RXE+7~
MRR RXE+17~, RXE+19*, RXE+20
NAME EN1+5~, RXO+6*, RXE+60*, IVRXE+9*, IVRXE+10
NDNODE EN1+5~, RXE+2*, RXE+48*, RXE+50, RXE+52, RXE+53
NODE1 EN1+5~, RXE+4*, RXE+8, RXE+11, IVRXE+5, IVRXE+7, IVRXE+8, IVRXE+12, RXC+6*, RXC+8*
RXC+9, RXC+10, RXC+11, RXC+13, RXC+14, RXC+15, RXR+11
NODE2 EN1+5~, RXE+4*, RXE+13, RXE+14, RXE+21, RXE+23, RXE+39, RXE+40, IVRXE+6, IVRXE+7
IVRXE+8
NODE2P2 RXE+1~, RXE+5*, RXE+19, RXE+22
>> NODEPT2 RXE+4*, RXE+39
NUM RXC+1~, RXC+17*, RXC+18
NUMADM RXE+17~, RXE+21*, RXE+32
OINODE EN1+5~, RXO+3*, RXO+4
>> ON RXE+27
OPIAL IVRXE+24~*
OPIALFLG IVRXE+24~*, IVRXE+25
OPIHDR IVRXE+38~*
>> P("PRY" IVRXE+7
>> P(9 RXE+7
>> PREVSTOP RXE+27*, RXE+28*, RXE+29
PRODNAME EN1+5~, RXE+2*, RXE+50*, RXE+51*, RXE+52, RXE+53
PSGOES RXE+7~*
>> PSGORD RXE+27
PSGPLF EN1+5~, RXE+14*, RXE+29, RXE+39, IVRXE+5*, IVRXE+6*, IVRXE+7
PSGPLS EN1+5~, RXE+13*, RXE+39, IVRXE+5*, IVRXE+6*, IVRXE+7
PSGS0XT RXE+7~
PSGS0Y RXE+7~
PSGST EN1+5~, RXE+6~, RXE+7*, RXE+8*, RXE+39
>> PSJBCBU EN1+9, RXO+4, RXO+6, RXE+18, RXE+39, RXE+52, RXE+60, IVRXE+9, IVRXE+17, IVRXE+18
IVRXE+35, IVRXE+37, RXC+10, RXC+11, RXR+4, RXR+6, RXR+8, RXR+10, RXR+11
>> PSJCLEAR RXO+1, RXE+2, RXC+2, RXR+1
PSJDD FINDDOSE~, FINDDOSE+7
PSJDO FINDDOSE~, FINDDOSE+7, FINDDOSE+11, FINDDOSE+13
PSJDO1 FINDDOSE+6~
PSJDO2 FINDDOSE+6~
PSJDOSE FINDDOSE+6~, FINDDOSE+9*, FINDDOSE+10, FINDDOSE+11, FINDDOSE+12, FINDDOSE+13
>> PSJEXPOE RXE+13, RXE+14, IVRXE+5
PSJF1P1 RXE+1~, RXE+43*, RXE+44, RXE+45, FINDDOSE~, FINDDOSE+7, FINDDOSE+9, FINDDOSE+11, FINDDOSE+13
PSJHLDFN EN1~, EN1+4, RXE+12, IVRXE+4, IVRXE+23, IVRXE+24, IVRXE+25, IVRXE+26, IVRXE+28, IVRXE+30
IVRXE+31, IVRXE+33, IVRXE+34, IVRXE+35, IVRXE+36, IVRXE+38
>> PSJI EN1+10
>> PSJORD IVRXE+23, IVRXE+25, IVRXE+26, IVRXE+28, IVRXE+29, IVRXE+30, IVRXE+31, IVRXE+33
PSJORDER EN1~, EN1+4, EN1+7, RXO+3, RXO+8, RXE+4, RXE+5, RXE+41, RXE+42, RXE+43
RXE+47, IVRXE+7, IVRXE+8, IVRXE+13, IVRXE+17, IVRXE+18, RXC+6, RXR+3, RXR+6, RXR+7
RXR+10, CNT+1
PSJOUT FINDDOSE+6~, FINDDOSE+8*, FINDDOSE+11*, FINDDOSE+12*, FINDDOSE+13*, FINDDOSE+14
PSJRENEW IVRXE+4~*, IVRXE+5
PSJUNITS RXR+4~*, RXR+5, RXR+8~*, RXR+9
PSOC EN1~, EN1+4
PTR RXC+1~, RXC+9*, RXC+10
QADM RXE+17~, RXE+21*, RXE+31, RXE+33
QDT RXE+17~, RXE+33*, RXE+34*, RXE+35
QQ RXE+17~, RXE+32*, RXE+33, RXE+35, IVRXE+22~, IVRXE+34*, IVRXE+35, IVRXE+36, IVRXE+37
RENEW RXE+12~*, RXE+13
RMSTR RXE+17~, RXE+36*, RXE+39
RMTM RXE+17~, RXE+22*, RXE+29*, RXE+31, RXE+35*, RXE+36
>> RXORDER EN1+7, RXE+7, RXE+9, RXE+10, RXE+11, RXE+12, IVRXE+4, IVRXE+5, IVRXE+12, IVRXE+17
IVRXE+23, IVRXE+24, IVRXE+25, IVRXE+28, IVRXE+29, IVRXE+33, IVRXE+34, IVRXE+35, IVRXE+36, IVRXE+38
SCHEDULE EN1+5~
SEGMENT IVRXE+17!, IVRXE+20!, IVRXE+39!
SEGMENT( IVRXE+17*, IVRXE+18*, IVRXE+36*, IVRXE+37*
SEGMENT(0 IVRXE+19*, IVRXE+35*, IVRXE+38*, IVRXE+39
SOL RXC+1~, RXC+6*
SOLUTION RXC+1~
SPDIEN EN1+5~, RXO+4*, RXO+5, RXO+6, RXE+2*
SUB RXC+1~, RXC+6*
TEXT1 IVRXE+26~*, IVRXE+27, IVRXE+31~*, IVRXE+32
TYPE RXC+1~, RXC+6*, RXC+7, RXC+9, RXC+10, RXC+11
U RXE+19, RXE+22, RXE+23, RXE+28, RXC+8, RXC+10, RXR+3, RXR+7, FINDDOSE+11, FINDDOSE+12
, FINDDOSE+13
UNIT EN1+5~, RXO+4*, RXE+44
UNITS EN1+5~, RXE+2*, RXE+53*, RXE+54
UTMP RXC+1~
UTMP( RXC+16*, RXC+17
X RXE+7~*, IVRXE+11~
XTMP RXC+1~, RXC+16*
Y IVRXE+11~, IVRXE+14*
ZZND RXE+7~

Marked Items

Name Field # of Occurrence
$T(^PSNAPIS RXE+50, RXE+53
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All