Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 4 ^%ZISC  $$S^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Integrated Billing 1 $$FO^IBCNEUT1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBCNE EIV PAYER DOD REPORT  

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

External References

Name Field # of Occurrence
^%ZISC GENERATE+9
$$S^%ZTLOAD HEADER+4
^DIC PYRSEL1+2
$$GET1^DIQ COMPILE+16, COMPILE+19, COMPILE+22, COMPILE+23, COMPILE+24, COMPILE+25, COMPILE+31, COMPILE+33
^DIR STOP+8, DTRANGE+9, DTRANG1+6, PYRSEL+7, TYPE+7, SORT+7, OUT+7, ANOTHER+5, EOL+3
$$FO^IBCNEUT1 OUTPUT+24, OUTPUTX+2
$$FMTE^XLFDT COMPILE+23, COMPILE+25, COMPILE+31, OUTPUT+6, OUTPUT+11
$$NOW^XLFDT OUTPUT+6
EN^XUTMDEVQ DEVICE+16

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+2
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
Routine Call
  • DIC
  • Line Location:
    • PYRSEL1+2
Routine Call
  • DIR
  • Line Location:
    • STOP+8
    • DTRANGE+9
    • DTRANG1+6
    • PYRSEL+7
    • TYPE+7
    • SORT+7
    • OUT+7
    • ANOTHER+5
    • EOL+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBCN(365 - [#365] COMPILE+12, COMPILE+14, COMPILE+18, COMPILE+30
^TMP($J GENERATE+6!, GENERATE+11!, COMPILE+34*, OUTPUT+24, OUTPUT+27, OUTPUT+28, OUTPUT+29, OUTPUT+30, OUTPUT+35, OUTPUT+36
, OUTPUT+37, PRINT+2

Label References

Name Line Occurrences
$$ANOTHER PYRSEL1+5
$$CENTER OUTPUT+24, OUTPUTX+2
$$OUT R50
$$STOP R10R20R30R40R50R100
COMPILE GENERATE+7
DEVICE R100
DTRANG1 DTRANG1+8, DTRANG1+9
DTRANGE R10DTRANGE+11
DTRANGX DTRANGE+10, DTRANG1+7
EOL OUTPUTX+3, HEADER+3
EXIT R10R20R30R40R50R100R100+1
HEADER OUTPUT+22, LINE+1
LINE OUTPUT+24, OUTPUT+31, OUTPUTX+2, PRINT+10
OUTPUT GENERATE+8
OUTPUTX OUTPUT+24
PRINT OUTPUT+37
PYRSEL R20
PYRSEL1 PYRSEL1+5
R10 R10R20
R20 R30
R30 R40
R40 R50
R50 R100
SORT R40
SORTX SORT+8
STOPX STOP+9
TYPE R30
TYPEX TYPE+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDT COMPILE+1~, COMPILE+3*, COMPILE+9
CRT OUTPUT+1~, OUTPUT+18*, OUTPUT+19*, OUTPUTX+3, HEADER+3
DASHES OUTPUT+1~, OUTPUT+9*, HEADER+10
DDATA OUTPUT+1~, PRINT+2*, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9
DEFSTAT OUTPUT+1~
DIC PYRSEL+1~, PYRSEL+15*
DIC("A" PYRSEL+12*
DIC("S" PYRSEL+14*
DIC(0 PYRSEL+11*
DIR STOP+1~, STOP+8!, DTRANGE+9!, DTRANG1+6!, PYRSEL+1~, TYPE+1~, TYPE+7!, SORT+1~, SORT+7!, OUT+1~
, ANOTHER+2~, EOL+1~, EOL+3!
DIR("?" STOP+6*, STOP+7*, DTRANGE+7*, DTRANGE+8*, DTRANG1+3*, DTRANG1+4*, DTRANG1+5*, PYRSEL+5*, TYPE+6*, SORT+6*
, OUT+6*
DIR("A" STOP+4*, DTRANGE+5*, DTRANGE+6*, DTRANG1+2*, PYRSEL+3*, PYRSEL+4*, TYPE+4*, SORT+4*, OUT+4*, ANOTHER+4*
DIR("B" STOP+5*, DTRANG1+1*, PYRSEL+6*, TYPE+5*, SORT+5*, OUT+5*, ANOTHER+4*
DIR(0 STOP+3*, DTRANGE+4*, DTRANG1+1*, PYRSEL+6*, TYPE+3*, SORT+3*, OUT+3*, ANOTHER+4*, EOL+3*
DIROUT PYRSEL+1~, OUT+1~, ANOTHER+2~, EOL+1~
DIRUT STOP+1~, STOP+9, DTRANGE+2~, DTRANGE+10, DTRANG1+7, PYRSEL+1~, PYRSEL+8, TYPE+1~, TYPE+8, SORT+1~
SORT+8, OUT+1~, OUT+7, ANOTHER+2~, ANOTHER+5, EOL+1~
DLINE OUTPUT+1~, PRINT+2*, PRINT+3*, PRINT+4*, PRINT+5*, PRINT+6*, PRINT+7*, PRINT+8*, PRINT+9*, PRINT+10
DOD365 COMPILE+1~, COMPILE+31*, COMPILE+32, COMPILE+34
DODEX COMPILE+1~, COMPILE+23*, COMPILE+34
DODIN COMPILE+1~, COMPILE+19*, COMPILE+20, COMPILE+21
DT DTRANGE+11, DTRANG1+8
DTOUT PYRSEL+1~, PYRSEL1+3, OUT+1~, ANOTHER+2~, EOL+1~, EOL+4
DUOUT PYRSEL+1~, PYRSEL1+3, OUT+1~, ANOTHER+2~, EOL+1~, EOL+4
ENDDT COMPILE+1~, COMPILE+4*, COMPILE+10
EORMSG OUTPUT+1~, OUTPUT+5*, OUTPUTX+2
HDR HEADER+1~, HEADER+7*, HEADER+8
HDR1 OUTPUT+1~, OUTPUT+11*, OUTPUT+12*, OUTPUT+13*, HEADER+9
HDR2 OUTPUT+1~, OUTPUT+14*, OUTPUT+15*, OUTPUT+16*, HEADER+9
IBCNERTN EN+1~, EN+3*, R100, GENERATE~, GENERATE+6, GENERATE+8, GENERATE+11, DEVICE~, DEVICE+11, COMPILE+34
, OUTPUT~, OUTPUT+24, OUTPUT+27, OUTPUT+28, OUTPUT+29, OUTPUT+30, OUTPUT+35, OUTPUT+36, OUTPUT+37, PRINT+2
IBCNESPC EN+1~, R100, GENERATE~, GENERATE+7, GENERATE+8, DEVICE~, COMPILE~
IBCNESPC("BEGDT" DTRANGE+12*, DTRANG1+9, COMPILE+3, OUTPUT+11
IBCNESPC("ENDDT" DTRANG1+10*, COMPILE+4, OUTPUT+11
IBCNESPC("IBOUT" R50*, R50+1, OUTPUT+7
IBCNESPC("PYR" PYRSEL+10*, PYRSEL1+3!, PYRSEL1+4*, COMPILE+5, COMPILE+15, OUTPUT+12
IBCNESPC("SORT" SORT+9*, COMPILE+6
IBCNESPC("TYPE" TYPE+9*, COMPILE+7, OUTPUT+8
IBDT COMPILE+1~, COMPILE+9*, COMPILE+12*, COMPILE+14, COMPILE+18, COMPILE+30
IBOUT EN+1~, R50*, R100, GENERATE~, DEVICE~, DEVICE+10, DEVICE+11, OUTPUT+1~, OUTPUT+7*, OUTPUT+15
, OUTPUT+16, OUTPUT+25, OUTPUT+33, HEADER+7, HEADER+10
IBPAT COMPILE+1~
IBPGC OUTPUT+1~, OUTPUT+3*, OUTPUTX+3, HEADER+3, HEADER+5*, HEADER+7
IBPTR COMPILE+1~, COMPILE+29*, COMPILE+30*, COMPILE+31, COMPILE+33
IBPXT OUTPUT+1~, OUTPUT+3*, OUTPUT+22, OUTPUT+25, OUTPUT+27, OUTPUT+28, OUTPUT+33, OUTPUT+35, OUTPUT+36, EOL+4*
HEADER+3, HEADER+4*, LINE+1
IBPYR COMPILE+1~
IBRIEN COMPILE+1~
IBTOT COMPILE+1~
IBTRNO COMPILE+1~, COMPILE+33*, COMPILE+34
INCNESPC OUTPUT~
IOF EN+4, HEADER+6
IOSL OUTPUT+18, OUTPUT+19
IOST OUTPUT+19
LENGTH CENTER+2~, CENTER+3*, CENTER+4
LIN EOL+1~, EOL+2*
LINE LINE~, LINE+2, CENTER~, CENTER+3
LOUT OUTPUT+1~, OUTPUT+30*, OUTPUT+31
LSTDT COMPILE+2~, COMPILE+10*, COMPILE+12
MAXCNT OUTPUT+1~, OUTPUT+18*, OUTPUT+19*, EOL+2, LINE+1
NONEMSG OUTPUT+1~, OUTPUT+4*, OUTPUT+24
OFFSET HEADER+1~, HEADER+7*, HEADER+8, CENTER+2~, CENTER+3*, CENTER+4
PATDOB COMPILE+2~, COMPILE+25*, COMPILE+34
PATIEN COMPILE+2~, COMPILE+17*, COMPILE+18*, COMPILE+19, COMPILE+22, COMPILE+23, COMPILE+24, COMPILE+25, COMPILE+30
PATNAM COMPILE+2~, COMPILE+22*, COMPILE+27, COMPILE+28, COMPILE+34, OUTPUT+2~
PATSSN COMPILE+2~, COMPILE+24*
PATSSN4 COMPILE+2~, COMPILE+24*, COMPILE+34
POP EN+1~, DEVICE+9~, DEVICE+17
PYR COMPILE+2~, COMPILE+5*, COMPILE+15
PYRIEN COMPILE+2~, COMPILE+13*, COMPILE+14*, COMPILE+15, COMPILE+16, COMPILE+18, COMPILE+30
PYRNAM COMPILE+2~, COMPILE+16*, COMPILE+27, COMPILE+28, COMPILE+34, OUTPUT+2~
RECVD OUTPUT+2~
SENT OUTPUT+2~
SORT COMPILE+2~, COMPILE+6*, COMPILE+27, COMPILE+28
SORT1 COMPILE+2~, COMPILE+27*, COMPILE+34
SORT2 COMPILE+2~, COMPILE+28*, COMPILE+34
SPACES OUTPUT+2~, OUTPUT+10*, OUTPUT+16
SRT HEADER+1~
SRT1 OUTPUT+2~, OUTPUT+21*, OUTPUT+27*, OUTPUT+28, OUTPUT+29, OUTPUT+30, OUTPUT+35*, OUTPUT+36, OUTPUT+37, PRINT+2
SRT2 OUTPUT+2~, OUTPUT+28*, OUTPUT+29, OUTPUT+30, OUTPUT+36*, OUTPUT+37, PRINT+2
SSN OUTPUT+2~
SSNLEN OUTPUT+2~
STOP EN+1~, EN+2*, R10R20R30R40R50R100, STOP+9*, STOP+10*
DTRANGE+10*, DTRANG1+7*, PYRSEL+8*, PYRSEL1+3*, TYPE+8*, SORT+8*, DEVICE+17*, OUT+7*, ANOTHER+5*
TRNO OUTPUT+2~, OUTPUT+29*, OUTPUT+30, OUTPUT+37*, PRINT+2
TSTAMP OUTPUT+2~, OUTPUT+6*, HEADER+7
TYPE COMPILE+2~, COMPILE+7*, COMPILE+20, COMPILE+21, OUTPUT+2~, OUTPUT+8*, OUTPUT+13
U PYRSEL1+4, COMPILE+34, OUTPUT+15, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9
VDATE OUTPUT+2~
X STOP+1~, DTRANGE+2~, PYRSEL+1~, TYPE+1~, SORT+1~, OUT+1~, ANOTHER+2~, OUTPUT+2~
Y STOP+1~, STOP+9*, STOP+10, STOPX+1, DTRANGE+2~, DTRANGE+11, DTRANGE+12, DTRANG1+8, DTRANG1+9, DTRANG1+10
PYRSEL+1~, PYRSEL+10, PYRSEL1+3, PYRSEL1+4, TYPE+1~, TYPE+9, SORT+1~, SORT+9, OUT+1~, OUT+8
, ANOTHER+2~, ANOTHER+6, OUTPUT+2~
ZTDESC DEVICE+9~, DEVICE+12*, DEVICE+16
>> ZTQUEUED GENERATE+13, OUTPUTX+3, HEADER+3, HEADER+4
>> ZTREQ GENERATE+13*
ZTRTN DEVICE+9~, DEVICE+11*, DEVICE+16
ZTSAVE DEVICE+9~, DEVICE+16
ZTSAVE("IBCNERTN" DEVICE+14*
ZTSAVE("IBCNESPC(" DEVICE+13*
ZTSAVE("IBOUT" DEVICE+15*
>> ZTSTOP GENERATE+8, COMPILE+12, COMPILE+14, COMPILE+18, OUTPUT+22, OUTPUT+25, OUTPUT+27, OUTPUT+28, OUTPUT+33, OUTPUT+35
, OUTPUT+36, HEADER+4*, LINE+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All