Routine: PSOPXRM1

Information

PSOPXRM1 ;BHAM ISC/MR - Returns Patient's Prescrition info ;22-Oct-2012 09:43;DU

Source file <PSOPXRM1.m>

Package	Total	Call Graph
VA Fileman	1	$$EXTERNAL^DILFD

Package	Total	Caller Graph
Clinical Reminders	2	PXRMDNVA PXRMDOUT
Order Entry Results Reporting	1	ORWGAPIC

Name	Comments	DBIA/ICR reference
END
NVA(DAS,DATA)	;Return data on non-VA meds.	ICR #3793 Status: Active Usage: Controlled Subscription
REFL	; - Retrieve Refill fields
PSRX(DAS,RXAR)	; Returns Rx Information ; Input: DAS - String containing the ^PSRX location where the data ; is located, separated by ";" (semi-colon). ; Example: "329832;1;1;0" -> ^PSRX(329832,1,1,0)	ICR #3793 Status: Active Usage: Controlled Subscription
PRTL	; - Retrieve Partial fields
ORIG	; - Retrieve Original fields

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	NVA+9
^PS(50.7 - [#50.7]	NVA+5
^PS(55 - [#55]	NVA+4
^PSRX - [#52]	PSRX+16, ORIG+1, REFL+1, PRTL+1

Name	Field # of Occurrence
DA	PSRX+7~, PSRX+13*, PSRX+16, ORIG+1, REFL+1, PRTL+1
DAS	NVA~, NVA+2, PSRX~, PSRX+10
DATA	NVA~
DATA("CLINIC"	NVA+21*
DATA("DISCONT	INUED DATE" , NVA+16*
DATA("DISPENS	E DRUG" , NVA+10*
DATA("DOCUMEN	TED BY" , NVA+20, TED DATE" , NVA+19
DATA("DOSAGE	FORM" , NVA+9*
DATA("DOSAGE"	NVA+11*
DATA("MEDICAT	ION ROUTE" , NVA+12*
DATA("ORDER N	UMBER" , NVA+17*
DATA("ORDERAB	LE ITEM" , NVA+7*
DATA("SCHEDULE"	NVA+13*
DATA("START D	ATE" , NVA+18*
DATA("STATUS"	NVA+15*
EM	NVA+1~, NVA+15
I	PSRX+7~, PSRX+10*
IND1	NVA+1~, NVA+2*, NVA+4
IND2	NVA+1~, NVA+2*, NVA+4
IND3	NVA+1~, NVA+2*, NVA+4
IND4	NVA+1~, NVA+2*, NVA+4
PT0	PRTL+1~*, PRTL+2, PRTL+3, PRTL+4
RF0	REFL+1~*, REFL+2, REFL+3, REFL+4
RX0	ORIG+1~*, ORIG+2, ORIG+7
RX2	ORIG+1~*, ORIG+3, ORIG+4, ORIG+6
RXAR	PSRX~, PSRX+13!
RXAR("DAYS SU	PPLY" , ORIG+2, REFL+2, PRTL+2*
RXAR("FILL DA	TE" , ORIG+6*
RXAR("PHARMACIST"	ORIG+3, REFL+3, PRTL+3*
RXAR("REFILLS"	ORIG+7*
RXAR("RELEASE	D DATE/TIME" , ORIG+4, REFL+4, PRTL+4*
RXAR("STATUS"	PSRX+16*
SB1	PSRX+7~, PSRX+13
SB2	PSRX+7~, PSRX+13
SB3	PSRX+7~, PSRX+13, REFL+1, PRTL+1
TEMP	NVA+1~, NVA+4*, NVA+5, NVA+10, NVA+11, NVA+12, NVA+13, NVA+14, NVA+16, NVA+17 , NVA+18, NVA+19, NVA+20, NVA+21
TEMP1	NVA+1~, NVA+5, NVA+7, NVA+9, NVA+14, NVA+15
U	NVA+5, NVA+7, NVA+9, NVA+10, NVA+11, NVA+12, NVA+13, NVA+14, NVA+16, NVA+17 , NVA+18, NVA+19, NVA+20, NVA+21