Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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()

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call