IBECEA1 ;ALB/RLW - Cancel/Edit/Add... Action Entry Points ; Sep 30, 2020@15:16:44
Source file <IBECEA1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PASS | ; 'Pass a Charge' Entry Action (added by Jim Moore 4/30/92)
|
|
MSG | ; Display results message.
|
|
ADD | ; 'Add a Charge' Entry Action
|
|
UPD | ; 'Edit a Charge' Entry Action
|
|
CAN | ; 'Cancel a Charge' Entry Action
|
|
CANQ | ||
PAUSE | ; Keep this around for awhile.
|
|
DUPCPYCHK(IBIENS) | ;
; Input: IBIENS = A single charge IEN to release or a series of charge IENs separated by commas ; Output: 0: No Duplicate Copay exists for the patient/date ; #: IEN of the Duplicate Copay ; If the charge currently being released is a Copay charge, then check for duplicates ; All charges including ON HOLD Copay charges will be in the ACHDT x-ref |
|
IBARY(IBIENS,IBARY) | ; Process user selection and save in IBARY ordered by priority
; IBARY will only contain the Copay related charges that need to be checked for duplicates. ; Input: Y = A single charge IEN to release or a series of charge IENs separated by commas ; IBARY = Array name passed by reference for return array. ; Output: IBARY(Date of Interest, Priority Index, IEN in "#350)="" |
|
GETINFO(IBIEN) | ; Display Duplicate Copay info to the user.
; IBIEN = Existing Copay already charged for Patient/Date |
|
CPYDISPLAY(IBIEN1,IBIEN2) | ; Display Duplicate Copay info to the user.
; Input: IBIEN1 - IEN of 1st charge - Currently in IB ; IBIEN2 - IEN of 2nd charge - Could be in IB or AR |
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 |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IB - [#350] | GET1^DIQ |
^IBE(352.5 - [#352.5] | GET1^DIQ |