Routine: BPSSCRCL

Information

BPSSCRCL ;BHAM ISC/SS - ECME SCREEN CLOSE CLAIMS ;05-APR-05

Package	Total	Call Graph
E Claims Management Engine	14	$$RELDATE^BPSBCKJ CLOSE^BPSBUTL $$PAYABLE^BPSOSRX5 ($$CLOSED02,$$EREJTXT,$$NB)^BPSSCR03 $$MKNEWARR^BPSSCR05 $$PROMPT^BPSSCRCV $$YESNO^BPSSCRRS ($$PATNAME,$$RXREF)^BPSSCRU2 $$CLAIMST^BPSSCRU3 $$ASKLINES^BPSSCRU4 CH2NDINS^BPSSCRU5 DISPREJ^BPSSCRU6 REDRAW^BPSSCRUD $$PAYBLSEC^BPSUTIL2
VA FileMan	4	^DIC ^DIE $$GET1^DIQ ^DIR
Integrated Billing	1	$$INSUR^IBBAPI
Kernel	1	$$NOW^XLFDT
List Manager	1	(FULL,PAUSE)^VALM1
Outpatient Pharmacy	1	$$FIND^PSOREJUT

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: 8

Package	Total	Caller Graph
E Claims Management Engine	7	BPS PRTCL USRSCR CLOSE BPSCMT01 BPSPSOU1 BPSSCRN0 BPSSCRRV BPSSCRU5 BPSWRKLS
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
CLO	;entry point to close claims
CLOSE(BP59ARR)	;
QUITCL()	;
ASKQUEST(BPRELCOP,BPREAZ,BPCOMZ,BP90ANSZ,BPRCOPAZ)	;*/
REASON()	;
COMMENT(BPSTR,BPMLEN)	;*/
CLOSEIT(BPSTRA,REASON,BPSCLCM,BPDROP,BPRELCOP)	;
DSPERR(MSG)	; Display the ERROR message
NEXTINS(BP59,BPINSNAM)	;get insurance info by the pointer of #9002313.59
PROCINS(BPZZ)	;

External References

Name	Field # of Occurrence
$$RELDATE^BPSBCKJ	CLOSE+57
CLOSE^BPSBUTL	CLOSEIT+8
$$PAYABLE^BPSOSRX5	CLOSE+35
$$CLOSED02^BPSSCR03	CLOSE+23
$$EREJTXT^BPSSCR03	CLOSE+18
$$NB^BPSSCR03	CLOSE+17
$$MKNEWARR^BPSSCR05	CLOSE+4
$$PROMPT^BPSSCRCV	ASKQUEST+10
$$YESNO^BPSSCRRS	CLOSE+66, ASKQUEST+20, ASKQUEST+23
$$PATNAME^BPSSCRU2	CLOSE+8, CLOSE+61
$$RXREF^BPSSCRU2	CLOSE+25, CLOSE+55
$$CLAIMST^BPSSCRU3	CLOSE+32
$$ASKLINES^BPSSCRU4	CLO+5
CH2NDINS^BPSSCRU5	CLOSE+61
DISPREJ^BPSSCRU6	CLOSE+14
REDRAW^BPSSCRUD	CLO+10
$$PAYBLSEC^BPSUTIL2	CLOSE+35
^DIC	REASON+5
^DIE	CLOSEIT+11
$$GET1^DIQ	CLOSEIT+2, CLOSEIT+3, CLOSEIT+7
^DIR	COMMENT+10
$$INSUR^IBBAPI	NEXTINS+13
$$FIND^PSOREJUT	CLOSE+26
FULL^VALM1	CLO+3
PAUSE^VALM1	CLOSE+10, CLOSE+84, QUITCL+2
$$NOW^XLFDT	CLOSEIT+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter the line numbers for the claim(s) to be closed." Line Location: CLO+4
Function Call: WRITE	Prompt: !!,"You've chosen to close the following prescription(s) for",!,$E($$PATNAME^BPSSCRU2(BPDFN),1,13)_" :" Line Location: CLOSE+8
Function Call: WRITE	Prompt: @IOF Line Location: CLOSE+10
Function Call: WRITE	Prompt: !,@VALMAR@(+$G(BPNEWARR(BPDFN,BP59)),0) Line Location: CLOSE+13
Function Call: WRITE	Prompt: !?6,$$EREJTXT^BPSSCR03(BP59) Line Location: CLOSE+18
Function Call: WRITE	Prompt: !,"Entry is NON BILLABLE. There is no claim to close." Line Location: CLOSE+19
Function Call: WRITE	Prompt: !,"This claim is already closed." Line Location: CLOSE+23
Function Call: WRITE	Prompt: !,"The Prescription is currently open in the pharmacist's Third Party Payer" Line Location: CLOSE+27
Function Call: WRITE	Prompt: !,"Reject Worklist. The claim cannot be closed until action is taken by the" Line Location: CLOSE+28
Function Call: WRITE	Prompt: !,"pharmacist." Line Location: CLOSE+29
Function Call: WRITE	Prompt: !,"The claim cannot be closed if the secondary claim is payable.",!,"Please reverse the secondary claim first." Line Location: CLOSE+36
Function Call: WRITE	Prompt: !,"The CLOSE action can only be applied to an E REJECTED or E REVERSAL ACCEPTED",!,"secondary claim. This claim is ",$P(BPCLST,U),".",!,"The secondary claim is also closed when the primary claim is closed." Line Location: CLOSE+38
Function Call: WRITE	Prompt: !!,"ALL Selected Rxs will be CLOSED using the same information gathered in the",!,"following prompts.",! Line Location: CLOSE+65
Function Call: WRITE	Prompt: !! Line Location: CLOSE+69
Function Call: WRITE	Prompt: @IOF Line Location: CLOSE+72
Function Call: WRITE	Prompt: !!,"0 claims have been closed." Line Location: QUITCL+1
Function Call: WRITE	Prompt: !!,"This response must have no more than "_BPMLEN_" characters" Line Location: COMMENT+13
Function Call: WRITE	Prompt: !,"and must not contain embedded uparrow.",! Line Location: COMMENT+14
Function Call: WRITE	Prompt: !,"Closing Claim ",$$GET1^DIQ(9002313.02,BPSCLA,.01),"..." Line Location: CLOSEIT+3
Function Call: WRITE	Prompt: !," * CLAIM ",$$GET1^DIQ(9002313.02,BPSCLA,.01)," IN USE *" Line Location: CLOSEIT+7
Function Call: WRITE	Prompt: "NOT OK" Line Location: CLOSEIT+9
Function Call: WRITE	Prompt: "OK" Line Location: CLOSEIT+13
Function Call: WRITE	Prompt: !,"Error: * ",MSG," *" Line Location: DSPERR+1
Routine Call	DIC Line Location: REASON+5
Routine Call	DIE Line Location: CLOSEIT+11
Routine Call	DIR Line Location: COMMENT+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(356.8 - [#356.8]	Classic Fileman Calls
^BPSC - [#9002313.02]	Classic Fileman Calls, GET1^DIQ
^BPST - [#9002313.59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BPSC - [#9002313.02]	CLOSEIT+5, CLOSEIT+10, CLOSEIT+12
^BPST - [#9002313.59]	CLOSE+23, CLOSE+34, CLOSE+35, NEXTINS+4, NEXTINS+5, NEXTINS+6, NEXTINS+7

Label References

Name	Line Occurrences
$$ASKQUEST	CLOSE+70
$$CLOSE	CLO+10
$$CLOSEIT	CLOSE+80
$$COMMENT	ASKQUEST+12
$$QUITCL	CLOSE+40, CLOSE+41, CLOSE+63, CLOSE+67, CLOSE+70
$$REASON	ASKQUEST+6
DSPERR	CLOSEIT+9
PROCINS	NEXTINS+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BP0	PROCINS+1~
BP1	NEXTINS+14, NEXTINS+16, PROCINS+1~, PROCINS+2, PROCINS+4, PROCINS+6, PROCINS+8
BP2	PROCINS+1~
BP3568	REASON+1~
BP36	NEXTINS+1~
BP59	CLOSE+2~, CLOSE+9, CLOSE+12, CLOSE+13, CLOSE+14, CLOSE+17, CLOSE+18, CLOSE+23, CLOSE+25, CLOSE+32 , CLOSE+34, CLOSE+35, CLOSE+49, CLOSE+51, CLOSE+52, CLOSE+53, CLOSE+76, CLOSE+77, CLOSE+79, CLOSE+80 , NEXTINS~, NEXTINS+4, NEXTINS+5, NEXTINS+6, NEXTINS+7
BP59ARR	CLOSE~, CLOSE+4
BP59ARR(	CLOSE+53
BP59FRST	CLOSE+3~, CLOSE+48, CLOSE+52, CLOSE+55, CLOSE+61
BP90ANSW	CLOSE+3~, CLOSE+70, CLOSE+80
BP90ANSZ	ASKQUEST~, ASKQUEST+2, ASKQUEST+10, ASKQUEST+11, ASKQUEST+18
BPCLST	CLOSE+2~, CLOSE+32*, CLOSE+35, CLOSE+37, CLOSE+38
BPCLTOT	CLOSE+3~, CLOSE+74, CLOSE+81, CLOSE+83, CLOSE+85
BPCOMM	CLOSE+3~, CLOSE+70, CLOSE+80
BPCOMZ	ASKQUEST~, ASKQUEST+1, ASKQUEST+12, ASKQUEST+13, ASKQUEST+14*
BPCOORD	NEXTINS+2~, NEXTINS+22, NEXTINS+23, NEXTINS+24, PROCINS+1~, PROCINS+6*, PROCINS+8
BPCOP	CLOSE+3~, CLOSE+78, CLOSE+79, CLOSE+80
BPDFN	CLOSE+2~, CLOSE+6, CLOSE+7, CLOSE+8, CLOSE+9, CLOSE+12, CLOSE+13, CLOSE+46, CLOSE+47, CLOSE+51 , CLOSE+61, CLOSE+75, CLOSE+76, CLOSE+77, CLOSE+79, NEXTINS+1~, NEXTINS+7*, NEXTINS+13
BPDOS	NEXTINS+1~, NEXTINS+5, NEXTINS+6, NEXTINS+13, NEXTINS+27
BPDROP	CLOSEIT~, CLOSEIT+8, CLOSEIT+11
BPFOUND	NEXTINS+2~, NEXTINS+20, NEXTINS+23, NEXTINS+25, NEXTINS+26, NEXTINS+27
BPHONE	NEXTINS+1~, NEXTINS+4*
BPIFANY	CLOSE+2~, CLOSE+5, CLOSE+11
BPINS	CLOSE+3~, CLOSE+4, NEXTINS+2~, NEXTINS+24*, NEXTINS+25
BPINS(	CLOSE+46, CLOSE+47, CLOSE+51
BPINSNAM	NEXTINS~, NEXTINS+25
BPINSNM	CLOSE+3~, CLOSE+47*, CLOSE+51, CLOSE+61, NEXTINS+1~
BPLCK	CLOSEIT+1~, CLOSEIT+4, CLOSEIT+6, CLOSEIT+10, CLOSEIT+12
BPMLEN	COMMENT~, COMMENT+3*, COMMENT+6, COMMENT+12, COMMENT+13, COMMENT+15
BPNEWARR	CLOSE+1~, CLOSE+4
BPNEWARR(	CLOSE+7, CLOSE+9, CLOSE+12, CLOSE+13, CLOSE+75, CLOSE+76, CLOSE+77, CLOSE+79
BPPHARM	NEXTINS+2~, NEXTINS+16, NEXTINS+21, NEXTINS+23, NEXTINS+24, PROCINS+1~, PROCINS+4*, PROCINS+8
BPPHONE	PROCINS+1~
BPQ	CLOSE+2~, CLOSE+5, CLOSE+7, CLOSE+9, CLOSE+10, CLOSE+11, CLOSE+17, CLOSE+23, CLOSE+30, CLOSE+35* , CLOSE+37, CLOSE+41, CLOSE+44, CLOSE+46, CLOSE+47, CLOSE+51, CLOSE+63, CLOSE+66, CLOSE+67, ASKQUEST+23 , ASKQUEST+24, ASKQUEST+25, COMMENT+1~, COMMENT+8, COMMENT+9, COMMENT+11, COMMENT+12*, COMMENT+16
BPRCOPAY	CLOSE+3~, CLOSE+70, CLOSE+79
BPRCOPAZ	ASKQUEST~, ASKQUEST+3, ASKQUEST+20, ASKQUEST+21
BPREAS	CLOSE+3~, CLOSE+70, CLOSE+80
BPREASNM	REASON+1~
BPREAZ	ASKQUEST~, ASKQUEST+6*, ASKQUEST+7, ASKQUEST+8
BPREJFLG	CLOSE+1~, CLOSE+5, CLOSE+12, CLOSE+39
BPRELCOP	ASKQUEST~, ASKQUEST+18, CLOSEIT~, CLOSEIT+8
BPRET	CLO+1~, CLO+5*, CLO+6
BPRETV	CLOSE+1~, CLOSE+4*, CLOSE+40, CLOSE+70
BPRXINFO	CLOSE+3~, CLOSE+50!, CLOSE+61
BPRXINFO(	CLOSE+53*
BPS52	CLOSE+2~, CLOSE+56*, CLOSE+57
BPSARR59	CLO+1~, CLO+5, CLO+10
BPSCLA	CLOSEIT+1~, CLOSEIT+2*, CLOSEIT+3, CLOSEIT+5, CLOSEIT+7, CLOSEIT+8, CLOSEIT+10, CLOSEIT+11, CLOSEIT+12
BPSCLCM	CLOSEIT~, CLOSEIT+8
BPSECOND	CLOSE+2~, CLOSE+5, CLOSE+34, CLOSE+37, CLOSE+45
BPSRF	CLOSE+2~, CLOSE+56*, CLOSE+57
BPSTR	COMMENT~, COMMENT+2*, COMMENT+5
BPSTRA	CLOSEIT~, CLOSEIT+2, CLOSEIT+8
BPSZ	CLOSE+2~, CLOSE+25, CLOSE+26, CLOSE+55, CLOSE+56
BPX	NEXTINS+1~, NEXTINS+13*, NEXTINS+17
BPY	NEXTINS+1~, NEXTINS+3*
BPZZ	NEXTINS+1~, NEXTINS+13, NEXTINS+18, PROCINS~
BPZZ("IBBAPI"	NEXTINS+14, NEXTINS+16, NEXTINS+25, NEXTINS+27, PROCINS+2, PROCINS+4, PROCINS+6
BPZZ("RES"	NEXTINS+23, NEXTINS+24, PROCINS+8*
DA	CLOSEIT+1~, CLOSEIT+11*
DIC	REASON+1~, REASON+3*
DIC("S"	REASON+4*
DIC(0	REASON+3*
DIE	CLOSEIT+1~, CLOSEIT+11*
DIR	COMMENT+1~
DIR("?"	COMMENT+6, COMMENT+7
DIR("A"	COMMENT+5*
DIR("B"	COMMENT+15*
DIR(0	COMMENT+4*
DR	CLOSEIT+1~, CLOSEIT+11*
DTOUT	COMMENT+1~, COMMENT+11
DUOUT	COMMENT+1~, COMMENT+11
DUZ	CLOSEIT+11
ERROR	CLOSEIT+1~, CLOSEIT+8, CLOSEIT+9
IOF	CLOSE+10, CLOSE+72
MSG	DSPERR~, DSPERR+1
REASON	CLOSEIT~, CLOSEIT+8, CLOSEIT+11
U	CLOSE+12, CLOSE+23, CLOSE+26, CLOSE+34, CLOSE+35, CLOSE+38, CLOSE+56, CLOSE+70, CLOSE+77, CLOSE+79 , CLOSE+80, ASKQUEST+8, REASON+7, NEXTINS+4, NEXTINS+5, NEXTINS+6, NEXTINS+7, NEXTINS+25, NEXTINS+27
>> VALMAR	CLO+2, CLO+5, CLOSE+13, CLOSE+53
>> VALMBCK	CLO+6, CLO+11
X	CLOSE+1~, CLOSE+10
Y	REASON+1~, REASON+6, REASON+7, COMMENT+12, COMMENT+15, COMMENT+17
Y(0	REASON+7

Customize PDF page

Package: E Claims Management Engine

Routine: BPSSCRCL

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: