Routine: BOPRNEW

Package	Total	Call Graph
Kernel	5	CALL^%ZISTCP ($$VERSION,SETENV)^%ZOSV $$NEWERR^%ZTER ^%ZTLOAD $$NOW^XLFDT
VA Fileman	3	FILE^DICN DT^DICRW ^DIE
IHS Omnicell Pyxis Interface	1	GO^BOPRNEW

Package

Total

Call Graph

Kernel

CALL^%ZISTCP ($$VERSION,SETENV)^%ZOSV $$NEWERR^%ZTER ^%ZTLOAD $$NOW^XLFDT

VA Fileman

FILE^DICN DT^DICRW ^DIE

IHS Omnicell Pyxis Interface

GO^BOPRNEW

Package	Total	Caller Graph
IHS Omnicell Pyxis Interface	1	BOPRNEW

Package

Total

Caller Graph

IHS Omnicell Pyxis Interface

BOPRNEW

Entry Points

Name	Comments	DBIA/ICR reference
RECEIVE(BOPWAIT)	;
QUIT
ERR	;
RR	;
READ	;LISTEN^%ZISTCP will call here to read the message.
R(A,Z)	;Read the TCP/IP channel
RSET	; file new transaction
RMSM	; go here if MSM
GO	; EP
JOB
TEST	;This is used for testing
JOBGO	;Start a new listener
TSTGO	;
DEBUG	;Call here for testing
LOOP1
RACK	; send ack back
LOOP
RGO	;

Name	Field # of Occurrence
CALL^%ZISTCP	GO+23
$$VERSION^%ZOSV	RMSM+1
SETENV^%ZOSV	JOBGO+1
$$NEWERR^%ZTER	GO+14
^%ZTLOAD	JOB+2
GO^BOPRNEW	JOBGO+5
FILE^DICN	RSET+10
DT^DICRW	DEBUG+1, READ+1, JOBGO+1
^DIE	RSET+15, RSET+22
$$NOW^XLFDT	RSET+5

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: 1 Variable: X Line Location: LOOP+0
Function Call: WRITE	Prompt: OUT(A),! Line Location: RSET+29
Function Call: WRITE	Prompt: $C(11) Line Location: TSTGO+1
Function Call: WRITE	Prompt: "MSH\|^~\&\|OMNICELLRX\|\|PHARM\|\|19940\|260855\|\|DFT^P03\|\|P\|2.2\|",$C(13) Line Location: TSTGO+2
Function Call: WRITE	Prompt: "PID\|\|\|6\|6\|MAQQIA^ALAN\|",$C(13) Line Location: TSTGO+3
Function Call: WRITE	Prompt: "PV1\|\|NU4E^A22^Main2\|",$C(13) Line Location: TSTGO+4
Function Call: WRITE	Prompt: "FT1\|\|\|\|199401260855\|\|V\|1217712^ASPIRIN^03\|\|OR123\|1\|\|\|\|\|\|\|\|\|\|NID^NNAME\|DR123",$C(13) Line Location: TSTGO+5
Function Call: WRITE	Prompt: "ZPM\|V\|OMNICELLRX\|NUE100\|3\|A\|12177121\|ASPIRIN\|U\|112\|112\|1\|NID\|NNAME\|WID\|WNAME\|222\|\|Main2\|\|NU4E\|\|125\|25\|19940126085533\|\|",$C(13) Line Location: TSTGO+6
Function Call: WRITE	Prompt: $C(28,13),! Line Location: TSTGO+7
Function Call: WRITE	Prompt: !!,"Read from Channel (ACK?): "_X Line Location: TSTGO+10
Function Call: WRITE	Prompt: !!,"Don't forget to close the channel." Line Location: TSTGO+11
Routine Call	DIE Line Location: RSET+15 RSET+22

FileNo	Call Tags
^BOP(90355.1 - [#90355.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	GO+12, RECEIVE+5
^%ZOSF("TRAP"	GO+15, JOBGO+4, RGO+7
^BOP(90355 - [#90355]	GO+4, GO+6, GO+9, GO+21, LOOP+1, LOOP+2, LOOP1+1, LOOP1+2, JOBGO+2
^BOP(90355.1 - [#90355.1]	RSET+8, RSET+9, RSET+11, RSET+18, RSET+19, RSET+23, RSET+31

Name	Line Occurrences
LOOP	LOOP+2, LOOP1+2
LOOP1	LOOP1+2
QUIT	GO+4, GO+6, LOOP+1, LOOP+2, LOOP1+1, LOOP1+3, ERR+1
R	RR+1
READ	GO+24
RECEIVE	LOOP1
RGO	RGO+18
RMSM	RECEIVE+6
RR	RECEIVE+7, RR+13
RSET	RR+12

Name	Field # of Occurrence
^(	JOBGO+2
^(0	GO+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%A	GO+12~
A	RSET+25~, RSET+26, RSET+28, RSET+29*, RSET+32!, R~, RGO+8, RGO+10
B	RSET+25~, RSET+26, RSET+27, RSET+28, RSET+32!
>> BOPBUF	READ+1, LOOP+3, LOOP1+2, RR+13, RGO+2, RGO+4, RGO+13, RGO+16*, RGO+17, RGO+18
>> BOPDIV	DEBUG+2, GO+1, GO+4, GO+9, GO+21, RSET+14, JOBGO+3*
>> BOPI	RECEIVE+3, RECEIVE+9, RR+3, RR+13
BOPIN	RECEIVE+3!, RECEIVE+9!, RR+6, RR+13!
BOPIN(	RR+3*, RSET+18
BOPIN(1	RR+9, RSET+25
BOPLSOC	DEBUG+2, GO+22, GO+23, GO+25!, JOBGO+3*
>> BOPOS	RECEIVE+5*, RECEIVE+6, RR+1
>> BOPOS("MSMVER"	RMSM+1, RMSM+2
BOPQ	R+4~, RGO+2, RGO+3, RGO+16, RGO+17, RGO+18*
>> BOPSTOP	RSET+22*
BOPWAIT	RECEIVE~, RR+1
>> DA	RSET+14*, RSET+18, RSET+19, RSET+23, RSET+27, RSET+31
DD	RSET+10!
>> DIC	RSET+4, RSET+10
>> DIC(0	RSET+10*
>> DIE	RSET+14, RSET+22
>> DIQUIET	READ+1*
DO	RSET+10!
>> DR	RSET+14, RSET+22
>> ER	JOBGO+4*
I	RECEIVE+1~, RR+9, RR+10, RSET+9, RSET+10, RSET+18, JOBGO+2
IO	LOOP, RECEIVE+3, RECEIVE+9, RSET+29
J	RECEIVE+1~, RSET+18*, RSET+19
NIO	GO+12~
OUT	RSET+25!, RSET+31, RSET+32!
OUT(	RSET+29
OUT(0	RSET+31*
OUT(1	RSET+28*
OUT(2	RSET+28*
>> POP	GO+23
U	GO+4, GO+6, GO+21, GO+22, LOOP+1, LOOP1+1, RECEIVE+3, RECEIVE+9, RR+9, RSET+19 , JOBGO+3
X	GO+12~, GO+15, GO+21, GO+22, GO+23, LOOP, LOOP+2, LOOP+3, RR+1, RR+2* , RR+3, RSET+5, RSET+9, RSET+10, JOBGO+1, JOBGO+2, JOBGO+3, JOBGO+4, RGO+4, RGO+7* , RGO+8, RGO+10, RGO+13, RGO+16, TSTGO+8, TSTGO+10
Y	RSET+14, R+4~, RGO+2*, RGO+3, RGO+4
Z	R~, RGO+8
ZISOS	GO+12~*
ZTDESC	JOB~, JOB+1*
ZTDTH	JOB~, JOB+1*
ZTIO	JOB~, JOB+1*
ZTRTN	JOB~, JOB+1*
ZTSAVE	JOB~
ZTSK	JOB~, JOB+3

Customize PDF page

Package: IHS Omnicell Pyxis Interface

Routine: BOPRNEW

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: