Routine: PSOTPCUL

Information

PSOTPCUL ;BIR/RTR-Utility Routine for TBP Project ;08/09/03

Source file <PSOTPCUL.m>

Package	Total	Call Graph
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSO160P1 PSO160P2 PSOTPINA PSOTPRP1
Order Entry Results Reporting	1	ORPRPM

Name	Comments	DBIA/ICR reference
ACTRX(DFN,TPB)	; Checks if Patient has at least one Active Rx on File ; Input: DFN: Patient IEN (#2) ; TPB: 0 - Looks for active VA prescriptions only (Default) ; 1 - Looks for active TPB prescriptions only ; 2 - Looks for active VA or TPB prescriptions
ACTIVE(RX)	; Checks if Rx is Active or not
TPBSC(LOC)	; Checks if Location Stop Code is from TPB Clinic
SXMY(GRP)	; Set XMY array with users from Mail Group GRP
EN(PSOTRXN)	;CPRS call to determine if an RX is a TPB Rx	ICR #4195 Status: Active Usage: Private

Name	Field # of Occurrence
$$GET1^DIQ	SXMY+5

FileNo	Call Tags
^XMB(3.8 - [#3.8]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	TPBSC+5, TPBSC+6
^PS(55 - [#55]	ACTRX+10, ACTRX+11
^PSRX - [#52]	EN+4, ACTRX+11, ACTIVE+2, ACTIVE+3
^SC - [#44]	TPBSC+4
^XMB(3.8 - [#3.8]	SXMY+4, SXMY+7

Name	Line Occurrences
$$ACTIVE	ACTRX+12

Name	Field # of Occurrence
ACTRX	ACTRX+7~, ACTRX+9, ACTRX+10, ACTRX+13, ACTRX+14, ACTRX+15, ACTRX+17
C1	TPBSC+2~, TPBSC+5, TPBSC+7, TPBSC+8
C2	TPBSC+2~, TPBSC+6, TPBSC+7, TPBSC+8
CDRIEN	SXMY+1~, SXMY+5*, SXMY+6
CODE	TPBSC+2~
CODE(	TPBSC+3*, TPBSC+8
DFN	ACTRX~, ACTRX+8, ACTRX+10, ACTRX+11
DT	ACTIVE+3
EXPDT	ACTRX+7~, ACTIVE+1~, ACTIVE+3*
GRP	SXMY~, SXMY+3, SXMY+4
GRPIEN	SXMY+1~, SXMY+4*, SXMY+5, SXMY+7
I	TPBSC+2~, TPBSC+3*
J	TPBSC+2~, TPBSC+3*
LOC	TPBSC~, TPBSC+4
MBRIEN	SXMY+1~, SXMY+6, SXMY+7, SXMY+8
PSOTRXN	EN~, EN+3, EN+4
RX	ACTRX+11*, ACTRX+12, ACTIVE~, ACTIVE+2, ACTIVE+3
RXSTS	ACTIVE+1~, ACTIVE+2*
SEQ	ACTRX+7~, ACTRX+9, ACTRX+10, ACTRX+11
TPB	ACTRX~, ACTRX+9*, ACTRX+13, ACTRX+14, ACTRX+15
TPBRX	ACTRX+11*, ACTRX+14, ACTRX+15, ACTIVE+1~
U	TPBSC+5, TPBSC+6
XMY	SXMY+6!
XMY(	SXMY+6, SXMY+8
Z0	TPBSC+2~, TPBSC+4*, TPBSC+5, TPBSC+6