©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
BARDYSUT ; IHS/SD/TPF - DAYS IN A/R REPORT UTILS ;
Source file <BARDYSUT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CURBIL | ;EP
|
|
| CURTPB | ;EP
|
|
| CHKARTR(FROM,TO) | ;EP -
|
|
| GETVPROV(VIEN) | ;EP - PRIMARY PROVIDER
|
|
| PRVCHK(X) | ;Subrtn to find attending and operating
|
|
| INITVIS | ;EP - INITIALIZE COUNTERS
|
|
| CHK3PBL | ;EP
|
|
| DISCHARG(VIEN) | ;EP - IS THIS VISIT AN IN PATIENT? IS SO RETURN DISCHARGE DATE
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | GETVPROV+4, DISCHARG+3, CHKARTR+6, CHKARTR+7, CHKARTR+8, CHKARTR+9, CHKARTR+10, CURBIL+4, CHK3PBL+3, CURTPB+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVINP - [#9000010.02] | GET1^DIQ |
| ^AUPNVPRV - [#9000010.06] | GET1^DIQ |
| ^ABMDBILL(2906 - [#9002274.4] | GET1^DIQ |
| ^BARBL(2906 - [#90050.01] | GET1^DIQ |
| ^BARTR(2906 - [#90050.03] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | CHK3PBL+2, CURTPB+3 |
| ^AUPNPRV("AD" | PRVCHK+1 |
| ^AUPNVINP("AD" | DISCHARG+1 |
| ^AUPNVPRV - [#9000010.06] | PRVCHK+3, PRVCHK+5, PRVCHK+7 |
| ^AUPNVPRV("AD" | GETVPROV+3 |
| ^BARBL( | CURBIL+3 |
| ^BARTR( | CHKARTR+4 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PRVCHK+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMTBILLD | INITVIS+1!, INITVIS+3* |
| ARRAY | CURBIL+1!, CURTPB+1! |
| ARRAY( | CURBIL+6*, CURBIL+8, CURBIL+9, CURTPB+6*, CURTPB+8, CURTPB+9 |
| AVGCHKIN | INITVIS+2!, INITVIS+4* |
| >> BARAT | PRVCHK+5*, PRVCHK+8 |
| >> BAROP | PRVCHK+7*, PRVCHK+8 |
| >> BILL | CHKARTR+6*, CHKARTR+11, CHKARTR+16, CHKARTR+19 |
| BILLAMT | INITVIS+1!, INITVIS+3* |
| >> BILLIEN | CURBIL+2*, CURBIL+3*, CURBIL+4 |
| BILLNUM | INITVIS+1!, INITVIS+3* |
| BILLREJT | INITVIS+2!, INITVIS+4* |
| >> BILLSTAG | CHKARTR+16*, CHKARTR+17*, CHKARTR+18 |
| >> BILLSTAT | CHK3PBL+3*, CURTPB+4*, CURTPB+5*, CURTPB+6 |
| >> BILLTYPE | CHKARTR+8*, CHKARTR+14, CHKARTR+22 |
| CREDAYS | INITVIS+1!, INITVIS+3* |
| >> CURSTAT | CURBIL+4*, CURBIL+5*, CURBIL+6 |
| DATEREJT | INITVIS+5!, INITVIS+6* |
| DAYSAPP | INITVIS+2!, INITVIS+6* |
| >> DEBIT | CHKARTR+7*, CHKARTR+15, CHKARTR+23 |
| >> DISCHARG | DISCHARG+1*, DISCHARG+2, DISCHARG+3*, DISCHARG+4 |
| >> DONE | INITVIS+3* |
| DUZ(2 | CHKARTR+4, CURBIL+3, CHK3PBL+2, CURTPB+3 |
| DYSTOPAY | INITVIS+1!, INITVIS+4* |
| EARLYPAY | INITVIS+2!, INITVIS+4* |
| FOUND | GETVPROV+1~, GETVPROV+2*, GETVPROV+3, GETVPROV+4, GETVPROV+5 |
| FROM | CHKARTR~, CHKARTR+2 |
| LASTPAY | INITVIS+2!, INITVIS+4* |
| NOARIEN | INITVIS+5!, INITVIS+6* |
| NOBILLS | INITVIS+2!, INITVIS+4* |
| NUMBILLS | INITVIS+1!, INITVIS+3* |
| NUMVISIT | INITVIS+1!, INITVIS+3* |
| >> OFFSET | CHKARTR+1* |
| PACKREJ | INITVIS+2!, INITVIS+4* |
| PRV | GETVPROV+1~, GETVPROV+3*, GETVPROV+4* |
| REVDAYS | INITVIS+1!, INITVIS+3* |
| >> STAT | CURBIL+7*, CURBIL+8*, CURBIL+9, CURTPB+7*, CURTPB+8*, CURTPB+9 |
| TO | CHKARTR~, CHKARTR+3*, CHKARTR+4 |
| TOTPOST | INITVIS+2!, INITVIS+4* |
| TPBAPP | INITVIS+1!, INITVIS+3* |
| TPBEXP | INITVIS+1!, INITVIS+3* |
| >> TPBIEN | CHK3PBL+1*, CHK3PBL+2*, CHK3PBL+3, CURTPB+2*, CURTPB+3*, CURTPB+4 |
| >> TRANERR | CHKARTR+10*, CHKARTR+11, CHKARTR+12 |
| >> TRANIEN | CHKARTR+1*, CHKARTR+2*, CHKARTR+4*, CHKARTR+5, CHKARTR+11, CHKARTR+20 |
| >> TRANIENS | CHKARTR+5*, CHKARTR+6, CHKARTR+7, CHKARTR+8, CHKARTR+9, CHKARTR+10 |
| >> TRANTYPE | CHKARTR+9*, CHKARTR+13, CHKARTR+21 |
| U | PRVCHK+5, PRVCHK+7, PRVCHK+8 |
| VIEN | GETVPROV~, GETVPROV+3, DISCHARG~, DISCHARG+1 |
| WITBILLS | INITVIS+2!, INITVIS+4* |
| X | PRVCHK~, PRVCHK+1*, PRVCHK+2, PRVCHK+3, PRVCHK+5, PRVCHK+7 |