IBECEAU ;ALB/CPM - Cancel/Edit/Add... Utilities ;11-MAR-93
Source file <IBECEAU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHECK(TALK) | ; Retrieve the institution and MAS Service pointer.
; Input: TALK -- 1 : do i/o (writes) ; 0 : no i/o |
|
| PAUSE | ; Go to end of page to pause.
|
|
| INPT(DAYS) | ; Return a description for Billing Clock days.
; Input: DAYS -- Number of days in a billing clock ; Output: "1st", "2nd", "3rd", "4th" |
|
| LAST(PAR) | ; Find last action filed for any parent action.
; Input: PAR -- Parent IB Action ; Output: Last action filed for parent (or parent if none) |
|
| BFO(DFN,DATE) | ; Patient Billed For OPT Copay on a specified date?
; Input: DFN -- Pointer to the patient in file #2 ; DATE -- Date of the Outpatient Visit ; Output: 0 -- Not billed the OPT copay on the visit date ; >0 -- Pointer to charge in file #350 that was billed |
|
| BFOQ | ||
| CNP(DFN,DATE) | ; Did the patient have a C&P Exam on a specified date?
; Input: DFN -- Pointer to the patient in file #2 ; DATE -- Date of the Outpatient Visit ; Output: 0 -- Patient did not have a C&P Exam on the visit date ; 1 -- Patient had a C&P Exam on the visit date |
|
| CNPQ | ||
| HDR(OPT) | ; Display the header for an action
; Input: OPT -- Action Header |
|
| LINE() | ; Write a line.
|
|
| CLOCK(IBDOL,IBDAYPR,IBDAY) | ; Display and update clock data.
; Input: IBDOL -- Dollar amount to add or subtract ; IBDAYPR -- Existing number of inpatient days ; IBDAY -- Inpatient days to add or subtract ; Also assumes that IBCLST,IBNAM, IBCLDA, and IBXA are defined. |
|
| BFCHK(DFN,DATE,EDATE) | ;
; Input: DFN -- Pointer to the patient in file #2 ; SDATE -- Start Date of the Patient Visit (inpatient or outpatient) ; EDATE -- (Optional) End Date of the Patient Visit (inpatient only) |
|
| BFCHKQ | ||
| CHKSTAT(IBSTAT) | ; Check to see if the status on the copay allows for the copay to be checked for a duplicate
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IB - [#350] | BFO+8, HDR+4, BFCHK+30, BFCHK+56 |
| ^IB("AFDT" | BFO+7, BFCHK+26, BFCHK+28 |
| ^IB("APDT" | LAST+4 |
| ^IB("C" | BFCHK+55 |
| ^IBE(350.1 - [#350.1] | BFO+9, BFO+10, BFCHK+35, BFCHK+36, BFCHK+58, BFCHK+60 |
| ^TMP("DIERR" | CNP+13! |
| ^TMP("IBACMIDX" | HDR+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADD | HDR+2~*, HDR+4, HDR+5, HDR+6, HDR+7, HDR+8, HDR+9 |
| DATE | BFO~, BFO+6, BFO+7, CNP~, CNP+6, CNP+8, BFCHK~, BFCHK+10, BFCHK+13, BFCHK+20 , BFCHK+34, BFCHK+64 |
| DATEH | BFCHK+8~, BFCHK+20*, BFCHK+21 |
| DATEL | BFCHK+8~, BFCHK+31* |
| DAYS | INPT~, INPT+3 |
| DFN | BFO~, BFO+6, BFO+7, CNP~, CNP+6, CNP+8, BFCHK~, BFCHK+10, BFCHK+26, BFCHK+28 , BFCHK+55 |
| DIR | PAUSE+1~, PAUSE+4! |
| DIR("A" | PAUSE+3* |
| DIR(0 | PAUSE+4* |
| DIRUT | PAUSE+1~ |
| DTOUT | PAUSE+1~ |
| DUOUT | PAUSE+1~ |
| EDATE | BFCHK~, BFCHK+11*, BFCHK+12*, BFCHK+13*, BFCHK+20, BFCHK+33, BFCHK+63 |
| EDATEH | BFCHK+8~, BFCHK+20*, BFCHK+21 |
| HDR | HDR+2~, HDR+3*, HDR+5 |
| I | CNP+5~ |
| IBAT | BFCHK+8~, BFCHK+56*, BFCHK+57, BFCHK+58, BFCHK+60 |
| IBATBG | BFCHK+8~, BFCHK+58*, BFCHK+59 |
| IBATYP | BFO+5~, BFO+7, BFO+9*, BFO+10, BFCHK+8~, BFCHK+28, BFCHK+35*, BFCHK+36 |
| IBATYPN | BFO+5~, BFO+7, BFO+10*, BFCHK+8~, BFCHK+28, BFCHK+36*, BFCHK+37, BFCHK+40, BFCHK+41 |
| IBATYPNM | BFCHK+8~, BFCHK+41*, BFCHK+42 |
| IBCBK | CNP+5~, CNP+11*, CNP+13 |
| >> IBCLDA | HDR+7, HDR+9, CLOCK+6, CLOCK+7 |
| >> IBCLDT | HDR+9 |
| >> IBCLST | CLOCK+5, CLOCK+6 |
| IBCNP | CNP+5~, CNP+12*, CNP+14 |
| IBD | CNP+5~ |
| IBDATA | BFCHK+9~, BFCHK+56* |
| IBDAY | CLOCK~, CLOCK+7 |
| IBDAYPR | CLOCK~, CLOCK+7 |
| IBDOL | CLOCK~, CLOCK+6 |
| IBFDT | BFCHK+9~, BFCHK+30*, BFCHK+32, BFCHK+33, BFCHK+56*, BFCHK+63 |
| IBFILTER | CNP+5~, CNP+10*, CNP+13 |
| IBFLG | BFCHK+8~, BFCHK+28, BFCHK+29*, BFCHK+32*, BFCHK+33*, BFCHK+34*, BFCHK+37*, BFCHK+40*, BFCHK+42* |
| >> IBIDX | HDR+4*, HDR+6, HDR+8 |
| IBJ | BFCHK+9~, BFCHK+55*, BFCHK+56, BFCHK+65 |
| IBL | LAST+3~, LAST+4*, BFO+5~, BFO+7, BFO+8*, BFCHK+8~, BFCHK+28, BFCHK+30* |
| IBLAST | LAST+3~, LAST+4*, LAST+5 |
| IBLDT | LAST+3~, LAST+4* |
| IBLPDT | BFCHK+8~, BFCHK+21*, BFCHK+24 |
| IBN | BFO+5~, BFO+7*, BFO+8, HDR+4*, BFCHK+8~, BFCHK+28*, BFCHK+30 |
| >> IBNAM | HDR+6, HDR+8, CLOCK+5 |
| >> IBNBR | HDR+4, HDR+5 |
| IBND | BFO+5~, BFO+7, BFO+8*, BFO+9, HDR+4*, BFCHK+8~, BFCHK+28, BFCHK+30*, BFCHK+35 |
| IBSD | CNP+5~ |
| IBSEQNM | BFCHK+8~, BFCHK+60*, BFCHK+62 |
| IBSTAT | BFCHK+8~, BFCHK+56*, BFCHK+61, CHKSTAT~, CHKSTAT+6, CHKSTAT+7, CHKSTAT+8, CHKSTAT+9, CHKSTAT+10, CHKSTAT+11 |
| IBTDT | BFCHK+9~, BFCHK+30*, BFCHK+32, BFCHK+34, BFCHK+56*, BFCHK+64 |
| IBTO | BFCHK+9~, BFCHK+12 |
| IBVAL | CNP+5~, CNP+13 |
| IBVAL("BDT" | CNP+8* |
| IBVAL("DFN" | CNP+8* |
| IBVAL("EDT" | CNP+8* |
| >> IBXA | CLOCK+6, CLOCK+7, BFCHK+16, BFCHK+37, BFCHK+39, BFCHK+40, BFCHK+47, BFCHK+50 |
| IBY | CHECK+3~*, CHECK+4*, CHECK+5, CHECK+6, HDR+3* |
| OPT | HDR~, HDR+2, HDR+3 |
| PAR | LAST~, LAST+4, LAST+5 |
| SDATE | BFCHK+8~, BFCHK+24*, BFCHK+26*, BFCHK+27, BFCHK+28, BFCHK+31 |
| TALK | CHECK~, CHECK+4, CHECK+5 |
| U | BFCHK+28, BFCHK+30, BFCHK+35, BFCHK+36, BFCHK+37, BFCHK+40, BFCHK+41, BFCHK+56, BFCHK+58, BFCHK+60 |
| X | PAUSE+1~ |
| Y | CHECK+3~*, CHECK+4, PAUSE+1~, PAUSE+2*, BFO+5~, BFO+7*, BFOQ, CNP+5~, CNP+14*, CNPQ , BFCHK+8~, BFCHK+21, BFCHK+22*, BFCHK+28*, BFCHK+54*, BFCHK+55, BFCHK+65*, BFCHKQ |
| Z | CNP+5~ |
