Routine: PSOPMP1

Information

PSOPMP1 ;BIRM/MFR - Patient Medication Profile - Listmanager ;04/28/05

Package	Total	Call Graph
Outpatient Pharmacy	6	$$LSTRFL^PSOBPSU1 $$RXFLDT^PSOBPSUT RE^PSODEM $$SCHED^PSONVNEW ALLERGY^PSOORUT2 FSIG^PSOUTLA
Kernel	2	$$FMTE^XLFDT $$UP^XLFSTR
List Manager	2	($$SETSTR,INSTR)^VALM1 CNTRL^VALM10
VA FileMan	2	$$GET1^DIQ ^DIWP
Adverse Reaction Tracking	1	EN1^GMRADPT
CMOP	1	^PSXOPUTL
Registration	1	(,ADD)^VADPT

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

Caller Graph Total: 6

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSOERPT0 PSOERRX0 PSOMPHRC PSONVAVW PSOPMP0
E Claims Management Engine	1	BPSVRX3

Entry Points

Name	Comments	DBIA/ICR reference
VIDEO()	; - Changes the Video Attributes for the list
RV	;reverse video for flagged pending orders
SETHDR()	; - Displays the Header Line
SETSIG(TYPE,RX,LINE,DFN)	; Set the SIG line
GROUP(LBL,CNT,LINE)	; Sets a group delimiter line
PENHDR(DFN)	; Sets the Header in the ^TMP("PSOHDR",$J) global for displaying individual Pending Order
FILTER(RX)	; - Filter Rx's that should not be displayed
STSINFO(RX)	; Returns the Rx Status MNEMONIC^NAME ; Input: RX - Prescription IEN (#52)
ISSDT(IEN,TYPE)	; Returns the Rx ISSUE DATE formatted MM-DD-YY
LSTFD(RX)	; Returns the Rx LAST FILL DATE formatted MM-DD-YY[R], where [R] = Returned to Stock
REFREM(RX)	; - Returns the number of refills remaining
DAT(FMDT,SEP,Y4)	; - Formats FM dates to MM/DD/YY (SEP: Separator:"/","-",etc...)
COPAY(RX)	; Returns "$" is Rx has a copay and "" if not
CMOP(DRUG,RX)	; Returns the CMOP indicator (">", "T", etc)
ALLERGY(LINE,DFN,POS)	; also called from PSONVAVW & PSOPMP0 ; Input: LINE - (r) text to concatenate allergy information to ; DFN - (r) patient IEN used for ^GMRADTP ; POS - (o) position # to include text

External References

Name	Field # of Occurrence
$$GET1^DIQ	SETSIG+5, FILTER+1, FILTER+2, FILTER+3, FILTER+4, STSINFO+6, STSINFO+7, ISSDT+4, ISSDT+5, LSTFD+3 , LSTFD+5, LSTFD+8, REFREM+2
^DIWP	SETSIG+5
EN1^GMRADPT	PENHDR+8, ALLERGY+7
$$LSTRFL^PSOBPSU1	LSTFD+4
$$RXFLDT^PSOBPSUT	LSTFD+7
RE^PSODEM	PENHDR+5
$$SCHED^PSONVNEW	SETSIG+5
ALLERGY^PSOORUT2	ALLERGY+9
FSIG^PSOUTLA	SETSIG+10
^PSXOPUTL	CMOP+3
^VADPT	PENHDR+2
ADD^VADPT	PENHDR+2
$$SETSTR^VALM1	ALLERGY+12
INSTR^VALM1	SETHDR+5, SETHDR+9, SETHDR+12
CNTRL^VALM10	VIDEO+5, VIDEO+11, VIDEO+12, VIDEO+13, RV+3
$$FMTE^XLFDT	DAT+5
$$UP^XLFSTR	DAT+5

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
52.1	GET1^DIQ
^PS(52.41 - [#52.41]	GET1^DIQ
55.05	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG("AQ"	CMOP+2
^PSRX - [#52]	STSINFO+5, LSTFD+6, REFREM+3, COPAY+1
^TMP("PSOHDR"	PENHDR+2!, PENHDR+3, PENHDR+4, PENHDR+6, PENHDR+7, PENHDR+8*
^TMP("PSOPMP0"	RV+2, RV+3, SETSIG+8, SETSIG+13, GROUP+5*
^UTILITY($J	SETSIG+4!, SETSIG+6, SETSIG+7

Label References

Name	Line Occurrences
$$DAT	ISSDT+8, LSTFD+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALLERGY	ALLERGY+5~, ALLERGY+6, ALLERGY+8, ALLERGY+9, ALLERGY+10, ALLERGY+11, ALLERGY+12
CMOP	CMOP+1~, CMOP+2, CMOP+3, CMOP+4
CNT	GROUP~, GROUP+2
DA	CMOP+1~, CMOP+3*
DFN	SETSIG~, SETSIG+5, PENHDR~, ALLERGY~
DIWL	SETSIG+1~, SETSIG+5*
DIWR	SETSIG+1~, SETSIG+5*
DRUG	CMOP~, CMOP+2
DT	STSINFO+7
FMDT	DAT~, DAT+4, DAT+5, DAT+6
FSIG	SETSIG+1~
FSIG(	SETSIG+11, SETSIG+12
GMRA	PENHDR+1~, PENHDR+8*
>> GMRAL	PENHDR+8, ALLERGY+8
>> GRPLN	VIDEO+8
>> GRPLN(	VIDEO+9, VIDEO+10, GROUP+5*
HDR	SETHDR+1~, SETHDR+4, SETHDR+5, SETHDR+7, SETHDR+8, SETHDR+9*
>> HIGHLN(	VIDEO+5
HT	PENHDR+1~, PENHDR+7!
>> I	VIDEO+4, VIDEO+5, VIDEO+9
IEN	ISSDT~, ISSDT+4, ISSDT+5
>> IOINHI	VIDEO+5, VIDEO+11, VIDEO+12, VIDEO+13, SETHDR+12
>> IOINORM	VIDEO+5, VIDEO+11, VIDEO+12, VIDEO+13, SETHDR+5, SETHDR+9, SETHDR+12, ALLERGY+10
>> IORVOFF	VIDEO+12, RV+3, ALLERGY+10
>> IORVON	VIDEO+12, RV+3, SETHDR+5, SETHDR+9, SETHDR+12, ALLERGY+10
>> IOUON	VIDEO+11, VIDEO+13
ISSDT	ISSDT+3~, ISSDT+4, ISSDT+5, ISSDT+6*, ISSDT+8
L	SETSIG+1~, SETSIG+6, SETSIG+7, SETSIG+11, SETSIG+12
LBL	VIDEO+10, VIDEO+12, VIDEO+13, GROUP~, GROUP+2, GROUP+3, GROUP+4, GROUP+5
LINE	VIDEO+4, SETSIG~, SETSIG+8, SETSIG+13, GROUP~, GROUP+5, ALLERGY~, ALLERGY+12, ALLERGY+13
>> LN	VIDEO+9*, VIDEO+10, VIDEO+11, VIDEO+12, VIDEO+13
LSTFD	LSTFD+2~, LSTFD+3*, LSTFD+7, LSTFD+10
ORD	SETHDR+1~, SETHDR+10*, SETHDR+12
>> POERR	PENHDR+5*
POS	VIDEO+10, VIDEO+11, VIDEO+12, VIDEO+13, SETHDR+1~, SETHDR+11, SETHDR+12, GROUP+1~, GROUP+3, GROUP+4 , ALLERGY~, ALLERGY+11, ALLERGY+12
PSLIST	RV+1~*, RV+2, RV+3
PSOERR	PENHDR+1~, PENHDR+5!
>> PSOEXPDC	FILTER+1, FILTER+2
>> PSOHD	PENHDR+7*
PSONOAL	ALLERGY+5~, ALLERGY+6*, ALLERGY+9
>> PSORDCNT	GROUP+2
>> PSORDER	SETHDR+10
>> PSOSIGDP	VIDEO+3
>> PSOSRTBY	SETHDR+11
>> PSOSTSEQ("A"	STSINFO+7
>> PSOSTSEQ("DC"	STSINFO+12
>> PSOSTSEQ("DE"	STSINFO+14
>> PSOSTSEQ("DP"	STSINFO+13
>> PSOSTSEQ("E"	STSINFO+7, STSINFO+11
>> PSOSTSEQ("H"	STSINFO+9
>> PSOSTSEQ("N"	STSINFO+8
>> PSOSTSEQ("PH"	STSINFO+15
>> PSOSTSEQ("S"	STSINFO+10
PSXZ	CMOP+1~
PSXZ(	CMOP+3
PSXZ("L"	CMOP+3
REFREM	REFREM+1~, REFREM+2, REFREM+3, REFREM+4
RFL	LSTFD+2~, LSTFD+6, LSTFD+7, LSTFD+8, REFREM+1~, REFREM+2, REFREM+3*
RTSTK	LSTFD+2~, LSTFD+5, LSTFD+8, LSTFD+10
RX	SETSIG~, SETSIG+5, SETSIG+10, FILTER~, FILTER+1, FILTER+2, FILTER+3, FILTER+4, STSINFO~, STSINFO+5 , STSINFO+6, STSINFO+7, LSTFD~, LSTFD+3, LSTFD+4, LSTFD+5, LSTFD+6, LSTFD+7, LSTFD+8, REFREM~ , REFREM+2, REFREM+3, COPAY~, COPAY+1, CMOP~, CMOP+3
SEP	DAT~, DAT+6
STS	STSINFO+4~, STSINFO+6*, STSINFO+7, STSINFO+8, STSINFO+9, STSINFO+10, STSINFO+11, STSINFO+12, STSINFO+13, STSINFO+14 , STSINFO+15
TYPE	SETSIG~, SETSIG+3, SETSIG+10, ISSDT~, ISSDT+4, ISSDT+5
VADM	PENHDR+1~
VADM(1	PENHDR+3
VADM(2	PENHDR+3
VADM(3	PENHDR+4
VADM(4	PENHDR+4
VADM(5	PENHDR+4
>> VALMCNT	RV+1
VM	PENHDR+7!
WT	PENHDR+1~, PENHDR+6, PENHDR+7!
X	SETSIG+1~, SETSIG+5, SETSIG+7, SETSIG+8, SETSIG+12, SETSIG+13, GROUP+1~, GROUP+4, GROUP+5, CMOP+1~
Y4	DAT~, DAT+6

Customize PDF page

Package: Outpatient Pharmacy