©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
IBCF2 ;ALB/ARH - HCFA 1500 19-90 DATA (gather demographics) ; 12-JUN-93
Source file <IBCF2.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 3 | BSTAT^IBCDC ^IBCF21 ^IBCF2P |
| Kernel | 3 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD |
| Registration | 1 | (ADD,DEM)^VADPT |
| VA Fileman | 1 | ^DIE |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 4 | IBCF IBCF21 IBCF22 IBCFP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;begin gathering data for printing of HCFA 1500
|
|
| PAT | ||
| PATADD | ||
| DEV | ; IBIFN required
|
|
| NEXT | ||
| Q | ||
| END | ;set print status
|
|
| ARRAY | ;
|
|
| STATE(X) | ; returns 2 letter abbreviation for state pointer
|
|
| DATE(X) | ; returns date in form format
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | DEV+2, EN+3, MAIL, END+1 |
| ^DIC(5 - [#5] | STATE+1 |
| ^DPT - [#2] | EN+4, PAT+7, PAT+8 |
| ^IBE(353 - [#353] | DEV+2 |
| Name | Line Occurrences |
|---|---|
| $$DATE | PAT+3 |
| $$STATE | MAIL+3, PATADD+3 |
| ARRAY | EN+4 |
| EN | DEV+5 |
| Q | DEV+3, DEV+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | DEV+1* |
| >> %ZIS("A" | DEV+1* |
| >> %ZIS("B" | DEV+2* |
| DA | END+1*! |
| DFN | EN+4*, PAT+7, PAT+8, END+4! |
| DIC | END+1*! |
| DIE | END+1*! |
| DR | END+1*! |
| IB | END+4! |
| IB( | MAIL* |
| IB("M" | MAIL+1, MAIL+2, MAIL+3 |
| IB("M1" | MAIL+2 |
| IB(0 | EN+3*, EN+4 |
| IBDXI | END+4! |
| IBFLD | EN+2!, END+4! |
| IBFLD( | ARRAY+2*, ARRAY+3*, ARRAY+4* |
| IBFLD("1A" | PAT+1* |
| IBFLD("3D" | PAT+3* |
| IBFLD("3X" | PAT+4* |
| IBFLD("5S" | PATADD+3* |
| IBFLD("5T" | PATADD+4* |
| IBFLD("8E" | PAT+7* |
| IBFLD("8M" | PAT+5* |
| IBFLD(0 | EN+5*, MAIL+1*, MAIL+2*, MAIL+3*, ARRAY+1* |
| IBFLD(2 | PAT+2* |
| IBFLD(5 | PATADD+1*, PATADD+2* |
| IBI | MAIL*, MAIL+2*, END+4!, ARRAY+1*, ARRAY+2*, ARRAY+3*, ARRAY+4* |
| >> IBIFN | DEV+2, EN+3, MAIL, END+1, END+2 |
| IBJ | EN+5*, MAIL+1*, MAIL+2*, MAIL+3, END+4!, ARRAY+3* |
| >> IBPNT | EN+5* |
| IBSPE | PAT+8*, END+4! |
| IBX | END+4! |
| IBY | END+4! |
| IBYY | END+1*! |
| IO | DEV+5 |
| IO("Q" | DEV+4! |
| >> POP | DEV+3 |
| U | EN+4, MAIL+1, MAIL+2, MAIL+3, PAT+1, PAT+4, PAT+7, PAT+8, PATADD+2, END+1 , STATE+1 |
| VA | PAT+6! |
| VADM | PAT+6! |
| VADM(1 | PAT+2 |
| VADM(10 | PAT+5 |
| VADM(2 | PAT+1 |
| VADM(3 | PAT+3 |
| VADM(5 | PAT+4 |
| VAERR | END+4! |
| VAPA | PATADD+5! |
| VAPA(1 | PATADD+1 |
| VAPA(11 | PATADD+2 |
| VAPA(2 | PATADD+1 |
| VAPA(3 | PATADD+1 |
| VAPA(4 | PATADD+2 |
| VAPA(5 | PATADD+3 |
| VAPA(8 | PATADD+4 |
| X | PAT+7*, END+4!, DATE~, DATE+1, STATE~, STATE+1 |
| Y | END+4! |
| >> ZTDESC | DEV+4* |
| >> ZTQUEUED | Q |
| >> ZTRTN | DEV+4* |
| >> ZTSAVE("IB*" | DEV+4* |