Routine: PSODDPR4

Package	Total	Call Graph
Outpatient Pharmacy	7	^PSOBUILD HD^PSODDPR2 IMO^PSODDPR7 ($$DUPTHER,$$NVATST)^PSODDPRE (BLD,NVA)^PSOORDRG GETPROD^PSOORRDI REMOTE^PSORX1
Pharmacy Data Management	3	$$SUP^PSSDSAPI $$DRG^PSSDSAPM IN^PSSHRQ2
Inpatient Medications	2	IN^PSJBLDOC ENCHK^PSJORUT2
National Drug File	2	DATA^PSN50P68 $$PROD0^PSNAPIS
VA FileMan	2	^%DT C^%DTC
Kernel	1	$$DT^XLFDT
Order Entry Results Reporting	1	($$GET,$$HAVEHDR,GET,HAVEHDR)^ORRDI1
Toolkit	1	($$GETVUID,GETIREF)^XTID

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOCPPRE PSODDPR5
Inpatient Medications	1	PSJOC
Order Entry Results Reporting	1	ORKPS

Name	Comments	DBIA/ICR reference
BLD(PSODFN,LIST,PDRG,PTY)	;	ICR #5366 Status: Active Usage: Controlled Subscription
ORD
PROFILE	;build profile drug input
ID
ID1
OIX
REMOTE	;
REMO	;
PARSE	; PULL INFORMATION FROM ^XTMP
CHKLOCAL	; IF SAME RX NUMBER AND ISSUE DATE - LOCAL RX
FILTER	; FOR SAME DRUG VUID FOR SAME SITE, KEEP 1 ENTRY - CHECK BY ACTIVE STATUS FIRST THEN BY GREATEST EXPIRATION DATE
CHKEXP	;
SETRDI	;
CPRS(PSODFN,LIST,PDRG,PTY)	;	ICR #5366 Status: Active Usage: Controlled Subscription
DRG	;
DRGSUP	;Create "prospective" nodes for duplicate supply entries
RVAGEN	;va generic for remote drugs

Name	Field # of Occurrence
^%DT	REMO+6
C^%DTC	ORD+4, REMO+7, PARSE+24, PARSE+30
$$GET^ORRDI1	REMOTE+12
$$HAVEHDR^ORRDI1	REMOTE+2
GET^ORRDI1	REMOTE+12
HAVEHDR^ORRDI1	REMOTE+1
IN^PSJBLDOC	ORD+5
ENCHK^PSJORUT2	CPRS+9
DATA^PSN50P68	RVAGEN+5
$$PROD0^PSNAPIS	ID+1, REMO+13, DRG+4, DRGSUP+9
^PSOBUILD	ORD+4
HD^PSODDPR2	REMOTE+5, REMOTE+6, REMOTE+7
IMO^PSODDPR7	ORD+8
$$DUPTHER^PSODDPRE	PROFILE+32
$$NVATST^PSODDPRE	PROFILE+11, PROFILE+23
BLD^PSOORDRG	CPRS+9
NVA^PSOORDRG	CPRS+9
GETPROD^PSOORRDI	PARSE+9
REMOTE^PSORX1	REMOTE+4
$$SUP^PSSDSAPI	CPRS+11, DRG+1
$$DRG^PSSDSAPM	PROFILE+11, PROFILE+23
IN^PSSHRQ2	ORD+10, CPRS+6
$$DT^XLFDT	REMOTE+10
$$GETVUID^XTID	PROFILE+14, PROFILE+26, ID, DRG+3, DRGSUP+8
GETIREF^XTID	REMO+11, RVAGEN+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Patient UNDEFINED!",! Line Location: BLD+3
Function Call: WRITE	Prompt: !,"Input Base UNDEFINED!",! Line Location: BLD+4
Function Call: WRITE	Prompt: !,"Patient UNDEFINED!",! Line Location: CPRS+3
Function Call: WRITE	Prompt: !,"Dispense Drug(s) UNDEFINED!",! Line Location: CPRS+4
Function Call: WRITE	Prompt: !,"Input Base UNDEFINED!",! Line Location: CPRS+5

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	PROFILE+10, PROFILE+22
^PS(50.7 - [#50.7]	PROFILE+10, PROFILE+22
^PS(52.41 - [#52.41]	PROFILE+4, PROFILE+5, PROFILE+9
^PS(55 - [#55]	PROFILE+17, PROFILE+21
^PSDRUG - [#50]	PROFILE+7, PROFILE+8, PROFILE+12, PROFILE+14, PROFILE+19, PROFILE+20, PROFILE+24, PROFILE+26, PROFILE+31, PROFILE+33 , ID, ID+1, REMO+10, CPRS+12, DRG+2, DRG+4, DRGSUP+7, DRGSUP+9
^PSRX - [#52]	PROFILE+30, PROFILE+33, CHKLOCAL+5
^PSRX("B"	CHKLOCAL+2, CHKLOCAL+4
^TMP($J	BLD+5!, ORD+2, ORD+3, ORD+6, ORD+7, ID1, ID1+1, OIX, REMOTE+15!, REMOTE+17 , REMO+1, REMO+4, REMO+6, REMO+10, REMO+11, REMO+15, PARSE+35, PARSE+36, FILTER+3, FILTER+4 , FILTER+8!, FILTER+9!, CHKEXP+2!, CHKEXP+7!, CPRS+6, CPRS+7!, CPRS+14, CPRS+15, CPRS+16!, DRG+5* , DRG+6, DRGSUP+3, DRGSUP+10, RVAGEN+2, RVAGEN+6, RVAGEN+12!
^XTMP("ORRDI"	REMOTE+3, REMOTE+7, REMOTE+14, PARSE+2, PARSE+3, PARSE+5, PARSE+6, PARSE+7, PARSE+11, PARSE+12 , PARSE+15, PARSE+16, PARSE+26, PARSE+32, PARSE+33, PARSE+34

Name	Line Occurrences
CHKEXP	FILTER+7, FILTER+10
CHKLOCAL	PARSE+25
DRG	ORD+1
DRGSUP	ORD+3, ORD+10
FILTER	REMOTE+16
ID	PROFILE+8, PROFILE+20, PROFILE+33
ID1	PROFILE+15, PROFILE+27
OIX	PROFILE+11, PROFILE+23
ORD	CPRS+17
PARSE	REMOTE+16
PROFILE	ORD+4
REMO	REMOTE+18
REMOTE	ORD+5
SETRDI	FILTER+8, FILTER+11, CHKEXP+7

Name	Field # of Occurrence
^(	REMO+1, PARSE+34, CPRS+15
^("ND"	ID+1, DRG+2, DRG+4
^(0	PROFILE+5, PROFILE+10, PROFILE+17, PROFILE+22

Name	Field # of Occurrence
BADEXP	PARSE+1~, PARSE+17, PARSE+20
CNT	ORD, ORD+9~, CPRS+11, DRG+5, DRG+6
>> CT	RVAGEN+9
DD	PROFILE+1~, PROFILE+34!
DDRG	PROFILE+9~, PROFILE+11, PROFILE+12, PROFILE+13, PROFILE+21~, PROFILE+23, PROFILE+24, PROFILE+25, PROFILE+34!
DIC	REMOTE+18~, RVAGEN+1~
DNM	PROFILE+1, PROFILE+2, PROFILE+4, PROFILE+5, PROFILE+17, PROFILE+28, PROFILE+34!, CPRS+13, CPRS+14, CPRS+15 , DRG+7!
DO	ORD~, PROFILE+1, PROFILE+8, PROFILE+20, PROFILE+25, PROFILE+33, ID1, ID1+1, OIX, REMO+11 , REMO+15
>> DRG	RVAGEN+9
DRNM	PROFILE+8, PROFILE+10, PROFILE+20, PROFILE+21~, PROFILE+22, PROFILE+33*, PROFILE+34!, ID1, ID1+1, OIX , REMOTE+9~
DT	ORD+4, REMOTE+10*, REMO+7, PARSE+19, PARSE+20, PARSE+22, PARSE+24, PARSE+28, PARSE+30, CHKEXP+3 , CHKEXP+5
ID	PROFILE+1~, PROFILE+14~, PROFILE+26~, PROFILE+34!, ID~, ID1!, ID1+1!, DRG+2~, DRG+3, DRG+5 , DRG+6, DRG+7!
IEN	ORD~, ORD+1, CPRS+13, CPRS+15, DRG+1, DRG+2, DRG+4, DRG+5, DRG+6
INDD	REMO+10, CPRS+7~, CPRS+15*
INDX	CPRS+7~*, CPRS+9
IOSL	REMOTE+5, REMOTE+6, REMOTE+7
IT	REMOTE+9~
LIST	BLD~, BLD+4, BLD+5, ORD+2, ORD+3, ORD+5, ORD+6, ORD+7, ORD+10, ID1 , ID1+1, OIX, REMOTE+15, REMOTE+17, REMO+1, REMO+4, REMO+6, REMO+11, REMO+15, PARSE+35 , PARSE+36, FILTER+3, FILTER+4, FILTER+8, FILTER+9, CHKEXP+7, CPRS~, CPRS+5, CPRS+6, CPRS+7 , DRG+5, DRG+6
LOCAL	PARSE+1~, PARSE+25, CHKLOCAL+7
NAME	ORD~, ORD+1, CPRS+13, CPRS+14, CPRS+15, DRG+5, DRG+6
NDF	REMOTE+9~
NEWDC	PARSE+1~, PARSE+29*, PARSE+30
NEWEXP	PARSE+1~, PARSE+23*, PARSE+24
NEWISS	PARSE+1~, PARSE+20*
>> NSRT(	RVAGEN+10, RVAGEN+11
ODRG	ORD~, PROFILE+5, PROFILE+6!, PROFILE+7, PROFILE+8, PROFILE+9~, PROFILE+13, PROFILE+14, PROFILE+17, PROFILE+18! , PROFILE+19, PROFILE+20, PROFILE+21~, PROFILE+25, PROFILE+26, PROFILE+30*, PROFILE+31, PROFILE+33, ID, ID+1 , ID1, ID1+1
OLDEXP	FILTER+1~, CHKEXP+2*, CHKEXP+5, CHKEXP+6
OLDEXP2	FILTER+1~, CHKEXP+2, CHKEXP+6*
OLDRDI	FILTER+1~, FILTER+8, CHKEXP+7
OLDSTA	FILTER+1~, FILTER+7, FILTER+9
>> ON	RVAGEN+2, RVAGEN+8, RVAGEN+9
OR1	PROFILE+34!
ORN	ORD~, PROFILE+1~, PROFILE+5, PROFILE+17, PROFILE+33*, ID1, ID1+1
ORTYP	ORD~, PROFILE+1~, PROFILE+5, PROFILE+17, PROFILE+33*, ID1, ID1+1, OIX
P1	PROFILE+34!, ID+1, DRG+4, DRG+7!
P2	PROFILE+34!, ID+1, DRG+4, DRG+7!
P3	PROFILE+34!, REMO+13*
PDRG	BLD~, ORD+5, CPRS~
PDRG(	ORD+1, REMO+10, CPRS+11, CPRS+12
PDRG(0	REMO+10, CPRS+4
PROF	ORD~*
>> PSGDGCKF	ORD+2, DRG+6
>> PSJDGCK	ORD+2, ORD+3, ID1, ID1+1, DRG+5, DRG+6
PSO30	PARSE+1~, PARSE+21, PARSE+22, PARSE+24, PARSE+27, PARSE+28, PARSE+30
PSOCLASS	REMOTE+9~, PARSE+10
PSODC	REMOTE+9~
PSODD	PROFILE+34!
PSODFN	BLD~, BLD+3, ORD+5, ORD+6, ORD+8, PROFILE+17, PROFILE+21, REMOTE+7, REMOTE+12, REMOTE+14 , PARSE+2, PARSE+3, PARSE+5, PARSE+6, PARSE+7, PARSE+11, PARSE+12, PARSE+15, PARSE+16, PARSE+26 , PARSE+32, PARSE+33, PARSE+34, CPRS~, CPRS+3, CPRS+9
PSODPSC1	DRGSUP+1~, DRGSUP+3*
PSODPSCT	DRGSUP+1~, DRGSUP+2, DRGSUP+3, DRGSUP+10*
PSODPSID	DRGSUP+1~, DRGSUP+8*, DRGSUP+10
PSODPSLP	DRGSUP+1~, DRGSUP+4*, DRGSUP+5, DRGSUP+6, DRGSUP+7, DRGSUP+9, DRGSUP+10
PSODPSNF	DRGSUP+1~, DRGSUP+7*, DRGSUP+8
PSODPSNM	DRGSUP+1~, DRGSUP+6*, DRGSUP+10
PSODPSOR	DRGSUP+1~, DRGSUP+5*, DRGSUP+10
PSODPSP1	DRGSUP+1~, DRGSUP+9*
PSODPSP2	DRGSUP+1~, DRGSUP+9*
PSODPSP3	DRGSUP+1~, DRGSUP+3*
PSODPSQN	DRGSUP+1~, DRGSUP+9*, DRGSUP+10
PSODPSXX	DRGSUP+1~, DRGSUP+9*
PSODRUG	ORD+9~, PROFILE+34!
PSODRUG("NDF"	DRG+2*, DRG+3
PSODTCUT	ORD~, ORD+4*
PSODUPLS	CPRS+7~*, DRGSUP+3, DRGSUP+10
PSODUPSP	CPRS+7~
PSODUPSP(	CPRS+15*, DRGSUP+4, DRGSUP+5, DRGSUP+6
PSODUPSP(0	ORD+3, ORD+10
PSODUPSY	CPRS+7~*, CPRS+15, DRGSUP+10
PSOFILE	REMOTE+9~
PSOFRMNM	ORD~, ORD+1!*, DRG+5
PSOFRMOR	ORD+1, CPRS+7~*, DRG+5
PSOI	PROFILE+1~, PROFILE+9~, PROFILE+10, PROFILE+11, PROFILE+13!, PROFILE+21~, PROFILE+22, PROFILE+23, PROFILE+25!, PROFILE+34!
PSOICT	ORD+9~, REMOTE+9~, CPRS+11*
PSOISS	CHKLOCAL+1~, CHKLOCAL+5, CHKLOCAL+6, CHKLOCAL+7
PSONDF	RVAGEN+1~, RVAGEN+4*, RVAGEN+5, RVAGEN+6
PSOON	ORD~, REMO+1, REMO+4!, REMO+7
PSOPRE	PARSE+1~, PARSE+19, PARSE+20, PARSE+22, PARSE+23, PARSE+28, PARSE+29, CHKEXP+1~, CHKEXP+3, CHKEXP+4 , CHKEXP+5*, CHKEXP+6
PSOPROD	REMOTE+9~
PSOPRODA	REMOTE+9~
PSORDI	REMOTE+8~, REMOTE+11, REMOTE+12, REMOTE+13, REMO+1, REMO+4, REMO+6, REMO+10, REMO+11, REMO+15 , PARSE+1~, PARSE+2, PARSE+3, PARSE+5, PARSE+6, PARSE+7, PARSE+11, PARSE+12, PARSE+15, PARSE+16 , PARSE+26, PARSE+32, PARSE+33, PARSE+34, PARSE+35, PARSE+36, FILTER+1~, FILTER+2, FILTER+3, FILTER+4 , FILTER+9, CHKEXP+2, SETRDI+1
PSORDIID	RVAGEN+3!, RVAGEN+4!
PSORDIID(	RVAGEN+4
PSORX	CHKLOCAL+3~, CHKLOCAL+4*, CHKLOCAL+5
PSOSD	ORD+5!
PSOSD(	PROFILE+2, PROFILE+4, PROFILE+5, PROFILE+17, PROFILE+28
PSOSEQN	REMOTE+9~, REMO+1!, REMO+11
PSOSEQN(	REMO+12
PSOSIG	REMOTE+9~, PARSE+34, PARSE+36
PSOSIG(	PARSE+34*, PARSE+36
PSOSUPNN	CPRS+7~, CPRS+12*, CPRS+15
PSOVAG	RVAGEN+1~, RVAGEN+6*, RVAGEN+9, RVAGEN+10, RVAGEN+11
>> PSOVAGEN	RVAGEN+3*
PSOVUID	RVAGEN+1~, RVAGEN+2*, RVAGEN+3
PSOX1	CPRS+13!
PSOY	ORD+9~, CPRS+12*, CPRS+13!
PSOY(0	CPRS+12*
PTY	BLD~, ORD+5, ORD+7, ORD+8, PROFILE+29, CPRS~, CPRS+7, DRG+5, DRG+6
RDI	FILTER+1~
RDI(	FILTER+5, SETRDI+1*
RDIDAYS	REMOTE+8~, PARSE+13, PARSE+14, PARSE+30, PARSE+35
RDIDI	REMOTE+9~
RDIDNAM	REMOTE+8~, REMO+9, REMO+10, REMO+11, REMO+15, PARSE+6, PARSE+35
RDIEXP	REMOTE+8~, PARSE+15, PARSE+17, PARSE+20, PARSE+22, PARSE+23, PARSE+35, FILTER+1~, FILTER+4*, CHKEXP+3 , CHKEXP+4, SETRDI+1
RDIEXP2	FILTER+1~, CHKEXP+2, CHKEXP+4*
RDIFILL	REMOTE+8~, PARSE+26*, PARSE+28, PARSE+29, PARSE+35
RDIINST	REMOTE+8~, PARSE+5, PARSE+35, FILTER+4, FILTER+5, SETRDI+1
RDIISS	REMOTE+8~, PARSE+16*, PARSE+18, PARSE+19, PARSE+20, PARSE+35, CHKLOCAL+7
RDIPHYS	REMOTE+9~, PARSE+33*, PARSE+35
RDIQTY	REMOTE+8~, PARSE+12, PARSE+13, PARSE+35
RDIREF	REMOTE+9~, PARSE+32*, PARSE+35
RDIRX	REMOTE+8~, PARSE+11*, PARSE+25, PARSE+35, CHKLOCAL+2, CHKLOCAL+4
RDISIG	REMOTE+8~
RDISTA	REMOTE+8~, PARSE+3, PARSE+4, PARSE+21, PARSE+27, PARSE+31, PARSE+35, FILTER+1~, FILTER+4*, FILTER+6 , SETRDI+1
RDITMP	REMOTE+9~, REMO+1*, REMO+2, REMO+9
RDIVUID	REMOTE+8~, REMO+9, REMO+11, REMO+15, PARSE+7, PARSE+8, PARSE+35, FILTER+4*, FILTER+5, SETRDI+1
RECTYP	PROFILE+1~
RXREC	PROFILE+5, PROFILE+9, PROFILE+17, PROFILE+21, PROFILE+28*, PROFILE+29, PROFILE+30, PROFILE+32, PROFILE+33, PROFILE+34! , ID1, ID1+1, OIX
SEQN	PROFILE+9~, PROFILE+13, PROFILE+21~, PROFILE+25, PROFILE+34!, ID+1, ID1, ID1+1, REMO+12, REMO+13* , REMO+15, DRG+2~, DRG+4*, DRG+5, DRG+6, DRG+7!
STA	PROFILE+1, PROFILE+2, PROFILE+3, PROFILE+4, PROFILE+5, PROFILE+16, PROFILE+17, PROFILE+28, PROFILE+32, PROFILE+34!
>> SV	RVAGEN+9, RVAGEN+10, RVAGEN+11
TU	OIX+1!
U	RVAGEN+6
X	ORD+4, ID+1, REMOTE+9~, REMO+5!, REMO+6, REMO+7!, PARSE+24, PARSE+30, DRG+4*, DRG+7!
X1	ORD~, ORD+4, REMO+5!, REMO+6, REMO+7!, PARSE+24, PARSE+30
X2	ORD~, ORD+4, REMO+5!, REMO+6, REMO+7!, PARSE+24, PARSE+30
XX	FILTER+1~, FILTER+4*
Y	REMO+5!, REMO+6, REMO+7!
>> ZDGDG(	RVAGEN+9*
ZI	ORD+1, ORD+9~, REMOTE+8~, REMO+10
ZII	CPRS+7~, CPRS+11*, CPRS+12
ZOT	RVAGEN+7~, RVAGEN+8*, RVAGEN+9
ZZ	FILTER+1~, FILTER+5*, FILTER+7, FILTER+8, FILTER+9, CHKEXP+2, CHKEXP+7
>> ZZDGDG3(	RVAGEN+9*

Name

Field # of Occurrence

BADEXP

PARSE+1~, PARSE+17*, PARSE+20*

CNT

ORD*, ORD+9~, CPRS+11*, DRG+5*, DRG+6*

>> CT

RVAGEN+9

DD

PROFILE+1~, PROFILE+34!

DDRG

PROFILE+9~, PROFILE+11*, PROFILE+12, PROFILE+13, PROFILE+21~, PROFILE+23*, PROFILE+24, PROFILE+25, PROFILE+34!

DIC

REMOTE+18~, RVAGEN+1~

DNM

PROFILE+1*, PROFILE+2*, PROFILE+4, PROFILE+5, PROFILE+17, PROFILE+28, PROFILE+34!, CPRS+13*, CPRS+14*, CPRS+15
, DRG+7!

DO

ORD~, PROFILE+1*, PROFILE+8*, PROFILE+20*, PROFILE+25*, PROFILE+33*, ID1, ID1+1, OIX, REMO+11*
, REMO+15

>> DRG

RVAGEN+9

DRNM

PROFILE+8*, PROFILE+10*, PROFILE+20*, PROFILE+21~, PROFILE+22*, PROFILE+33*, PROFILE+34!, ID1, ID1+1, OIX
, REMOTE+9~

DT

ORD+4, REMOTE+10*, REMO+7, PARSE+19, PARSE+20, PARSE+22, PARSE+24, PARSE+28, PARSE+30, CHKEXP+3
, CHKEXP+5

ID

PROFILE+1~, PROFILE+14~*, PROFILE+26~*, PROFILE+34!, ID~*, ID1!, ID1+1!, DRG+2~, DRG+3*, DRG+5
, DRG+6, DRG+7!

IEN

ORD~, ORD+1*, CPRS+13*, CPRS+15, DRG+1, DRG+2, DRG+4, DRG+5, DRG+6

INDD

REMO+10*, CPRS+7~*, CPRS+15*

INDX

CPRS+7~*, CPRS+9

IOSL

REMOTE+5, REMOTE+6, REMOTE+7

IT

REMOTE+9~

LIST

BLD~, BLD+4, BLD+5, ORD+2, ORD+3, ORD+5, ORD+6, ORD+7, ORD+10, ID1
, ID1+1, OIX, REMOTE+15, REMOTE+17, REMO+1, REMO+4, REMO+6, REMO+11, REMO+15, PARSE+35
, PARSE+36, FILTER+3, FILTER+4, FILTER+8, FILTER+9, CHKEXP+7, CPRS~, CPRS+5, CPRS+6, CPRS+7
, DRG+5, DRG+6

LOCAL

PARSE+1~, PARSE+25*, CHKLOCAL+7*

NAME

ORD~, ORD+1*, CPRS+13*, CPRS+14, CPRS+15, DRG+5, DRG+6

NDF

REMOTE+9~

NEWDC

PARSE+1~, PARSE+29*, PARSE+30

NEWEXP

PARSE+1~, PARSE+23*, PARSE+24

NEWISS

PARSE+1~, PARSE+20*