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

Package: Integrated Billing

Routine: IBECEA36


Information

IBECEA36 ;ALB/CPM-Cancel/Edit/Add... Urgent Care Add Utilities ; 23-APR-93

Source Information

Source file <IBECEA36.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 FIND^DIC  $$GET1^DIQ  ^DIR  
Integrated Billing 2 ADD^IBECEA38  CTBB^IBECEAU3  
Kernel 2 $$FMTE^XLFDT  $$STA^XUAF4  

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

Package Total Caller Graph
Integrated Billing 8 IB20P669  IBECEA3  IBECEA37  IBECEA38  IBECEA39  IBECEA4  IBECEAU6  IBUCVM  

Entry Points

Name Comments DBIA/ICR reference
PRTUCVST(DFN,IBDT,IBDUPFLG) ; Print the UC visits for a calendar year
GETVST(DFN,IBDT) ;Retrieve the UC visits as recorded in VistA during the calendar year being
; being billed
PRTMSSN ; Print the Mission Act Exemption Message (May get moved to IB ERROR File to use IB ERROR functionality)
PRTUCUPD ; Print the UC Visit Tracking DB has been updated.
PRTSARUR() ; Print the UC SA message for PG 6 vets.
PRTNORUR ; Print the info message if no RUR completed PG 6 vet copays.
UCCHRG2(DFN,IBDT) ; Process Urgent Care Copay Charge
; set the initial charge to $30
; Undeclared parameters
; IBFEE - Flag for Community Care Copays
; IBUNIT - (Default 1) # units for the charge
; IBCHG - Default Copay to charge
; DFN - Patient IEN
ADDVST(DFN,IBDT,IBN,IBSTATUS,IBREAS,IBSITE) ; Update the Visit Tracking DB
PRTVSTSA() ; Print the UC SA message for PG 6 vets.
GETOK(IBDUPFLG) ; Ask the user if it is OK to proceed.
GETELIG(IBDFN,IBOUT) ; This function returns all of the Enrollment Priority Group Entries for the specified patient
GETELGP(IBDFN,IBDOS) ; Function to return a patient's Enrollment Priority Group For a specified Date of Service
IBEDIT()

External References

Name Field # of Occurrence
FIND^DIC GETELIG+20
$$GET1^DIQ GETVST+18, GETVST+19, GETVST+20, GETVST+22, GETVST+29, ADDVST+20, ADDVST+28, ADDVST+33, GETELGP+39
^DIR PRTSARUR+5, PRTVSTSA+4, GETOK+5, GETOK+13
ADD^IBECEA38 ADDVST+38
CTBB^IBECEAU3 UCCHRG2+21, UCCHRG2+38, UCCHRG2+67
$$FMTE^XLFDT GETVST+31
$$STA^XUAF4 ADDVST+20, ADDVST+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This patient has had ",IBDCT," Urgent Care "_$S(IBCT=1:"visit",1:"visits")," this calendar year:",!
  • Line Location: PRTUCVST+6
Function Call: WRITE
  • Prompt: !,"Date of Visit",?16,"Station",?37,"Status",?48,"Bill No.",?61,"Reason"
  • Line Location: PRTUCVST+10
Function Call: WRITE
  • Prompt: !,"-------------",?16,"-------",?37,"------",?48,"--------",?61,"------"
  • Line Location: PRTUCVST+11
Function Call: WRITE
  • Prompt: !,$P(IBDATA,U),?16,$P(IBDATA,U,2),?37,$P(IBDATA,U,3)
  • Line Location: PRTUCVST+19
Function Call: WRITE
  • Prompt: ?48,$P(IBDATA,U,4)
  • Line Location: PRTUCVST+20
Function Call: WRITE
  • Prompt: ?61,$E($P(IBDATA,U,5),1,19)
  • Line Location: PRTUCVST+21
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTUCVST+22
Function Call: WRITE
  • Prompt: !,"Per the MISSION Act of 2018, this patient is allowed 3 free visits per",!,"calendar year",!
  • Line Location: PRTMSSN+2
Function Call: WRITE
  • Prompt: !,"The patient's Urgent Care visit tracking has been updated.",!
  • Line Location: PRTUCUPD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTSARUR+3
Function Call: WRITE
  • Prompt: !!,"Please send this for review by RUR before entering this copay.",!
  • Line Location: PRTNORUR+1
Function Call: WRITE
  • Prompt: !,"This charge was not processed. The patient's Urgent Care visit tracking was not",!,"updated.",!
  • Line Location: PRTNORUR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTVSTSA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: GETOK+6
Function Call: WRITE
  • Prompt: !!,"Visit Date not confirmed - Visit Tracking Database not updated."
  • Line Location: GETOK+10
Function Call: WRITE
  • Prompt: !
  • Line Location: GETOK+14
Function Call: WRITE
  • Prompt: !!,"IB EDIT Key Required to Add a Charge"
  • Line Location: IBEDIT+3
Routine Call
  • DIC
  • Line Location:
    • GETELIG+20
Routine Call
  • DIR
  • Line Location:
    • PRTSARUR+5
    • PRTVSTSA+4
    • GETOK+5
    • GETOK+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGEN(27.11 - [#27.11] FIND^DIC
^IB - [#350] GET1^DIQ
^IBUC(351.82 - [#351.82] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBUC(351.82 - [#351.82] GETVST+12, GETVST+13
^TMP($J PRTUCVST+3!, PRTUCVST+13, PRTUCVST+16, PRTUCVST+17, PRTUCVST+23!, GETVST+31*
^XUSEC("IB EDIT" IBEDIT+2

Label References

Name Line Occurrences
$$GETELGP UCCHRG2+15
$$GETELIG GETELGP+11
$$GETOK UCCHRG2+31, UCCHRG2+60
$$GETVST PRTUCVST+4, UCCHRG2+43
$$PRTSARUR UCCHRG2+47
$$PRTUCVST UCCHRG2+19, UCCHRG2+27, UCCHRG2+51
$$PRTVSTSA UCCHRG2+56
ADDVST UCCHRG2+33, UCCHRG2+62
PRTMSSN UCCHRG2+30, UCCHRG2+59
PRTNORUR UCCHRG2+48
PRTUCUPD UCCHRG2+34, UCCHRG2+63

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN PRTUCVST~, PRTUCVST+4, GETVST~, GETVST+12, UCCHRG2~, UCCHRG2+15, UCCHRG2+19, UCCHRG2+27, UCCHRG2+33, UCCHRG2+43
, UCCHRG2+51, UCCHRG2+62, ADDVST~, ADDVST+38
DIR PRTSARUR+1~, PRTVSTSA+1~, GETOK+1~
DIR("A" PRTSARUR+4*, PRTVSTSA+3*, GETOK+4*, GETOK+12*
DIR(0 PRTSARUR+4*, PRTVSTSA+3*, GETOK+4*, GETOK+12*
DIRUT PRTSARUR+1~, PRTSARUR+6, PRTVSTSA+1~, PRTVSTSA+6, GETOK+1~
DTIME IBEDIT+4
DUOUT PRTSARUR+1~, PRTSARUR+7, PRTVSTSA+1~, PRTVSTSA+7, GETOK+1~
DUZ IBEDIT+2
FDA ADDVST+15~
FDAIEN ADDVST+15~
I GETELGP+8~, GETELGP+17*, GETELGP+18*, GETELGP+19
IBBILL GETVST+6~, GETVST+8*, GETVST+26*, GETVST+28, ADDVST+15~, ADDVST+28*, ADDVST+32, ADDVST+35*, ADDVST+38
IBBLCMT GETVST+6~, GETVST+27*, GETVST+28*, GETVST+31
IBBLSTAT ADDVST+15~, ADDVST+33*, ADDVST+35
IBCAL GETVST+6~, GETVST+10*, GETVST+16
>> IBCHG UCCHRG2+9*
IBCHK GETELGP+8~, GETELGP+11*, GETELGP+13, GETELGP+14
IBCMT GETVST+6~, GETVST+8*, GETVST+29*, GETVST+31
IBCT PRTUCVST+2~, PRTUCVST+4*, PRTUCVST+5*, PRTUCVST+6, PRTUCVST+9, PRTUCVST+24, GETVST+6~, GETVST+8*, GETVST+24*, GETVST+31
, GETVST+32, UCCHRG2+8~, UCCHRG2+19*, UCCHRG2+27*, UCCHRG2+28*, UCCHRG2+43*, UCCHRG2+44*, UCCHRG2+51*, UCCHRG2+52*
IBDATA PRTUCVST+2~, PRTUCVST+17*, PRTUCVST+18, PRTUCVST+19, PRTUCVST+20, PRTUCVST+21, GETVST+13*, GETVST+14, GETVST+17, GETVST+26
, GETELGP+8~, GETELGP+19*, GETELGP+20
IBDCT PRTUCVST+2~, PRTUCVST+5*, PRTUCVST+6, GETVST+6~, GETVST+8*, GETVST+23*, GETVST+32
IBDFN GETELIG~, GETELIG+8, GETELIG+20, GETELGP~, GETELGP+11, GETELGP+39
IBDOS GETELGP~, GETELGP+29, GETELGP+32
IBDT PRTUCVST~, PRTUCVST+4, PRTUCVST+14, GETVST~, GETVST+10, UCCHRG2~, UCCHRG2+10*, UCCHRG2+15, UCCHRG2+19, UCCHRG2+27
, UCCHRG2+33, UCCHRG2+43, UCCHRG2+51, UCCHRG2+62, ADDVST~, ADDVST+38
IBDUPFLG PRTUCVST~, PRTUCVST+14*, UCCHRG2+8~, UCCHRG2+10*, UCCHRG2+19, UCCHRG2+27, UCCHRG2+31, UCCHRG2+51, UCCHRG2+60, GETOK~
, GETOK+2*, GETOK+3, GETOK+9
IBEFDT GETELGP+8~, GETELGP+20*, GETELGP+22, GETELGP+25
IBELIG GETELGP+8~, GETELGP+20*, GETELGP+21*, GETELGP+24, GETELGP+25
IBELKUP GETELGP+8~, GETELGP+29*, GETELGP+30, GETELGP+34*, GETELGP+36, GETELGP+42, GETELGP+45, GETELGP+48*, GETELGP+50
IBERR GETELIG+11~, GETELIG+13*
IBERROR ADDVST+15~, ADDVST+38
>> IBEVDA UCCHRG2+10*
>> IBFAC ADDVST+26
>> IBFR UCCHRG2+10
IBFRCT PRTUCVST+2~, PRTUCVST+5*, PRTUCVST+24, GETVST+8*, GETVST+25*, GETVST+32, UCCHRG2+8~, UCCHRG2+28*, UCCHRG2+29, UCCHRG2+44*
, UCCHRG2+46, UCCHRG2+52*, UCCHRG2+55
IBI PRTUCVST+2~, PRTUCVST+15*, PRTUCVST+16*, PRTUCVST+17, GETVST+6~, GETVST+8*, GETVST+12*, GETVST+13, GETVST+18, GETVST+22
, GETVST+29
IBLDT PRTUCVST+2~, PRTUCVST+12*, PRTUCVST+13*, PRTUCVST+14, PRTUCVST+16, PRTUCVST+17
>> IBLKDT GETELGP+32*, GETELGP+33, GETELGP+34, GETELGP+45
IBN ADDVST~, ADDVST+20, ADDVST+28, ADDVST+33
IBOK UCCHRG2+8~, UCCHRG2+31*, UCCHRG2+32, UCCHRG2+60*, UCCHRG2+61
IBOLD GETELGP+8~, GETELGP+22*, GETELGP+24
IBOUT GETELIG~, GETELIG+9*, GETELGP+8~, GETELGP+10*, GETELGP+11
IBOUT("DILIST" GETELIG+21, GETELGP+18, GETELGP+19
IBOUT("SDATE" GETELGP+22, GETELGP+25*, GETELGP+29, GETELGP+32, GETELGP+34, GETELGP+48
IBPRI UCCHRG2+8~, UCCHRG2+15*, UCCHRG2+18, UCCHRG2+26
IBREAS ADDVST~, ADDVST+29*, ADDVST+38
IBRESP UCCHRG2+8~, UCCHRG2+45*, UCCHRG2+46, UCCHRG2+47*, UCCHRG2+48, UCCHRG2+54*, UCCHRG2+56*, UCCHRG2+57, UCCHRG2+58
IBSCEFDT GETELGP+8~, GETELGP+39*, GETELGP+42, GETELGP+45, GETELGP+48
IBSITE GETVST+6~, GETVST+18*, GETVST+19, GETVST+20, GETVST+21*, GETVST+31, ADDVST~, ADDVST+15~, ADDVST+20*, ADDVST+26*
, ADDVST+38
IBSITECD GETVST+6~, GETVST+19*, GETVST+21
IBSITENM GETVST+6~, GETVST+20*, GETVST+21
IBSTAT GETVST+6~, GETVST+22*, GETVST+23, GETVST+25, GETVST+31
IBSTATUS ADDVST~, ADDVST+38
>> IBTO UCCHRG2+10*
>> IBTYPE UCCHRG2+10*
IBUCVT UCCHRG2+8~, UCCHRG2+23*
>> IBUNIT UCCHRG2+9*, UCCHRG2+10*
IBVDT GETVST+6~, GETVST+14*, GETVST+16, GETVST+31
>> IBX UCCHRG2+10*, IBEDIT+4*
IBY PRTSARUR+1~, PRTSARUR+2*, PRTSARUR+6, PRTSARUR+7, PRTSARUR+8, UCCHRG2+35*, UCCHRG2+48*, UCCHRG2+55, UCCHRG2+57*, UCCHRG2+64*
, PRTVSTSA+1~, PRTVSTSA+2*, PRTVSTSA+6, PRTVSTSA+7, GETOK+1~
U PRTUCVST+5, PRTUCVST+19, PRTUCVST+20, PRTUCVST+21, PRTUCVST+24, GETVST+14, GETVST+17, GETVST+26, GETVST+31, GETVST+32
, UCCHRG2+28, UCCHRG2+44, UCCHRG2+52, GETELGP+20
X PRTSARUR+1~, PRTVSTSA+1~, GETOK+1~
Y PRTSARUR+1~, PRTSARUR+8, PRTVSTSA+1~, PRTVSTSA+8, GETOK+1~, GETOK+9, GETOK+15
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