IBECEA36 ;ALB/CPM - Cancel/Edit/Add... Urgent Care Add Utilities ; 23-APR-93
Source file <IBECEA36.m>
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() |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
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 |