©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGMTUB ;ALB/RMO/CAW,CPM,LBD - Means Test Billing Utilities ; 7/22/02 9:32am
Source file <DGMTUB.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 1 | $$LVMT^DGMTU |
| VA Fileman | 1 | C^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BILQ | ||
| CK(DGMT0) | ;Check if patient is pending adjudication or category C
; and has agreed to pay the deductible ; Add check for GMT status (DG*5.3*456) ; Input -- DGMT0 Annual Means Test 0th node ; Output -- 1=TRUE and 0=FALSE |
|
| GMT(DFN,DGDT) | ;Determine if patient is GMT Copay Required as of the date
; specified ; Input -- DFN Patient IEN ; DGDT Date/Time ; Output -- 1=Patient had GMT status or Pending Adjudication ; for GMT as of date specified ; 0=Patient did not have GMT status |
|
| CKDT | ;Check the date of test
|
|
| BILSTQ | ||
| BIL(DFN,DGDT) | ;Determine if patient is pending adjudication
; or category C and has agreed to pay the deductible ; Input -- DFN Patient IEN ; DGDT Date/Time ; Output -- 1=TRUE and 0=FALSE |
|
| BILST(DFN) | ;Determine the last date patient was pending adjudication
; or category C and agreed to pay the deductible ; Input -- DFN Patient IEN ; Output -- Last effective date |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGMT(408.31 - [#408.31] | BIL+11, BIL+12, BIL+13, BILST+9, BILST+10, BILST+11, GMT+14 |
| Name | Line Occurrences |
|---|---|
| $$BIL | BILST+7 |
| $$CK | BIL+20, BIL+24, CKDT+2 |
| BILQ | BIL+7 |
| BILSTQ | BILST+6, BILST+7 |
| CKDT | BILST+11 |
| Name | Field # of Occurrence |
|---|---|
| ^("PRIM" | BIL+13, BILST+11 |
| ^(0 | BILST+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BILL | BIL+5~, BIL+6*, BIL+24*, BILQ |
| DFN | BIL~, BIL+7, BIL+11, BIL+12, BILST~, BILST+6, BILST+7, BILST+9, BILST+10, GMT~ , GMT+9, GMT+12 |
| DGDT | BIL~, BIL+8*, BIL+10, BIL+20, BIL+24, BILST+4~, BILST+5*, BILST+7*, BILST+9, BILST+10 , BILSTQ, CKDT+3*, GMT~, GMT+10*, GMT+12 |
| DGENDT | BILST+4~, BILST+5*, CKDT+2*, CKDT+3 |
| DGMT | GMT+8~, GMT+12*, GMT+14 |
| DGMT0 | BILST+4~, BILST+11*, CKDT+2, CK~, CK+6, GMT+8~, GMT+14*, GMT+18 |
| DGMTATP | CK+5~, CK+6*, CK+7 |
| DGMTG | GMT+8~, GMT+14*, GMT+15, GMT+18 |
| DGMTI | BILST+4~, BILST+10*, BILST+11 |
| DGMTIDT | BILST+4~, BILST+9*, BILST+10 |
| DGMTS | CKDT+1~, CKDT+2*, CK+5~, CK+6*, CK+7 |
| DGSTA | GMT+8~, GMT+12*, GMT+13, GMT+18 |
| DGSTDT | BILST+4~, BILST+5*, CKDT+2*, CKDT+3 |
| DT | BIL+8, BILST+7, CKDT+3, GMT+10 |
| EDAT | BIL+5~, BIL+17*, BIL+20, BIL+24 |
| MT0 | BIL+5~, BIL+13*, BIL+16, BIL+17, BIL+20, BIL+24 |
| MTI | BIL+5~, BIL+12*, BIL+13 |
| STOP | BIL+5~, BIL+6*, BIL+11, BIL+12, BIL+20*, BIL+24* |
| TDAT | BIL+5~, BIL+10*, BIL+11*, BIL+12 |
| U | GMT+12, GMT+14, GMT+18 |
| X | CKDT+1~, CKDT+3 |
| X1 | CKDT+1~, CKDT+3* |
| X2 | CKDT+1~, CKDT+3* |
| Y | CKDT+1~, CKDT+2*, CK+5~, CK+7*, CK+8 |