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

Package: E Claims Management Engine

Routine: BPSKBERPT


Information

BPSKBERPT ; AITC/PED - K Bill Error Report;07/2023

Source Information

Source file <BPSKBERPT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry Point for Report
DATES() ; Date range prompts
EXCEL() ; Capture data in Excel format prompt
EXHELP ; - 'Do you want to capture data...' prompt
DEVICE ; Device selection prompt
COMPILE ; Compile data using file 366.14
PRINT ; Print data
HDR(BPSPG) ; Print header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"ECME Bills Created with Errors Report",!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEL+5
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: EXCEL+16
Function Call: WRITE
  • Prompt: !?5,"detail report data and save the detail report data in a text file"
  • Line Location: EXCEL+17
Function Call: WRITE
  • Prompt: !?5,"to a local drive. This report may take a while to run."
  • Line Location: EXCEL+18
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the file,"
  • Line Location: EXCEL+19
Function Call: WRITE
  • Prompt: !?5," please enter '0;256;99999' at the 'DEVICE:' prompt.",!
  • Line Location: EXCEL+20
Function Call: WRITE
  • Prompt: !!," Enter: 'Y' - To capture detail report data to transfer"
  • Line Location: EXHELP+1
Function Call: WRITE
  • Prompt: !," to an Excel document"
  • Line Location: EXHELP+2
Function Call: WRITE
  • Prompt: !," '<CR>' - To skip this option"
  • Line Location: EXHELP+3
Function Call: WRITE
  • Prompt: !," '^' - To quit this option"
  • Line Location: EXHELP+4
Function Call: WRITE
  • Prompt: !!,"WARNING - THIS REPORT REQUIRES THAT A DEVICE WITH 132 COLUMN WIDTH BE USED."
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !,"IT WILL NOT DISPLAY CORRECTLY USING 80 COLUMN WIDTH DEVICES",!
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: DEVICE+14
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue:"
  • Line Location: COMPILE+33
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",.301)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: ?12,$E($$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",.03),1,30)
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?45,$$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",.201)
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: ?57,$$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",.203)_"/"
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: $$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",.13)
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: ?73,DATE
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: ?86,$E($$GET1^DIQ(50,IEN50,.01),1,40)
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: ?130,$E($$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",7.01),1)
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",.301)_"^"
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: $E($$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",.03),1,30)_"^"
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: $$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",.201)_"^"
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: $$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",.203)_"/"
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: $$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",.13)_"^"
  • Line Location: PRINT+45
Function Call: WRITE
  • Prompt: DATE_"^"
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: $E($$GET1^DIQ(50,IEN50,.01),1,40)_"^"
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: $E($$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",7.01),1)_"^"
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: $$GET1^DIQ(366.141,IEN366141_","_IEN36614_",",.08)
  • Line Location: PRINT+50
Function Call: WRITE
  • Prompt: !!,?5,"*** End of Report ***",!
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: !,"BILL#^PATIENT^RX#^REF/ECME#^DATE^DRUG^COB^ERROR"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"ECME BILLS CREATED WITH ERRORS"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?88,"Print Date: "_BPSPTDT
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?123,"Page: ",$J(BPSPG,3)
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"CLAIM DATE: Start "_$$FMTE^XLFDT($P(DATERNG,"^"),2)
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: " Go to "_$$FMTE^XLFDT($P(DATERNG,"^",2),2)
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,"BILL#"
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: ?12,"PATIENT NAME"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: ?45,"RX#"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: ?57,"REF/ECME #"
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: ?73,"FILL DATE"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: ?86,"DRUG"
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: ?129,"COB"
  • Line Location: HDR+23
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
366.141 GET1^DIQ
^DGCR(399 - [#399] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call