IBECEA3 ;ALB/CPM - Cancel/Edit/Add... Add a Charge ;30-MAR-93
Source file <IBECEA3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ADD | ; Add a Charge protocol
|
|
FR | ; - ask 'bill from' date
|
|
UCPAY | ;IB*2.0*646 Added to allow for skip of clock checks - required for Urgent Care Copays
; - perform outpatient edits |
|
TO | ; - ask 'bill to' date
|
|
EV | ; - find event record, or select admission for linkage
|
|
PROC | ; - okay to proceed?
|
|
ADDQ | ; - display error, rebuild list, and quit
; IB*2.0*682 skip list rebuild and killing of some variables if we're coming from ^IBECEA4 - it's done in 'Cancel charge' code |
|
ADDQ1 | ||
TYP() | ; Return descriptive admission type.
|
|
TYPQ | ||
VSTCHK() |
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IB - [#350] | GET1^DIQ |
^IBE(350.9 - [#350.9] | GET1^DIQ |
^IBE(351 - [#351] | GET1^DIQ |
^IBE(352.5 - [#352.5] | GET1^DIQ |