©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
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Source file <IBERS.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 3 | $$PT^IBEFUNC $$TDG^IBEFUNC2 ^IBERS1 |
| Kernel | 3 | (,HOME)^%ZIS ^%ZISC ^%ZTLOAD |
| VA Fileman | 3 | ^%DT ^DIC ^DIR |
| Registration | 2 | SDA^VADPT (DIVISION,FIRST)^VAUTOMA |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 1 | IB OUTPUT BASC FORMS FOR APPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DISP | ;display patients/clinics appointments found and get users choice
|
|
| ENDP | ||
| C | ;print all appointments for a clinic - find division then clinic, print all/some clinics for all/some divisions
|
|
| EN | ;determine print option from user (print by clinic or by patient)
|
|
| END | ||
| ENDS | ||
| S1 | ||
| SEARCH | ;get the appointment data on a patient (IBLN=APPT DT^CLINIC^STATUS^APPT TYPE)
|
|
| P | ;print by patient - get patient then appointment(s) for date
|
|
| ENDC | ||
| EXIT | ||
| ENDD | ||
| DATE | ;get date for RS
|
|
| E1 | ||
| E2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls |
| ^SC - [#44] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | DATE+1 |
| ^SC - [#44] | S1+3 |
| ^TMP("IBRS" | END, EXIT!, C+4*, C+5*, C+6*, DISP+8* |
| ^UTILITY("VASD" | S1+1, S1+2, S1+3, S1+4, DISP+1, ENDD! |
| Name | Line Occurrences |
|---|---|
| @( | E2 |
| DATE | E2 |
| DISP | P+2 |
| E2 | E1+3 |
| END | E1+2, E1+5 |
| ENDC | C+1, C+3 |
| ENDD | DISP+1, DISP+2, DISP+5 |
| ENDP | P+1 |
| ENDS | S1 |
| EXIT | END, END+2, END+3 |
| P | P+3 |
| S1 | S1+1, S1+5 |
| SEARCH | P+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DATE+2*! |
| %DT("A" | DATE+2* |
| %DT("B" | DATE+2* |
| >> %ZIS | END+2* |
| >> %ZIS("A" | END+2* |
| DFN | SEARCH+1*, S1*, S1+3, S1+4, ENDS! |
| DIC | P+1*!, C+3*!, ENDC! |
| DIC("S" | C+2* |
| DIC(0 | P+1* |
| DIR | E1+2!, E1+5!, DISP+5! |
| DIR("?" | E1+1*, E1+4* |
| DIR("A" | E1+2*, E1+5*, DISP+5* |
| DIR("B" | E1+1*, E1+5* |
| DIR(0 | E1+2*, E1+4*, DISP+5* |
| DIROUT | EXIT+4!, ENDD! |
| DIRUT | E1+2, E1+5, EXIT+4!, DISP+5, ENDD! |
| DT | EN+3 |
| DTOUT | EXIT+4!, ENDP!, ENDD! |
| DUOUT | EXIT+4!, ENDP!, ENDD! |
| IBC | E1+2*, E1+3, E2, EXIT+4!, DISP+4 |
| IBCLN | C+6*, ENDC! |
| IBDFN | ENDS! |
| IBDFN( | P+2*, S1 |
| IBDIV | C+5*, ENDC! |
| IBDT | EN+3*, E2, EXIT+4!, C+4, C+5, C+6, S1+1, DATE+1, DATE+2* |
| IBI | C+5*, C+6*, ENDC!, S1+2*, ENDS!, DISP+4*, DISP+5, DISP+6*, ENDD! |
| IBJ | DISP+4*, ENDD! |
| IBLN | S1+3*, S1+4, ENDS!, DISP+4*, ENDD! |
| IBNM | P+2*, ENDP!, DISP+1, DISP+2, DISP+3 |
| IBPAT | S1+3*, S1+4, ENDS! |
| IBPFN | P+1*, P+2, ENDP! |
| IBPNM | P+1*, P+2, ENDP! |
| IBSRT | E1+3*, E1+5*, EXIT+4!, DISP+7 |
| IBSRT1 | DISP+7*, DISP+8, ENDD! |
| IBTMP | DISP+2, ENDD! |
| IBTMP( | S1+4*, DISP+4, DISP+6, DISP+7, DISP+8 |
| IBX | S1+2*, S1+3, S1+4, ENDS!, DISP+4*, DISP+6*, DISP+7, DISP+8, ENDD! |
| IO | END+4 |
| IO("Q" | END+3! |
| IOF | E1 |
| >> POP | END+2 |
| VAERR | S1+1, ENDS! |
| VASD | ENDS! |
| VASD("F" | S1+1* |
| VASD("T" | S1+1* |
| VASD("W" | S1+1* |
| VAUTC | C+3, C+4, C+5, C+6, ENDC! |
| VAUTC( | C+6 |
| VAUTD | C+1, C+4, C+5, ENDC! |
| VAUTD( | C+5 |
| VAUTNI | C+3*, ENDC! |
| VAUTSTR | C+3*, ENDC! |
| VAUTVB | C+3*, ENDC! |
| X | EXIT+4!, ENDP!, ENDD! |
| Y | E1+2, E1+5, EXIT+4!, P+1, ENDP!, DISP+6, ENDD!, DATE+1*, DATE+2 |
| >> ZTDESC | END+3* |
| >> ZTQUEUED | EXIT+3 |
| >> ZTREQ | EXIT+3* |
| >> ZTRTN | END+3* |
| >> ZTSAVE("IBSRT" | END+3* |
| >> ZTSAVE("^TMP(""IBRS"",$J," | END+3* |