Routine: PSOREJU1

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Outpatient Pharmacy	10	($$LSTRFL,ECMESND)^PSOBPSU1 $$STATUS^PSOBPSUT CAN^PSOCAN (NOOR,REQ)^PSOCAN4 $$GETNDC^PSONDCUT $$TRIC^PSOREJP1 OVRDSP^PSOREJU1 (DISPLAY,TRICCHK)^PSOREJU3 ($$FIND,CLOSE)^PSOREJUT ECME^PSORXL1
Kernel	3	$$HL7TFM^XLFDT $$UP^XLFSTR SIG^XUSESIG
VA Fileman	3	^DIC $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	27	PSOATRP PSOBPSRP PSOBPSUT PSOHLD PSON52 PSOORCPY PSOORED2 PSOORED7 PSOR52 PSOREF PSOREJP0 PSOREJP1 PSOREJP2 PSOREJP3 PSOREJU1 PSOREJU3 PSOREJU4 PSOREJUT PSORENW PSORENW4 PSORN52 PSORXL1 PSORXRP1 PSORXRPT PSOSUPOE PSOSUPRX PSOVER1

Package

Total

Caller Graph

Outpatient Pharmacy

PSOATRP  PSOBPSRP  PSOBPSUT  PSOHLD  PSON52  PSOORCPY  PSOORED2  PSOORED7
PSOR52  PSOREF  PSOREJP0  PSOREJP1  PSOREJP2  PSOREJP3  PSOREJU1  PSOREJU3
PSOREJU4  PSOREJUT  PSORENW  PSORENW4  PSORN52  PSORXL1  PSORXRP1  PSORXRPT
PSOSUPOE  PSOSUPRX  PSOVER1

Entry Points

Name	Comments	DBIA/ICR reference
HDLG(RX,RFL,CODES,FROM,OPTS,DEF)	; - REJECT Handling
DUP(RX,RSP)	; Checks if REJECT has already been logged in the PRESCRIPTION file ; Input: (r) RX - Rx IEN (#52) ; (o) RSP - Response IEN ; Output: DUP - 1: Already logged (duplicate) ; 0: Not yet logged on PRESCRIPTION file
SEL(FIELD,FILE,ARRAY,DEFAULT)	; - Provides field selection (one, multiple or ALL)
OVRX(TYPE,CODE)	; - Returns the extended code/description of the NCPDP DUR override codes ; Input: (r) TYPE - 1 (REASON FOR SERVICE), 2 (PROFESSIONAL SERVICE) or 3 (RESULT OF SERVICE) ; (r) CODE - Table IEN ; Output: "CODE - DESCRIPTION"
DAT(DAT)	; - External Date
CLA()	; - Ask for Clarification Code
SIG()	; - Get electronic signature
ACTION(RX,REJ,OPTS,DEF)	; ; Input: (r) RX - Rx IEN (#52) ; (r) REJ - REJECT ID (IEN) ; (r) OPTS - Available options ("QIO" for QUIT/IGNORE/OVERRIDE) ; (o) DEF - Default Option ("O", "I" or "Q") ; Output: ACTION: "I^Comments" - Ignore Reject ; "O^COD1^COD2^COD3" - Override with the Override codes COD1(Prof.),COD2(Reason) and COD3(Result) ; "Q" - Quit ; "^" - Up-arrow entered or timed out
OVR()	; - Ask for OVERRIDE codes
COM()	; - Ask for CLOSE comments
DC(RX,ACTION)	; - Discontinue inside and outside call
CLEAN(STR)	; Remove blanks from the end of a string and replaces ";" with ","
ASK
OTH(CODE,LST)	; Removes the current Reject code from the list ; Input: (r) CODE - Current Reject Code (79 or 88) ; (o) LST - List of all Reject codes with response (comma separated) ; Output: OTH - List of OTHER Reject codes (w/out 79 or 88)
LMREJ(RX,RFL,MSG,BCK)	; Used by ListManager hidden actions to detect unresolved 3rd Party Rejects
OVRDSP(LST)	; - Display the Override Codes
OVRCOD(TYPE,VALUE)	; - Prompt for NCPDP Override Codes
DC1	;Discontinue

External References

Name	Field # of Occurrence
^DIC	OVRX+6, OVRCOD+7, OVRCOD+9, SEL+6
$$GET1^DIQ	DC+9, OVR+2, OVRX+7, OVRX+8, OVRX+9, DUP+7
^DIR	ASK+7, COM+2, OVR+9, CLA+2
$$LSTRFL^PSOBPSU1	HDLG+10, LMREJ+7
ECMESND^PSOBPSU1	HDLG+29
$$STATUS^PSOBPSUT	HDLG+18
CAN^PSOCAN	DC+8
NOOR^PSOCAN4	DC+3
REQ^PSOCAN4	DC+4
$$GETNDC^PSONDCUT	HDLG+29
$$TRIC^PSOREJP1	HDLG+11
OVRDSP^PSOREJU1	OVR+6
DISPLAY^PSOREJU3	ACTION+16, DC1+1
TRICCHK^PSOREJU3	HDLG+18
$$FIND^PSOREJUT	HDLG+23, HDLG+33, LMREJ+8
CLOSE^PSOREJUT	HDLG+19, HDLG+26, HDLG+27, HDLG+28, HDLG+35, HDLG+36
ECME^PSORXL1	DC+10
$$HL7TFM^XLFDT	DAT+1
$$UP^XLFSTR	SEL+7
SIG^XUSESIG	SIG+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+7
Function Call: WRITE	Prompt: $C(7)," ACTION NOT TAKEN!",! Line Location: DC+3
Function Call: WRITE	Prompt: $C(7)," ACTION NOT TAKEN!",! Line Location: DC+4
Function Call: WRITE	Prompt: $C(7),!,"You do not have an electronic signature code." Line Location: SIG+3
Function Call: WRITE	Prompt: !,"Please contact your IRM office." Line Location: SIG+4
Function Call: WRITE	Prompt: ! Line Location: COM+2
Function Call: WRITE	Prompt: ! Line Location: OVR+1
Function Call: WRITE	Prompt: ! Line Location: OVR+6
Function Call: WRITE	Prompt: ! Line Location: OVRDSP+1
Function Call: WRITE	Prompt: !?5,$S(I=1:"Reason for Service Code : ",I=2:"Professional Service Code: ",1:"Result of Service Code : ") Line Location: OVRDSP+3
Function Call: WRITE	Prompt: $E($$OVRX(I,$P(LST,"^",I)),1,48) Line Location: OVRDSP+4
Function Call: WRITE	Prompt: !!?10,"Claim could not be submitted. Please try again later!" Line Location: HDLG+31
Function Call: WRITE	Prompt: !,?10,"Reason: ",$S($P(RESP,"^",2)="":"UNKNOWN",1:$P(RESP,"^",2)),$C(7) Line Location: HDLG+32
Function Call: WRITE	Prompt: !,PRPT,VALUE," ",$P(Y(0),"^",2) Line Location: OVRCOD+7
Function Call: WRITE	Prompt: !!,"You may select a single or multiple "_FIELD_"S," Line Location: SEL+2
Function Call: WRITE	Prompt: !,"or enter ^ALL to select all "_FIELD_"S.",! Line Location: SEL+3
Function Call: WRITE	Prompt: " ",$P(Y,"^",2),$S($D(ARRAY(+Y)):" (already selected)",1:"") Line Location: SEL+9
Function Call: WRITE	Prompt: ! Line Location: SEL+10
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: LMREJ+9
Routine Call	DIC Line Location: OVRX+6 OVRCOD+7 OVRCOD+9 SEL+6
Routine Call	DIR Line Location: ASK+7 COM+2 OVR+9 CLA+2

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ
52.25	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	ACTION+13, DC+5, HDLG+14, LMREJ+6, DUP+6
^VA(200 - [#200]	SIG+2

Name	Line Occurrences
$$ACTION	HDLG+25, HDLG+34
$$COM	ASK+14
$$DC	DC1+1
$$OVR	ASK+18
$$OVRCOD	OVR+2, OVR+3, OVR+4
$$OVRX	OVRDSP+4
$$SIG	ASK+14
ASK	ASK+14, ASK+17, DC1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	ACTION+10~, ASK!, ASK+10, ASK+14, ASK+17, ASK+18, DC1+1, DC1+3, DC~, DC+3* , DC+4, DC+11, HDLG+9~, HDLG+18, HDLG+19, HDLG+21, HDLG+22, HDLG+25, HDLG+26, HDLG+27 , HDLG+28, HDLG+29, HDLG+33, HDLG+34*, HDLG+35, HDLG+36, HDLG+37
ARRAY	SEL~, SEL+4!, SEL+7!, SEL+8!, SEL+11*
ARRAY(	SEL+9, SEL+10*
BCK	LMREJ~, LMREJ+9*
COD1	OVR+1~, OVR+2*, OVR+6, OVR+11
COD2	OVR+1~, OVR+3*, OVR+6, OVR+11
COD3	OVR+1~, OVR+4*, OVR+6, OVR+11
CODE	SIG+1~, SIG+2, HDLG+9~, HDLG+21*, HDLG+23, HDLG+33, OVRX~, OVRX+6, OVRX+7, OVRX+8 , OVRX+9, OTH~, OTH+7
CODES	HDLG~, HDLG+13, HDLG+14, HDLG+15*, HDLG+16, HDLG+21
COM	ACTION+10~, ASK+14, COM+1!, COM+3, COM+4
DA	DC+1~, DC+2*, DC+5, DC+7, DC+9
DAT	DAT~, DAT+1
DCODE	HDLG+9~, HDLG+13, HDLG+14
DEF	ACTION~, ASK+7, HDLG~, HDLG+13, HDLG+18, HDLG+25, HDLG+34
DEFAULT	SEL~, SEL+5
DIC	OVRX+4~, OVRX+6, OVRCOD+1~, OVRCOD+6, OVRCOD+8, SEL+1~, SEL+4
DIC("A"	OVRCOD+8, SEL+4, SEL+10*
DIC("B"	SEL+5*, SEL+10!
DIC(0	OVRCOD+6, OVRCOD+8, SEL+4*
DIR	ACTION+10~, ASK!, ASK+13!, COM+1!, OVR+1~, CLA+1~
DIR("??"	ASK+6*
DIR("A"	ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, COM+2, OVR+8, CLA+2*
DIR("B"	ASK+7, OVR+8
DIR(0	ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, COM+2, OVR+8, CLA+2*
DIROUT	CLA+1~, CLA+3
DIRUT	ACTION+10~, ASK!, ASK+7, ASK+13!, DC1+1, DC+3, DC+4, COM+1!, COM+3, OVR+1~ , OVR+9, CLA+1~, CLA+3
DTOUT	OVRCOD+9, SEL+1~, SEL+8
DUOUT	OVRCOD+9, SEL+1~, SEL+8
DUP	DUP+5~, DUP+6, DUP+7, DUP+8
DUZ	SIG+2, HDLG+19, HDLG+26, HDLG+27, HDLG+28, HDLG+35, HDLG+36
FIELD	SEL~, SEL+2, SEL+3, SEL+4
FILE	OVRX+4~, OVRX+5, OVRX+6, OVRCOD+1~, OVRCOD+3, OVRCOD+4, OVRCOD+5, OVRCOD+6, OVRCOD+8, SEL~ , SEL+4
FROM	HDLG~, HDLG+18, HDLG+29
I	OVRDSP+1~, OVRDSP+2, OVRDSP+3, OVRDSP+4, OTH+5~, OTH+6, OTH+7
IDX	DUP+5~, DUP+6, DUP+7
LEN	CLEAN+1~*, CLEAN+3
LST	OVRDSP~, OVRDSP+4, OTH~, OTH+6, OTH+7
MSG	DC+1~, DC+6, LMREJ~, LMREJ+9
NEWDATA	HDLG+9~, HDLG+33!
NEWDATA(""	HDLG+34
OPTS	ACTION~, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, HDLG~, HDLG+13, HDLG+16, HDLG+18* , HDLG+25, HDLG+34
>> ORN	DC+9*
OTH	OTH+5~, OTH+7, OTH+8, OTH+9
OVR	ACTION+10~, ASK+17, ASK+18*
>> PPL	DC+10*
PRPT	OVRCOD+1~, OVRCOD+3, OVRCOD+4, OVRCOD+5*, OVRCOD+7, OVRCOD+8
PSCAN	DC+1~
PSCAN(	DC+7*
PSOCKDC	DC+9~*
>> PSOFDR	DC+6
>> PSOLST(1	DC+9*
>> PSONBILL	ACTION+13
>> PSOQFLAG	DC+9*
>> PSORX("DFLG"	DC+3, DC+4
PSOTRIC	HDLG+9~, HDLG+11*, HDLG+12, HDLG+18
QT	SEL+1~, SEL+6, SEL+7, SEL+8
REA	DC+1~, DC+5*
REJ	ACTION~, ACTION+12, ACTION+13, ACTION+16, DC1+1, OVR+2, HDLG+9~, HDLG+19, HDLG+24*, HDLG+25 , HDLG+26, HDLG+27, HDLG+28, HDLG+35, HDLG+36
REJCDI	HDLG+9~, HDLG+21*
REJDATA	HDLG+9~, HDLG+23
REJDATA(""	HDLG+24
RESP	HDLG+9~, HDLG+29, HDLG+30, HDLG+32
RFL	HDLG~, HDLG+10, HDLG+11, HDLG+18, HDLG+19, HDLG+23, HDLG+26, HDLG+27, HDLG+28, HDLG+29 , HDLG+33, HDLG+35, HDLG+36, LMREJ~, LMREJ+7, LMREJ+8
RSP	DUP~, DUP+7
RX	ACTION~, ACTION+12, ACTION+13, ACTION+16, DC1+1, DC~, DC+2, OVR+2, HDLG~, HDLG+10 , HDLG+11, HDLG+14, HDLG+18, HDLG+19, HDLG+23, HDLG+25, HDLG+26, HDLG+27, HDLG+28, HDLG+29 , HDLG+33, HDLG+34, HDLG+35, HDLG+36, LMREJ~, LMREJ+6, LMREJ+7, LMREJ+8, DUP~, DUP+6 , DUP+7
RXN	DC+1~
RXNUM	DC+1~, DC+2, DC+5, DC+7, DC+9
STR	CLEAN~, CLEAN+1, CLEAN+2*, CLEAN+3
TYPE	OVRX~, OVRX+5, OVRX+7, OVRX+8, OVRX+9, OVRCOD~, OVRCOD+3, OVRCOD+4, OVRCOD+5
U	SIG+2
VALUE	OVRCOD~, OVRCOD+7
X	ACTION+10~, ASK+13!, SIG+1~, COM+1!, COM+3, OVRX+4~, OVRX+6, OVRCOD+1~, OVRCOD+7, SEL+1~ , SEL+6, SEL+7, DAT+1*, DAT+2
X1	SIG+1~, SIG+5
Y	ACTION+10~, ASK+10, SIG+1~, SIG+2, SIG+5, SIG+6, OVR+9, CLA+1~, CLA+4, OVRX+4~ , OVRX+7, OVRX+8, OVRX+9, OVRCOD+1~, OVRCOD+7, OVRCOD+9, OVRCOD+10, SEL+1~, SEL+9, SEL+10
Y(0	OVRCOD+7

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOREJU1

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 27

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: