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

Package: Integrated Billing

Routine: IBCNERPM


Information

IBCNERPM ;AITC/VD - IBCNE eIV PAYER DOD REPORT ;22-JAN-2020

Source Information

Source file <IBCNERPM.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point
R10
R20
R30
R40
R50
R100
EXIT ; Exit point
GENERATE(IBCNERTN,IBCNESPC,IBOUT) ;
; Entry point called from EN^XUTMDEVQ in either direct or queued mode.
; Input params:
; IBCNERTN = Routine name for ^TMP($J,...
; IBCNESPC = Array passed by ref of the report params
STOP() ; Determine if user wants to exit out of the whole option
STOPX ; STOP exit point
DTRANGE ; Determine start and end dates for date range param
; Initialize variables
DTRANG1 ;
DTRANGX ; DTRANGE exit point
PYRSEL ; Get Payer(s) selection.
PYRSEL1 ; Prompt for Payer Selection
TYPE ; Prompt to select to display All or Most Recent Responses for Patient/Payer combos
TYPEX ; TYPE exit point
SORT ; Prompt to allow users to sort the report by Patient(default) or Payer
SORTX ; SORT exit point
DEVICE(IBCNERTN,IBCNESPC,IBOUT) ; Device Handler and possible TaskManager calls
; Input params:
; IBCNERTN = Routine name for ^TMP($J,...
; IBCNESPC = Array passed by ref of the report params
; IBOUT = "R" for Report format or "E" for Excel format
DEVICEX ; DEVICE exit point
OUT() ; Prompt to allow users to select output format
ANOTHER() ; "Select Another" prompt
; returns 1, if response was "YES", returns 0 otherwise
COMPILE(IBCNESPC) ; Compile the data to be included on the report.
OUTPUT(IBCNERTN,INCNESPC) ; Generate the output of the report.
OUTPUTX ;
PRINT ; Get Print Info
; "Patient Name",?34,"Last 4 SSN",?44,"DOB VISTA",?56,"DOD VISTA",?68,"Payer Name",?100,"Trace #",?122,"DOD Payer"
EOL ; display "end of page" message and set exit flag
HEADER ; print header for each page
LINE(LINE) ; Print line of data
CENTER(LINE) ; return length of a centered line
; LINE - line to center

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"eIV Payer Date of Death Report",!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"Electronic Insurance Verification responses are received daily."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Please select a Date range in which Date of Death eIV responses were received"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"to determine the appropriate patient Date of Death information."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"To avoid undesired wrapping, please enter '0;132;999' at the 'DEVICE:' prompt.",!
  • Line Location: R50+1
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DTRANGE+3
Function Call: WRITE
  • Prompt: !!,?3,"Future dates are not allowed. Please try again."
  • Line Location: DTRANGE+11
Function Call: WRITE
  • Prompt: !!,?3,"Future dates are not allowed. Please try again."
  • Line Location: DTRANG1+8
Function Call: WRITE
  • Prompt: !!,?3,"Latest date must be greated than Earliest Date. Please try again."
  • Line Location: DTRANG1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PYRSEL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PYRSEL1+1
Function Call: WRITE
  • Prompt: !!,"DECEASED OR NOT DECEASED IN VISTA:"
  • Line Location: TYPE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SORT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ANOTHER+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPUTX+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EOL+2
Function Call: WRITE
  • Prompt: @IOF,!,"eIV Payer Date of Death Report"
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?OFFSET,HDR
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,HDR1,!!,HDR2
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: LINE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^IBCN(365 - [#365] GET1^DIQ
^IBE(365.12 - [#365.12] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call