©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
ADEPENDA ; IHS/HQT/MJL - ENDO REPORT PT 2 ;09:45 AM [ 03/24/1999 9:04 AM ]
Source file <ADEPENDA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GROUP(ADENAM) | ;EP - Retuns code group ADENAM from ^ADEDIT("GRP")
|
|
| OPCOD(ADEOP) | ;EP - Given "OPSITE,OPSITE,...OPSITE"
|
|
| GRP | ;EP - Sets up code and opsite groups
|
|
| ADACOD(ADECOD) | ;EP - Given "ADA CODE,ADA CODE,...ADA CODE"
|
|
| QUE | ;
|
|
| DDS() | ;EP
|
|
| KILL | ;EP - KILLS
|
|
| ADEU() | ;GET UNIQUE SUBSCRIPT NUMBER AND LOCK REPORT NODE
|
|
| ADEU1 | ||
| ASKDEV(ADERTN,ADEDESC) | ;EP - DEVICE SELECTION
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ADEDIT("GRP" - [#9002007.91] | GROUP+2, GROUP+3 |
| ^ADEOPS("B" | OPCOD+5 |
| ^AUTTADA("B" | ADACOD+5 |
| ^DIC(16 - [#16] | DDS+11 |
| ^DIC(6 - [#6] | DDS+6, DDS+7 |
| ^DIC(7 - [#7] | DDS+7 |
| ^TMP("ADEPEND" | ADEU1, ADEU1+1, ADEU1+2* |
| Name | Line Occurrences |
|---|---|
| $$ADACOD | GRP+1, GRP+2, GRP+3, GRP+4, GRP+5 |
| $$GROUP | GRP+2, GRP+4, GRP+5, GRP+7, GRP+8 |
| $$OPCOD | GRP+6, GRP+7, GRP+8, GRP+9 |
| ADEU1 | ADEU1+1 |
| ASKDEV | ASKDEV+14 |
| QUE | ASKDEV+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | ASKDEV+6* |
| ADEADA | KILL+1! |
| ADEAGE | KILL+1! |
| ADECNT | KILL+1! |
| ADECOD | ADACOD~, ADACOD+4, KILL+1! |
| ADECOD("ACCESSED" | GRP+1* |
| ADECOD("COMPLETED" | GRP+3* |
| ADECOD("CROWNED" | GRP+5* |
| ADECOD("EXTRACTED" | GRP+2* |
| ADECOD("RESTORED" | GRP+4* |
| ADED0 | KILL+1! |
| ADED1 | KILL+1! |
| ADED2 | KILL+1! |
| ADEDATE | KILL+1! |
| ADEDESC | ASKDEV~, QUE+3, KILL+4! |
| ADEDFN | ADACOD+2~, ADACOD+3*, ADACOD+7*, ADACOD+8*, ADACOD+9, OPCOD+2~, OPCOD+3*, OPCOD+7*, OPCOD+8*, OPCOD+9 , KILL+2! |
| ADEDUZ | KILL+2! |
| ADEEXT | KILL+2! |
| ADEHDFN | KILL+2! |
| ADEHDFNS | KILL+2! |
| ADEHNAM | KILL+2! |
| ADEHNAM( | DDS+11* |
| ADEHXC | KILL+5! |
| ADEHXO | KILL+5! |
| ADEHYG | DDS+3~, DDS+4*, DDS+8*, DDS+9*, DDS+10, DDS+11, DDS+12*, DDS+13, KILL+2! |
| ADEIOP | ASKDEV+4!, ASKDEV+9*, ASKDEV+14!, QUE+9 |
| ADEIOPAR | ASKDEV+4!, ASKDEV+10*, ASKDEV+14!, KILL+4! |
| ADEJ | ADACOD+2~, ADACOD+4*, ADACOD+8, OPCOD+2~, OPCOD+4*, OPCOD+8, DDS+3~, DDS+5*, DDS+6*, DDS+7 , DDS+8, DDS+9, DDS+11*, QUE+1~, QUE+4*, KILL+2! |
| ADEK | KILL+2! |
| ADEL | KILL+2! |
| ADELOC | KILL+3! |
| ADENAM | GROUP~, GROUP+2*, GROUP+3*, GROUP+4*, GROUP+5, KILL+3! |
| ADENOD | KILL+6! |
| ADEOP | OPCOD~, OPCOD+4, KILL+3! |
| ADEOP("ANTERIORS" | GRP+8* |
| ADEOP("FIRST | MOLARS" , GRP+6* |
| ADEOP("OTHER | MOLARS" , GRP+9* |
| ADEOP("PREMOLARS" | GRP+7* |
| ADEPC | ADACOD+2~, ADACOD+4*, ADACOD+5*, ADACOD+6, ADACOD+7, ADACOD+8, OPCOD+2~, OPCOD+4*, OPCOD+5*, OPCOD+6 , OPCOD+7, OPCOD+8, KILL+3! |
| ADEPROV | KILL+3! |
| ADEREP | KILL+3! |
| ADEROPT | KILL+3! |
| ADERTN | ASKDEV~, QUE+2, KILL+4! |
| ADESTP | KILL+3! |
| ADETDFN | KILL+3! |
| ADETNAM | KILL+4! |
| ADEU | ADEU+2*, ADEU1*, ADEU1+1*, ADEU1+2, ADEU1+4, KILL+4! |
| ADEZTSK | KILL+4! |
| IO("HFSIO" | QUE+8 |
| IO("Q" | ASKDEV+11 |
| IOM | ASKDEV+9 |
| ION | ASKDEV+9 |
| IOP | ASKDEV+4!, ASKDEV+14! |
| >> IOPAR | ASKDEV+10 |
| IOSL | ASKDEV+9 |
| >> POP | ASKDEV+8 |
| U | GROUP+3, DDS+7, DDS+11 |
| >> ZTDESC | QUE+3* |
| >> ZTIO | QUE+7*, QUE+9* |
| >> ZTQUEUED | ASKDEV+14 |
| >> ZTRTN | QUE+2* |
| >> ZTSAVE( | QUE+4* |
| >> ZTSAVE("ADEIOPAR" | QUE+5* |
| >> ZTSAVE("ADEU" | QUE+6* |
| ZTSK | ASKDEV+4! |