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

Package: Inpatient Medications

Routine: PSJHL2


Information

PSJHL2 ;BIR/RLW-PATIENT ID AND VISIT SEGMENTS ; 9/24/12 3:17pm

Source Information

Source file <PSJHL2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Inpatient Medications 3 (INIT,SEGMENT)^PSJHLU  ($$LASTREN,$$LASTRNBY)^PSJLMPRI  ENBKOUT^PSJOREN  
Order Entry Results Reporting 2 EN^ORERR  $$ESC^ORHLESC  
Kernel 1 $$FMTHL7^XLFDT  
Registration 1 (DEM,INP)^VADPT  

Caller Graph

Caller Graph Total: 52

Package Total Caller Graph
Inpatient Medications 52 PSGOECS  PSGOEE  PSGOEF1  PSGOEH0  PSGOEH1  PSGOER  PSGOERI  PSGOETO1  
PSGOEV  PSGOU  PSGPO  PSGVBWU  PSIVOE  PSIVOPT  PSIVOPT1  PSIVOPT2  
PSIVORA  PSIVORC2  PSIVORE  PSIVORE2  PSIVOREN  PSIVORFB  PSJ005  PSJ0077  
PSJ0078  PSJ089B  PSJ200  PSJ5P340  PSJADT0  PSJBCBU  PSJBCMA4  PSJCLOR2  
PSJCLOR3  PSJCOM1  PSJCOMR  PSJHL10  PSJHL3  PSJHL4  PSJHL5  PSJHL6  
PSJHL7  PSJHLU  PSJHLV  PSJLIACT  PSJO1  PSJOEA  PSJOEA1  PSJOEA2  
PSJOERI  PSJOREN  PSJPATMR  PSJUTL1  

Entry Points

Name Comments DBIA/ICR reference
PV1 ; get patient visit information, format PV1 segment
A
E
D
P
I
H
DE
PID ; get patient data, format PID SEGMENT
UNDO ;Undo Renew if Pending Renewal is dc'd
DISPLAY ; just for testing
START ;
INIT ; initialize HL7 variables, set master file identification segment
; PSJHLMTN = message type - ORR for messages sent as a response to an OE/RR event; ORM for "unsolicited" messages.
R
U
RE
O
EN1(PSJHLDFN,PSOC,PSJORDER,PSREASON) ; start here
; passed in are PSJHLDFN (patient ien)
; PSJORDER* (order_file (N,P,V, etc))
; PSOC* (order control code - NW for new order, OK to return filler number to OE/RR, OC for order canceled, SC for status change)
; PSREASON* (text reason)
; *=optional, only required if an order segment is also to be generated
N
DR
ORC ; order control segment

External References

Name Field # of Occurrence
EN^ORERR START+5
$$ESC^ORHLESC PID+5, PV1+12, ORC+25, ORC+26
INIT^PSJHLU INIT+3
SEGMENT^PSJHLU INIT+6, PID+6, PV1+16, ORC+42
$$LASTREN^PSJLMPRI ORC+33
$$LASTRNBY^PSJLMPRI ORC+33
ENBKOUT^PSJOREN UNDO+1
DEM^VADPT PID+4
INP^VADPT PV1+15
$$FMTHL7^XLFDT PV1+13, ORC+22, ORC+26, ORC+30, ORC+33

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: FIELD(NEXT)_"|"
  • Line Location: DISPLAY+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" START+5
^DPT - [#2] PV1+6, PV1+12
^PS(53.1 - [#53.1] PV1+9
^PS(55 - [#55] PV1+10, PV1+11
^SC - [#44] ORC+38, ORC+40
^SC("B" PV1+6
^TMP("PSJHLS" START+1!, START+10!
^VA(200 - [#200] ORC+24, ORC+26, ORC+28

Label References

Name Line Occurrences
@( START+8, ORC+18, ORC+19
DISPLAY INIT+6, PID+6, PV1+16, ORC+42
INIT START+7
ORC START+7
PID START+7
PV1 START+7
UNDO START+9

Naked Globals

Name Field # of Occurrence
^("DSS" PV1+9, PV1+10
^(0 ORC+38, ORC+40
^(8 PV1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A PV1+8~, PV1+9*, PV1+10*, PV1+11*
>> CLASS PV1+14
CLERK START+2~, ORC+23*, ORC+24, ORC+25
DFN PID+4~*, PV1+15~*
DUR START+2~
FIELD START+10!
FIELD( DISPLAY+1
FIELD(0 INIT+5*, PID+2*, PV1+3*, ORC+11*
FIELD(1 INIT+5*, ORC+12*
FIELD(10 ORC+25*, ORC+33*
FIELD(11 ORC+26*
FIELD(12 ORC+29*
FIELD(15 ORC+30*, ORC+33*
FIELD(16 ORC+35*
FIELD(19 PV1+15*
FIELD(2 INIT+5*, PV1+14*, PV1+15, ORC+13*
FIELD(21 ORC+38*, ORC+40*
FIELD(3 INIT+5*, PID+3*, PV1+4*, PV1+13*, ORC+14*, ORC+20*
FIELD(44 PV1+13*
FIELD(5 PID+4*, PID+5*, A*, D*, I*, N*, U*, P*, DE*, E*
, H*, R*, RE*, DR*, O*
FIELD(7 ORC+21*
FIELD(8 INIT+5*
FIELD(9 ORC+22*, ORC+26*, ORC+33*
FIELD9 ORC+33~*
J START+2~
LIMIT START+2~, INIT+4*, INIT+6, PID+1*, PID+6, PV1+2*, PV1+16, ORC+1*, ORC+42, DISPLAY+1
>> LOC PV1+4, PV1+6*, PV1+9*, PV1+10*, PV1+11*, PV1+12*, PV1+13
>> MSGTEST DISPLAY+1
NAME START+2~, ORC+24*, ORC+25, ORC+28*, ORC+29
NEXT START+2~, DISPLAY+1*
NODE1 START+2~, ORC+3*, ORC+10, ORC+13, ORC+16, ORC+21, ORC+22, ORC+27, ORC+30, ORC+31
, UNDO+1
NODE2 START+2~, ORC+3*, ORC+21, ORC+22, ORC+23, ORC+30, ORC+31
NODE4 START+2~, ORC+4*, ORC+23, ORC+26
NODE8 START+3~, ORC+6*, ORC+37, ORC+38
NODEDSS START+3~, ORC+7*, ORC+39, ORC+40
NOO START+2~, ORC+34*, ORC+35
>> ORDCON START+5*
>> P("NAT" ORC+34
PROVIDER START+2~, ORC+27*, ORC+28, ORC+29
PSGST START+2~, ORC+9~, ORC+10*, ORC+21
>> PSIVCOPY ORC+16
PSJAPPT PV1+1~, PV1+9*, PV1+10*, PV1+11*, PV1+13
>> PSJBCBU PID+5, PV1+12, ORC+25, ORC+26
PSJCLEAR START+2~, INIT+4, PID+1, PV1+2, ORC+1
PSJDCPRV ORC+27!
>> PSJEXPOE ORC+16
PSJHINST START+2~, INIT+5
PSJHLDFN EN1~, START+4, START+5, PID+3, PID+4, PV1+6, PV1+10, PV1+11, PV1+12, PV1+15
, ORC+33, UNDO+1
>> PSJHLMTN INIT+2*, INIT+5, PV1+4, PV1+5
PSJHLSDT START+2~
PSJI START+2~, INIT+2*
>> PSJNOO ORC+34, UNDO+1
PSJORDER EN1~, START+4*, START+5, ORC+2, ORC+3, ORC+4, ORC+6, ORC+7, ORC+34
PSOC EN1~, START+6, START+8, ORC+2, ORC+12, ORC+13, ORC+26
PSREASON EN1~, ORC+34*, ORC+35
ROOMBED START+2~, PV1+12*
RXORDER START+2~, START+4*, START+5, PV1+9, PV1+10, PV1+11, ORC+6, ORC+7, ORC+14, ORC+16
, ORC+18, ORC+20, ORC+21, ORC+22, ORC+23, ORC+27, ORC+30, ORC+31, ORC+33, UNDO+1
STATUS START+2~, ORC+16*, ORC+18*, ORC+19, ORC+20, UNDO+1
U START+5, ORC+35, ORC+37, ORC+38, ORC+39, ORC+40, UNDO+1
UNDO START+2~, START+6*, START+9
>> VADM(1 PID+4
>> VAIN(1 PV1+15
VERIFY START+2~, ORC+26*
WARD START+2~, PV1+6*
>> X START+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All