Routine: PSOBPSU3

Information

PSOBPSU3 ;ALB/CFS - BPS (ECME) Utilities 3 ;08/27/15

Package	Total	Call Graph
Outpatient Pharmacy	6	ECMESND^PSOBPSU1 ($$RXFLDT,$$RXRLDT)^PSOBPSUT $$ELIGDISP^PSOREJP1 $$PTLBL^PSOREJP2 ($$YESNO,PRINT)^PSOREJP3 $$FIND^PSOREJUT
E Claims Management Engine	4	$$CLAIM^BPSBUTL $$VAL^BPSPSOU1 ($$ADDLFLDS,$$SAVE)^BPSRES1 (,RFL)^BPSVRX
VA FileMan	2	$$GET1^DIQ ^DIR
Kernel	1	($$FMTE,$$HL7TFM)^XLFDT
List Manager	1	(FULL,PAUSE)^VALM1

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	PSO EDIT CLAIM SUBMITTED 1 PSO EDIT CLAIM SUBMITTED 2 PSO LM BACKDOOR PRTCL USRSCR RESUBMIT PSO LM BACKDOOR PRTCL USRSCR REVERSE PSO LM BACKDOOR PRTCL USRSCR VERIFY
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
RES(RXIEN,DFN)	; Resubmit a claim action from PSO HIDDEN ACTIONS
FILL(RXIEN,DFN,PSOFL)	;
VER(RXIEN,DFN)	; -- VER hidden action under protocol PSO HIDDEN ACTIONS
REV(RXIEN,DFN)	; Reverse a claim action from PSO HIDDEN ACTIONS
RXDEL(RXIEN,PSOFILL)	; EP - $$ is RX deleted? ; For refills: if the refill multiple is gone, it's been "deleted"
END	;
ECS(PSORX,PSOFILL,PSOSCREEN)	; Edit Claim to be Submitted.
ECSQUIT	;
EDITDT(PSORX,PSOFILL,PSOCOB,PSOCLAIM,PSOIEN59,PSOALTXT,PSODATESELECTED)	; Allow user to select Date of Service.

External References

Name	Field # of Occurrence
$$CLAIM^BPSBUTL	ECS+38
$$VAL^BPSPSOU1	RES+7, REV+7, ECS+58
$$ADDLFLDS^BPSRES1	ECS+87
$$SAVE^BPSRES1	ECS+112
^BPSVRX	VER+5
RFL^BPSVRX	FILL+17
$$GET1^DIQ	EDITDT+40, EDITDT+41
^DIR	FILL+42, ECS+99, EDITDT+77
ECMESND^PSOBPSU1	RES+12, REV+12, ECS+119
$$RXFLDT^PSOBPSUT	EDITDT+30
$$RXRLDT^PSOBPSUT	EDITDT+23
$$ELIGDISP^PSOREJP1	RES+5, REV+5, ECS+57
$$PTLBL^PSOREJP2	RES+13, ECS+135
$$YESNO^PSOREJP3	ECS+71, ECS+105
PRINT^PSOREJP3	ECS+137
$$FIND^PSOREJUT	ECS+67
FULL^VALM1	FILL+2, VER+1, ECS+20
PAUSE^VALM1	RES+4, RES+9, RES+14, REV+4, REV+9, REV+13, ECS+31, ECS+44, ECS+51, ECS+127 , ECS+146
$$FMTE^XLFDT	FILL+29, FILL+30, EDITDT+25, EDITDT+53, EDITDT+55, EDITDT+56, EDITDT+72, EDITDT+85
$$HL7TFM^XLFDT	EDITDT+41

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No claim was ever submitted for this prescription. Cannot resubmit." Line Location: RES+4
Function Call: WRITE	Prompt: !!,"The claim cannot be Resubmitted since it has been deleted in Pharmacy." Line Location: RES+10
Function Call: WRITE	Prompt: ! Line Location: FILL+42
Function Call: WRITE	Prompt: !!,"No claim was ever submitted for this prescription. Cannot reverse." Line Location: REV+4
Function Call: WRITE	Prompt: !!,"The claim cannot be Reversed since it has been deleted in Pharmacy." Line Location: REV+10
Function Call: WRITE	Prompt: !!,"No claim was ever submitted for this prescription. Cannot resubmit." Line Location: ECS+30
Function Call: WRITE	Prompt: !!,"No Initial Claim Submission Found - Data Elements are NOT Editable for Re-" Line Location: ECS+42
Function Call: WRITE	Prompt: !,"Submission" Line Location: ECS+43
Function Call: WRITE	Prompt: !!,"The claim cannot be Resubmitted since it has been deleted in Pharmacy." Line Location: ECS+50
Function Call: WRITE	Prompt: !!,"Enter ^ at any prompt to exit" Line Location: ECS+61
Function Call: WRITE	Prompt: !!," When you confirm, a new claim will be submitted for" Line Location: ECS+68
Function Call: WRITE	Prompt: !," the prescription and this REJECT will be marked" Line Location: ECS+69
Function Call: WRITE	Prompt: !," resolved." Line Location: ECS+70
Function Call: WRITE	Prompt: !!,"No value changed. A claim will not be submitted.",! Line Location: ECS+95
Function Call: WRITE	Prompt: !!,"A claim will be submitted now." Line Location: ECS+104
Function Call: WRITE	Prompt: !!?10,"Claim could not be submitted. Please try again later!" Line Location: ECS+125
Function Call: WRITE	Prompt: !,?10,"Reason: ",$S($P(PSORESPONSE,"^",2)="":"UNKNOWN",1:$P(PSORESPONSE,"^",2)),$C(7) Line Location: ECS+126
Function Call: WRITE	Prompt: !!,"Rx is not released. Date of Service will be ",X,"." Line Location: EDITDT+26
Function Call: WRITE	Prompt: ! Line Location: EDITDT+50
Function Call: WRITE	Prompt: !,?10,$$FMTE^XLFDT(PSODATE,"5D")," ",PSODATEARRAY(PSODATE,X) Line Location: EDITDT+53
Function Call: WRITE	Prompt: !!,"Claim will be submitted with ",$$FMTE^XLFDT(PSODATE,"5D")," Date of Service." Line Location: EDITDT+55
Routine Call	DIR Line Location: FILL+42 ECS+99 EDITDT+77

FileNo	Call Tags
^BPSC - [#9002313.02]	GET1^DIQ
^BPSTL - [#9002313.57]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BPSTL("B"	EDITDT+39
^PSRX - [#52]	FILL+5, FILL+8, FILL+9, FILL+10, FILL+13, FILL+14, RXDEL+2, RXDEL+4, RXDEL+5
^TMP("PSOHDR"	VER+3, VER+6*
^TMP("PSOHDR_ARCHIVE"	VER+2!, VER+3*, VER+6, VER+7!

Label References

Name	Line Occurrences
$$EDITDT	ECS+81
$$FILL	RES+2, REV+2, ECS+27
$$RXDEL	RES+9, REV+9, ECS+49
ECSQUIT	ECS+19, ECS+26, ECS+41, ECS+49, ECS+59, ECS+67, ECS+82, ECS+88, ECS+94, ECS+106 , ECS+111, ECS+124
END	RES+3, RES+4, RES+8, RES+9, REV+3, REV+4, REV+8, REV+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTION	RES+1~
>> BPSVRX("RXIEN"	VER+4*
>> CHANGE	ECS+144*
CNT	FILL+1~, FILL+26, FILL+28, FILL+32, FILL+33, FILL+39
DFN	RES~, RES+2, FILL~, FILL+3, VER~, REV~, REV+2, ECS+27
DIR	FILL+1~, FILL+42!, ECS+14~, ECS+96~, EDITDT+15~
DIR("?"	EDITDT+59, EDITDT+60
DIR("A"	FILL+37, ECS+98, EDITDT+61*
DIR("B"	FILL+38, EDITDT+62, EDITDT+73*, EDITDT+84
DIR("L"	FILL+22, FILL+23, FILL+24, FILL+25, FILL+33, FILL+35, FILL+40*
DIR(0	FILL+21, FILL+36, ECS+97, EDITDT+63, EDITDT+72*
DIROUT	EDITDT+15~
DIRUT	RES+1~, RES+3, REV+1~, REV+3, ECS+14~, ECS+28, EDITDT+15~, EDITDT+78
DT	EDITDT+24, EDITDT+25
DTOUT	EDITDT+15~
DUOUT	EDITDT+15~
FILL	FILL+1~, FILL+43*, FILL+44
FLDT	FILL+1~, FILL+9, FILL+11, FILL+13, FILL+15, FILL+29, FILL+31, FILL+32, FILL+33
PSOADDLFLDS	ECS+14~, ECS+87, ECS+111, ECS+112
PSOALTXT	ECS+14~, ECS+79, ECS+81, ECS+119, EDITDT~, EDITDT+27, EDITDT+56, EDITDT+85
PSOCLAIM	ECS+14~, ECS+39*, ECS+41, ECS+81, ECS+87, EDITDT~
PSOCLAIM2	EDITDT+16~, EDITDT+40*, EDITDT+41
PSOCOB	RES+1~, RES+7, RES+12, REV+1~, REV+7, REV+12, ECS+14~, ECS+16*, ECS+58, ECS+81 , ECS+119, EDITDT~
PSODATE	EDITDT+16~, EDITDT+41, EDITDT+42, EDITDT+48, EDITDT+49, EDITDT+52, EDITDT+53, EDITDT+55, EDITDT+56, EDITDT+65* , EDITDT+66*, EDITDT+68, EDITDT+70, EDITDT+71, EDITDT+72
PSODATEARRAY	EDITDT+16~
PSODATEARRAY(	EDITDT+29, EDITDT+31, EDITDT+42*, EDITDT+49, EDITDT+52, EDITDT+53, EDITDT+66, EDITDT+68, EDITDT+71
PSODATEARRAY(""	EDITDT+48
PSODATESELECTED	ECS+14~, ECS+80, ECS+81, ECS+87, ECS+94, EDITDT~, EDITDT+84
PSODESC	EDITDT+16~, EDITDT+71*, EDITDT+72, EDITDT+73
PSODOS	ECS+15~, ECS+81*, ECS+82, ECS+87, ECS+119
PSOELIG	RES+1~, RES+5, RES+7, FILL+1~, REV+1~, REV+5, REV+7, ECS+15~, ECS+57*, ECS+58
PSOET	FILL+1~
PSOFILL	RES+1~, RES+2, RES+4, RES+5, RES+7, RES+9, RES+12, RES+13, REV+1~, REV+2 , REV+4, REV+5, REV+7, REV+9, REV+12, RXDEL~, RXDEL+2, ECS~, ECS+26, ECS+27* , ECS+29, ECS+38, ECS+49, ECS+57, ECS+58, ECS+67, ECS+81, ECS+119, ECS+135, ECS+137 , EDITDT~, EDITDT+23, EDITDT+30
PSOFILLDT	EDITDT+16~, EDITDT+30*, EDITDT+31
PSOFL	RES+1~, RES+2, FILL~, FILL+6!, FILL+17, FILL+18, REV+1~, REV+2
PSOFL(	FILL+19
PSOFLZ	RES+1~, FILL+6!, REV+1~
PSOFLZ(	FILL+11, FILL+19, FILL+27, FILL+29, FILL+30
PSOFLZ(""	FILL+38
PSOFLZ(0	FILL+15*
PSOIEN57	EDITDT+17~, EDITDT+38, EDITDT+39, EDITDT+40
PSOIEN59	ECS+15~, ECS+38, ECS+39, ECS+40, ECS+41, ECS+81, ECS+87, ECS+112, EDITDT~, EDITDT+39
PSOQUIT	ECS+15~, ECS+17, ECS+26, ECS+28, ECS+32, ECS+66, ECS+67, ECS+71, ECS+87, ECS+88 , ECS+94, ECS+105, ECS+106, ECS+111, ECS+112
PSORELEASEDT	EDITDT+17~, EDITDT+23*, EDITDT+24, EDITDT+29
PSORESPONSE	ECS+15~, ECS+119, ECS+124, ECS+126
PSORX	ECS~, ECS+27, ECS+38, ECS+49, ECS+57, ECS+58, ECS+67, ECS+81, ECS+119, ECS+135 , ECS+136, ECS+137, EDITDT~, EDITDT+23, EDITDT+30
PSORX("PSOL"	RES+13, ECS+136
PSOSCREEN	ECS~, ECS+136, ECS+137, ECS+144
>> PSOSTFLT	ECS+144
PSOSTR	FILL+1~, FILL+26, FILL+32, FILL+36
PSOTEMP	EDITDT+17~
PSOTEMP(	EDITDT+70*, EDITDT+85, EDITDT+87
PSOVALID	ECS+15~, ECS+58*, ECS+59
PSOVRIEN	ECS+15~, ECS+112
PSOVRIEN(1	ECS+119
REFILL	FILL+1~, FILL+8*, FILL+9, FILL+10, FILL+11
RELDT	FILL+1~, FILL+10, FILL+11, FILL+14, FILL+15, FILL+30, FILL+31, FILL+32, FILL+33
REVREAS	RES+1~, RES+7, REV+1~, REV+7, REV+12
RF	FILL+1~, FILL+19, FILL+27, FILL+29, FILL+30, FILL+32, FILL+33
RXIEN	RES~, RES+2, RES+5, RES+7, RES+9, RES+12, RES+13, FILL~, FILL+3, FILL+5 , FILL+8, FILL+9, FILL+10, FILL+13, FILL+14, FILL+17, VER~, VER+4, REV~, REV+2 , REV+5, REV+7, REV+9, REV+12, RXDEL~, RXDEL+2, RXDEL+4, RXDEL+5
RXNUM	FILL+1~, FILL+5*, FILL+22
U	FILL+5, FILL+9, FILL+10, FILL+11, FILL+13, FILL+14, FILL+15, FILL+19, FILL+29, FILL+30 , FILL+36, RXDEL+2, RXDEL+4, RXDEL+5, ECS+39, ECS+40
VALID	RES+1~, RES+7, RES+8, REV+1~, REV+7, REV+8
>> VALMAR	ECS+19
>> VALMBCK	RES+15, VER+8, REV+14, END+1, ECSQUIT+2*
X	FILL+1~, RXDEL+5~, RXDEL+6, EDITDT+17~, EDITDT+25, EDITDT+26, EDITDT+27, EDITDT+51, EDITDT+52, EDITDT+53 , EDITDT+67, EDITDT+68, EDITDT+71
Y	FILL+1~, FILL+43, EDITDT+17~, EDITDT+64, EDITDT+69, EDITDT+70, EDITDT+72, EDITDT+73, EDITDT+84, EDITDT+85 , EDITDT+87

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOBPSU3

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

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: