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

Package: Integrated Billing

Routine: IBCNERPF


Information

IBCNERPF ;BP/YMG - IBCNE eIV AUTO UPDATE REPORT ;09-MAY-2023

Source Information

Source file <IBCNERPF.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 3 (EN,PRINT)^IBCNERPG  $$PYRAPP^IBCNEUT5  EN^IBCNILK  
Kernel 3 ^%ZISC  ($$DT,$$FMADD,$$FMTE)^XLFDT  EN^XUTMDEVQ  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^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: 1

Package Total Caller Graph
Integrated Billing 1 IBCNE EIV UPDATE REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
TYPE ;Type of Report
DETAIL ; Prompts in specific order for Detail report.
D10 ; Payer Selection parameter
D20 ; Date Range parameters
D30 ; Patient Selection parameter
SUMMARY ;Prompts in specific order for Summary report
S10 ;Select Payer or Source of Information
S20 ;Prompt for Insurance Company Detail
S30 ;Prompt for Payer Selection
S40 ; Response Received Date
IBOUT ;
DEVICE ; Device Handler and possible TaskManager calls
EXIT ;
COMPILE(IBCNESPC) ;
; Entry point called from EN^XUTMDEVQ in either direct or queued mode.
; Input params:
; IBCNESPC = Array passed by ref of the report params
COMPILX ; COMPILE exit pt
PAYER ;
PAYER1 ;
AUTOUPDT(PIEN) ; Lookup screen to determine if the Auto update flag for payer = Yes
; Input: PIEN - IEN of the Payer (file 365.12)
; Returns 1 - Auto update flag is set to 'Y', 0 otherwise
GETCOMPS(PIEN,IBCNESPC) ; Get companies linked to payer
; Get associated insurance companies
; If user wants to display insurance companies, prompt only for those linked to payer
; Allow the user to select none, one, or multiple insurance companies associated with a given payer
ICODETL ;Display Insurance Company Detail.
ICODETLX ;
DTRANGE ;
T180 ;
DTRANGE1 ;
PATIENT ;
PATIENT1 ;
ANOTHER(TYPE) ; "Select Another" prompt
; returns 1, if response was "YES", returns 0 otherwise
STOP() ; Determine if user wants to exit out of the whole option
; Init vars
STOPX ; STOP exit pt

External References

Name Field # of Occurrence
^%ZISC COMPILE+15
^DIC PAYER1+1, PATIENT1+1
$$GET1^DIQ AUTOUPDT+8
^DIR TYPE+6, S10+10, IBOUT+6, PAYER+6, GETCOMPS+18, ICODETL+5, T180+6, DTRANGE1+3, PATIENT+8, ANOTHER+4
, STOP+10
EN^IBCNERPG COMPILE+11
PRINT^IBCNERPG COMPILE+13
$$PYRAPP^IBCNEUT5 AUTOUPDT+5
EN^IBCNILK GETCOMPS+24
$$DT^XLFDT T180+2
$$FMADD^XLFDT T180+2
$$FMTE^XLFDT T180+3, T180+8
EN^XUTMDEVQ DEVICE+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"eIV Auto Update Report"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: S10+2
Function Call: WRITE
  • Prompt: !
  • Line Location: IBOUT+2
Function Call: WRITE
  • Prompt: !!,"For CSV output, turn logging or capture on now. To avoid undesired wrapping"
  • Line Location: IBOUT+9
Function Call: WRITE
  • Prompt: !,"of the data saved to the file, please enter ""0;"_$S(TYPE="S":"132",1:"256")_";99999"" at the ""DEVICE:"""
  • Line Location: IBOUT+10
Function Call: WRITE
  • Prompt: !,"prompt.",!
  • Line Location: IBOUT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYER+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYER1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYER1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GETCOMPS+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ICODETL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: T180+1
Function Call: WRITE
  • Prompt: !!,"Future dates not allowed."
  • Line Location: T180+7
Function Call: WRITE
  • Prompt: !!,"Response must not be previous to "_$$FMTE^XLFDT(IBDT180,"D")_"."
  • Line Location: T180+8
Function Call: WRITE
  • Prompt: !!,"Future dates not allowed."
  • Line Location: DTRANGE1+4
Function Call: WRITE
  • Prompt: !," Latest Date must not precede the Earliest Date."
  • Line Location: DTRANGE1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PATIENT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+4
Routine Call
  • DIC
  • Line Location:
    • PAYER1+1
    • PATIENT1+1
Routine Call
  • DIR
  • Line Location:
    • TYPE+6
    • S10+10
    • IBOUT+6
    • PAYER+6
    • GETCOMPS+18
    • ICODETL+5
    • T180+6
    • DTRANGE1+3
    • PATIENT+8
    • ANOTHER+4
    • STOP+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBE(365.12 - [#365.12] Classic Fileman Calls
365.121 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("IBCNILKA" GETCOMPS+23!, GETCOMPS+25, GETCOMPS+26, GETCOMPS+27!
^TMP($J COMPILE+7!, COMPILE+17!

Label References

Name Line Occurrences
$$ANOTHER PAYER1+6, PATIENT1+4
$$STOP D10+1, D20+1, D30+1, S10+10, S20+1, S30+1, S40+1, IBOUT+6
D10 D20+1
D20 D30+1
D30 IBOUT+6
DTRANGE D20+1, S40+1
DTRANGE1 DTRANGE1+4, DTRANGE1+5
EXIT TYPE+7, D10+1, D20+1, D30+1, S10+10, S20+1, S30+1, S40+1, IBOUT+6
GETCOMPS PAYER1+4
IBOUT D30+3
ICODETL S20+1
ICODETLX ICODETL+6
PATIENT D30+1
PATIENT1 PATIENT1+4
PAYER D10+1, S30+1
PAYER1 PAYER1+6
S10 S20+1, S40+1
S20 S30+1
S30 S40+1
S40 S10+12, IBOUT+6
STOPX STOP+11
SUMMARY TYPE+9
T180 T180+7, T180+8
TYPE D10+1, S10+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ALLPAT COMPILE+6~
ALLPYR COMPILE+6~
AUTOUPDT AUTOUPDT+3~, AUTOUPDT+4*, AUTOUPDT+8*, AUTOUPDT+9
DIC PAYER+1~, PAYER+14*, PATIENT+1~, PATIENT+13*
DIC("A" PAYER+11*, PATIENT+12*
DIC("S" PAYER+13*
DIC(0 PAYER+9*, PATIENT+11*
DIR TYPE+1~, S10+1~, IBOUT+1~, PAYER+1~, GETCOMPS+13~, GETCOMPS+15!, ICODETL+1~, DTRANGE+1~, PATIENT+1~, ANOTHER+2~
, STOP+2~, STOP+10!
DIR("?" S10+5*, S10+6*, S10+7*, S10+8*, S10+9*, STOP+8*, STOP+9*
DIR("A" TYPE+4*, S10+4*, IBOUT+4*, PAYER+3*, PAYER+4*, GETCOMPS+16*, ICODETL+3*, T180+4*, T180+5*, DTRANGE1+2!*
, PATIENT+5*, PATIENT+6*, ANOTHER+3*, STOP+6*
DIR("B" TYPE+5*, IBOUT+5*, PAYER+5*, GETCOMPS+17*, ICODETL+4*, T180+3*, DTRANGE1+1*, PATIENT+7*, ANOTHER+3*, STOP+7*
DIR(0 TYPE+3*, S10+3*, IBOUT+3*, PAYER+5*, GETCOMPS+18*, ICODETL+5*, T180+3*, PATIENT+7*, ANOTHER+3*, STOP+5*
DIROUT TYPE+1~, S10+1~, IBOUT+1~, PAYER+1~, GETCOMPS+13~, ICODETL+1~, DTRANGE+1~, PATIENT+1~, ANOTHER+2~
DIRUT TYPE+1~, TYPE+7, S10+1~, S10+10, IBOUT+1~, IBOUT+6, PAYER+1~, PAYER+7, GETCOMPS+13~, GETCOMPS+19
, ICODETL+1~, ICODETL+6, DTRANGE+1~, T180+6, DTRANGE1+3, PATIENT+1~, PATIENT+9, ANOTHER+2~, ANOTHER+4, STOP+2~
, STOP+11
DT T180+7, DTRANGE1+4
DTOUT TYPE+1~, TYPE+7, S10+1~, IBOUT+1~, PAYER+1~, PAYER1+2, GETCOMPS+13~, ICODETL+1~, DTRANGE+1~, PATIENT+1~
, PATIENT1+2, ANOTHER+2~, STOP+11
DUOUT TYPE+1~, TYPE+7, S10+1~, IBOUT+1~, PAYER+1~, PAYER1+2, GETCOMPS+13~, ICODETL+1~, DTRANGE+1~, PATIENT+1~
, PATIENT1+2, ANOTHER+2~
IBCNESPC EN+1~, COMPILE~, COMPILE+11, COMPILE+13, PAYER1+4, GETCOMPS~
IBCNESPC("BEGDT" T180+9*, DTRANGE1+5
IBCNESPC("ENDDT" DTRANGE1+6*
IBCNESPC("IBOUT" IBOUT+7*, IBOUT+12, COMPILE+10
IBCNESPC("ICODETL" DETAIL+1*, S10+14*, PAYER1+4, ICODETL+7*
IBCNESPC("INSCO" SUMMARY+2*, GETCOMPS+22*
IBCNESPC("PAT" SUMMARY+3*, S10+13*, PATIENT+3*, PATIENT+10*, PATIENT1+2!, PATIENT1+3*
IBCNESPC("PS" S10+11*, S40+1
IBCNESPC("PYR" SUMMARY+4*, S10+13*, PAYER+8*, PAYER1+2!, PAYER1+3!*, GETCOMPS+20*, GETCOMPS+26*
IBCNESPC("TYPE" TYPE+8*, IBOUT+12, PATIENT+3
IBCNS ICODETL+1~
IBDT180 DTRANGE+1~, T180+2*, T180+3, T180+8
IBOUT COMPILE+8~, COMPILE+10*
IENS AUTOUPDT+3~, AUTOUPDT+7*, AUTOUPDT+8
IOF EN+4
MULT AUTOUPDT+3~, AUTOUPDT+5*, AUTOUPDT+6, AUTOUPDT+7
PIEN PAYER+1~, PAYER1+3*, PAYER1+4, AUTOUPDT~, AUTOUPDT+5, AUTOUPDT+7, GETCOMPS~, GETCOMPS+20, GETCOMPS+24, GETCOMPS+26
POP DEVICE+6~
STOP EN+1~, EN+3*, D10+1, D20+1, D30+1, S20+1, S30+1, S40+1, IBOUT+6*, PAYER+7*
, PAYER1+2*, ICODETL+6*, T180+6*, DTRANGE1+3*, PATIENT+9*, PATIENT1+2*, ANOTHER+4*, STOP+11*, STOP+12*
TYPE EN+1~, TYPE+8*, TYPE+9, IBOUT+6, IBOUT+10, ANOTHER~, ANOTHER+3
U PAYER1+3, GETCOMPS+20, PATIENT1+3
X TYPE+1~, S10+1~, IBOUT+1~, PAYER+1~, GETCOMPS+13~, ICODETL+1~, DTRANGE+1~, PATIENT+1~, ANOTHER+2~, STOP+2~
Y TYPE+1~, TYPE+8, S10+1~, S10+11, S10+12, IBOUT+1~, IBOUT+7, IBOUT+8, PAYER+1~, PAYER+8
, PAYER1+2, PAYER1+3, GETCOMPS+13~, GETCOMPS+20, GETCOMPS+21, ICODETL+1~, ICODETL+7, DTRANGE+1~, T180+7, T180+8
, T180+9, DTRANGE1+4, DTRANGE1+5, DTRANGE1+6, PATIENT+1~, PATIENT+10, PATIENT1+2, PATIENT1+3, ANOTHER+2~, ANOTHER+5
, STOP+2~, STOP+11*, STOP+12, STOPX+1
ZTDESC DEVICE+6~, DEVICE+9*, DEVICE+11
>> ZTQUEUED COMPILE+19
>> ZTREQ COMPILE+19*
ZTRTN DEVICE+6~, DEVICE+8*, DEVICE+11
ZTSAVE DEVICE+6~, DEVICE+11
ZTSAVE("IBCNESPC(" DEVICE+10*
>> ZTSTOP COMPILE+13
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