Routine: BPSREOP1

Information

BPSREOP1 ;BHAM ISC/SS - REOPEN CLOSED CLAIMS ;03/07/08 14:54

Package	Total	Call Graph
E Claims Management Engine	11	$$REOPEN^BPSBUTL $$RXDEL^BPSOS COLLECT^BPSREOP1 ($$CLAIMINF,$$LJ)^BPSSCR02 ($$CLOSED02,$$NB)^BPSSCR03 $$YESNO^BPSSCRRS ($$DRGNAME,$$ECMENUM,$$RXNUM,$$RXREF,$$SSN4)^BPSSCRU2 $$ASKLINES^BPSSCRU4 ($$CLREASON,$$FORMDATE,$$INSNAME,$$PLANNAME,$$RELDATE)^BPSSCRU6 REDRAW^BPSSCRUD $$LASTDOS^BPSUTIL2
List Manager	2	(FULL,PAUSE)^VALM1 (CLEAN,SET)^VALM10
VA FileMan	2	FILE^DIE ^DIR
Kernel	1	$$NOW^XLFDT

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
E Claims Management Engine	5	BPS PRTCL REOPEN BPS PRTCL USRSCR REOPEN CLOSED CLAIMS BPSBUTL BPSREOP BPSREOP1
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
COLLECT(BPDFN,BPSTRT,BPEND)	;
CLAIMINF(BP59)	;*/
PATINF(BPDFN)	;*/
PATNAME(BPDFN)	;
EUSCREOP	;
SELECT	;
GET59(BPLINE)	;
SELCLAIM(BP59)	;
REDRAW	;
PROMPT(BPSPROM,BPSDFVL,BPMODE,MINLEN,MAXLEN)	;
UPDREOP(BP02,BPCLOSED,BPREOPDT,BPDUZ,BPCOMM)	;
REOP	;

External References

Name	Field # of Occurrence
$$REOPEN^BPSBUTL	EUSCREOP+58, SELCLAIM+27
$$RXDEL^BPSOS	COLLECT+10, EUSCREOP+33
COLLECT^BPSREOP1	REDRAW+3
$$CLAIMINF^BPSSCR02	CLAIMINF+1
$$LJ^BPSSCR02	COLLECT+16, PATINF+3, EUSCREOP+17, SELCLAIM+6, SELCLAIM+7, SELCLAIM+8
$$CLOSED02^BPSSCR03	EUSCREOP+28
$$NB^BPSSCR03	EUSCREOP+21
$$YESNO^BPSSCRRS	EUSCREOP+47, EUSCREOP+52, SELCLAIM+25
$$DRGNAME^BPSSCRU2	SELCLAIM+8
$$ECMENUM^BPSSCRU2	SELCLAIM+16
$$RXNUM^BPSSCRU2	SELCLAIM+7
$$RXREF^BPSSCRU2	SELCLAIM+5
$$SSN4^BPSSCRU2	PATINF+2
$$ASKLINES^BPSSCRU4	EUSCREOP+12
$$CLREASON^BPSSCRU6	SELCLAIM+19
$$FORMDATE^BPSSCRU6	SELCLAIM+15, SELCLAIM+17
$$INSNAME^BPSSCRU6	SELCLAIM+18
$$PLANNAME^BPSSCRU6	SELCLAIM+18
$$RELDATE^BPSSCRU6	SELCLAIM+17
REDRAW^BPSSCRUD	EUSCREOP+67
$$LASTDOS^BPSUTIL2	SELCLAIM+16
FILE^DIE	UPDREOP+11
^DIR	PROMPT+7
FULL^VALM1	EUSCREOP+9, SELECT+4, SELCLAIM+1
PAUSE^VALM1	EUSCREOP+6, EUSCREOP+65, EUSCREOP+66, SELECT+2, SELECT+13, SELCLAIM+11, SELCLAIM+30
CLEAN^VALM10	COLLECT+1, REDRAW+2
SET^VALM10	COLLECT+16
$$NOW^XLFDT	EUSCREOP+58, SELCLAIM+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must hold the BPS MANAGER Security Key to access the",!,"Reopen Closed Claims option." Line Location: EUSCREOP+4
Function Call: WRITE	Prompt: !,"Enter the line number for the claim you want to reopen." Line Location: EUSCREOP+11
Function Call: WRITE	Prompt: !!,"You've chosen to reopen the following prescriptions(s) for" Line Location: EUSCREOP+38
Function Call: WRITE	Prompt: !,BPDISP(BPI,BPJ) Line Location: EUSCREOP+41
Function Call: WRITE	Prompt: !!,"All Selected Rxs will be reopened using the same information gathered in the",!,"following prompts.",!! Line Location: EUSCREOP+46
Function Call: WRITE	Prompt: !,$P(BPRETV,U,2) Line Location: EUSCREOP+59
Function Call: WRITE	Prompt: !!,BPCNT_" claims have been reopened.",! Line Location: EUSCREOP+62
Function Call: WRITE	Prompt: !!,"1 claim has been reopened.",! Line Location: EUSCREOP+63
Function Call: WRITE	Prompt: !!,"Unable to reopen claim" Line Location: EUSCREOP+64
Function Call: WRITE	Prompt: !,"No claims to select." Line Location: SELECT+2
Function Call: WRITE	Prompt: !,"Please select a SINGLE Rx Line Item." Line Location: SELECT+9
Function Call: WRITE	Prompt: !,"Please select a VALID Rx Line Item." Line Location: SELECT+11
Function Call: WRITE	Prompt: !,"Invalid selection." Line Location: SELECT+13
Function Call: WRITE	Prompt: @IOF Line Location: SELCLAIM+2
Function Call: WRITE	Prompt: !,?1,$$LJ^BPSSCR02("PATIENT NAME: "_$$PATNAME(BPDFN),30) Line Location: SELCLAIM+6
Function Call: WRITE	Prompt: ?33,$$LJ^BPSSCR02("RX#: "_$$RXNUM^BPSSCRU2(+BPX1)_" "_$P(BPX1,U,2),22) Line Location: SELCLAIM+7
Function Call: WRITE	Prompt: ?57,$$LJ^BPSSCR02("DRUG: "_$$DRGNAME^BPSSCRU2(BP59),22) Line Location: SELCLAIM+8
Function Call: WRITE	Prompt: !,"BPS CLAIMS file error!" Line Location: SELCLAIM+11
Function Call: WRITE	Prompt: !,?3,"CLOSED ",$$FORMDATE^BPSSCRU6(+$P($G(^BPSC(BPIEN02,900)),U,2),2) Line Location: SELCLAIM+15
Function Call: WRITE	Prompt: !,?4,"ECME#: "_$$ECMENUM^BPSSCRU2(BP59)_", DOS: "_$$LASTDOS^BPSUTIL2(BP59,1) Line Location: SELCLAIM+16
Function Call: WRITE	Prompt: ", RELEASE DATE: "_$$FORMDATE^BPSSCRU6($$RELDATE^BPSSCRU6(+BPX1,+$P(BPX1,U,2)),2) Line Location: SELCLAIM+17
Function Call: WRITE	Prompt: !,?4,"PLAN: ",$$PLANNAME^BPSSCRU6(BP59)," INSURANCE: ",$$INSNAME^BPSSCRU6(BP59) Line Location: SELCLAIM+18
Function Call: WRITE	Prompt: !,?4,"CLOSE REASON: ",$$CLREASON^BPSSCRU6(+$P(BPCLDATA,U,4)) Line Location: SELCLAIM+19
Function Call: WRITE	Prompt: !,?4,"DROP TO PAPER: ",$S(+$P(BPCLDATA,U,5)=1:"YES",1:"NO") Line Location: SELCLAIM+20
Function Call: WRITE	Prompt: !,?4,"CLOSE USER: ",$P($G(^VA(200,+$P(BPCLDATA,U,3),0)),U) Line Location: SELCLAIM+21
Function Call: WRITE	Prompt: !!,"You have selected the CLOSED electronic claim listed above.",! Line Location: SELCLAIM+22
Function Call: WRITE	Prompt: !,$P(BPRETV,U,2),! Line Location: SELCLAIM+28
Function Call: WRITE	Prompt: !,"1 claim has been reopened.",! Line Location: SELCLAIM+29
Routine Call	DIE Line Location: UPDREOP+11
Routine Call	DIR Line Location: PROMPT+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BPSC - [#9002313.02]	COLLECT+15, SELCLAIM+13, SELCLAIM+15
^BPST - [#9002313.59]	COLLECT+7, COLLECT+8, COLLECT+10, COLLECT+11, EUSCREOP+15, EUSCREOP+28, EUSCREOP+33, EUSCREOP+57, SELCLAIM+4, SELCLAIM+10
^BPST("AC"	COLLECT+6
^BPST(9002313.02	UPDREOP+8, UPDREOP+12
^DPT - [#2]	PATNAME+1
^TMP("BPSREOP"	GET59+1
^VA(200 - [#200]	SELCLAIM+21
^XUSEC("BPS MANAGER"	EUSCREOP+3

Label References

Name	Line Occurrences
$$CLAIMINF	COLLECT+16
$$GET59	SELECT+10
$$PATNAME	PATINF+2, EUSCREOP+17, SELCLAIM+6
$$PROMPT	EUSCREOP+49, SELECT+7, SELCLAIM+23
$$SELCLAIM	SELECT+14
REDRAW	SELECT+16
REOP	EUSCREOP+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BP02	UPDREOP~, UPDREOP+3, UPDREOP+8, UPDREOP+12
BP59	CLAIMINF~, CLAIMINF+1, EUSCREOP+1~, EUSCREOP+7, EUSCREOP+14, EUSCREOP+15, EUSCREOP+18, EUSCREOP+21, EUSCREOP+24, EUSCREOP+28 , EUSCREOP+31, EUSCREOP+33, EUSCREOP+36, EUSCREOP+53, EUSCREOP+56, EUSCREOP+57, EUSCREOP+58, SELECT+3~, SELECT+5, SELECT+10 , SELECT+13, SELECT+14, SELCLAIM~, SELCLAIM+4, SELCLAIM+5, SELCLAIM+8, SELCLAIM+10, SELCLAIM+16, SELCLAIM+18, SELCLAIM+27
BPARR	REDRAW+1~
BPCLDATA	SELCLAIM+3~, SELCLAIM+13*, SELCLAIM+19, SELCLAIM+20, SELCLAIM+21
BPCLOSED	UPDREOP~, UPDREOP+4
BPCNT	EUSCREOP+1~, EUSCREOP+7, EUSCREOP+16, EUSCREOP+17, EUSCREOP+18, EUSCREOP+22, EUSCREOP+23, EUSCREOP+29, EUSCREOP+30, EUSCREOP+34 , EUSCREOP+35, EUSCREOP+53, EUSCREOP+60, EUSCREOP+62, EUSCREOP+63, EUSCREOP+64
BPCOMM	EUSCREOP+1~, EUSCREOP+49, EUSCREOP+50, EUSCREOP+58, SELCLAIM+3~, SELCLAIM+23, SELCLAIM+24, SELCLAIM+27, UPDREOP~, UPDREOP+7
BPDA	UPDREOP+2~
BPDA(	UPDREOP+4, UPDREOP+5, UPDREOP+6, UPDREOP+7
BPDFN	COLLECT~, COLLECT+6, PATINF~, PATINF+2, PATNAME~, PATNAME+1, EUSCREOP+1~, EUSCREOP+15, EUSCREOP+17, EUSCREOP+18 , EUSCREOP+23, EUSCREOP+30, EUSCREOP+35, SELCLAIM+3~, SELCLAIM+4, SELCLAIM+6, REDRAW+3
BPDISP	EUSCREOP+1~
BPDISP(	EUSCREOP+17, EUSCREOP+18, EUSCREOP+23, EUSCREOP+30, EUSCREOP+35*, EUSCREOP+39, EUSCREOP+40, EUSCREOP+41
BPDUZ	UPDREOP~, UPDREOP+6
BPEND	COLLECT~, COLLECT+8, REDRAW+3
BPI	EUSCREOP+1~, EUSCREOP+7, EUSCREOP+39, EUSCREOP+40, EUSCREOP+41
BPIEN02	COLLECT+3~, COLLECT+11, COLLECT+13, COLLECT+15, EUSCREOP+1~, EUSCREOP+57, EUSCREOP+58, SELCLAIM+3~, SELCLAIM+10*, SELCLAIM+11 , SELCLAIM+13, SELCLAIM+15, SELCLAIM+27
BPIEN59	COLLECT+3~, COLLECT+5, COLLECT+6, COLLECT+7, COLLECT+8, COLLECT+10, COLLECT+11, COLLECT+16
BPJ	EUSCREOP+1~, EUSCREOP+7, EUSCREOP+40, EUSCREOP+41
BPLCK	UPDREOP+2~, UPDREOP+9*, UPDREOP+10, UPDREOP+12
BPLINE	SELECT+7*, SELECT+8, SELECT+9, SELECT+10, SELECT+12, GET59~, GET59+1
BPMODE	PROMPT~, PROMPT+2, PROMPT+3, PROMPT+4
BPQ	SELECT+3~, SELECT+6, SELECT+7, SELECT+8, SELECT+10, SELCLAIM+3~, SELCLAIM+25, SELCLAIM+26
BPREOP	EUSCREOP+1~, EUSCREOP+12, EUSCREOP+45, EUSCREOP+65
BPREOP(	EUSCREOP+14, EUSCREOP+18, EUSCREOP+24!, EUSCREOP+31!, EUSCREOP+36!, EUSCREOP+56
BPREOPDT	UPDREOP~, UPDREOP+5
BPRETV	EUSCREOP+1~, EUSCREOP+58, EUSCREOP+59, EUSCREOP+60, SELCLAIM+3~, SELCLAIM+27, SELCLAIM+28
BPSDFVL	PROMPT~, PROMPT+6
BPSPROM	PROMPT~, PROMPT+5
BPSRXNUM	EUSCREOP+1~
BPSTRT	COLLECT~, COLLECT+7, REDRAW+3
BPX	SELCLAIM+3~
BPX1	SELCLAIM+3~, SELCLAIM+5*, SELCLAIM+7, SELCLAIM+17
DIR	PROMPT+1~
DIR("A"	PROMPT+5*
DIR("B"	PROMPT+6*
DIR(0	PROMPT+2, PROMPT+3, PROMPT+4*
DIRUT	PROMPT+1~, PROMPT+7
DUZ	EUSCREOP+3, EUSCREOP+58, SELCLAIM+27
ERRARR	UPDREOP+2~, UPDREOP+13
ERRARR("DIERR"	UPDREOP+13
IOF	SELCLAIM+2
IR	PROMPT+1~
LINE	COLLECT+2~, COLLECT+4, COLLECT+16, COLLECT+17, COLLECT+18
MAXLEN	PROMPT~, PROMPT+4
MINLEN	PROMPT~, PROMPT+4
RECIENS	UPDREOP+2~, UPDREOP+3*, UPDREOP+4, UPDREOP+5, UPDREOP+6, UPDREOP+7
U	COLLECT+7, COLLECT+8, COLLECT+10, COLLECT+11, COLLECT+15, PATNAME+1, EUSCREOP+15, EUSCREOP+18, EUSCREOP+28, EUSCREOP+33 , EUSCREOP+57, EUSCREOP+59, SELCLAIM+4, SELCLAIM+7, SELCLAIM+10, SELCLAIM+15, SELCLAIM+17, SELCLAIM+19, SELCLAIM+20, SELCLAIM+21 , SELCLAIM+28
>> VALMAR	EUSCREOP+8, EUSCREOP+12, EUSCREOP+18
>> VALMBCK	EUSCREOP+5, EUSCREOP+65, SELECT+2, SELECT+12, SELECT+13, SELECT+14, SELECT+17, REDRAW+4
>> VALMCNT	COLLECT+18*, SELECT+1
X	PATINF+1~, PATINF+2*, PATINF+3, PROMPT+1~
Y	PROMPT+1~, PROMPT+8, PROMPT+9

Customize PDF page

Package: E Claims Management Engine

Routine: BPSREOP1

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: