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

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: 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  IBCNERPD  IBCNERPF  
IBCNERPJ  

Entry Points

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

External References

Name Field # of Occurrence
^%ZISC COMPILE+20
^DIC PYRSEL+11, PTSEL+8
IX^DIC RTYPE+23
^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+9
Function Call: WRITE
  • Prompt: !,"eIV ",$S(IPRF=1:"Inactive Policy",IPRF=2:"Ambiguous Policy",1:"Response")," Report",!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,"Please select a date range in which ",$S(IPRF=1:"inactive",1:"ambiguous")," responses were received to view"
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !,"the associated response detail. Date range selection is based on the date"
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,"that eIV receives the response from the payer."
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !,"Insurance verification responses are received daily."
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !,"Please select a date range in which responses were received to view the"
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !,"associated response detail. Otherwise, select a Trace # to view specific"
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: !,"response detail."
  • Line Location: EN+27
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+11
    • PTSEL+8
Routine Call
  • DIC
  • Line Location:
    • RTYPE+23
Routine Call
  • DIR
  • Line Location:
    • STOP+10
    • DTRANGE+10
    • DTRANG1+5
    • TYPE+14
    • DTEXP+11
    • SORT+11
    • RTYPE+12
    • OUT+6

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 R05R10+3, R20R30R40R50+1, R60R100+2
DEVICE R100+1
DTEXPX DTEXP+12
DTRANGE R10+1
DTRANGX DTRANGE+13, DTRANG1+6
EXIT R05R10+2, R10+3, R20R30R40R50+1, R60R100+2, R100+4
PTSEL R30
PTSELX PTSEL+9
PYRSEL R20
PYRSELX PYRSEL+12
R05 R05R10+3, R100+2
R10 R20
R20 R30
R30 R40
R40 R50+1
R50 R60
R60 R05+2, R100+2
RTYPE R05
RTYPEX RTYPE+13, RTYPE+14, RTYPE+24, RTYPE+25
SORT R50+1
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+10*, PTSEL+2~, PTSEL+7*, RTYPE+2~, RTYPE+19*, RTYPE+23!
DIC("A" PYRSEL+6*, PTSEL+6*, RTYPE+19*
DIC("S" PYRSEL+9*, RTYPE+21*
DIC("W" RTYPE+22*
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+13, 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+12, PTSEL+2~, PTSEL+9, RTYPE+2~, RTYPE+24, OUT+1~
DUOUT PYRSEL+2~, PYRSEL+12, PTSEL+2~, PTSEL+9, RTYPE+2~, RTYPE+24, OUT+1~
IBCNERTN EN+2~, EN+8*, R100+1, 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+1, COMPILE~, COMPILE+9, COMPILE+10, COMPILE+11, COMPILE+12, COMPILE+15, COMPILE+16, COMPILE+17
, COMPILE+18, DEVICE~
IBCNESPC("BEGDT" DTRANGE+17*
IBCNESPC("DTEXP" R45+1*, DTEXP+13*
IBCNESPC("ENDDT" DTRANG1+7*
IBCNESPC("PAT" PTSEL+11*
IBCNESPC("PYR" PYRSEL+14*
IBCNESPC("RFLAG" EN+5*
IBCNESPC("SORT" SORT+13*
IBCNESPC("TRCN" R05+2, R100+2, RTYPE+14*, RTYPE+26*
IBCNESPC("TYPE" TYPE+16*, DEVICE+13
>> IBFRB R100+2
IBOUT EN+2~, R60*, R60+1, R100+1, R100+2, COMPILE~, COMPILE+9, COMPILE+12, COMPILE+15, COMPILE+16
, COMPILE+17, COMPILE+18, DEVICE~, DEVICE+13, DEVICE+14
IBSTOP EN+3~, R10+1*, R10+2, DTRANGE+14*
IOF EN+9
IPRF EN~, EN+4*, EN+5, EN+10, EN+11, EN+18, EN+23, R05R10+2, DTRANGE+14
POP EN+2~, DEVICE+11~, DEVICE+21
STOP EN+2~, EN+7*, R05R10+3, R20R30R40R50+1, R60R100+2
, STOP+11*, STOP+12*, DTRANGE+15*, DTRANG1+6*, PYRSEL+12*, PTSEL+9*, TYPE+15*, DTEXP+12*, SORT+12*, RTYPE+13*
RTYPE+24*, RTYPE+25*, DEVICE+21*, OUT+6*
TODAY DTEXP+2~
U PYRSEL+14, PTSEL+11, RTYPE+26
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+17, DTRANG1DTRANG1+7, PYRSEL+2~, PYRSEL+14
PTSEL+2~, PTSEL+11, TYPE+3~, TYPE+16, DTEXP+2~, DTEXP+13, SORT+3~, SORT+13, RTYPE+2~, RTYPE+14
RTYPE+25, RTYPE+26, OUT+1~, OUT+7
Y(0 RTYPE+26
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