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 |  Local Variables |  All
Print Page as PDF
Routine: PSJHL4

Package: Inpatient Medications

Routine: PSJHL4


Information

PSJHL4 ;BIR/RLW-DECODE HL7 /MESSSAGE FROM OE/RR ;16 Mar 99 / 4:55 PM

Source Information

Source file <PSJHL4.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Inpatient Medications 7 EN1^PSJHL2  ($$SNDTSTA,$$SNDTSTP,$$SNDTSTW,$$TMPAT,NTE,OBX,RXC,RXO,XMD,ZRX)^PSJHL4A  (ASSIGN,FLAG,NURSEACK,STATUS)^PSJHL5  (CANCEL,HOLD,UNHOLD)^PSJHL6  PURGE^PSJHL8  ERROR^PSJHL9  $$DATE2^PSJUTL2  
VA Fileman 3 ^DIC  EN1^DIK  $$GET1^DIQ  
Kernel 1 $$HL7TFM^XLFDT  
Order Entry Results Reporting 1 $$UNESC^ORHLESC  
Outpatient Pharmacy 1 EN^PSOHLNEW  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Inpatient Medications 2 PSGOEV  PSJLIACT  
Order Entry Results Reporting 1 ORCFLAG  

Entry Points

Name Comments DBIA/ICR reference
PV1 ; Visit
ZRN ;Non-VA Med (Herbal/OTC)
END ;
RXO ; OP
EN(PSJMSG) ; Start
OBR ; Flagging from CPRS.
RXC ; IV
NOTIFY(ORDER,PSJHLDFN,PRIO,PSJSCHED) ; Send msg
PID ; ID
IV ; IV
DECODE ; Parse into fields
ZRX ; Custom
ZSC ;Service Connected - Not Used
OBX ; Obs.
MSH ; Header
NTE ; Note
UD ; UD
DG1 ;Billing Awareness - Not used
RXR ; Route
ORC ; Order
PND ; Pending

External References

Name Field # of Occurrence
^DIC PND+5
EN1^DIK EN+8
$$GET1^DIQ PND+9, UD+8, IV+8
$$UNESC^ORHLESC PID+1, ORC+11, ORC+12, ORC+15, OBR+7
EN1^PSJHL2 EN+9
$$SNDTSTA^PSJHL4A UD+9, IV+9
$$SNDTSTP^PSJHL4A PND+10
$$SNDTSTW^PSJHL4A PND+7, UD+6, IV+6
$$TMPAT^PSJHL4A ORC+16
NTE^PSJHL4A NTE+1
OBX^PSJHL4A OBX+1
RXC^PSJHL4A RXC+1
RXO^PSJHL4A RXO+1
XMD^PSJHL4A NOTIFY+10
ZRX^PSJHL4A ZRX+1
ASSIGN^PSJHL5 ORC+6
FLAG^PSJHL5 OBR+8
NURSEACK^PSJHL5 ORC+31
STATUS^PSJHL5 ORC+32
CANCEL^PSJHL6 ORC+28
HOLD^PSJHL6 ORC+29
UNHOLD^PSJHL6 ORC+30
PURGE^PSJHL8 ORC+33
ERROR^PSJHL9 ORC+4, ORC+9, ORC+10, ORC+20
$$DATE2^PSJUTL2 ORC+18, ORC+25, ORC+27, OBR+4
EN^PSOHLNEW PV1+6, PV1+17, ZRN+1
DEM^VADPT NOTIFY+3
$$HL7TFM^XLFDT PV1+2, ORC+18, ORC+25, ORC+27, OBR+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XMB(3.8 - [#3.8] GET1^DIQ
^DIC(42 - [#42] Classic Fileman Calls
^PS(53.1 - [#53.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" ORC+33
^DPT - [#2] PND+4
^PS(50.7 - [#50.7] PV1+16
^PS(53.1 - [#53.1] EN+8, PND+2, PND+3, PND+12, PND+14
^PS(55 - [#55] UD+2, UD+3, UD+4, UD+11, IV+2, IV+3, IV+4, IV+11, IV+12
^PS(59.6 - [#59.6] PND+6, PND+8, UD+5, UD+7, IV+5, IV+7
^TMP("PSJNVO" EN+1!, END+1!
^VA(200 - [#200] ORC+10
^XMB("NETNAME" PND+9, PND+10, UD+8, UD+9, IV+8, IV+9

Label References

Name Line Occurrences
@( EN+6
DECODE EN+6
END EN+7
IV NOTIFY+8
NOTIFY END+3, END+4
PND NOTIFY+6
UD NOTIFY+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A PV1+1~
ACKDATE EN+3~, ORC+26*
ADCNT EN+2~, EN+6*
ADDITIVE EN+3~
>> ADMINS ORC+14*, ORC+17*
ADMINSTR EN+3~
APPL EN+3~
APPT EN+5~, PV1+2*
CHK PV1+12~, PV1+13*, PV1+14, PV1+15, PV1+16
CLASS EN+4~, EN+6, EN+7, PV1+2*, PV1+3, PV1+6*, PV1+8, PV1+9*, PV1+10, PV1+11*
, PV1+12, PV1+14*, PV1+15*, PV1+16*, PV1+17, ZRN+1*
CLERK EN+4~, ORC+7*, OBR+5*
CLINIC NOTIFY+1~, PND+3*, UD+3*, IV+3*
COMMENT EN+3~
DA EN+8~*
>> DFN NOTIFY+3*
DIC PND+5~*
DIC(0 PND+5*
DIK EN+8~*
DISPENSE EN+3~
DO NOTIFY+1~, PND+13*, UD+12*, IV+13*
DOSE EN+3~, ORC+12*
DRIEN NOTIFY+1~, PND+13*, UD+12*, IV+13*
DRUG NOTIFY+1~
DT ORC+10
DURATION EN+3~, ORC+18*
FIELD DECODE+1!
FIELD( DECODE+8*, DECODE+9*
FIELD(0 EN+6
FIELD(1 ORC+2, RXR+1
FIELD(10 ORC+7
FIELD(11 ORC+24
FIELD(12 ORC+8
FIELD(13 OBR+7
FIELD(15 ORC+25
FIELD(16 ORC+27, OBR+5
FIELD(2 PV1+2, ORC+3, ORC+5, OBR+1, OBR+2
FIELD(24 OBR+6
FIELD(3 PID+1, PV1+2, ORC+5, OBR+2
FIELD(4 OBR+3
FIELD(44 PV1+2
FIELD(7 ORC+11, ORC+13, ORC+18, ORC+21, OBR+4
FIELD(8 MSH+1, ORC+23
FIELD(9 ORC+27
FLCMNT EN+5~, OBR+7*
FLDATE EN+5~, OBR+4*
FREQ EN+4~
II EN+3~, EN+6*, DECODE+3, DECODE+4, DECODE+5, PV1+4, PV1+8, PV1+10, PV1+12
INFRT EN+4~
INSTR EN+3~, ORC+11*
INTRMT EN+5~
IVCAT EN+5~
IVLIMIT EN+5~
IVTYP EN+4~
J EN+3~, DECODE+6*, DECODE+8*, DECODE+9
JJ EN+3~
JJJ EN+3~
K EN+3~
LASTFOUR NOTIFY+1~, NOTIFY+3*
LOC EN+4~, PV1+2*
LOGIN EN+3~, ORC+25*, ORC+26
MGROUP NOTIFY+1~, PND+10*, UD+9*, IV+9*
MGRP PND+1~, PND+8*, PND+9*, UD+1~, UD+7*, UD+8*, IV+1~, IV+7*, IV+8*
ND0 PND+12~*, PND+13, UD+11~*, UD+12, IV+11~*, IV+14
ND2 UD+11~*, UD+13, IV+11~*, IV+14
NDP2 PND+12~*, PND+13, UD+11*, UD+12, IV+11~, IV+12*, IV+13
NEWORDER EN+3~, EN+8, EN+9, END+4
NOO EN+4~
NTFSTAT NOTIFY+1~, PND+11*, UD+10*, IV+10*
NTFYREAS NOTIFY+1~, NOTIFY+4*
NURSEACK EN+3~, ORC+24*, ORC+26
OBXFL EN+3~, EN+6*
OCCNT EN+2~, EN+6*
OCNARR EN+3~
OCPROV EN+3~
OCRSN EN+3~
ORDATE NOTIFY+1~, PND+13*, UD+12*, IV+14*
ORDCON EN+3~, ORC+27*
ORDER EN+3~, NOTIFY~, NOTIFY+6, NOTIFY+7, NOTIFY+8, PND+2, PND+3, PND+12, PND+14, UD+2
, UD+3, UD+4, UD+11, IV+2, IV+3, IV+4, IV+11, IV+12, ORC+3*, OBR+1*
PNAME NOTIFY+1~
PREON EN+4~
PRIO NOTIFY~, NOTIFY+2, NOTIFY+4, PND+7, PND+10, UD+6, UD+9, IV+6, IV+9
PRIORITY EN+3~, END+2, END+3, END+4, ORC+13*, ORC+19*
PRNTON EN+5~, ORC+23*
PROCOM EN+3~
PROVIDER EN+4~, ORC+8*, ORC+9, ORC+10
PSG NOTIFY+1~
>> PSGORD END+3
PSGP EN+4~
PSITEM EN+3~
PSJASTP EN+5~, ORC+27*
PSJCTR1 DECODE+2~*, DECODE+4*, DECODE+5, DECODE+10!
PSJFLAG EN+5~, OBR+3*
PSJHLDFN EN+3~, EN+9, END+3, END+4, NOTIFY~, NOTIFY+3, PND+4, UD+2, UD+3, UD+4
, UD+11, IV+2, IV+3, IV+4, IV+11, IV+12, PID+1*, ORC+5, OBR+2
PSJHLMTN EN+4~, EN+6*
PSJMSG EN~, PV1+6, PV1+17, ZRN+1
PSJMSG( EN+6, DECODE+3, DECODE+4, DECODE+5, PV1+4, PV1+5, PV1+8, PV1+9, PV1+10, PV1+11
, PV1+12, PV1+13
PSJNVA PV1+4!, PV1+6*, PV1+7!
PSJORDER EN+3~, ORC+5*, OBR+2*
PSJSCHED NOTIFY~, NOTIFY+2, NOTIFY+4, PND+7, PND+10, UD+6, UD+9, IV+6, IV+9
PSJSOK NOTIFY+1~, NOTIFY+5*, NOTIFY+9, PND+9*, PND+10*, UD+8*, UD+9*, IV+8*, IV+9*
PSJYN EN+5~, OBR+6*
PSOC EN+4~, EN+8, EN+9, MSH+1*, ORC+2*, ORC+6, ORC+8, ORC+28, ORC+29, ORC+30
, ORC+31, ORC+32, ORC+33, ORC+34, OBR+8
PSPR EN+4~, ORC+10*
PSREASON EN+3~, PV1+3*, PV1+15*, ORC+4, ORC+9*, ORC+10*, ORC+20*
PTR EN+4~
QFLG EN+4~, EN+6*, EN+7, ORC+34*
QQ EN+4~, PV1+4~*, PV1+5, PV1+8~*, PV1+9, PV1+10~*, PV1+11, PV1+12~*, PV1+13
REQST EN+4~, ORC+18*
ROC EN+4~
ROUTE EN+4~, RXR+1*
>> RTE PND+13*, UD+12*, IV+13*
RXON EN+4~, PV1+9*, PV1+11*, ORC+5*, OBR+2*
RXORDER EN+4~, ORC+5*, OBR+2*
>> SCHED PND+14*, UD+13*, IV+14*
SCHEDULE EN+4~, END+2, END+3, END+4, ORC+13*, ORC+14*, ORC+15*, ORC+16, ORC+17*, ORC+20*
SCHTYP EN+4~, ORC+13*, ORC+21*, ORC+22*
SEGMENT EN+4~, DECODE+3*, DECODE+4, DECODE+5*, DECODE+7, DECODE+8*, DECODE+9*
SOLCNT EN+2~, EN+6*
SOLUTION EN+4~
STPDT EN+4~
STRENGTH EN+4~
TEXT EN+4~
>> TMPAT ORC+1*, ORC+16*, ORC+17
TVOLUME EN+4~, EN+6*
U ORC+27
UNIT EN+4~, ORC+12*
UNITS EN+4~, ORC+11*, ORC+12*
>> VADM(2 NOTIFY+3
VADPT NOTIFY+1~
VOLUME EN+4~
WARD NOTIFY+1~, PND+1~, PND+4*, PND+5*, PND+6*, PND+7, PND+8, UD+1~, UD+4*, UD+5*
, UD+6, UD+7, IV+1~, IV+4*, IV+5*, IV+6, IV+7
WDPARM PND+1~, PND+8*, UD+1~, UD+7*, IV+1~, IV+7*
X PND+5~*, PV1+5*, PV1+6, ORC+33~*
XMY NOTIFY+1~
XMY( PND+10*, UD+9*, IV+9*
XMY("G." PND+9*, UD+8*, IV+8*
Y PND+5~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All