Routine: PSOORRDI

Package	Total	Call Graph
National Drug File	2	DATA^PSN50P68 ($$DCLCODE,$$DDIEX,$$PROD0)^PSNAPIS
Kernel	1	$$DT^XLFDT
Order Entry Results Reporting	1	($$GET,$$HAVEHDR,GET,HAVEHDR)^ORRDI1
Toolkit	1	GETIREF^XTID
VA Fileman	1	C^%DTC

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSOCPDUP PSOORDRG PSOVER1

Name	Comments	DBIA/ICR reference
VAPROD(PSOPROD)	; GET VA PRODUCT FILE NAME AND DRUG CLASS
CHKEXP	;
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
PARSE	; PULL INFORMATION FROM ^XTMP
GETPROD	;
REMOTE(PSODFN,DREN)	; ; Input: DFN: PATIENT file (#2) IEN ; : DREN: DRUG file (#50) IEN of order being checked
SETRDI	;
DRGNAME	;

Name	Field # of Occurrence
C^%DTC	PARSE+21, PARSE+27
$$GET^ORRDI1	REMOTE+9
$$HAVEHDR^ORRDI1	REMOTE+4
GET^ORRDI1	REMOTE+9
HAVEHDR^ORRDI1	REMOTE+3
DATA^PSN50P68	REMOTE+44
$$DCLCODE^PSNAPIS	VAPROD+1
$$DDIEX^PSNAPIS	REMOTE+51, REMOTE+52
$$PROD0^PSNAPIS	VAPROD+2
$$DT^XLFDT	REMOTE+7
GETIREF^XTID	GETPROD+6

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.416 - [#50.416]	REMOTE+61
^PS(50.605 - [#50.605]	REMOTE+37, REMOTE+39
^PS(56 - [#56]	REMOTE+50, REMOTE+53, REMOTE+55, REMOTE+60, REMOTE+61
^PSDRUG - [#50]	DRGNAME+2, DRGNAME+4
^PSRX - [#52]	CHKLOCAL+5
^PSRX("B"	CHKLOCAL+2, CHKLOCAL+4
^TMP($J	REMOTE+12!, REMOTE+14, REMOTE+16, REMOTE+32, REMOTE+33, REMOTE+34, REMOTE+38, REMOTE+39, REMOTE+40, REMOTE+41* , REMOTE+43!, REMOTE+45, REMOTE+48!, REMOTE+59, REMOTE+60, REMOTE+61, REMOTE+62, REMOTE+63, REMOTE+64, REMOTE+65! , PARSE+31, PARSE+32*, FILTER+3, FILTER+4, FILTER+8!, FILTER+9!, CHKEXP+2!, CHKEXP+7!
^XTMP("ORRDI"	REMOTE+5, REMOTE+11, PARSE+2, PARSE+3, PARSE+5, PARSE+6, PARSE+7, PARSE+9, PARSE+10, PARSE+12 , PARSE+13, PARSE+23, PARSE+28, PARSE+29, PARSE+30

Name	Line Occurrences
CHKEXP	FILTER+7, FILTER+10
CHKLOCAL	PARSE+22
DRGNAME	REMOTE+15
FILTER	REMOTE+13
GETPROD	REMOTE+31
PARSE	REMOTE+13
SETRDI	FILTER+8, FILTER+11, CHKEXP+7
VAPROD	DRGNAME+6, GETPROD+8, GETPROD+9

Name	Field # of Occurrence
^(	REMOTE+16, PARSE+30
^("ND"	DRGNAME+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BADEXP	PARSE+1~, PARSE+14, PARSE+17
>> DC	REMOTE+38*, REMOTE+39, REMOTE+40, REMOTE+41
>> DD	REMOTE+32*, REMOTE+33, REMOTE+34
DIC	GETPROD+5~
DREN	REMOTE~, DRGNAME+2
DRNM	REMOTE+6~, REMOTE+30, REMOTE+32, REMOTE+35, REMOTE+39, REMOTE+60, VAPROD+2, DRGNAME+6, GETPROD+2*, GETPROD+7
DT	REMOTE+7*, REMOTE+53, PARSE+16, PARSE+17, PARSE+19, PARSE+21, PARSE+25, PARSE+27, CHKEXP+3, CHKEXP+5
IT	REMOTE+6~, REMOTE+49, REMOTE+50, REMOTE+53, REMOTE+54, REMOTE+55, REMOTE+58*, REMOTE+60, REMOTE+61
LOCAL	PARSE+1~, PARSE+22, CHKLOCAL+7
NDF	REMOTE+6~, REMOTE+45, REMOTE+46, REMOTE+47, REMOTE+50, REMOTE+51
NEWDC	PARSE+1~, PARSE+26*, PARSE+27
NEWEXP	PARSE+1~, PARSE+20*, PARSE+21
NEWISS	PARSE+1~, PARSE+17*
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
PSO30	PARSE+1~, PARSE+18, PARSE+19, PARSE+21, PARSE+24, PARSE+25, PARSE+27
PSOCLASS	REMOTE+6~, REMOTE+35, REMOTE+36, VAPROD+1, GETPROD+2, GETPROD+7
PSODC	REMOTE+6~, REMOTE+37, REMOTE+39
PSODFN	REMOTE~, REMOTE+9, REMOTE+11, REMOTE+64, PARSE+2, PARSE+3, PARSE+5, PARSE+6, PARSE+7, PARSE+9 , PARSE+10, PARSE+12, PARSE+13, PARSE+23, PARSE+28, PARSE+29, PARSE+30
>> PSODRUG("IEN"	REMOTE+32, DRGNAME+3*
>> PSODRUG("NAME"	REMOTE+30, REMOTE+32, REMOTE+35, DRGNAME+6*
>> PSODRUG("NDF"	REMOTE+50, REMOTE+52, DRGNAME+4*, DRGNAME+5, DRGNAME+6
>> PSODRUG("VA C	LASS" , REMOTE+35, REMOTE+36, REMOTE+37, REMOTE+38, DRGNAME+3*
PSOFILE	REMOTE+6~, GETPROD+1*, GETPROD+6, GETPROD+7, GETPROD+8, GETPROD+9
PSOICT	REMOTE+6~, REMOTE+49, REMOTE+54, REMOTE+55*, REMOTE+57, REMOTE+58
PSOISS	CHKLOCAL+1~, CHKLOCAL+5, CHKLOCAL+6, CHKLOCAL+7
>> PSOPHI	REMOTE+32
PSOPR	GETPROD+3~, GETPROD+7*, GETPROD+8, GETPROD+9
PSOPRE	PARSE+1~, PARSE+16, PARSE+17, PARSE+19, PARSE+20, PARSE+25, PARSE+26, CHKEXP+1~, CHKEXP+3, CHKEXP+4 , CHKEXP+5*, CHKEXP+6
PSOPROD	REMOTE+6~, REMOTE+44, REMOTE+45, REMOTE+47, VAPROD~, VAPROD+1, VAPROD+2, DRGNAME+6, GETPROD+2, GETPROD+8* , GETPROD+9*
PSOPRODA	REMOTE+6~, GETPROD+4!, GETPROD+6
PSOPRODA(	GETPROD+7, GETPROD+8, GETPROD+9
PSORDI	REMOTE+6~, REMOTE+8, REMOTE+9, REMOTE+10, REMOTE+16, REMOTE+34, REMOTE+41, REMOTE+63, PARSE+1~, PARSE+2 , PARSE+3, PARSE+5, PARSE+6, PARSE+7, PARSE+9, PARSE+10, PARSE+12, PARSE+13, PARSE+23, PARSE+28 , PARSE+29, PARSE+30, PARSE+31, PARSE+32, FILTER+1~, FILTER+2, FILTER+3, FILTER+4, FILTER+9, CHKEXP+2 , SETRDI+1
PSORX	CHKLOCAL+3~, CHKLOCAL+4*, CHKLOCAL+5
PSOSIG	REMOTE+6~, PARSE+30, PARSE+32
PSOSIG(	PARSE+30*, PARSE+32
PSOY	DRGNAME+1~, DRGNAME+2*, DRGNAME+3, DRGNAME+4
PSOY(0	DRGNAME+2*, DRGNAME+3
RDI	FILTER+1~
RDI(	FILTER+5, SETRDI+1*
RDIDAYS	REMOTE+6~, REMOTE+24, REMOTE+33, REMOTE+40, REMOTE+62, PARSE+10, PARSE+11*, PARSE+27, PARSE+31
RDIDI	REMOTE+6~, REMOTE+59, REMOTE+60, REMOTE+61, REMOTE+62, REMOTE+63, REMOTE+64
RDIDNAM	REMOTE+6~, REMOTE+20, REMOTE+33, REMOTE+40, REMOTE+62, PARSE+6, PARSE+31
RDIEXP	REMOTE+6~, REMOTE+27, REMOTE+33, REMOTE+40, REMOTE+62, PARSE+12, PARSE+14, PARSE+17, PARSE+19, PARSE+20 , PARSE+31, FILTER+1~, FILTER+4, CHKEXP+3, CHKEXP+4, SETRDI+1
RDIEXP2	FILTER+1~, CHKEXP+2, CHKEXP+4*
RDIFILL	REMOTE+6~, REMOTE+23, REMOTE+33, REMOTE+40, REMOTE+62, PARSE+23, PARSE+25, PARSE+26, PARSE+31
RDIINST	REMOTE+6~, REMOTE+17, REMOTE+32, REMOTE+39, REMOTE+61, PARSE+5, PARSE+31, FILTER+4*, FILTER+5, SETRDI+1
RDIISS	REMOTE+6~, REMOTE+29, REMOTE+33, REMOTE+40, REMOTE+62, PARSE+13, PARSE+15, PARSE+16, PARSE+17, PARSE+31 , CHKLOCAL+7
RDIPHYS	REMOTE+6~, REMOTE+28, REMOTE+33, REMOTE+40, REMOTE+62, PARSE+29, PARSE+31
RDIQTY	REMOTE+6~, REMOTE+25, REMOTE+33, REMOTE+40, REMOTE+62, PARSE+10, PARSE+31
RDIREF	REMOTE+6~, REMOTE+26, REMOTE+33, REMOTE+40, REMOTE+62, PARSE+28, PARSE+31
RDIRX	REMOTE+6~, REMOTE+22, REMOTE+32, REMOTE+39, REMOTE+61, PARSE+9, PARSE+22, PARSE+31, CHKLOCAL+2, CHKLOCAL+4
RDISIG	REMOTE+6~
RDISTA	REMOTE+6~, REMOTE+21, REMOTE+33, REMOTE+40, REMOTE+62, PARSE+3, PARSE+4, PARSE+18, PARSE+24, PARSE+31 , FILTER+1~, FILTER+4*, FILTER+6, SETRDI+1
RDITMP	REMOTE+6~, REMOTE+16*, REMOTE+17, REMOTE+18, REMOTE+20, REMOTE+21, REMOTE+22, REMOTE+23, REMOTE+24, REMOTE+25 , REMOTE+26, REMOTE+27, REMOTE+28, REMOTE+29
RDIVUID	REMOTE+6~, REMOTE+18, REMOTE+19, REMOTE+39, REMOTE+60, PARSE+7, PARSE+8, PARSE+31, FILTER+4*, FILTER+5 , SETRDI+1, GETPROD+6
>> X	PARSE+21, PARSE+27
>> X1	PARSE+21, PARSE+27
>> X2	PARSE+21, PARSE+27
XX	FILTER+1~, FILTER+4*
ZZ	FILTER+1~, FILTER+5*, FILTER+7, FILTER+8, FILTER+9, CHKEXP+2, CHKEXP+7

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOORRDI

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items