Routine: BOPSHO

Package	Total	Call Graph
IHS Omnicell Pyxis Interface	2	^BOPSLK $$INTFACE^BOPTU
VA Fileman	2	^DIC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
AGAIN
START	;EP - called by option "Activate Receiving Facility"
END	;EP - stop the interface
PATLOOK	;EP - display queue for a patient
SHOW	;
BKS
STOP	;EP - called by option "Deactivate Receiving Facility"
DETAIL	;detailed queue of message (up to 40 characters)
SITE	;combining queue summary with a detailed queue
RE
AS
ON
ONS
BK

External References

Name	Field # of Occurrence
^BOPSLK	PATLOOK+9
$$INTFACE^BOPTU	SHOW+1
^DIC	PATLOOK+2
^DIR	AGAIN+3, AGAIN+11, RE, PATLOOK+3, PATLOOK+10, BK, ON+5, BKS, ONS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SITE+1
Function Call: WRITE	Prompt: @IOF Line Location: AGAIN+4
Function Call: WRITE	Prompt: @IOF Line Location: AGAIN+6
Function Call: WRITE	Prompt: @IOF,"Not a valid entry. Try again.",$C(7) Line Location: AGAIN+14
Function Call: WRITE	Prompt: @IOF Line Location: AGAIN+15
Function Call: WRITE	Prompt: @IOF,"Not a valid entry. Try again.",$C(7) Line Location: AGAIN+16
Function Call: WRITE	Prompt: !!!,$G(BOPWHO)_" Queue Summary for "_SITCHK Line Location: SHOW+2
Function Call: WRITE	Prompt: !!,"There are ",COUNT," 'Ready to Send' messages in the "_$G(BOPWHO)_" Queue." Line Location: SHOW+12
Function Call: WRITE	Prompt: !,"There are ",+$G(KOUNT("ADT"))," ADT messages in the Queue." Line Location: SHOW+13
Function Call: WRITE	Prompt: !,"There are ",+$G(KOUNT("RDE"))," ORDER messages in the Queue." Line Location: SHOW+14
Function Call: WRITE	Prompt: !,"There are ",+$G(MKOUNT)," Passthru messages in the Queue." Line Location: SHOW+15
Function Call: WRITE	Prompt: @IOF,"Parts of last 5 messages and next 5 queued for today.......",SITCHK,! Line Location: DETAIL+1
Function Call: WRITE	Prompt: !,"No active messages!",!! Line Location: DETAIL+3
Function Call: WRITE	Prompt: !,LINE_" = "_$E(^BOPMTMP("SEND",DT,LINE),1,40) Line Location: DETAIL+5
Function Call: WRITE	Prompt: !!,"No queued messages!" Line Location: AS+0
Function Call: WRITE	Prompt: !,"Queued messages...",AS Line Location: AS+5
Function Call: WRITE	Prompt: !,"Not in transmission file",$C(7) Line Location: PATLOOK+5
Function Call: WRITE	Prompt: !,"No more entries",! Line Location: PATLOOK+11
Function Call: WRITE	Prompt: @IOF Line Location: START+1
Function Call: WRITE	Prompt: !,"You are logged into the "_$P(^DG(40.8,RECFAC,0),U)_" Receiving Facility." Line Location: ON+0
Function Call: WRITE	Prompt: !,"The site interface is already on. Bye!" Line Location: ON+3
Function Call: WRITE	Prompt: !,"QUITTING" Line Location: ON+5
Function Call: WRITE	Prompt: !!,"The receiving facilty "_$P(^DG(40.8,RECFAC,0),U)_" is activated." Line Location: ON+7
Function Call: WRITE	Prompt: @IOF Line Location: STOP+1
Function Call: WRITE	Prompt: !,"You are logged into the "_$P(^DG(40.8,RECFAC,0),U)_" Receiving Facility." Line Location: ONS+0
Function Call: WRITE	Prompt: !,"The receiving facility is already deactivated. Bye!" Line Location: ONS+3
Function Call: WRITE	Prompt: !,"No deactivation. Bye!" Line Location: ONS+5
Function Call: WRITE	Prompt: !!,"The receiving facility "_$P(^DG(40.8,RECFAC,0),U)_" is deactivated." Line Location: ONS+7
Function Call: WRITE	Prompt: !,"Stop flag is set. The interface will attempt to restart in 15 minutes." Line Location: END+4
Routine Call	DIC Line Location: PATLOOK+2
Routine Call	DIR Line Location: AGAIN+3 AGAIN+11 RE PATLOOK+3 PATLOOK+10 BK ON+5 BKS ONS+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BOP(19233.1	AS+2!, AS+3*
^BOP(90355 - [#90355]	SITE+2, SITE+3, SITE+4, AGAIN+5, AGAIN+7, START+2, START+3, START+4, START+5, ON+1 , ON+6, STOP+2, STOP+3, STOP+4, STOP+5, ONS+1, ONS+6, END+2, END+3*
^BOP(90355.1 - [#90355.1]	SHOW+4, SHOW+5!, SHOW+6!*, SHOW+7, SHOW+9, AS, AS+1, AS+2, AS+3!, AS+4 , PATLOOK+5, PATLOOK+6, PATLOOK+7, PATLOOK+8
^BOPMTMP("SEND"	DETAIL+3, DETAIL+5
^DG(40.8 - [#40.8]	SITE+5, START+6, ON, ON+7, STOP+6, ONS, ONS+7

Label References

Name	Line Occurrences
AGAIN	AGAIN+4, AGAIN+5, AGAIN+7, AGAIN+16
AS	DETAIL+3
DETAIL	AGAIN+6, AGAIN+15, RE+1
ON	BK+2
ONS	BKS+2
PATLOOK	PATLOOK+4, PATLOOK+5, PATLOOK+6, PATLOOK+11
RE	AS
SHOW	AGAIN+1

Naked Globals

Name	Field # of Occurrence
^(	SITE+2, START+2, STOP+2, END+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PATLOOK+1~, PATLOOK+6*, PATLOOK+7, PATLOOK+8
ACTION	START+1~, ON+1, ON+2, ON+3, STOP+1~, ONS+1, ONS+2, ONS+3
ANS	SITE+1~, AGAIN+13, AGAIN+14, AGAIN+15, PATLOOK+1~, START+1~, BK+1, BK+2, STOP+1~, BKS+1* , BKS+2
ANSW	DETAIL+2~
AS	DETAIL+2~, AS+1, AS+2, AS+3, AS+4, AS+5
B	PATLOOK+1~, PATLOOK+7, PATLOOK+8
>> BOPWHO	SHOW+1*, SHOW+2, SHOW+12
CNT	SITE+1~, SITE+5, AGAIN, AGAIN+1, AGAIN+8, AGAIN+9, AGAIN+10, START+1~, START+6, START+7* , START+8, BK+2, STOP+1~, STOP+6, STOP+7, STOP+8, BKS+2*
CONT	DETAIL+2~, AS+1, AS+5
COUNT	SHOW+3~, SHOW+8, SHOW+12
DFN	PATLOOK+1~, PATLOOK+2*, PATLOOK+5, PATLOOK+6
DIC	PATLOOK+1~, PATLOOK+2*
DIC(0	PATLOOK+2*
DIR	AGAIN+3!, AGAIN+11!, RE!, PATLOOK+3!, PATLOOK+10!, START+1~, BK!, STOP+1~, BKS!, ONS+5!
DIR("A"	AGAIN+2, AGAIN+11, RE, PATLOOK+3, PATLOOK+10, BK, ON+4, BKS, ONS+4*
DIR("B"	PATLOOK+3, ON+5, ONS+5*
DIR(0	AGAIN+3, AGAIN+11, RE, PATLOOK+3, PATLOOK+10, BK, ON+5, BKS, ONS+5*
>> DIRUT	AGAIN+11, RE, PATLOOK+3, PATLOOK+10, BK, BKS
DISP	SITE+1~, START+1~, STOP+1~
DT	DETAIL+3, DETAIL+5
>> DTOUT	AGAIN+3
>> DUOUT	AGAIN+3
I	SHOW+3~, SHOW+4*, SHOW+5, SHOW+6, SHOW+7, SHOW+9
IOF	SITE+1, AGAIN+4, AGAIN+6, AGAIN+14, AGAIN+15, AGAIN+16, DETAIL+1, START+1, STOP+1
KOUNT	SHOW+3~
KOUNT(	SHOW+11*
KOUNT("ADT"	SHOW+13
KOUNT("RDE"	SHOW+14
LINE	DETAIL+2~, DETAIL+3, DETAIL+4, DETAIL+5
MKOUNT	SHOW+3~, SHOW+10*, SHOW+15
MT	SHOW+3~, SHOW+9*, SHOW+10, SHOW+11
RECFAC	SITE+1~, SITE+4, SITE+5, START+1~, START+4, START+5, START+6, BK+2, ON, ON+7 , STOP+1~, STOP+4, STOP+5, STOP+6, BKS+2*, ONS, ONS+7
RECFAC(	SITE+5, AGAIN, AGAIN+1, AGAIN+8, AGAIN+9, AGAIN+10, AGAIN+14, AGAIN+15, START+6, START+7 , START+8, BK+2, STOP+6*, STOP+7, STOP+8, BKS+2
RECFAC(1	AGAIN+6
RFIEN	START+1~, START+5, ON+1, ON+6, STOP+1~, STOP+5, ONS+1, ONS+6
SITCHK	SITE+1~, AGAIN+1, AGAIN+6, AGAIN+15*, SHOW+2, DETAIL+1, START+1~, STOP+1~
SITE	SITE+1~, SITE+2, SITE+3, SITE+4, AGAIN+5, AGAIN+7, START+1~, START+2, START+3, START+4 , START+5, ON+1, ON+6, STOP+1~, STOP+2, STOP+3, STOP+4, STOP+5, ONS+1, ONS+6 , END+1~, END+2, END+3
SITID	SITE+1~, SITE+2, AGAIN+1, AGAIN+6, AGAIN+15, SHOW+7, AS+4, START+1~, START+2, STOP+1~ , STOP+2, END+1~, END+2*
STAT	SHOW+3~, SHOW+6, DETAIL+2~, AS+3
U	SITE+5, AGAIN+1, AGAIN+6, AGAIN+9, AGAIN+15, SHOW+6, SHOW+7, SHOW+9, AS+3, AS+4 , START+6, START+8, BK+2, ON, ON+1, ON+6, ON+7, STOP+6, STOP+8, BKS+2 , ONS, ONS+1, ONS+6, ONS+7
X	PATLOOK+1~, PATLOOK+6
Y	AGAIN+12, AGAIN+13, PATLOOK+1~, PATLOOK+2, PATLOOK+4, BK+1, ON+5, BKS+1, ONS+5

Customize PDF page

Package: IHS Omnicell Pyxis Interface

Routine: BOPSHO

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: