©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
ADEFPC1 ; IHS/HQT/MJL - F- COMPLIANCE PART 2 ;07:54 PM [ 03/24/1999 9:04 AM ]
Source file <ADEFPC1.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Dental System | 1 | (ARSET,SYSTOT)^ADEFPC3 |
| IHS VA Utilities | 1 | $$LEAP^XBDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CONTROL | ;------->INCREMENT FOR EACH MONTH IN REPORT
|
|
| END | ||
| SYSET | ;------->SET WATER SYS MONTHLY NODE
; FORMAT "SAMPLE COUNT^WTD AVG^IN RANGE^IN COMP" ; ^TMP is transient, non-fileman working global |
|
| PPM | ;------->RETURNS ADECPPM FOR ENTRY DATED ADELAT
|
|
| MONTH | ;------->STEP THROUGH CURRENT MONTH ENTRIES AND CALCULATE
|
|
| SUSET | ;------->SET SU MONTHLY NODE
|
|
| LENGTH | ;EP - RETURNS LENGTH OF CURRENT MONTH
|
|
| CURMO | ;------->PROCESS CURRENT MONTH ADECUR
|
|
| LATEST | ;------->RETURNS DATE OF LATEST ENTRY BEFORE FIRST MONTH OF PROCESSING
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ADEFLU - [#9002002.1] | ADEFPC1+10, CURMO+6, LATEST+1, PPM+1 |
| ^TMP("ADEFPC" | SYSET+4*, SYSET+6*, SYSET+7*, SYSET+8, SYSET+9*, SYSET+10, SYSET+11*, SYSET+12*, SUSET+3, SUSET+4* , SUSET+5, SUSET+6*, SUSET+7*, SUSET+8, SUSET+9*, SUSET+10*, SUSET+11*, SUSET+12, SUSET+13* |
| Name | Line Occurrences |
|---|---|
| CURMO | CONTROL+1 |
| LATEST | CURMO+5 |
| LENGTH | CONTROL+1 |
| MONTH | CURMO+6 |
| PPM | CURMO+6, MONTH+4 |
| SUSET | CONTROL+1 |
| SYSET | CONTROL+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ADEABS | ADEFPC1+7*, ADEFPC1+10*, CURMO+4, CURMO+7, LATEST+1 |
| >> ADEABSMO | ADEFPC1+10*, CURMO+3, CURMO+4, CURMO+7 |
| >> ADEAREA | SYSET+4, SYSET+6, SYSET+7, SYSET+8, SYSET+9, SYSET+10, SYSET+11, SYSET+12, SUSET+3, SUSET+4 , SUSET+5, SUSET+6, SUSET+7, SUSET+8, SUSET+9, SUSET+10, SUSET+11, SUSET+12, SUSET+13 |
| >> ADEBD | ADEFPC1+8 |
| >> ADEBM | ADEFPC1+8*, CONTROL+1 |
| ADECK | LENGTH+7*, LENGTH+8, LENGTH+10! |
| >> ADECML | CURMO+2, CURMO+7*, MONTH+6, MONTH+8, MONTH+10, SYSET+4, SYSET+5, LENGTH+3*, LENGTH+9* |
| >> ADECOMP | SYSET+10 |
| >> ADECPPM | CURMO+2, PPM+1*, MONTH+2, MONTH+4, MONTH+6, MONTH+8, MONTH+10 |
| >> ADECUR | CONTROL+1*, CURMO+3, CURMO+4, CURMO+7, LATEST+1, MONTH+2, MONTH+4, MONTH+6, MONTH+8, SYSET+4 , SYSET+6, SYSET+7, SYSET+8, SYSET+9, SYSET+10, SYSET+11, SYSET+12, SUSET+3, SUSET+4, SUSET+5 , SUSET+6, SUSET+7, SUSET+8, SUSET+9, SUSET+10, SUSET+11, SUSET+12, SUSET+13, LENGTH+3 |
| ADECY | LENGTH+3*, LENGTH+10! |
| >> ADEED | ADEFPC1+8 |
| >> ADEEM | ADEFPC1+8*, CONTROL+1 |
| >> ADEFLDFN | ADEFPC1+10, CURMO+6, LATEST+1, PPM+1 |
| ADEI | LENGTH+4*, LENGTH+5, LENGTH+6, LENGTH+7, LENGTH+8, LENGTH+10! |
| >> ADEINC | CURMO+2*, MONTH+2*, MONTH+4*, MONTH+6*, MONTH+8*, MONTH+10* |
| >> ADEJ | LATEST+1* |
| >> ADEK | CURMO+6* |
| >> ADELAT | ADEFPC1+7*, CURMO+4*, CURMO+5, CURMO+6, LATEST+1*, PPM+1, MONTH+2*, MONTH+4*, MONTH+6, MONTH+8 , MONTH+10 |
| ADELYFLG | LENGTH+3*, LENGTH+6, LENGTH+10! |
| >> ADEMCNT | CURMO+1*, CURMO+2*, CURMO+3*, CURMO+4*, MONTH+2*, MONTH+4*, SYSET+3, SYSET+4 |
| ADEML | LENGTH+10! |
| ADEML( | LENGTH+5*, LENGTH+6*, LENGTH+8*, LENGTH+9 |
| >> ADEMPPM | CURMO+1*, CURMO+2*, CURMO+3*, MONTH+2*, MONTH+4*, MONTH+6*, MONTH+8*, MONTH+10*, SYSET+3, SYSET+4 , SYSET+5 |
| >> ADENAT | ADEFPC1+4* |
| >> ADENEX | CURMO+6*, MONTH+2, MONTH+4 |
| >> ADENEXMO | CURMO+6*, MONTH+2, MONTH+4, MONTH+6, MONTH+8, MONTH+10 |
| >> ADEOPT | ADEFPC1+3*, SYSET+5 |
| >> ADEPOP | ADEFPC1+5*, SUSET+10 |
| >> ADEQ | CURMO+1*, CURMO+6*, MONTH+6*, MONTH+8*, MONTH+10* |
| >> ADESTOP | ADEFPC1+7*, CURMO+2, MONTH+8*, MONTH+10* |
| >> ADESU | SYSET+4, SYSET+6, SYSET+7, SYSET+8, SYSET+9, SYSET+10, SYSET+11, SYSET+12, SUSET+3, SUSET+4 , SUSET+5, SUSET+6, SUSET+7, SUSET+8, SUSET+9, SUSET+10, SUSET+11, SUSET+12, SUSET+13 |
| >> ADETCNT | ADEFPC1+7*, SYSET+3* |
| >> ADETDAY | ADEFPC1+7* |
| >> ADETPPM | ADEFPC1+7*, SYSET+3* |
| >> ADETST | LATEST+1* |
| >> ADEU | SYSET+4, SYSET+6, SYSET+7, SYSET+8, SYSET+9, SYSET+10, SYSET+11, SYSET+12, SUSET+3, SUSET+4 , SUSET+5, SUSET+6, SUSET+7, SUSET+8, SUSET+9, SUSET+10, SUSET+11, SUSET+12, SUSET+13 |
| >> ADEWSNAM | SYSET+4, SYSET+6, SYSET+7, SYSET+8, SYSET+9, SYSET+10, SYSET+11, SYSET+12, SUSET+5, SUSET+8 , SUSET+12 |
| >> ADEWSNOD | ADEFPC1+3, ADEFPC1+4, ADEFPC1+5 |
| >> ADEX | PPM+1* |
| U | PPM+1, SYSET+10, SYSET+11, SYSET+12, SUSET+8, SUSET+9, SUSET+10, SUSET+11, SUSET+12, SUSET+13 |