Routine: PSOREJU4

Information

PSOREJU4 ;BIRM/LE - Pharmacy Reject Overrides ;06/26/08

Source Information

Source file <PSOREJU4.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Outpatient Pharmacy	7	$$LSTRFL^PSOBPSU1 $$RXSITE^PSOBPSUT $$TRIC^PSOREJP1 SAVECOM^PSOREJP3 ($$CLEAN,$$DUP)^PSOREJU1 GET^PSOREJU2 ($$FIND,SYNC2)^PSOREJUT
VA Fileman	2	NOW^%DTC $$GET1^DIQ
Uncategorized	1	DUR1^BPSNCPD3

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOREJUT

Entry Points

Name	Comments	DBIA/ICR reference
WRKLST(RX,RFL,COMMTXT,USERID,DTTIME,OPECC)	;External API to store reject codes other that 79/88/Tricare on the OP Reject Worklist ;	ICR #5063 Status: Active Usage: Private
MULTI(RX,RFL,REJDATA,CODE,REJS)	;due to routine size, called from FIND^PSOREJUT
EVAL(PSODIV,CODE,OPECC,AUTO)	;Evaluates whether the reject codes other than 79/88/Tricare is allowed to be passed to OP Reject Worklist
AUTOREJ(CODES,PSODIV)	;API to evaluate an array of reject codes to see if they are allowed to be passed to OP reject Worklist	ICR #5063 Status: Active Usage: Private
INLIST(RX,RFL)	;Returns whether a prescription/fill contains UNRESOLVED rejects	ICR #5063 Status: Active Usage: Private
SINGLE(RX,RFL,REJDATA,CODE,REJS)	;due to routine size, called from FIND^PSOREJUT
EXIT	;
OVRMSG(RX,RFL,OVRMSG,REJDAT)	;
OVER	;due to size of PSOREJU1 this subroutine was needed. also used by OVERMSG

External References

Name	Field # of Occurrence
NOW^%DTC	OVRMSG+4
DUR1^BPSNCPD3	WRKLST+6
$$GET1^DIQ	AUTOREJ+19, EVAL+17, EVAL+21
$$LSTRFL^PSOBPSU1	WRKLST+5
$$RXSITE^PSOBPSUT	WRKLST+3, OVER+5
$$TRIC^PSOREJP1	WRKLST+8
SAVECOM^PSOREJP3	OVRMSG+7
$$CLEAN^PSOREJU1	WRKLST+15
$$DUP^PSOREJU1	WRKLST+15
GET^PSOREJU2	MULTI+3, MULTI+5, SINGLE+3, SINGLE+5
$$FIND^PSOREJUT	INLIST+7
SYNC2^PSOREJUT	WRKLST+21

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(52.86 - [#52.86]	GET1^DIQ
52.8651	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BPSF(9002313.93	EVAL+15
^PS(52.86 - [#52.86]	AUTOREJ+15, AUTOREJ+23, EVAL+12, EVAL+18, EVAL+19
^PS(59 - [#59]	AUTOREJ+13
^PSRX - [#52]	OVER+6, MULTI+4, SINGLE+4
^PSRX("REJ"	WRKLST+4, WRKLST+17, EXIT+1

Label References

Name	Line Occurrences
$$EVAL	WRKLST+14, OVER+8
EXIT	WRKLST+19
OVER	OVRMSG+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	OVRMSG+4
ALLOW	AUTOREJ+11~, EVAL+8~, EVAL+21*, EVAL+22, EVAL+23
ALLOWA	EVAL+8~, EVAL+17*
AUTO	AUTOREJ+11~, WRKLST+9, WRKLST+10, WRKLST+14, WRKLST+15, WRKLST+17, WRKLST+19, WRKLST+22, EXIT+2, EVAL~ , EVAL+14, EVAL+20, EVAL+21, EVAL+24, EVAL+25, EVAL+26, OVER+3~, OVER+8, OVER+9
CIEN	EVAL+8~, EVAL+19*, EVAL+20, EVAL+21
COD	AUTOREJ+11~, AUTOREJ+22, AUTOREJ+23, AUTOREJ+24, OVRMSG+1~, OVRMSG+6, OVRMSG+7
CODE	WRKLST+2~, WRKLST+13*, WRKLST+14, WRKLST+16, EVAL~, EVAL+9, EVAL+15, EVAL+25, MULTI~, MULTI+3 , MULTI+5, SINGLE~, SINGLE+3, SINGLE+5
CODES	AUTOREJ~, OVER+4, OVER+7, OVER+10, OVER+11, OVER+12, OVRMSG+1~, OVRMSG+2
CODES(	AUTOREJ+22, AUTOREJ+23, AUTOREJ+24
CODES(0	AUTOREJ+14, AUTOREJ+16, AUTOREJ+19*
COMMTXT	WRKLST~
DATA	WRKLST+2~
DCODE	OVER+3~, OVER+6, OVER+7, OVER+8, OVER+10
DTTIME	WRKLST~
DUZ	OVRMSG+7
I	WRKLST+2~, WRKLST+12, WRKLST+13, MULTI+3, MULTI+5*
ICOD	EVAL+8~, EVAL+15*, EVAL+16, EVAL+18, EVAL+19
IDX	WRKLST+2~, WRKLST+9, WRKLST+10, WRKLST+11, WRKLST+15, WRKLST+16
OCODES	OVER+3~, OVER+4, OVER+12
OPECC	WRKLST~, WRKLST+14, EVAL~, EVAL+10*, EVAL+24, EVAL+25
OVRARR	OVER+3*, OVRMSG+1~, OVRMSG+5
OVRARR(	OVER+10*, OVRMSG+6
OVRMSG	OVRMSG~, OVRMSG+7
PSODIV	AUTOREJ~, AUTOREJ+13, AUTOREJ+14, AUTOREJ+15, WRKLST+2~, WRKLST+3, WRKLST+14, EVAL~, EVAL+11, EVAL+12 , OVER+3~, OVER+5, OVER+8
PSOTRIC	WRKLST+2~, WRKLST+7, WRKLST+8, WRKLST+14
>> RCODE	MULTI+3, MULTI+5
REJ	WRKLST+2~, WRKLST+6
REJ(	WRKLST+10, WRKLST+11, WRKLST+15
REJ(1	WRKLST+7
REJDAT	OVRMSG~, OVRMSG+4*, OVRMSG+7
REJDATA	MULTI~, MULTI+3, MULTI+4, MULTI+5, SINGLE~, SINGLE+3, SINGLE+4, SINGLE+5, SINGLE+6
REJLST	WRKLST+2~
REJS	WRKLST+2~, WRKLST+9!, WRKLST+17, MULTI~, MULTI+3, MULTI+4, MULTI+5, MULTI+6, SINGLE~, SINGLE+6* , SINGLE+7
REJS(	WRKLST+16*
RFL	WRKLST~, WRKLST+3, WRKLST+5, WRKLST+6, WRKLST+8, OVER+5, OVRMSG~, INLIST~, INLIST+7, MULTI~ , MULTI+2, MULTI+3, MULTI+4, MULTI+5, SINGLE~, SINGLE+2, SINGLE+3, SINGLE+4*, SINGLE+5
RX	WRKLST~, WRKLST+3, WRKLST+4, WRKLST+5, WRKLST+6, WRKLST+8, WRKLST+15, WRKLST+17, EXIT+1, OVER+5 , OVER+6, OVRMSG~, OVRMSG+7, INLIST~, INLIST+7, MULTI~, MULTI+3, MULTI+4, MULTI+5, SINGLE~ , SINGLE+3, SINGLE+4, SINGLE+5
SEQ	AUTOREJ+11~, AUTOREJ+22*, AUTOREJ+23, AUTOREJ+24
SPDIV	AUTOREJ+11~, AUTOREJ+15, AUTOREJ+16, AUTOREJ+19, AUTOREJ+23, EVAL+8~, EVAL+12, EVAL+13, EVAL+17, EVAL+18 , EVAL+19, EVAL+21
SPDVI	WRKLST+2~
TXT	WRKLST+2~, WRKLST+11*, WRKLST+12, WRKLST+13
USERID	WRKLST~

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOREJU4

Call Graph Total: 10

Caller Graph Total: 1