Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls