Routine: PSOCPIBC

Package	Total	Call Graph
Outpatient Pharmacy	2	ACTLOG^PSOCPA (,FINAL)^PSOLSET
VA FileMan	2	NOW^%DTC ^DIR
Integrated Billing	1	(NEW,XTYPE)^IBARX
National Drug File	1	$$CPTIER^PSNAPIS

Package

Total

Call Graph

Outpatient Pharmacy

ACTLOG^PSOCPA (,FINAL)^PSOLSET

NOW^%DTC ^DIR

(NEW,XTYPE)^IBARX

$$CPTIER^PSNAPIS

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOCPIBF

Entry Points

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

Name	Field # of Occurrence
NOW^%DTC	COPAYREL+19, COPAYREL+26
^DIR	EN1
NEW^IBARX	IBNEW+9
XTYPE^IBARX	XTYPE+8
$$CPTIER^PSNAPIS	COPAYREL+26
ACTLOG^PSOCPA	RX+10, RX+13, IBNEW+27, IBNEW+32, COPAYREL+27, COPAYREL+28
^PSOLSET	CP+1, EN
FINAL^PSOLSET	EXIT

Name

Field # of Occurrence

NOW^%DTC

COPAYREL+19, COPAYREL+26

^DIR

IBNEW+9

XTYPE+8

COPAYREL+26

RX+10, RX+13, IBNEW+27, IBNEW+32, COPAYREL+27, COPAYREL+28

^PSOLSET

CP+1, EN

FINAL^PSOLSET

EXIT

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

Name

Line Occurrences

Function Call: WRITE

Prompt: !,?10,"RE-CHECK PRESCRIPTION NUMBER AND RE-ENTER "
Line Location: EN1+0

Routine Call

DIR
Line Location:

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
^XTMP("PSOTIEREFTST"	COPAYREL+22

Name

Line Occurrences (* Changed, ! Killed)

CP+8, EN1+1, XTYPE+6

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

^XTMP("PSOTIEREFTST"

COPAYREL+22

Name	Line Occurrences
COPAYRE1	COPAYREL+24
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

Name

Line Occurrences

COPAYRE1

COPAYREL+24

COPAYREL

RX+8

CP+1, EN1+3

EN1, EN1+3

RX+4, RX+5, RX+9, RX+11, IBNEW+3, IBNEW+21, IBNEW+25, IBNEW+36

XTYPE

COPAYREL+12

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

Name

Field # of Occurrence

XTYPE+6

^("IB"

XTYPE+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	COPAYREL+21
CPDATE	COPAYREL+26~*!
D0	IBNEW+2~
DIR	EN1!
DIR("A"	EN1*
DIR(0	EN1*
>> DIRUT	EN1
DRG	COPAYREL+5~, COPAYREL+6*, COPAYREL+26
DRGTYP	COPAYREL+5~, COPAYREL+6*, COPAYREL+7, COPAYREL+8, COPAYREL+9
EXMT	COPAYREL+11~, COPAYREL+13, COPAYREL+14, COPAYRE1+4
I	XTYPE+1~, XTYPE+10*
J	XTYPE+1~, XTYPE+6, XTYPE+10
MAILMSG	RX+7~, RX+17, COPAYRE1+4*, COPAYRE1+5
PREA	RX+10, RX+13, IBNEW+26, IBNEW+31, QUIT+1!, COPAYREL+27, COPAYREL+28
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+27, COPAYREL+28, COPAYRE1+1, COPAYRE1+2, COPAYRE1+5, 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, COPAYREL+27* , COPAYREL+28, 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
PSOCPT	COPAYREL+26~*, COPAYREL+27, COPAYREL+28
PSOCPUN	RX+19*, RX+21, QUIT+1!
>> PSODA	RX+10, RX+13, IBNEW+27, IBNEW+32, COPAYREL+27, COPAYREL+28
>> PSODFN	EN1+2*
PSOEXMPT	COPAYREL+5~, COPAYREL+7, COPAYREL+8, COPAYREL+9, COPAYREL+28, XTYPE+11
PSONW	RX+13, IBNEW+26, QUIT+1!, COPAYREL+3, COPAYREL+7, COPAYREL+8, COPAYREL+9, COPAYREL+27, COPAYREL+28, COPAYRE1+2*
PSOOLD	RX+13, IBNEW+26, QUIT+1!, COPAYREL+3, COPAYREL+7, COPAYREL+8, COPAYREL+9, COPAYREL+27, COPAYREL+28, COPAYRE1+2*
>> 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, COPAYRE1+4
PSOTG("SC"	COPAYRE1+5, XTYPE+4, XTYPE+5, XTYPE+12*
PSOTIERE	COPAYREL+19~, COPAYREL+20, COPAYREL+21, COPAYREL+22*, COPAYREL+24
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, COPAYREL+27, COPAYREL+28 , 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, COPAYREL+26~!, 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: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: