Routine: PSOCPIBC

Package	Total	Call Graph
Outpatient Pharmacy	2	ACTLOG^PSOCPA (,FINAL)^PSOLSET
Integrated Billing	1	(NEW,XTYPE)^IBARX
VA Fileman	1	^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOCPIBF

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;
EN
XTYPE	;
COPAYREL	; Recheck copay status at release
RX	; Determine Original or Refill for RX
IBNEW	; Load ^TMP global for IB call
EN1
EXIT
FILE	; File IB number in ^PSRX
CP	; Entry point to Check if COPAY - Requires RXP,PSOSITE7

External References

Name	Field # of Occurrence
^DIR	EN1
NEW^IBARX	IBNEW+9
XTYPE^IBARX	XTYPE+8
ACTLOG^PSOCPA	RX+10, RX+13, IBNEW+27, IBNEW+32
^PSOLSET	CP+1, EN
FINAL^PSOLSET	EXIT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?10,"RE-CHECK PRESCRIPTION NUMBER AND RE-ENTER " Line Location: EN1+0
Routine Call	DIR Line Location: EN1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(53 - [#53]	COPAYREL+3
^PS(59 - [#59]	CP+8, EN1+1, XTYPE+6
^PSDRUG - [#50]	COPAYREL+6
^PSRX - [#52]	CP+4, CP+5, CP+9, RX+2, RX+4, RX+5, RX+10, RX+14, RX+15, RX+19 , RX+23, IBNEW+8, IBNEW+28, IBNEW+34, IBNEW+35, FILE+3, FILE+4, FILE+5*, EN1, EN1+2 , COPAYREL+3, COPAYREL+6, XTYPE+3, XTYPE+12

Label References

Name	Line Occurrences
COPAYREL	RX+8
CP	CP+1, EN1+3
EN1	EN1, EN1+3
EXIT	EN1
QUIT	RX+4, RX+5, RX+9, RX+11, IBNEW+3, IBNEW+21, IBNEW+25, IBNEW+36
XTYPE	COPAYREL+12

Naked Globals

Name	Field # of Occurrence
^(	XTYPE+6
^("IB"	XTYPE+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D0	IBNEW+2~
DIR	EN1!
DIR("A"	EN1*
DIR(0	EN1*
>> DIRUT	EN1
DRG	COPAYREL+5~, COPAYREL+6*
DRGTYP	COPAYREL+5~, COPAYREL+6*, COPAYREL+7, COPAYREL+8, COPAYREL+9
EXMT	COPAYREL+11~, COPAYREL+13, COPAYREL+14, COPAYREL+18
I	XTYPE+1~, XTYPE+10*
J	XTYPE+1~, XTYPE+6, XTYPE+10
MAILMSG	RX+7~, RX+17, COPAYREL+18*, COPAYREL+19
PREA	RX+10, RX+13, IBNEW+26, IBNEW+31, QUIT+1!
PSOCHG	RX+6, RX+9, RX+11, RX+13, RX+17, QUIT+1!, COPAYREL+3, COPAYREL+7, COPAYREL+8, COPAYREL+9* , COPAYREL+13, COPAYREL+14, COPAYREL+15, COPAYREL+19, XTYPE+11*
PSOCIBQ	XTYPE+1~, XTYPE+3*, XTYPE+4, XTYPE+5, XTYPE+12
PSOCOMM	RX+13, IBNEW+27, IBNEW+30, QUIT+1!, COPAYREL+3, COPAYREL+7, COPAYREL+8, COPAYREL+9, COPAYREL+14, XTYPE+11*
PSOCP	CP+2!, CP+5, CP+6, CP+9, RX+11, RX+16
PSOCP1	QUIT+1!
PSOCP2	FILE+1, FILE+2, FILE+3, FILE+4, FILE+5, QUIT+1!
PSOCPN	CP+4*, CP+9, QUIT+1!, XTYPE+8
PSOCPUN	RX+19*, RX+21, QUIT+1!
>> PSODA	RX+10, RX+13, IBNEW+27, IBNEW+32
>> PSODFN	EN1+2*
PSONW	RX+13, IBNEW+26, QUIT+1!, COPAYREL+3, COPAYREL+7, COPAYREL+8, COPAYREL+9, COPAYREL+15*
PSOOLD	RX+13, IBNEW+26, QUIT+1!, COPAYREL+3, COPAYREL+7, COPAYREL+8, COPAYREL+9, COPAYREL+15*
>> PSOPAR	CP+1
PSOREF	RX+1, RX+2, RX+4, RX+5, RX+13, RX+14, RX+21, RX+23, IBNEW+34, QUIT+1!
PSORSN	QUIT+1!
PSOSAVE	CP+6*, RX+10, RX+13, QUIT+1!
PSOSCMX	XTYPE+1~, XTYPE+2, XTYPE+10, XTYPE+11, XTYPE+12
>> PSOSITE	CP+8, EN1+1
>> PSOSITE7	CP+8, CP+9, EN1+1
PSOTG	COPAYREL+10!
PSOTG(	COPAYREL+13, COPAYREL+14, COPAYREL+18
PSOTG("SC"	COPAYREL+19, XTYPE+4, XTYPE+5, XTYPE+12*
QQ	QUIT+1!
RXP	CP+4, CP+5, CP+9, RX+2, RX+4, RX+5, RX+10, RX+13, RX+14, RX+15 , RX+19, RX+21, RX+23, IBNEW+1, IBNEW+8, IBNEW+27, IBNEW+28, IBNEW+32, IBNEW+34, IBNEW+35 , FILE+3, FILE+4, FILE+5, EN1*, EN1+2, EXIT!, COPAYREL+3, COPAYREL+6, XTYPE+3, XTYPE+12
SAVY	XTYPE+1~, XTYPE+2, XTYPE+10, XTYPE+11
U	FILE+3, FILE+5
X	CP+9, RX+16, RX+23, IBNEW+3, IBNEW+4, IBNEW+8, QUIT+1!, EN1, XTYPE+1~, XTYPE+2* , XTYPE+6, XTYPE+7, XTYPE+8
X(1	RX+21*, IBNEW+4
X2	QUIT+1!
XTMP	IBNEW+4, IBNEW+22, QUIT+1!
XTMP(1	IBNEW+4, IBNEW+22, FILE+2, FILE+3, FILE+5
Y	IBNEW+21, IBNEW+22, QUIT+1!, XTYPE+1~, XTYPE+9
Y(	XTYPE+10
Y(1	IBNEW+22, IBNEW+25, IBNEW+29, IBNEW+30, IBNEW+33, IBNEW+34, IBNEW+35, IBNEW+36
>> YY	RX+2

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCPIBC

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: