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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BOPRNEW

Package: IHS Omnicell Pyxis Interface

Routine: BOPRNEW


Information

BOPRNEW ;IHS/ILC/ALG/CIA/PLS - ILC Listener;06-Feb-2007 21:19;SM

Source Information

Source file <BOPRNEW.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Omnicell Pyxis Interface 1 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 ;

External References

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

FileMan Files Accessed Via FileMan Db Call

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*

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All