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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: BPSSCRCL

Package: E Claims Management Engine

Routine: BPSSCRCL


Information

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

Source Information

Source file <BPSSCRCL.m>

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) ;

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call