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

Package: E Claims Management Engine

Routine: BPSSCRN0


Information

BPSSCRN0 ;ALB/ESG - ECME user screen open/close non-billable entry ;21-SEP-2015

Source Information

Source file <BPSSCRN0.m>

Entry Points

Name Comments DBIA/ICR reference
OC ; entry point for open/close non-billable entry action
COMQ ; capture the free text comments
OCX ;
OCNARR(BPARR,BPARR1) ; Re-sort array of user selected claims
; The user selected claims will be re-sorted, dividing them by
; Billable Claims, Non-Billable Open Claims and NB Closed Claims.
; The claims will also be sorted, within each grouping, alphabetically
; by Patient Name.
; BPARR - input - array of user selected claims
; BPARR1 - output - array of user selected claims; re-sorted
; BPARR1(1,PATIENT,BPS TRANSACTION) = Billable Claims
; BPARR1(2,PATIENT,BPS TRANSACTION) = Non-Billable Open Claims
; BPARR1(3,PATIENT,BPS TRANSACTION) = Non-Billable Closed Claims
; Function Return Value = Counts of each category from BPARR1
; # of Billable Claims^# of Open NB Claims^# of Closed NB Claims

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Open/Close Non-Billable Entry"
  • Line Location: OC+4
Function Call: WRITE
  • Prompt: !,"Enter the line numbers for the entry/entries to be opened or closed."
  • Line Location: OC+5
Function Call: WRITE
  • Prompt: !!,"The selected entries must be Non-Billable. Please try again."
  • Line Location: OC+12
Function Call: WRITE
  • Prompt: !!,"Selected entries must be Non-Billable."
  • Line Location: OC+17
Function Call: WRITE
  • Prompt: !,"The following entries are not Non-Billable and will not be included for"
  • Line Location: OC+18
Function Call: WRITE
  • Prompt: !,BPSPT," :"
  • Line Location: OC+22
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OC+25
Function Call: WRITE
  • Prompt: !,@VALMAR@(+$G(BPSARR59A(1,BPSPT,BPS59)),0)
  • Line Location: OC+26
Function Call: WRITE
  • Prompt: !!,"You've chosen to CLOSE the following prescription(s) for"
  • Line Location: OC+31
Function Call: WRITE
  • Prompt: !,BPSPT," :"
  • Line Location: OC+35
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OC+38
Function Call: WRITE
  • Prompt: !,@VALMAR@(+$G(BPSARR59A(2,BPSPT,BPS59)),0)
  • Line Location: OC+39
Function Call: WRITE
  • Prompt: !!,"You've chosen to OPEN the following prescription(s) for"
  • Line Location: OC+44
Function Call: WRITE
  • Prompt: !,BPSPT," :"
  • Line Location: OC+48
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OC+51
Function Call: WRITE
  • Prompt: !,@VALMAR@(+$G(BPSARR59A(3,BPSPT,BPS59)),0)
  • Line Location: OC+52
Function Call: WRITE
  • Prompt: !!,"ALL Selected Non-Billable Rxs will be "_BPSPRMPT_" using the"
  • Line Location: OC+60
Function Call: WRITE
  • Prompt: !,"same information gathered in the following prompt.",!
  • Line Location: OC+61
Function Call: WRITE
  • Prompt: !!,"No changes made."
  • Line Location: COMQ+2
Function Call: WRITE
  • Prompt: $C(7),!,"This is a required response. Enter '^' to exit"
  • Line Location: COMQ+4
Function Call: WRITE
  • Prompt: !!,"No changes made."
  • Line Location: COMQ+7
Function Call: WRITE
  • Prompt: !,"0 claims have been opened/closed."
  • Line Location: OCX+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BPST - [#9002313.59] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call