Routine: PSOCP

Package	Total	Call Graph
Outpatient Pharmacy	7	(CHKIB,ICD,SETCOMM,XTYPE1)^PSOCP1 ACTLOG^PSOCPA MAIL2^PSOCPE (,FINAL)^PSOLSET $$DT^PSOMLLDT (CHRG,PFSA)^PSOPFSU1 SCP^PSORN52D
Registration	4	$$CVEDT^DGCV $$GETSTAT^DGMSTAPI ($$GETCUR,GETCUR)^DGNTAPI ($$GETSHAD,GETSHAD)^DGUTL3
VA FileMan	2	NOW^%DTC ^DIR
Integrated Billing	1	(NEW,XTYPE)^IBARX
National Drug File	1	$$CPTIER^PSNAPIS
Scheduling	1	($$AO,$$EC,$$IR)^SDCO22

Package

Total

Call Graph

(CHKIB,ICD,SETCOMM,XTYPE1)^PSOCP1 ACTLOG^PSOCPA MAIL2^PSOCPE (,FINAL)^PSOLSET $$DT^PSOMLLDT (CHRG,PFSA)^PSOPFSU1 SCP^PSORN52D

Registration

$$CVEDT^DGCV $$GETSTAT^DGMSTAPI ($$GETCUR,GETCUR)^DGNTAPI ($$GETSHAD,GETSHAD)^DGUTL3

NOW^%DTC ^DIR

(NEW,XTYPE)^IBARX

$$CPTIER^PSNAPIS

($$AO,$$EC,$$IR)^SDCO22

Caller Graph

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

Package	Total	Caller Graph
Outpatient Pharmacy	8	PSOCPBK4 PSOCPC PSOCPIB3 PSOCPIBF PSOCSRL PSODISP PSODISPS PSOHLDIS
Order Entry Results Reporting	6	ORBCMA32 ORCDPS ORCDPS1 ORCDPS3 ORWDPS33 ORWDPS4
CMOP	1	PSXVND

Package

Total

Caller Graph

Outpatient Pharmacy

PSOCPBK4 PSOCPC PSOCPIB3 PSOCPIBF PSOCSRL PSODISP PSODISPS PSOHLDIS

Order Entry Results Reporting

ORBCMA32 ORCDPS ORCDPS1 ORCDPS3 ORWDPS33 ORWDPS4

CMOP

PSXVND

Entry Points

Name	Comments	DBIA/ICR reference
CP	;Check if COPAY-Requires RXP,PSOSITE7	ICR #1974 Status: Active Usage: Private
RX	;Determine Orig or Refill for RX
PFS	;
IBNEW	; Load ^TMP global for IB call
FILE	;File IB number in ^PSRX
QUIT	;
EN
EN1
EXIT
SC(PSODFN,PSODD)	;sup ref for CPRS, Pre-Copay enhancement	ICR #2534 Status: Active Usage: Controlled Subscription
SCQ
COPAYREL	; Recheck copay status at release ; check Rx patient status
SCNEW(PSOTG,PSOPT,PSODR,PSORN)	;CPRS supported ref	ICR #2534 Status: Active Usage: Controlled Subscription
SKIP	;
ICD	;
XTYPE	;
SETCOMM	;

Name	Field # of Occurrence
NOW^%DTC	COPAYREL+21
$$CVEDT^DGCV	SKIP+7
$$GETSTAT^DGMSTAPI	SKIP+5
$$GETCUR^DGNTAPI	SKIP+6
GETCUR^DGNTAPI	SKIP+6
$$GETSHAD^DGUTL3	SKIP+8
GETSHAD^DGUTL3	SKIP+8
^DIR	EN1
NEW^IBARX	IBNEW+11
XTYPE^IBARX	SC+8, SCNEW+16, XTYPE+8
$$CPTIER^PSNAPIS	COPAYREL+21
CHKIB^PSOCP1	RX+5, RX+7
ICD^PSOCP1	ICD+1
SETCOMM^PSOCP1	SETCOMM+1
XTYPE1^PSOCP1	COPAYREL+10
ACTLOG^PSOCPA	PFS+5, PFS+8, IBNEW+26, IBNEW+31, COPAYREL+25
MAIL2^PSOCPE	PFS+7, PFS+12
^PSOLSET	CP+1, EN
FINAL^PSOLSET	EXIT
$$DT^PSOMLLDT	SC+2, SCNEW+1
CHRG^PSOPFSU1	PFS+4, PFS+6, IBNEW+2
PFSA^PSOPFSU1	RX+3
SCP^PSORN52D	SCNEW+7
$$AO^SDCO22	SKIP+2
$$EC^SDCO22	SKIP+4
$$IR^SDCO22	SKIP+3

Name

Field # of Occurrence

COPAYREL+21

SKIP+7

SKIP+5

SKIP+6

SKIP+6

SKIP+8

SKIP+8

^DIR

EN1

NEW^IBARX

IBNEW+11

XTYPE^IBARX

SC+8, SCNEW+16, XTYPE+8

COPAYREL+21

RX+5, RX+7

ICD+1

SETCOMM+1

COPAYREL+10

PFS+5, PFS+8, IBNEW+26, IBNEW+31, COPAYREL+25

PFS+7, PFS+12

CP+1, EN

SC+2, SCNEW+1

PFS+4, PFS+6, IBNEW+2

RX+3

SCNEW+7

SKIP+2

SKIP+4

SKIP+3

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]	SC+4, COPAYREL+2
^PS(55 - [#55]	SC+4
^PS(59 - [#59]	CP+7, EN1+1, SC+6, SCNEW+14, XTYPE+6
^PSDRUG - [#50]	SC+3, COPAYREL+5
^PSRX - [#52]	CP+3, CP+4, CP+8, RX+2, RX+5, RX+6, RX+7, RX+8, PFS+5, PFS+9 , PFS+10, PFS+14, PFS+18, IBNEW+10, IBNEW+27, IBNEW+33, IBNEW+34, FILE+3, FILE+4, FILE+5* , EN1, EN1+2, COPAYREL+2, COPAYREL+5, COPAYREL+10, COPAYREL+11, COPAYREL+13, SCNEW+9, SCNEW+10, SKIP+1 , XTYPE+3, XTYPE+12

Name

Line Occurrences (* Changed, ! Killed)

^PS(53 - [#53]

SC+4, COPAYREL+2

^PS(55 - [#55]

SC+4

^PS(59 - [#59]

CP+7, EN1+1, SC+6, SCNEW+14, XTYPE+6

^PSDRUG - [#50]

SC+3, COPAYREL+5

^PSRX - [#52]

CP+3, CP+4, CP+8, RX+2, RX+5, RX+6, RX+7, RX+8, PFS+5*, PFS+9*
, PFS+10*, PFS+14, PFS+18, IBNEW+10, IBNEW+27*, IBNEW+33*, IBNEW+34*, FILE+3*, FILE+4*, FILE+5*
, EN1, EN1+2, COPAYREL+2, COPAYREL+5, COPAYREL+10, COPAYREL+11, COPAYREL+13, SCNEW+9, SCNEW+10, SKIP+1
, XTYPE+3, XTYPE+12

Name	Line Occurrences
COPAYREL	PFS+3
CP	CP+1, EN1+3
EN1	EN1, EN1+3
EXIT	EN1
ICD	SCNEW+10, XTYPE+3
PFS	RX+3
QUIT	RX+5, RX+6, RX+7, RX+8, PFS+4, PFS+6, IBNEW+3, IBNEW+5, IBNEW+20, IBNEW+24 , IBNEW+35
SCNEW	COPAYREL+15
SCQ	SC+2, SC+3, SC+4, SC+7
SETCOMM	COPAYREL+14, COPAYREL+19
SKIP	SCNEW+15
XTYPE	COPAYREL+17

Name

Line Occurrences

COPAYREL

PFS+3

CP+1, EN1+3

EN1, EN1+3

SCNEW+10, XTYPE+3

RX+3

RX+5, RX+6, RX+7, RX+8, PFS+4, PFS+6, IBNEW+3, IBNEW+5, IBNEW+20, IBNEW+24
, IBNEW+35

SCNEW

COPAYREL+15

SCQ

SC+2, SC+3, SC+4, SC+7

SETCOMM

COPAYREL+14, COPAYREL+19

SKIP

SCNEW+15

XTYPE

COPAYREL+17

Name	Field # of Occurrence
^(	SC+6, SCNEW+14, XTYPE+6
^("IB"	SC+6, SCNEW+14, XTYPE+6
^("PS"	SC+4
^(0	SC+3

Name

Field # of Occurrence

SC+6, SCNEW+14, XTYPE+6

^("IB"

SC+6, SCNEW+14, XTYPE+6

^("PS"

SC+4

^(0

SC+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHKXTYPE	COPAYREL+9!, COPAYREL+17
CPDATE	COPAYREL+21~*!
D0	IBNEW+4~
DFN	SCNEW+4~, SCNEW+6*
DIR	EN1!
DIR("A"	EN1*
DIR(0	EN1*
>> DIRUT	EN1
DRG	COPAYREL+4~, COPAYREL+5*, COPAYREL+15, COPAYREL+21
DRGTYP	COPAYREL+4~, COPAYREL+5*, COPAYREL+6, COPAYREL+7, COPAYREL+8
EXMT	COPAYREL+12~, COPAYREL+14, COPAYREL+16~, COPAYREL+18, COPAYREL+19, COPAYREL+23*
I	SC+5~, SC+9, SCNEW+13~, SCNEW+17, XTYPE+1~, XTYPE+10*
II	COPAYREL+12~, COPAYREL+14*
J	SC+5~, SC+6, SC+9, SCNEW+13~, SCNEW+14, SCNEW+17, XTYPE+1~, XTYPE+6, XTYPE+10
MAILMSG	PFS+2~, PFS+12, COPAYREL+23*, COPAYREL+24
PREA	PFS+5, PFS+8, IBNEW+25, IBNEW+30, QUIT+1!, COPAYREL+25*
>> PSOANSQ("SC>50"	SCNEW+5!, SCNEW+7*
PSOCHG	PFS+1, PFS+4, PFS+6, PFS+8, PFS+12, QUIT+1!, COPAYREL+2, COPAYREL+6, COPAYREL+7, COPAYREL+8* , COPAYREL+11, COPAYREL+18, COPAYREL+19, COPAYREL+22, COPAYREL+24, COPAYREL+25, XTYPE+11
PSOCIBQ	COPAYREL+12~, COPAYREL+13, COPAYREL+14, SCNEW+4~, SCNEW+9, SCNEW+10, SCNEW+11, SKIP+1, SKIP+2, SKIP+3 , SKIP+4, SKIP+5, SKIP+6, SKIP+7, SKIP+8, XTYPE+1~, XTYPE+3, XTYPE+4, XTYPE+5, XTYPE+12
PSOCOMM	PFS+8, IBNEW+26, IBNEW+29, QUIT+1!, COPAYREL+2, COPAYREL+6, COPAYREL+7, COPAYREL+8, COPAYREL+25, XTYPE+11*
PSOCP	CP+2!, CP+4, CP+5, CP+8, PFS+6, PFS+11
PSOCP1	QUIT+1!
PSOCP2	FILE+1, FILE+2, FILE+3, FILE+4, FILE+5, QUIT+1!
PSOCPN	CP+3*, CP+8, QUIT+1!, COPAYREL+15, XTYPE+8
PSOCPT	RX+1~, COPAYREL+21*, COPAYREL+22, COPAYREL+25
PSOCPUN	PFS+14*, PFS+16, QUIT+1!
>> PSODA	PFS+5, PFS+8, IBNEW+26, IBNEW+31, COPAYREL+25*
PSODD	SC~, SC+3
PSODFN	EN1+2*, SC~, SC+4, SC+8
PSODR	SCNEW~
PSOEXMPT	COPAYREL+4~, COPAYREL+6, COPAYREL+7, COPAYREL+8, COPAYREL+11, COPAYREL+25, XTYPE+11*
PSOIB	RX+1~*, RX+5, RX+7
PSONC	SKIP+6~
PSONC("IND"	SKIP+6
PSONCX	SKIP+6~*
PSONW	PFS+8, IBNEW+25, QUIT+1!, COPAYREL+2, COPAYREL+6, COPAYREL+7, COPAYREL+8, COPAYREL+11, COPAYREL+25
PSOOLD	PFS+8, IBNEW+25, QUIT+1!, COPAYREL+2, COPAYREL+6, COPAYREL+7, COPAYREL+8, COPAYREL+11, COPAYREL+25
>> PSOPAR	CP+1
PSOPFS	RX+1~, RX+3, PFS+4, PFS+6, IBNEW+2, IBNEW+3
PSOPT	SCNEW~, SCNEW+2, SCNEW+6, SCNEW+16, SKIP+2, SKIP+3, SKIP+4, SKIP+5, SKIP+6, SKIP+7 , SKIP+8
PSOQHNC	SCNEW+4~
PSOQMSH	SCNEW+4~
PSOQPGW	SCNEW+4~
PSOQRQD	SCNEW+4~
PSOQVEH	SCNEW+4~
PSOREF	RX+1, RX+2, RX+3, RX+5, RX+6, RX+7, RX+8, PFS+4, PFS+6, PFS+8 , PFS+9, PFS+16, PFS+18, IBNEW+2, IBNEW+33, QUIT+1!
PSORN	SCNEW~, SCNEW+8, SCNEW+9, SCNEW+10, SCNEW+11, SKIP+1
PSORSN	QUIT+1!
PSOSAVE	CP+5*, PFS+5, PFS+8, QUIT+1!
PSOSC	SC+1~, SC+2, SC+3, SC+4, SC+5, SC+9*, SCQ
PSOSCA	SCNEW+4~, SCNEW+7, SKIP+1
PSOSCMX	SCNEW+13~, SCNEW+17, SKIP+1, XTYPE+1~, XTYPE+2, XTYPE+10, XTYPE+11, XTYPE+12
>> PSOSCP	SCNEW+7
>> PSOSITE	CP+7, EN1+1
>> PSOSITE7	CP+7, CP+8, EN1+1
PSOTG	COPAYREL+9!, COPAYREL+15, SCNEW~
PSOTG(	COPAYREL+18, COPAYREL+19, COPAYREL+23
PSOTG("AO"	SKIP+2*
PSOTG("CV"	SKIP+7*
PSOTG("EC"	SKIP+4*
PSOTG("HNC"	SKIP+6*
PSOTG("IR"	SKIP+3*
PSOTG("MST"	SKIP+5*
PSOTG("SC"	COPAYREL+24, SKIP+1, XTYPE+4, XTYPE+5, XTYPE+12
PSOTG("SHAD"	SKIP+8*
QQ	QUIT+1!
RXP	CP+3, CP+4, CP+8, RX+2, RX+3, RX+5, RX+6, RX+7, RX+8, PFS+4 , PFS+5, PFS+6, PFS+8, PFS+9, PFS+10, PFS+14, PFS+16, PFS+18, IBNEW+1, IBNEW+2 , IBNEW+10, IBNEW+26, IBNEW+27, IBNEW+31, IBNEW+33, IBNEW+34, FILE+3, FILE+4, FILE+5, EN1* , EN1+2, EXIT!, COPAYREL+2, COPAYREL+5, COPAYREL+10, COPAYREL+11, COPAYREL+13, COPAYREL+15, COPAYREL+25, XTYPE+3 , XTYPE+12
SAVY	XTYPE+1~, XTYPE+2, XTYPE+10, XTYPE+11
U	FILE+3, FILE+5
X	CP+8, PFS+11, PFS+18, IBNEW+5, IBNEW+6, IBNEW+10, QUIT+1!, EN1, SC+5~, SC+6 , SC+7, SC+8, COPAYREL+4~, COPAYREL+21~!, SCNEW+13~, SCNEW+14, SCNEW+15, SCNEW+16, XTYPE+1~, XTYPE+2* , XTYPE+6, XTYPE+7, XTYPE+8
X(1	PFS+16*, IBNEW+6
X2	QUIT+1!
XTMP	IBNEW+6, IBNEW+21, QUIT+1!
XTMP(1	IBNEW+6, IBNEW+21, FILE+2, FILE+3, FILE+5
Y	IBNEW+20, IBNEW+21, QUIT+1!, SCNEW+13~, XTYPE+1~, XTYPE+9
Y(	SC+9, SCNEW+17, XTYPE+10
Y(1	IBNEW+21, IBNEW+24, IBNEW+28, IBNEW+29, IBNEW+32, IBNEW+33, IBNEW+34, IBNEW+35
>> YY	RX+2
ZXX	SCNEW+4~, SCNEW+10, XTYPE+1~, XTYPE+3

Name	Field # of Occurrence
$T(GETCUR^DGNTAPI	SKIP+6
$T(GETSHAD^DGUTL3	SKIP+8

Name

Field # of Occurrence

$T(GETCUR^DGNTAPI

SKIP+6

$T(GETSHAD^DGUTL3

SKIP+8

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCP

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items