Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: BPSREOP1

Package: E Claims Management Engine

Routine: BPSREOP1


Information

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

Source Information

Source file <BPSREOP1.m>

Call Graph

Call Graph

Call Graph Total: 16

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
E Claims Management Engine 5 BPS PRTCL REOPEN  BPS PRTCL USRSCR REOPEN CLOSED CLAIMS  BPSBUTL  BPSREOP  BPSREOP1  

Entry Points

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All