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

Package: Integrated Billing

Routine: IBCNERP1


Information

IBCNERP1 ;DAOU/BHS - IBCNE USER IF eIV RESPONSE REPORT ;03-JUN-2002

Source Information

Source file <IBCNERP1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 8 EN^IBCNERP2  EN^IBCNERP5  EN^IBCNERP8  EN^IBCNERP9  (EN3,EN6)^IBCNERPA  EN^IBCNERPG  EN^IBCNERPH  $$FO^IBCNEUT1  
Kernel 2 ^%ZISC  EN^XUTMDEVQ  
VA FileMan 2 (,IX)^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Integrated Billing 9 IBCNBLA1  IBCNE IIV AMBIGUOUS POLICY RPT  IBCNE IIV INACTIVE POLICY RPT  IBCNE IIV RESPONSE REPORT  IBCNERP4  IBCNERP7  IBCNERPF  IBCNERPJ  
IBCNVRP0  

Entry Points

Name Comments DBIA/ICR reference
RTYPE ; Prompt to allow users to report by date range or Trace #
; Init vars
DTRANGE ; Determine start and end dates for date range param
; Init vars
SORTX ; SORT exit pt
DTRANGX ; DTRANGE exit pt
DTEXPX ; DTEXP Exit
R100
DEVICEX ; DEVICE exit pt
R10
DTEXP ; Prompt for oldest expiration date to pull for.
; Init Vars
EN(IPRF) ; Main entry pt
; Init vars
PYRSELX ; PYRSEL exit pt
TYPEX ; TYPE exit pt
R50
R30
PYRSEL ; Select one payer or ALL - File #365.12
; Init vars
STOP() ; Determine if user wants to exit out of the whole option
; Init vars
SORT ; Prompt to allow users to sort the report by Payer(default) or
; Patient
; Init vars
STOPX ; STOP exit pt
COMPILE(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
COMPILX ; COMPILE exit pt
RTYPEX ; RTYPE exit pt
PTSEL ; Select one patient or ALL - File #2
; Init vars
R05
TYPE ; Prompt to select to display All or Most Recent Responses for
; Patient/Payer combos
; Init vars
R45
PTSELX ; PTSEL exit pt
R60
EXIT ; Exit pt
R40
OUT() ; Prompt to allow users to select output format
DEVICE(IBCNERTN,IBCNESPC,IBOUT) ; Device Handler and possible TaskManager calls
DTRANG1
R20

External References

Name Field # of Occurrence
^%ZISC COMPILE+20
^DIC PYRSEL+10, PTSEL+8
IX^DIC RTYPE+21
^DIR STOP+10, DTRANGE+10, DTRANG1+5, TYPE+14, DTEXP+11, SORT+11, RTYPE+12, OUT+6
EN^IBCNERP2 COMPILE+9
EN^IBCNERP5 COMPILE+10
EN^IBCNERP8 COMPILE+11
EN^IBCNERP9 COMPILE+17
EN3^IBCNERPA COMPILE+15
EN6^IBCNERPA COMPILE+16
EN^IBCNERPG COMPILE+12
EN^IBCNERPH COMPILE+18
$$FO^IBCNEUT1 PYRSEL+6, PTSEL+6
EN^XUTMDEVQ DEVICE+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"eIV ",$S(IPRF=1:"Inactive Policy",IPRF=2:"Ambiguous Policy",1:"Response")," Report",!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"Please select a date range to view ",$S(IPRF=1:"inactive",1:"ambiguous")," policy information that the eIV"
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"process turned up while attempting to discover previously unknown"
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"insurance policies. (Date range selection is based on the date that"
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !,"eIV receives the response from the payer.)"
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !,"Insurance verification responses are received daily."
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !,"Please select a date range in which responses were received to view the"
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,"associated response detail. Otherwise, select a Trace # to view specific"
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,"response detail."
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!,"To avoid undesired wrapping, please enter '0;256;999' at the 'DEVICE:' prompt.",!
  • Line Location: R60+1
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DTRANGE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PYRSEL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PTSEL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DTEXP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RTYPE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+2
Routine Call
  • DIC
  • Line Location:
    • PYRSEL+10
    • PTSEL+8
Routine Call
  • DIR
  • Line Location:
    • STOP+10
    • DTRANGE+10
    • DTRANG1+5
    • TYPE+14
    • DTEXP+11
    • SORT+11
    • RTYPE+12
    • OUT+6
Routine Call
  • DIC
  • Line Location:
    • RTYPE+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBCN(365 - [#365] Classic Fileman Calls
^IBE(365.12 - [#365.12] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J COMPILE+7!, COMPILE+22!

Label References

Name Line Occurrences
$$OUT R60
$$STOP R05, R10, R20, R30, R40, R45, R50, R60, R100
DEVICE R100
DTEXP R45
DTEXPX DTEXP+12
DTRANGE R10
DTRANGX DTRANGE+11, DTRANG1+6
EXIT R05, R10, R20, R30, R40, R45, R50, R60, R100, R100+1
PTSEL R30
PTSELX PTSEL+9
PYRSEL R20
PYRSELX PYRSEL+11
R05 R05, R10, R100
R10 R20
R20 R30
R30 R40
R40 R45
R45 R50
R50 R60, R100
R60 R05+2
RTYPE R05
RTYPEX RTYPE+13, RTYPE+14, RTYPE+22, RTYPE+23
SORT R50
SORTX SORT+12
STOPX STOP+11
TYPE R40
TYPEX TYPE+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D RTYPE+2~, RTYPE+19*
DIC PYRSEL+2~, PYRSEL+9*, PTSEL+2~, PTSEL+7*, RTYPE+2~, RTYPE+19*, RTYPE+21!
DIC("A" PYRSEL+6*, PTSEL+6*, RTYPE+19*
DIC("S" PYRSEL+8*
DIC("W" RTYPE+20*
DIC(0 PYRSEL+5*, PTSEL+5*, RTYPE+18*
DIR STOP+2~, STOP+10!, DTRANGE+10!, DTRANG1+5!, TYPE+3~, TYPE+14!, DTEXP+11!, SORT+3~, SORT+11!, RTYPE+2~
, RTYPE+12!, OUT+1~
DIR("?" STOP+8*, STOP+9*, DTRANGE+8*, DTRANGE+9*, DTRANG1+2*, DTRANG1+3*, DTRANG1+4*, TYPE+8*, TYPE+9*, TYPE+10*
, TYPE+11*, TYPE+12*, TYPE+13*, DTEXP+9*, DTEXP+10*, SORT+8*, SORT+9*, SORT+10*, RTYPE+7*, RTYPE+8*
, RTYPE+9*, RTYPE+10*, RTYPE+11*
DIR("A" STOP+6*, DTRANGE+7*, DTRANG1+1*, TYPE+6*, DTEXP+7*, SORT+6*, RTYPE+5*, OUT+4*
DIR("B" STOP+7*, TYPE+7*, DTEXP+8*, SORT+7*, RTYPE+6*, OUT+5*
DIR(0 STOP+5*, DTRANGE+6*, DTRANG1*, TYPE+5*, DTEXP+6*, SORT+5*, RTYPE+4*, OUT+3*
DIROUT OUT+1~
DIRUT STOP+2~, STOP+11, DTRANGE+2~, DTRANGE+11, DTRANG1+6, TYPE+3~, TYPE+15, DTEXP+2~, DTEXP+12, SORT+3~
, SORT+12, RTYPE+2~, RTYPE+13, OUT+1~, OUT+6
DTOUT PYRSEL+2~, PYRSEL+11, PTSEL+2~, PTSEL+9, RTYPE+2~, RTYPE+22, OUT+1~
DUOUT PYRSEL+2~, PYRSEL+11, PTSEL+2~, PTSEL+9, RTYPE+2~, RTYPE+22, OUT+1~
IBCNERTN EN+2~, EN+6*, R100, COMPILE~, COMPILE+7, COMPILE+9, COMPILE+10, COMPILE+11, COMPILE+12, COMPILE+15
, COMPILE+16, COMPILE+17, COMPILE+18, COMPILE+22, DEVICE~, DEVICE+13, DEVICE+14, DEVICE+16
IBCNESPC EN+2~, R100, COMPILE~, COMPILE+9, COMPILE+10, COMPILE+11, COMPILE+12, COMPILE+15, COMPILE+16, COMPILE+17
, COMPILE+18, DEVICE~
IBCNESPC("BEGDT" DTRANGE+12*
IBCNESPC("DTEXP" DTEXP+13*
IBCNESPC("ENDDT" DTRANG1+7*
IBCNESPC("PAT" PTSEL+11*
IBCNESPC("PYR" PYRSEL+13*
IBCNESPC("RFLAG" EN+3*
IBCNESPC("SORT" SORT+13*
IBCNESPC("TRCN" R05+2, R100, RTYPE+14*, RTYPE+24*
IBCNESPC("TYPE" TYPE+16*, DEVICE+13
>> IBFRB R100
IBOUT EN+2~, R60*, R60+1, R100, COMPILE~, COMPILE+9, COMPILE+12, COMPILE+15, COMPILE+16, COMPILE+17
, COMPILE+18, DEVICE~, DEVICE+13, DEVICE+14
IOF EN+7
IPRF EN~, EN+3, EN+8, EN+9, EN+10, EN+15, R05, R45
POP EN+2~, DEVICE+11~, DEVICE+21
STOP EN+2~, EN+5*, R05, R10, R20, R30, R40, R45, R50, R60
, R100, STOP+11*, STOP+12*, DTRANGE+11*, DTRANG1+6*, PYRSEL+11*, PTSEL+9*, TYPE+15*, DTEXP+12*, SORT+12*
, RTYPE+13*, RTYPE+22*, RTYPE+23*, DEVICE+21*, OUT+6*
TODAY DTEXP+2~
U PYRSEL+13, PTSEL+11, RTYPE+24
X STOP+2~, DTRANGE+2~, PYRSEL+2~, PTSEL+2~, TYPE+3~, SORT+3~, RTYPE+2~, OUT+1~
Y STOP+2~, STOP+11*, STOP+12, STOPX+1, DTRANGE+2~, DTRANGE+12, DTRANG1, DTRANG1+7, PYRSEL+2~, PYRSEL+13
, PTSEL+2~, PTSEL+11, TYPE+3~, TYPE+16, DTEXP+2~, DTEXP+13, SORT+3~, SORT+13, RTYPE+2~, RTYPE+14
, RTYPE+23, RTYPE+24, OUT+1~, OUT+7
Y(0 RTYPE+24
ZTDESC DEVICE+11~, DEVICE+16*, DEVICE+20
>> ZTQUEUED COMPILE+24
>> ZTREQ COMPILE+24*
ZTRTN DEVICE+11~, DEVICE+14*, DEVICE+20
ZTSAVE DEVICE+11~, DEVICE+20
ZTSAVE("IBCNERTN" DEVICE+18*
ZTSAVE("IBCNESPC(" DEVICE+17*
ZTSAVE("IBOUT" DEVICE+19*
>> ZTSTOP COMPILE+14
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