©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
IBERS2 ;ALB/ARH - APPOINTMENT CHECK-OFF SHEET GENERATOR (CONTINUED) ; 12/6/91
Source file <IBERS2.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | $$LST^DGMTU ELIG^VADPT |
| Integrated Billing | 1 | ^IBCNS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENDLN | ||
| PAT | ;name,clinic,appointment date/time
|
|
| INS | ||
| MT | ;means test, date of last means test, primary eligibility
|
|
| ENDINSC | ;print the INS and SC arrays on the same lines
|
|
| EXIT | ||
| DX | ;print discharge and billing dx's for last 6 appointments
|
|
| SC | ||
| END | ;end of sheet, Last section on patient printed on RS: new dx's, signature
|
|
| LINE | ;prints 1 (IBW=1) 2 (IBW=2) or three (IBW=3) pieces of data on a formated line
|
|
| CHECKS | ;print space for checks
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | MT+3 |
| ^DG(391 - [#391] | SC+2 |
| ^DIC(31 - [#31] | SC+6 |
| ^DIC(36 - [#36] | INS+5 |
| ^DPT - [#2] | SC, SC+3, SC+4, SC+5, SC+6 |
| ^TMP("IBRSP" | INS+2*, ENDLN* |
| Name | Line Occurrences |
|---|---|
| ENDINSC | SC, SC+2, SC+3, SC+4 |
| ENDLN | IBERS2+6, PAT+4, MT+5, ENDINSC+2, CHECKS+2, END+2, END+4, LINE+4 |
| LINE | IBERS2+6, PAT+1, PAT+2, PAT+3, MT+2, MT+4, ENDINSC+1, CHECKS+1, END+3 |
| SC | INS+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | IBERS2+5*, MT+1, SC, SC+3, SC+4, SC+5, SC+6, EXIT! |
| >> IB1 | END+1, LINE+4, LINE+6 |
| >> IB2 | INS+7, SC+7, LINE+4, LINE+5 |
| >> IB3 | CHECKS+1, LINE+5 |
| >> IB4 | LINE+5 |
| IBCMP | INS+5*, INS+6, INS+7, INS+8, ENDINSC+3! |
| IBCOND | INS*, SC+5*, SC+6*, SC+7, SC+9, END+1, END+2, EXIT! |
| IBDD | INS+4, ENDINSC+3! |
| IBDD( | INS+4 |
| IBDIS | SC+6*, SC+7, ENDINSC+3! |
| IBDISC | SC+6*, SC+7, ENDINSC+3! |
| >> IBDSH | PAT+4, MT+5, ENDINSC+2, CHECKS+2, END+4 |
| IBDT | IBERS2+5*, MT+1, INS, EXIT! |
| IBI | INS+4*, INS+5, INS+6, INS+7, INS+8*, ENDINSC+1*, ENDINSC+3!, END+1*, EXIT! |
| IBINDT | INS*, ENDINSC+3! |
| IBINS | INS+1, ENDINSC+3! |
| IBINS( | INS+5, INS+6*, INS+7*, INS+8*, ENDINSC+1 |
| IBINS(1 | INS+1* |
| IBL | LINE+5*, LINE+6, LINE+7, LINE+8, ENDLN+1! |
| IBLC | IBERS2+5*, EXIT!, ENDLN* |
| >> IBLN | IBERS2+5, PAT+1, PAT+2, PAT+3 |
| IBLX | INS+5*, INS+6, INS+7, ENDINSC+3! |
| IBNS | INS+4*, INS+5, ENDINSC+3! |
| IBOUTP | INS*, ENDINSC+3! |
| IBSC | SC+5*, SC+6, ENDINSC+3! |
| IBSCD | ENDINSC+3! |
| IBSCD( | SC+7*, ENDINSC+1 |
| IBSCD(1 | SC+2*, SC+3*, SC+4*, SC+9* |
| IBT | LINE+4*, LINE+5*, LINE+7, LINE+8, ENDLN+1! |
| IBW | IBERS2+6*, PAT+1*, PAT+2*, PAT+3*, MT+2*, MT+4*, ENDINSC+1*, CHECKS+1*, END+3*, EXIT! , LINE+4, LINE+5, LINE+8 |
| IBX | IBERS2+6*, PAT+1*, PAT+2*, PAT+3*, PAT+4*, MT+2*, MT+4*, MT+5*, INS+1*, INS+6* , INS+8*, SC+1*, SC+2, SC+3, SC+4, SC+7, SC+8*, SC+9, ENDINSC+1*, ENDINSC+2* , CHECKS+1*, CHECKS+2*, END+1*, END+3*, END+4*, EXIT!, LINE+4*, LINE+6*, LINE+7*, LINE+8* , ENDLN |
| IBY | PAT+1*, PAT+2*, PAT+3*, MT+2*, MT+4*, ENDINSC+1*, CHECKS+1*, END+3*, EXIT!, LINE+7* |
| IBZ | CHECKS+1*, EXIT!, LINE+8* |
| IOM | INS+2 |
| VAEL | ENDINSC+3! |
| VAEL(1 | MT+2 |
| VAEL(3 | MT+4, SC |
| VAEL(4 | SC+2 |
| VAEL(6 | SC+2 |
| VAERR | ENDINSC+3! |
| X | EXIT! |
| Y | MT+1*, MT+2, MT+3*, MT+4, EXIT! |