IBOMHC ;SAB/EDE - COMPACT ACT COPAY Review Report ;JUL 12 2021
Source file <IBOMHC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
MAIN | ; Main routine to gather and print the report
|
|
DATESEL(DATESTRT,DATEEND,DESCR) | ; prompt for start and end dates
|
|
DATESEL1 | ;
|
|
DATESELX | ; dates prompt exit point
|
|
COLLECT | ; review the copays in the specified period for possible COMPACT Act related copays to review
|
|
ISELIG(DFN) | ; check if given patient is COMPACT Act eligible
|
|
GETPMDX(IBPM,IBDXARY) | ;Retrieve Dx's from the PTF file via the Patient Movement file.
|
|
GETPTFDX(IBPTF,IBDXARY) | ; Retrieve all of the DX codes assigned during an outpatient visit
|
|
GETPCEDX(IBPCE,IBDXARY) | ||
GETPCECP(IBPCE,IBCPTARY) | ||
PRINT(IBSTRT,IBEND) | ; Print the results
|
|
HDR(IBSTRT,IBEND) | ; print header
|
|
PAUSE | ||
GETDX() | ; Populate the list of DX codes
|
|
CMPDX(IBDX,IBCPTARY) | ; Check to see if the diagnosis is a Compact Act related Diagnosis.
|
|
DXSLIST | ; List of Specific Compact Act Related Diagnosis codes
|
|
GETDIV() | ; Ask to filter by Division. If so, select the division.
|
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 |
|
FileNo | Call Tags |
---|---|
^IB - [#350] | GET1^DIQ |
^IBE(350.1 - [#350.1] | GET1^DIQ |
^IBE(350.21 - [#350.21] | GET1^DIQ |
^VA(389.9 - [#389.9] | GET1^DIQ |
^DGPM - [#405] | GET1^DIQ |
^ICPT - [#81] | GET1^DIQ |