Routine: PSOREJU3

Package	Total	Call Graph
Outpatient Pharmacy	8	ECMESND^PSOBPSU1 RXACT^PSOBPSU2 ($$STATUS,$$SUBMIT)^PSOBPSUT ($$EXP,$$TRIC)^PSOREJP1 ($$DC,$$HDLG)^PSOREJU1 ($$DVINFO,$$PTINFO,GET,PRT)^PSOREJU2 $$FIND^PSOREJUT SUS^PSORXL1
VA Fileman	3	DD^%DT NOW^%DTC $$GET1^DIQ
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSOBPSU1 PSOCAN2 PSOREJU1 PSOSULBL
CMOP	2	PSXRPPL1 PSXRPPL2

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;
TRIC3	;
TRIC2	;
TACT	;
WRAP(PSOTXT,INDENT)	;
SUSP	;Suspense Rx due to IN PROGRESS status in ECME
DISPLAY(RX,REJ,KEY)	; - Displays REJECT information ; Input: (r) RX - Rx IEN (#52) ; (r) REJ - REJECT ID (IEN) ; (o) KEY - Display "Press any KEY to continue..." (1-YES/0-NO) (Default: 0) ;
W1
SUBMIT(RXIEN,RFCNT,PSOTRIC)	;called from PSOCAN2 (routine size exceeded)
MSG	;
DISP2	;
TYPE	;
TRICCHK(RX,RFL,RESP,FROM,RVTX)	;check to see if Rx is non-billable or in an "In Progress" state on ECME ; Input: (r) RX - Rx IEN (#52) ; (r) RFL - REFILL ; (o) RESP - Response from $$EN^BPSNCPDP api ; TRICCHK assumes that the calling routine has validated that the fill is Tricare.
TRISTA(RX,RFL,RESP,FROM,RVTX)	;called from suspense	ICR #5186 Status: Active Usage: Private

External References

Name	Field # of Occurrence
DD^%DT	TYPE+2
NOW^%DTC	TYPE+2
$$GET1^DIQ	TRICCHK+13, DISPLAY+10, DISPLAY+17
ECMESND^PSOBPSU1	SUBMIT+4
RXACT^PSOBPSU2	TRICCHK+18, TACT+3
$$STATUS^PSOBPSUT	SUBMIT+7, TRISTA+8
$$SUBMIT^PSOBPSUT	SUBMIT+1
$$EXP^PSOREJP1	TYPE+8, TYPE+10
$$TRIC^PSOREJP1	TRISTA+3
$$DC^PSOREJU1	TRIC3+4
$$HDLG^PSOREJU1	SUBMIT+5
$$DVINFO^PSOREJU2	DISPLAY+15
$$PTINFO^PSOREJU2	DISPLAY+16
GET^PSOREJU2	DISPLAY+11
PRT^PSOREJU2	DISPLAY+20, TYPE+6
$$FIND^PSOREJUT	SUBMIT+5
SUS^PSORXL1	SUSP+3
$$FMTE^XLFDT	TYPE+3, TYPE+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"TRICARE Prescription "_$$GET1^DIQ(52,RX,".01")_" cannot be released until ECME 'IN PROGRESS'" Line Location: TRICCHK+13
Function Call: WRITE	Prompt: !,"status is resolved payable.",!! Line Location: TRICCHK+14
Function Call: WRITE	Prompt: !!,"This prescription will be suspended. After the third party claim is resolved," Line Location: TRIC2+7
Function Call: WRITE	Prompt: !,"it may be printed or pulled early from suspense.",! Line Location: TRIC2+8
Function Call: WRITE	Prompt: " It must be discontinued." Line Location: TRIC3+1
Function Call: WRITE	Prompt: !!,"This is a non-billable Tricare prescription. It cannot be filled or sent",! Line Location: MSG+1
Function Call: WRITE	Prompt: "to the reject worklist." Line Location: MSG+2
Function Call: WRITE	Prompt: !?3,LINE Line Location: DISPLAY+14
Function Call: WRITE	Prompt: !?3,$$DVINFO^PSOREJU2(RX,RFL) Line Location: DISPLAY+15
Function Call: WRITE	Prompt: !?3,$$PTINFO^PSOREJU2(RX) Line Location: DISPLAY+16
Function Call: WRITE	Prompt: !?3,"Rx/Drug : ",$$GET1^DIQ(52,RX,.01),"/",RFL," - ",$E($$GET1^DIQ(52,RX,6),1,20),?54 Line Location: DISPLAY+17
Function Call: WRITE	Prompt: !?3,"Payer Message: " Line Location: DISPLAY+20
Function Call: WRITE	Prompt: !?3,"DUR Text : ",DATA(REJ,"DUR TEXT") Line Location: DISPLAY+21
Function Call: WRITE	Prompt: !?3,"Insurance : ",DATA(REJ,"INSURANCE NAME"),?50,"Contact: ",DATA(REJ,"PLAN CONTACT") Line Location: DISPLAY+22
Function Call: WRITE	Prompt: !?3,"Group Name : ",DATA(REJ,"GROUP NAME"),?45,"Group Number: ",DATA(REJ,"GROUP NUMBER") Line Location: DISPLAY+23
Function Call: WRITE	Prompt: !?3,"Cardholder ID: ",DATA(REJ,"CARDHOLDER ID") Line Location: DISPLAY+24
Function Call: WRITE	Prompt: !?3,"Last Fill Dt.: ",DATA(REJ,"PLAN PREVIOUS FILL DATE") Line Location: DISPLAY+26
Function Call: READ	Timeout: DTIME Variable: % Line Location: DISP2+1
Function Call: WRITE	Prompt: !?3,LINE,$C(7) Line Location: DISP2+1
Function Call: WRITE	Prompt: !?3,"Press <RETURN> to continue..." Line Location: DISP2+1
Function Call: WRITE	Prompt: !?3,"Press <RETURN> to continue..." Line Location: DISP2+1
Function Call: WRITE	Prompt: !?3,"Date/Time: "_$$FMTE^XLFDT(Y) Line Location: TYPE+3
Function Call: WRITE	Prompt: !?3,"Reason : ",$S($G(PSONBILL):"Drug not billable.",$G(PSONPROG):"ECME Status is in an 'IN PROGRESS' state and cannot be filled",1:"") Line Location: TYPE+4
Function Call: WRITE	Prompt: !?3,"Reason : " Line Location: TYPE+6
Function Call: WRITE	Prompt: !?3,"Reject(s): " Line Location: TYPE+13
Function Call: WRITE	Prompt: ?INDENT,PSOWRAP(K),! Line Location: W1+1
Function Call: WRITE	Prompt: !!?24,"* TRICARE - NON-BILLABLE *" Line Location: HDR+1
Function Call: WRITE	Prompt: !!?18,"* TRICARE - 'IN PROGRESS' ECME status *" Line Location: HDR+2
Function Call: WRITE	Prompt: !!?12,"*** TRICARE - " Line Location: HDR+3
Function Call: WRITE	Prompt: !!?16 Line Location: HDR+4
Function Call: WRITE	Prompt: "REJECT RECEIVED FROM THIRD PARTY PAYER ***" Line Location: HDR+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	DISPLAY+7, SUBMIT+4

Label References

Name	Line Occurrences
DISP2	DISPLAY+19
DISPLAY	TRIC2+5
HDR	DISPLAY+13
MSG	TRIC3+1
SUSP	TRIC2+6, TRIC3+3
TACT	TRIC2+3, TRIC2+10
TRIC2	TRICCHK+19, TRICCHK+20, TRIC3+5
TRICCHK	SUBMIT+7
TYPE	DISPLAY+19
W1	W1
WRAP	TYPE+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DISPLAY+9~, DISP2+1*, TYPE+2
ACT	TRICCHK+18, SUSP+1~, TACT+1, TACT+3
ACTION	TRIC2+1~, TRIC3+4, TRIC3+5, SUBMIT+3~, SUBMIT+5
>> CMOP	TRICCHK+17, TRIC2+3, TRIC2+4
>> CODE	TYPE+8
COMM	SUSP+1~
DA	TRIC2+1~, SUSP+1~, SUSP+3*
DATA	DISPLAY+9~, DISPLAY+11
DATA(	DISPLAY+11, DISPLAY+20, DISPLAY+21, DISPLAY+22, DISPLAY+23, DISPLAY+24, DISPLAY+25, DISPLAY+26, DISPLAY+27, TYPE+6 , TYPE+8, TYPE+9, TYPE+11
DD	SUSP+1~
DFLG	SUSP+1~
DIC	SUSP+1~
DIK	SUSP+1~
DIR	TRIC2+1~
DIRUT	TRIC2+1~
DO	SUSP+1~
DTIME	DISP2+1
DUZ	TRICCHK+18, TACT+2~*, TACT+3
ESTAT	TRICCHK+8~, TRICCHK+9, TRICCHK+10, TRICCHK+11, TRICCHK+20, TRISTA+1~, TRISTA+3, TRISTA+5*, TRISTA+11, TRISTA+14
ETOUT	TRICCHK+8~, TRISTA+1~
FROM	TRICCHK~, TRICCHK+9*, TRICCHK+11, TRIC3+3, TRISTA~
I	TYPE+7~, TYPE+9, WRAP+1~, W1
INDENT	WRAP~, WRAP+2, W1+1
IOM	WRAP+2
K	WRAP+1~, W1+1*
KEY	DISPLAY~, DISP2+1
LFD	SUSP+1~
LINE	DISPLAY+9~, DISPLAY+14*, DISP2+1
>> NFROM	TRICCHK+9*, TRICCHK+12, TRICCHK+17, TRIC2+5, TRIC2+6, TRIC2+10, TRIC2+11, DISPLAY+5
OCODE	TYPE+7~, TYPE+8, TYPE+9, TYPE+10
OTXT	TYPE+7~, TYPE+8, TYPE+10, TYPE+11, TYPE+12*
PSCAN	TRIC2+1~
PSOKSPPL	SUSP+2~
PSOMARG	WRAP+1~, WRAP+2*, W1
PSONBILL	TRICCHK+19~*, TACT+1, DISPLAY+7, DISPLAY+11, DISPLAY+18, DISPLAY+19, TYPE+1, TYPE+4, HDR+1
PSONPROG	TRICCHK+20~*, TRIC2+3, TRIC2+6, TRIC2+10, TACT+1, DISPLAY+7, DISPLAY+11, DISPLAY+18, DISPLAY+19, TYPE+1 , TYPE+4, HDR+2
PSOQFLAG	SUSP+2~
>> PSORM	WRAP+2
PSORXZD	SUSP+2~
PSOTRIC	TRIC2+1~, TRIC2+2, HDR+3, SUBMIT~, SUBMIT+6, TRISTA+1~, TRISTA+3, TRISTA+4
PSOTXT	WRAP~, W1*
PSOWFLG	SUSP+1~
PSOWRAP	WRAP+1~, WRAP+2, W1, W1+1
PSOWRAP(	W1*, W1+1
PSOZXPI	SUSP+2~
PSOZXPPL	SUSP+2~
REA	TRIC2+1~
REJ	TRIC2+1~, TRIC2+2*, TRIC2+5, DISPLAY~, DISPLAY+6, DISPLAY+7, DISPLAY+10, DISPLAY+11, DISPLAY+20, DISPLAY+21 , DISPLAY+22, DISPLAY+23, DISPLAY+24, DISPLAY+25, DISPLAY+26, DISPLAY+27, TYPE+6, TYPE+8, TYPE+9, TYPE+11
REJCOD	TRIC2+1~
RESP	TRICCHK~, TRICCHK+9, TRICCHK+16, TRICCHK+17, TRICCHK+19, TRICCHK+20, TRISTA~, TRISTA+2*, TRISTA+5, TRISTA+7
RFCNT	SUBMIT~, SUBMIT+7
RFL	TRICCHK~, TRICCHK+18, TACT+3, DISPLAY+9~, DISPLAY+10*, DISPLAY+11, DISPLAY+15, DISPLAY+17, TRISTA~, TRISTA+3 , TRISTA+8
RTXT	TYPE+7~, TYPE+8, TYPE+11, TYPE+13
RVTX	TRICCHK~, TRICCHK+11, TRISTA~
RX	TRICCHK~, TRICCHK+13, TRICCHK+18, TRIC2+5, TRIC3+4, SUSP+3, TACT+3, DISPLAY~, DISPLAY+6, DISPLAY+7 , DISPLAY+10, DISPLAY+11, DISPLAY+15, DISPLAY+16, DISPLAY+17, DISPLAY+18, TRISTA~, TRISTA+3, TRISTA+8
RX0	SUSP+1~
RXCMOP	SUSP+1~
RXIEN	SUBMIT~, SUBMIT+1, SUBMIT+4, SUBMIT+5, SUBMIT+7
RXLTOP	SUSP+2~
RXN	SUSP+1~
RXP	SUSP+1~
RXS	SUSP+1~
SD	SUSP+1~
SUBMITE	SUBMIT+1~*, SUBMIT+2, SUBMIT+6
TRESP	TRISTA+1~, TRISTA+5, TRISTA+8, TRISTA+9*, TRISTA+13, TRISTA+14
TSTAT	TRISTA+1~, TRISTA+8*, TRISTA+9
VALMSG	SUSP+1~
X	SUSP+1~
XFLAG	SUSP+1~
Y	SUSP+1~, TYPE+2*, TYPE+3
ZZZ	TRIC2+1~, TRIC2+9, TRIC3+2

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOREJU3

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: