©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
IBERS1 ;ALB/ARH - APPOINTMENT CHECK-OFF SHEET GENERATOR (CONTINUED); 12/6/91
Source file <IBERS1.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 4 | $$PT^IBEFUNC $$TDG^IBEFUNC2 ^IBERS2 CPT^IBERSP |
| Kernel | 1 | $$S^%ZTLOAD |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PAUSE | ;
|
|
| HDRPG | ;print a header/trailer pages if entire clinics or divisions were requested
|
|
| ENDV | ;entire divisions were choosen, find all clinics (with check-off sheets defined)
|
|
| ENCL | ;for every clinic choosen find every patient appointment on DATE
|
|
| ENPT | ;print an appointment check-off sheet for each patient selected
|
|
| ENDC | ||
| ;print the patient data and then the check-off sheet CPT list that has been gathered/created
|
||
| STOP() | ;deterimine if user requested task to stop
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | ENCL+5 |
| ^DG(40.8 - [#40.8] | ENDV+2, HDRPG+2 |
| ^DPT - [#2] | ENCL+8 |
| ^SC - [#44] | ENCL+4, ENCL+5, ENCL+6, ENCL+7, ENDV+5, HDRPG+2, PRINT+3 |
| ^SC("AF" | ENDV+3, ENDV+4 |
| ^SD(409.1 - [#409.1] | ENCL+9 |
| ^TMP("IBRS" | IBERS1+8, IBERS1+9, IBERS1+10, ENPT+5, ENPT+6, ENPT+7, ENPT+10!, ENCL+2, ENCL+3, ENCL+11* , ENDC!, ENDV+1, ENDV+2*, ENDV+6, ENDV+7*, ENDV+8! |
| ^TMP("IBRSC" | IBERS1+11! |
| ^TMP("IBRSP" | PRINT+2, PRINT+4! |
| Name | Line Occurrences |
|---|---|
| $$STOP | ENCL+2, ENDV+3, PRINT+1 |
| ENCL | IBERS1+9 |
| ENDV | IBERS1+8 |
| ENPT | IBERS1+10 |
| HDRPG | ENPT+5, ENPT+9 |
| PAUSE | PRINT+2, PRINT+3 |
| ENPT+8 |
| Name | Field # of Occurrence |
|---|---|
| ^( | ENPT+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | PAUSE+1! |
| DIR(0 | PAUSE+1* |
| DIROUT | PAUSE+1! |
| DIRUT | PAUSE+1! |
| DTOUT | PAUSE+1! |
| DUOUT | PAUSE+1! |
| IB1 | ENPT+3*, ENPT+10! |
| IB2 | ENPT+3*, ENPT+10! |
| IB3 | ENPT+3*, ENPT+10! |
| IB4 | ENPT+3*, ENPT+10! |
| IBAPP | ENCL+4*, ENCL+5, ENCL+6, ENCL+7, ENCL+8, ENCL+11, ENDC! |
| IBAPTYP | ENCL+8*, ENCL+9*, ENCL+11, ENDC! |
| IBCLN | ENCL+1*, ENCL+2*, ENCL+3, ENCL+4, ENCL+5, ENCL+6, ENCL+7, ENCL+10, ENCL+11, ENDC! , ENDV+3*, ENDV+4*, ENDV+5, ENDV+7, ENDV+8! |
| IBCLNE | ENCL+5*, ENCL+11, ENDC! |
| IBCNT | ENCL+1*, ENCL+10*, ENDC! |
| IBDIV | ENDV+2*, ENDV+5*, ENDV+6*, ENDV+7, ENDV+8! |
| IBDSH | ENPT+4*, ENPT+10! |
| IBDT | ENCL+4*, ENDC!, ENDV+1*, ENDV+2, ENDV+7*, ENDV+8! |
| IBDTE | ENCL+5*, ENCL+11, ENDC! |
| IBGRP | ENDV+3*, ENDV+4, ENDV+8! |
| IBHDR | IBERS1+11!, ENPT+5, ENPT+9, ENPT+10!, ENCL+1* |
| IBHDRLN | ENPT+10!, HDRPG+1, HDRPG+2* |
| IBI | ENPT+4*, ENPT+10!, PRINT+2*, PRINT+4! |
| IBLC | IBERS1+11!, PRINT+1*, PRINT+2*, PRINT+3, PRINT+4!, PAUSE+1* |
| IBLN | ENPT+8*, ENPT+10!, PRINT+3 |
| IBPAT | ENCL+7*, ENCL+10, ENCL+11, ENDC! |
| IBPFN | ENCL+7*, ENCL+8, ENCL+11, ENDC! |
| IBQ | IBERS1+8*, IBERS1+9, IBERS1+10, IBERS1+11!, ENPT+5, ENPT+6, ENPT+7, ENCL+2*, ENDV+3*, PRINT+1* , PRINT+2, PRINT+3, PAUSE+1* |
| >> IBSRT | ENPT+5, ENCL+10 |
| IBSRT1 | ENPT+5*, ENPT+6, ENPT+7, ENPT+10!, ENCL+10*, ENCL+11, ENDC!, HDRPG+2 |
| IBSRT2 | ENPT+5*, ENPT+6*, ENPT+7, ENPT+10! |
| IBSRT3 | ENPT+6*, ENPT+7*, ENPT+8, ENPT+10! |
| IBX | ENCL+6*, ENCL+7, ENDC!, HDRPG+1*, HDRPG+2*, HDRPG+3!, PRINT+1*, PRINT+2*, PRINT+3*, PRINT+4! |
| IBY | ENCL+3*, ENCL+4, ENDC! |
| IOF | HDRPG+1, HDRPG+2, PRINT+4, PAUSE+1 |
| IOM | ENPT+3, ENPT+4, HDRPG+1, HDRPG+2 |
| IOSL | PRINT+2 |
| IOST | PAUSE+1 |
| Y | ENPT+10!, ENCL+5*, ENDC!, PAUSE+1 |
| >> ZTQUEUED | IBERS1+14, STOP+1 |
| ZTREQ | IBERS1+14*, STOP+1! |
| >> ZTSTOP | STOP+1*, STOP+2 |