©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
ADERVW2 ; IHS/HQT/MJL - DENTAL CHART REVW PART 4 ; [ 03/24/1999 9:04 AM ]
Source file <ADERVW2.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | ^%ZIS ^%ZTLOAD |
| IHS Dental System | 1 | (END,I2)^ADERVW |
| VA Fileman | 1 | ^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| R4 | ;S Y=$P(^ADEFOL(ADEMDFN,0),U,3) X ADECVD S ADETXT=Y_" "_ADETXT_" "_ADETYPN S:$P(^(0),U,5)="u" ADETXT=ADETXT_" **URGENT**" X ADEPRT D:$P(^(0),U,6)]"" R5 Q ;ADETXT=ADETXT_" ACTION TAKEN: "_$P(^(0),U,6) X ADEPRT Q
|
|
| R5 | ||
| P1 | ||
| END | ||
| R2 | ||
| R3 | ||
| ACTIV | ||
| ZTM | ||
| EN | ;EP ------->ENTRY POINT FOR FOLLOWUP REVIEW OPTION
|
|
| QUE | ||
| ENEND | ||
| FAIL | ||
| P2 | ||
| PREV | ||
| ASKDEV | ;FHL 9/9/98 S %ZIS="Q" D ^%ZIS G:POP ENEND I $D(IO("Q")) K IO("Q") D QUE W:$D(ZTSK) !,"REQUEST QUEUED!" G ENEND
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNPAT - [#9000001] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ADEFOL - [#9002003.2] | R4+1, R5 |
| ^ADEFOL("TYPE" | ACTIV, ACTIV+2, R2, R3 |
| ^ADEPAT - [#9002010.2] | FAIL, FAIL+6, PREV, PREV+4, P2, P2+1 |
| ^ADETYP - [#9002003.1] | R2, P1, P1+1 |
| Name | Line Occurrences |
|---|---|
| ACTIV | FAIL |
| END | PREV |
| ENEND | EN+6, ASKDEV+1 |
| FAIL | ZTM |
| P1 | PREV+4 |
| P2 | PREV+4 |
| PREV | ACTIV |
| QUE | ASKDEV+1 |
| R2 | ACTIV+2 |
| R3 | R2 |
| R4 | R3 |
| R5 | R4+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | FAIL+6, R4+1, P1+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | ASKDEV+1* |
| >> ADEBRK | ADERVW2+3 |
| >> ADECAT | R2*, R3 |
| >> ADECKP | ADERVW2+3 |
| >> ADECVD | FAIL+6, R4+1, P2, P2+1 |
| >> ADEICL | FAIL*, FAIL+1*, FAIL+6*, ACTIV*, ACTIV+1*, PREV*, PREV+1*, PREV+2*, R2*, R5* , P1+2*, P2+2* |
| >> ADEMDFN | R3*, R4+1, R5 |
| >> ADENDM | FAIL+2*, PREV+3* |
| >> ADENDMS | FAIL+2*, FAIL+6*, PREV+3*, PREV+4* |
| >> ADENRQ | FAIL*, FAIL+1*, FAIL+6*, ACTIV*, ACTIV+1*, ACTIV+2*, PREV*, PREV+1*, PREV+2*, R2* , P1+2*, P2+2* |
| ADEPAT | FAIL, FAIL+6, ACTIV, ACTIV+2, PREV, PREV+4, R2, R3, P2, P2+1 , EN+2~, EN+4*, EN+7* |
| ADEPCC | EN+2~, EN+3* |
| >> ADEPRT | FAIL, FAIL+1, FAIL+6, ACTIV, ACTIV+1, PREV, PREV+1, PREV+2, R4+1, R5 , P1+2, P2+2 |
| >> ADEQ | ACTIV+2*, PREV+4*, R2*, R3* |
| >> ADER | FAIL+6* |
| >> ADESUB | PREV+4*, P1, P1+1 |
| >> ADESUBD | PREV+4*, P2, P2+1 |
| >> ADETXT | FAIL*, FAIL+1*, FAIL+6*, ACTIV*, ACTIV+1*, PREV*, PREV+1*, PREV+2*, R2*, R4+1* , R5*, P1*, P1+1*, P2*, P2+1* |
| >> ADETYP | ACTIV+2*, R2, R3 |
| >> ADETYPN | ACTIV+2*, R4+1 |
| >> APCHSNPG | ADERVW2+3 |
| >> APCHSQIT | ADERVW2+3 |
| DIC | EN+5!* |
| DIC(0 | EN+5* |
| IO("Q" | ASKDEV+1! |
| >> POP | ASKDEV+1 |
| U | FAIL+6, R2, R4+1, R5, P1, P1+1, P2, P2+1 |
| >> Y | FAIL+6*, R4+1*, P2*, P2+1*, EN+6, EN+7 |
| >> ZTDESC | QUE* |
| >> ZTQUEUED | ASKDEV+1 |
| >> ZTRTN | QUE* |
| >> ZTSAVE("ADEPAT" | QUE* |
| >> ZTSAVE("ADEPCC" | QUE* |