©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
BARRADAL ; IHS/SD/LSL - ADVISE OF ALLOWANCE RPT JAN 16,1997 ;
Source file <BARRADAL.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Accounts Receivable | 2 | ($$DATE,$$MDT)^BARDUTL EOP^BARUTL |
| Kernel | 2 | HOME^%ZIS ^%ZISC |
| VA Fileman | 2 | EN1^DIP ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Accounts Receivable | 3 | BAR ADVICE OF ALLOWANCE RPT BARRBSL BARRDET |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| END | ;
|
|
| ;
|
||
| DETAIL | ;
|
|
| DSP | ; EP for VALM
|
|
| SUMMARY | ;
|
|
| START | ; EP
; Collections report using FM print |
|
| S | ;
|
|
| DIPVAR | ;
; Set up DIP variables and Header routine |
|
| DATE | ; EP
; Select Date Range |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(4 - [#4] | PRINT+2 |
| Name | Line Occurrences |
|---|---|
| DATE | S+8 |
| DETAIL | DIPVAR+4 |
| DIPVAR | S+10 |
| END | S+9 |
| S+11 | |
| SUMMARY | DIPVAR+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BAR("BDOS" | DATE+4*, DATE+6, PRINT+5 |
| >> BAR("EDOS" | DATE+7*, DATE+9, PRINT+6 |
| >> BAR("RPTYPE" | S+7*, DIPVAR+4, DIPVAR+5 |
| >> BAR("SITE" | PRINT+2* |
| >> BAR("XBDOS" | DATE+6* |
| >> BAR("XEDOS" | DATE+9* |
| BAREFLG | S+9, DATE+2!, DATE+5*, DATE+8*, DIPVAR+2 |
| >> BY | DIPVAR+3* |
| >> DHD | DETAIL+1*, SUMMARY+2* |
| >> DIC | PRINT+3* |
| DIR | S+1~, S+5! |
| DIR("A" | S+3* |
| DIR(0 | S+2* |
| >> DTOUT | S+6 |
| >> DUOUT | S+6 |
| DUZ(2 | PRINT+2 |
| >> FLDS | DETAIL+2*, SUMMARY+1* |
| >> FR | PRINT+5* |
| >> L | PRINT+4* |
| >> TO | PRINT+6* |
| U | PRINT+2 |
| >> Y | S+6, S+7, DATE+5, DATE+8 |