Routine: PSOREJP0

Package	Total	Call Graph
Outpatient Pharmacy	4	($$RXSITE,$$STATUS)^PSOBPSUT ($$CLOSED,$$ELIGDISP,$$EXP,$$REOPN,$$TRIC,EN)^PSOREJP1 SEL^PSOREJU1 GET^PSOREJU2
Kernel	3	(,HOME)^%ZIS ^%ZISC $$FMTE^XLFDT
List Manager	3	EN^VALM (FULL,INSTR)^VALM1 (CNTRL,RESTORE,SAVE)^VALM10
VA FileMan	2	$$GET1^DIQ ^DIR
E Claims Management Engine	1	^BPSVRX
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	15	PSO REJECTS CHAMPVA ON/OFF PSO REJECTS DRUG SORT PSO REJECTS GROUP BY INSURANCE PSO REJECTS MENU PSO REJECTS PATIENT SORT PSO REJECTS PRINT TO EXCEL PSO REJECTS REASON SORT PSO REJECTS REFRESH PSO REJECTS RX SORT PSO REJECTS SELECT PSO REJECTS TRICARE ON/OFF PSO REJECTS VIEW ECME RX PSO REJECTS VIEW/PROCESS PSO REJECTS WORKLIST PSOREJP2
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
LST(PSOMENU)	; - Invokes Listmanager
HDR	; - Header code
SETHDR()	; - Displays the Header Line
INIT	; - Populates the Body section for ListMan
SETLINE	; - Sets the line to be displayed in ListMan
GROUP(LBL,LINE)	; Sets an insurance delimiter line
SETSORT(FIELD)	; - Sets the data sorted by the FIELD specified
SETTMP(RX,REJ,FIELD)	; - Sets ^TMP global that will be displayed in the body section
PAT	; - Sort by Patient
DRG	; - Sort by Drug
RX	; - Sort by Rx
REA	; - Sort by Reason
SORT(FIELD)	; - Sort entries by FIELD
REF	; - Screen Refresh
GI	; - Group by Insurance
TRICTOG	; - Toggle TRICARE display
CVATOG	; - Toggle CHAMPVA display
SEL	; - Process selection of one entry
EXIT	;
HELP
SITES()	; - Returns the list of sites along with their NCPDP #s
DIV(RX,FILL)	; - Check if the Division for the Prescription/Fill was selected by the user
PTNAME(RX)	; - Returns header displayable - Patient Name (Last 4 SSN)
FILTER(RX,INS)	; - Filter entries based on user's selection
FLTSTS(RX,REJ)	; - Filter for the Reject Status
FLTRC(RX,REJ)	; - Filter for user selected Reject Codes
NAME(TYPE)	; - Returns the name if ONE was selected or "MULTIPLE ..."
ENDT()	; Returns the upper limit for the date range
VER	;Do VER Hidden Action in Rejects Worklist
PRTEXCL	; ; Protocol to Print to Excel
PEXIT	; ; Reset before going back to ListMan
RUN	;

External References

Name	Field # of Occurrence
^%ZIS	PRTEXCL+26
HOME^%ZIS	PRTEXCL+31
^%ZISC	RUN+29
^BPSVRX	VER+3
$$GET1^DIQ	PSOREJP0+8, SETTMP+3, SETTMP+12, SETTMP+13, SITES+5, PTNAME+2, FILTER+3, FILTER+4, FLTSTS+2, FLTRC+2 , NAME+3, NAME+4, NAME+6, NAME+8, NAME+9, RUN+12, RUN+14, RUN+15
^DIR	PRTEXCL+10, RUN+27
$$RXSITE^PSOBPSUT	DIV+3
$$STATUS^PSOBPSUT	SETTMP+16
$$CLOSED^PSOREJP1	SETTMP+2
$$ELIGDISP^PSOREJP1	SETTMP+26
$$EXP^PSOREJP1	SETTMP+19, RUN+18
$$REOPN^PSOREJP1	SETTMP+2
$$TRIC^PSOREJP1	SETTMP+8
EN^PSOREJP1	SEL+5
SEL^PSOREJU1	PSOREJP0+8
GET^PSOREJU2	SETTMP+5, RUN+16
DEM^VADPT	PTNAME+2
EN^VALM	LST+2, LST+3
FULL^VALM1	LST+4, VER+2, PRTEXCL+4
INSTR^VALM1	SETHDR+4, SETHDR+7
CNTRL^VALM10	SETLINE+31, SETLINE+32, SETLINE+33, SETLINE+36, SETLINE+37, SETLINE+38
RESTORE^VALM10	SETLINE+7
SAVE^VALM10	SETLINE+25
$$FMTE^XLFDT	HDR+14, HDR+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Please wait..." Line Location: LST+1
Function Call: WRITE	Prompt: ?52,"Please wait..." Line Location: REF+1
Function Call: WRITE	Prompt: ?52,"Please wait..." Line Location: GI+1
Function Call: WRITE	Prompt: ?52,"Please wait..." Line Location: TRICTOG+1
Function Call: WRITE	Prompt: ?52,"Please wait..." Line Location: CVATOG+1
Function Call: WRITE	Prompt: !!?5,"Before continuing, please set up your terminal to capture the" Line Location: PRTEXCL+14
Function Call: WRITE	Prompt: !?5,"detail report data. On some terminals, this can be done by" Line Location: PRTEXCL+15
Function Call: WRITE	Prompt: !?5,"clicking on the 'Tools' menu above, then click on 'Capture" Line Location: PRTEXCL+16
Function Call: WRITE	Prompt: !?5,"Incoming Data' to save to Desktop" Line Location: PRTEXCL+17
Function Call: WRITE	Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the" Line Location: PRTEXCL+18
Function Call: WRITE	Prompt: !?10,"file, please enter '0;256;999' at the 'DEVICE:' prompt." Line Location: PRTEXCL+19
Function Call: WRITE	Prompt: !,"Sorry, the output for this action cannot be queued. Please select a device that" Line Location: PRTEXCL+32
Function Call: WRITE	Prompt: !,"does not requiring queuing." Line Location: PRTEXCL+33
Function Call: WRITE	Prompt: !,"Section/Insurance^RX#^Patient(ID)^Drug^Reason^Payer Message" Line Location: RUN+4
Function Call: WRITE	Prompt: RXNUM_U_PTNAME_U_DRNAME_U_REASON_U_MSG Line Location: RUN+20
Function Call: WRITE	Prompt: !,@IOF Line Location: RUN+23
Routine Call	%ZIS Line Location: PRTEXCL+26
Routine Call	%ZIS Line Location: PRTEXCL+31
Routine Call	DIR Line Location: PRTEXCL+10 RUN+27
Routine Call	VALM Line Location: LST+2 LST+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
52.25	GET1^DIQ
^PS(59 - [#59]	GET1^DIQ
^BPSF(9002313.93 - [#9002313.93]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BPSF(9002313.93 - [#9002313.93]	FLTRC+3
^PSRX - [#52]	SETSORT+13
^PSRX("REJDAT"	SETSORT+17, SETSORT+18, SETSORT+20
^PSRX("REJSTS"	SETSORT+6, SETSORT+7
^TMP("PSOREJP0"	INIT+1!, SETLINE+3, SETLINE+4, SETLINE+10!, SETLINE+19, SETLINE+21, SETLINE+22, GROUP+4, SEL+3, EXIT+1!
^TMP("PSOREJSR"	SETLINE+2, SETLINE+11, SETLINE+12, SETLINE+15, SETLINE+16, SETSORT+2!, SETTMP+30*, EXIT+1!, RUN+7, RUN+8 , RUN+9, RUN+11

Label References

Name	Line Occurrences
$$DIV	SETTMP+4
$$ENDT	SETSORT+17
$$FILTER	SETSORT+19, SETTMP+6
$$FLTRC	SETSORT+22
$$FLTSTS	SETSORT+14, SETSORT+21
$$NAME	HDR+5, HDR+6, HDR+7, HDR+8, HDR+12
$$PTNAME	SETTMP+11, RUN+13
$$SITES	HDR+2
EXIT	PSOREJP0+8, PSOREJP0+15
GROUP	SETLINE+14
HDR	GI+1, TRICTOG+1, CVATOG+1
INIT	REF+1, GI+1, TRICTOG+1, CVATOG+1
LST	PSOREJP0+14
PEXIT	PRTEXCL+11, PRTEXCL+34
REF	SORT+3, SEL+5
RUN	PRTEXCL+37
SETHDR	HDR+18
SETLINE	INIT+2
SETSORT	INIT+2
SETTMP	SETSORT+8, SETSORT+15, SETSORT+23
SORT	PAT+1, DRG+1, RX+1, REA+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PRTEXCL+22~, PRTEXCL+25*
BPSVRX	VER+1~
CNT	SITES+1~, NAME+1~
CODE	SETTMP+1~, SETTMP+7, SETTMP+9, SETTMP+10, SETTMP+18, SETTMP+19, SETTMP+26, SETTMP+27, RUN+1~, RUN+17 , RUN+18
DAT	SETSORT+1~, SETSORT+16, SETSORT+17, SETSORT+18, SETSORT+20
DFN	PTNAME+1~, PTNAME+2*
DIR	PRTEXCL+7~, RUN+25~
DIR("A"	PRTEXCL+9*
DIR("B"	PRTEXCL+9*
DIR(0	PRTEXCL+8, RUN+26
DIROUT	PRTEXCL+7~, RUN+25~
DIRUT	PRTEXCL+7~, RUN+25~
DRNAME	SETTMP+1~, SETTMP+12, SETTMP+21, SETTMP+22, RUN+1~, RUN+14, RUN+20
DTOUT	PRTEXCL+7~, RUN+25~
DUOUT	PRTEXCL+7~, RUN+25~
ENDT	ENDT+1~, ENDT+2*, ENDT+3, ENDT+4, ENDT+5, ENDT+6
FIELD	SETSORT~, SETSORT+8, SETSORT+15, SETSORT+23, SETTMP~, SETTMP+22, SORT~, SORT+1, SORT+2
FILL	SETTMP+1~, SETTMP+3, SETTMP+4, SETTMP+5, SETTMP+8, SETTMP+16, SETTMP+26, DIV~, DIV+3, RUN+1~ , RUN+12, RUN+16
FILTER	FILTER+1~, FILTER+2*, FILTER+3, FILTER+4, FILTER+5
HDR	SETHDR+1~, SETHDR+3, SETHDR+4
HIGHLN	PSOREJP0+5~, SETLINE+8!
HIGHLN(	SETLINE+19*, SETLINE+30
I	SETLINE+1~, SETLINE+3, SETLINE+7, SETLINE+25*, SETTMP+1~, NAME+1~
INS	SETLINE+1~, SETLINE+10, SETLINE+12, SETLINE+13, SETLINE+14, SETLINE+15, SETLINE+16, SETTMP+1~, SETTMP+23, SETTMP+24 , SETTMP+26, SETTMP+28, SETTMP+29, SETTMP+30, FILTER~, FILTER+5, RUN+1~, RUN+8, RUN+9, RUN+10 , RUN+11
INSLN	PSOREJP0+5~, SETLINE+8!
INSLN(	SETLINE+34, SETLINE+35, GROUP+4*
IO	RUN+2
IO("Q"	PRTEXCL+28, PRTEXCL+29, PRTEXCL+30!
IOF	RUN+23
>> IOINHI	SETHDR+7, SETLINE+31, SETLINE+33, SETLINE+36, SETLINE+37, SETLINE+38
>> IOINORM	SETHDR+4, SETHDR+7, SETLINE+31, SETLINE+32, SETLINE+33, SETLINE+36, SETLINE+37, SETLINE+38
>> IORVOFF	SETLINE+37
>> IORVON	SETHDR+4, SETHDR+7, SETLINE+37
IOST	RUN+23, RUN+24
>> IOUON	SETLINE+32, SETLINE+36, SETLINE+38
LASTLN	PSOREJP0+5~, SETLINE+7, SETLINE+24, SETLINE+25, SETLINE+26*
LBL	SETLINE+35*, SETLINE+37, SETLINE+38, GROUP~, GROUP+2, GROUP+3, GROUP+4
LINE	SETLINE+1~, SETLINE+10, SETLINE+14, SETLINE+19, SETLINE+21, SETLINE+24, SETLINE+25, SETLINE+26, SETLINE+29, SETLINE+40 , GROUP~, GROUP+4
LINE1	HDR+1~, HDR+2*, HDR+10
LINE2	HDR+1~, HDR+4, HDR+5, HDR+6, HDR+7, HDR+8, HDR+9, HDR+10
LINE3	HDR+1~, HDR+12, HDR+14, HDR+15*, HDR+16
>> LN	SETLINE+29*, SETLINE+30, SETLINE+31, SETLINE+32, SETLINE+33, SETLINE+34, SETLINE+35, SETLINE+36, SETLINE+37, SETLINE+38
MSG	SETTMP+1~, SETTMP+14, SETTMP+17, SETTMP+21, RUN+1~, RUN+19*, RUN+20
NAME	SITES+1~, SITES+5*, SITES+6
OK	PRTEXCL+22~, PRTEXCL+23, PRTEXCL+24, PRTEXCL+28
ORD	SETHDR+1~, SETHDR+5*, SETHDR+7
OREJ	SETTMP+1~
POP	PRTEXCL+22~, PRTEXCL+24, PRTEXCL+27, PRTEXCL+34
POS	SETHDR+6, SETHDR+7, SETLINE+35, SETLINE+36, SETLINE+37, SETLINE+38, GROUP+1~, GROUP+2*, GROUP+3
PSOCHNG	SEL+1~, SEL+5*
PSOCOB	SETTMP+1~, SETTMP+15*, SETTMP+16
PSOCVATG	PSOREJP0+5~, PSOREJP0+12, SETTMP+10, CVATOG+1
PSODRFLT	PSOREJP0+4~, PSOREJP0+11*, HDR+6, FILTER+4
PSODRFLT(	FILTER+4, NAME+4
PSODRFLT(""	NAME+4
>> PSODTRNG	HDR+14, HDR+15, SETSORT+16, ENDT+2
PSOEKEY	PSOREJP0+5~
PSOINFLT	PSOREJP0+4~, PSOREJP0+11*, HDR+7, FILTER+5
PSOINFLT(	FILTER+5, NAME+5
PSOINFLT(""	NAME+5
PSOINGRP	PSOREJP0+4~, PSOREJP0+12, HDR+9, SETTMP+24, GI+1
PSOMENU	LST~, LST+2, LST+3, HDR+11, SETHDR+4, SETHDR+7, SETSORT+5, SETSORT+11
PSOPTFLT	PSOREJP0+4~, PSOREJP0+11*, HDR+5, FILTER+3
PSOPTFLT(	FILTER+3, NAME+3
PSOPTFLT(""	NAME+3
PSORCFLT	PSOREJP0+5~, PSOREJP0+11*, HDR+8, SETSORT+22
PSORCFLT(	FLTRC+4, NAME+7
PSORCFLT(""	NAME+7, NAME+8, NAME+9
PSOREJST	PSOREJP0+4~, PSOREJP0+8, SITES+2, SITES+3, DIV+2
PSOREJST(	SITES+4, DIV+3
PSORJASC	PSOREJP0+4~, PSOREJP0+11, SETHDR+5, SETLINE+15, SORT+1, SORT+2*
PSORJSRT	PSOREJP0+4~, PSOREJP0+11, SETHDR+6, INIT+2, SORT+1, SORT+2
PSORXFLT	PSOREJP0+4~, PSOREJP0+11*, HDR+12, SETSORT+12, SETSORT+13, SETSORT+14, SETSORT+15, SETTMP+2, NAME+6
PSOSEL	SEL+1~, SEL+2*, SEL+3
>> PSOSITE	PSOREJP0+8
PSOSTFLT	PSOREJP0+4~, PSOREJP0+11*, HDR+4, FLTSTS+3, FLTSTS+4
PSOTRIC	SETTMP+1~, SETTMP+8*, SETTMP+9, SETTMP+10, SETTMP+26, SETTMP+27
PSOTRITG	PSOREJP0+4~, PSOREJP0+12, SETTMP+9, TRICTOG+1
PTNAME	SETTMP+1~, SETTMP+11, SETTMP+20, SETTMP+22, PTNAME+1~, PTNAME+3, PTNAME+4, RUN+1~, RUN+13*, RUN+20
RC	NAME+1~, NAME+7, NAME+10*
RC01	NAME+1~, NAME+8*, NAME+10
RC02	NAME+1~, NAME+9*, NAME+10
REASON	SETTMP+1~, SETTMP+18, SETTMP+19, SETTMP+21, SETTMP+22, RUN+1~, RUN+18*, RUN+20
REJ	SETSORT+1~, SETSORT+7, SETSORT+8, SETSORT+13, SETSORT+14, SETSORT+15, SETSORT+16, SETSORT+20, SETSORT+21, SETSORT+22 , SETSORT+23, SETTMP~, SETTMP+2, SETTMP+3, SETTMP+6, SETTMP+7, SETTMP+14, SETTMP+15, SETTMP+18, SETTMP+20 , SETTMP+22, SETTMP+24, SETTMP+28, SEL+1~, SEL+4, SEL+5, FLTSTS~, FLTSTS+2, FLTRC~, FLTRC+2 , RUN+1~, RUN+11, RUN+12, RUN+17, RUN+18, RUN+19
REJCD	FLTRC+1~, FLTRC+2, FLTRC+3, FLTRC+4
REJLST	SETTMP+1~, SETTMP+5!, RUN+1~, RUN+16!
REJLST(	SETTMP+6, SETTMP+7, SETTMP+14, SETTMP+15, SETTMP+18, SETTMP+24, SETTMP+28, RUN+17, RUN+18, RUN+19
RX	SETSORT+1~, SETSORT+6, SETSORT+7, SETSORT+8, SETSORT+16, SETSORT+18, SETSORT+19, SETSORT+20, SETSORT+21, SETSORT+22 , SETSORT+23, SETTMP~, SETTMP+2, SETTMP+3, SETTMP+4, SETTMP+5, SETTMP+8, SETTMP+11, SETTMP+12, SETTMP+13 , SETTMP+16, SETTMP+20, SETTMP+22, SETTMP+26, SEL+1~, SEL+4, SEL+5, DIV~, DIV+3, PTNAME~ , PTNAME+2, FILTER~, FILTER+3, FILTER+4, FLTSTS~, FLTSTS+2, FLTRC~, FLTRC+2, RUN+1~, RUN+11* , RUN+12, RUN+13, RUN+14, RUN+15, RUN+16
RXNUM	SETTMP+1~, SETTMP+13, SETTMP+20, SETTMP+22, RUN+1~, RUN+15, RUN+20
SEQ	SETLINE+1~, SETLINE+17*, SETLINE+22
SITE	SITES+1~, SITES+4*, SITES+5
SITES	SITES+1~, SITES+6, SITES+7, SITES+8
SORT	SETTMP+1~, SETTMP+22, SETTMP+30, RUN+1~, RUN+9, RUN+11
SORTA	SETLINE+1~, SETLINE+10, SETLINE+11, SETLINE+12, SETLINE+15, SETLINE+16, SETTMP+1~, SETTMP+3, SETTMP+26, SETTMP+28* , SETTMP+29, SETTMP+30, RUN+1~, RUN+7, RUN+8, RUN+9, RUN+11
STS	SETSORT+1~, FLTSTS+1~, FLTSTS+2*, FLTSTS+3, FLTSTS+4
SUB	SETLINE+1~, SETLINE+10, SETLINE+15, SETLINE+16
TYPE	NAME~, NAME+3, NAME+4, NAME+5, NAME+6, NAME+7, NAME+11
U	RUN+10, RUN+20
VADM	PTNAME+1~
VADM(1	PTNAME+3
VADM(2	PTNAME+3
>> VALMBCK	REF+1, GI+1, TRICTOG+1, CVATOG+1, SEL+2, SEL+4, VER+4, PEXIT+2
>> VALMCNT	SETLINE+5, SETLINE+40
>> VALMHDR(1	HDR+10*
>> VALMHDR(2	HDR+10*
>> VALMHDR(3	HDR+16*
>> VALMSG	INIT+3, SEL+2, SEL+4*
X	SETLINE+1~, GROUP+1~, GROUP+3*, GROUP+4, SETTMP+1~, PRTEXCL+7~
X1	SETLINE+1~, SETLINE+17, SETLINE+18, SETLINE+19
X2	SETLINE+1~, SETLINE+20*, SETLINE+21
XQORM	SEL+1~
Y	PRTEXCL+7~, PRTEXCL+11
Y(1	SEL+2
Z	SETLINE+1~, SETLINE+16, SETLINE+18, SETLINE+20, SETLINE+22, SETTMP+1~, SETTMP+20, SETTMP+21, SETTMP+30, SEL+1~ , SEL+3, SEL+4
ZTDESC	PRTEXCL+22~
ZTIO	PRTEXCL+22~
>> ZTQUEUED	RUN+28
>> ZTREQ	RUN+28*
ZTRTN	PRTEXCL+22~
ZTSAVE	PRTEXCL+22~
ZTSK	PRTEXCL+22~

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOREJP0

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: