©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
ADEPLV ; IHS/HQT/MJL - DENTAL LVL OF SVC ; [ 03/24/1999 9:04 AM ]
Source file <ADEPLV.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | (,HOME)^%ZIS ^%ZTLOAD |
| IHS Dental System | 1 | START^ADEPLV1 |
| IHS VA Utilities | 1 | ^XBKVAR |
| VA Fileman | 1 | ^%DT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUIT | ||
| NON | ;EP ENTER HERE FOR NON-INDIAN REPORT
|
|
| ADEU1 | ||
| CONTRACT | ;EP ENTER HERE FOR CONTRACT SERVICES REPORT
|
|
| START | ||
| QUE | ||
| DATE | ||
| ADEU(ADEGBL) | ;GET UNIQUE SUBSCRIPT NUMBER AND LOCK REPORT NODE
|
|
| AUXIL | ;EP ENTER HERE FOR AUXILIARY REPORT
|
|
| ASKDEV |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP( | ADEU1, ADEU1+1, ADEU1+2!, ADEU1+3* |
| Name | Line Occurrences |
|---|---|
| $$ADEU | ADEPLV+2, CONTRACT+1, AUXIL+2, NON+1 |
| ADEU1 | ADEU1+1 |
| DATE | DATE+6, DATE+9 |
| QUE | ASKDEV+9 |
| QUIT | DATE+3, DATE+7, ASKDEV+4, ASKDEV+8 |
| START | CONTRACT+5, AUXIL+5, NON+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DATE+1*, DATE+2!, DATE+4*, DATE+5! |
| %DT("A" | DATE+1*, DATE+4* |
| %DT(0 | DATE+4* |
| >> %ZIS | ASKDEV+2* |
| ADEBDT | DATE!, DATE+4*, DATE+9, QUIT! |
| ADECON | ADEPLV+5*, QUIT!, CONTRACT+4*, AUXIL+4*, NON+4* |
| ADEDIR | ADEPLV+5*, QUIT!, CONTRACT+4*, AUXIL+4*, NON+4* |
| ADEGBL | ADEPLV+2*, ADEPLV+3*, ASKDEV+4, ASKDEV+10, QUIT!, CONTRACT+1*, CONTRACT+2*, AUXIL+2*, AUXIL+3*, NON+1* , NON+2*, ADEU~, ADEU1, ADEU1+1, ADEU1+2, ADEU1+3 |
| ADEIOP | ASKDEV!, ASKDEV+6*, QUIT!, QUE+6 |
| ADEIOPAR | ASKDEV!, ASKDEV+7*, QUIT! |
| ADEJ | QUIT!, QUE~, QUE+2*, QUE+8! |
| ADEND | DATE!, DATE+8*, DATE+9, QUIT! |
| ADENON | ADEPLV+5*, QUIT!, CONTRACT+4*, AUXIL+4*, NON+4* |
| ADEOLD | QUIT! |
| ADEOTYP | QUIT! |
| ADEPDET | ADEPLV+5*, QUIT!, CONTRACT+4*, AUXIL+4*, NON+4* |
| ADEPRO | ADEPLV+5*, QUIT!, CONTRACT+4*, AUXIL+4*, NON+4* |
| ADETITL | ADEPLV+4*, START, QUIT!, CONTRACT+3*, AUXIL+1*, NON+3* |
| ADEU | ADEU+2~, ADEU+3*, ADEU1*, ADEU1+1*, ADEU1+2, ADEU1+3, ADEU1+4, ADEU1+5! |
| IO("HFSIO" | QUE+5 |
| IO("Q" | ASKDEV+8 |
| IOM | ASKDEV+6 |
| ION | ASKDEV+6 |
| IOP | ASKDEV! |
| >> IOPAR | ASKDEV+7 |
| IOSL | ASKDEV+6 |
| >> POP | ASKDEV+4 |
| U | DATE+1* |
| >> X | DATE+6 |
| >> Y | DATE+3, DATE+4, DATE+7, DATE+8 |
| >> ZTDESC | QUE+1* |
| >> ZTIO | QUE+4*, QUE+6* |
| >> ZTRTN | QUE+3* |
| >> ZTSAVE( | QUE+2* |
| ZTSK | ASKDEV! |