©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
APSQALLE ;IHS/ASDS/ENM/POC - ROUTINE TO CHECK FOR ALLERGIES [ 01/13/2003 12:38 PM ]
Source file <APSQALLE.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS VA Utilities | 1 | EN^XBVK |
| Kernel | 1 | ENDR^%ZISS |
| VA Fileman | 1 | ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Changes To Pharmacy | 2 | APSQDRG APSQFAS4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NONE | ;SHOULD NOT GET HERE BUT!!!
|
|
| EN | ;EP HERE WE START
|
|
| END | ;CLEAN UP TIME
|
|
| FULL | ;
|
|
| DRUG | ;GO HERE IF NO NDF OR CLASS
|
|
| QUAR | ;WELL NOTHING IS LEFT BUT TO CHECK THE DRUG ITSELF
|
|
| 1 | ;DELETE THE DRUG
|
|
| 3 | ;DO BOTH 1 AND 2
|
|
| XREF | ;GET THE DRUG COMPONENTS TO BE CHECKED
|
|
| 4 | ;DO NOTHING
|
|
| HALF | ;THIS IS USED TO CHECK IF ONLY HAVE A CLASS
|
|
| ASK | ;ASK WHAT IS TO BE DONE
|
|
| 2 | ;DO AN INTERVENTION
|
|
| TEST(AZOIT) | ||
| CLASS | ;CHECKS FOR CLASS IF NO ENTRY IN NDF
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(120.8 - [#120.8] | EN+3, EN+4, FULL+1, FULL+2, FULL+8, HALF+2, HALF+3, HALF+6, QUAR+2, QUAR+4 , QUAR+5, TEST+2, TEST+3 |
| ^PS(50.416 - [#50.416] | XREF+1, XREF+2, FULL+5 |
| Name | Line Occurrences |
|---|---|
| $$TEST | FULL+4, HALF+5, QUAR+3 |
| 1 | 3+1 |
| 2 | 3+1 |
| @( | ASK+17 |
| ASK | FULL+11, HALF+8, QUAR+8 |
| CLASS | EN+13, XREF+5 |
| DRUG | EN+14 |
| END | EN+17 |
| FULL | EN+16 |
| HALF | EN+16 |
| NONE | EN+16 |
| QUAR | EN+16 |
| XREF | EN+12 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | XREF+2, FULL+5, QUAR+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AZO( | ASK+4 |
| >> AZO("HITC" | HALF+6* |
| >> AZO("HITD" | QUAR+5* |
| >> AZO("HITE" | FULL+8* |
| >> AZO("MESS" | XREF+5*, CLASS+4*, DRUG+1* |
| >> AZOALLC | HALF+2*, HALF+3, HALF+6 |
| >> AZOALLD | FULL+1*, FULL+2, FULL+5, FULL+8 |
| >> AZOALLDR | FULL+5* |
| >> AZOALLI | FULL+2*, FULL+4, FULL+8, HALF+3*, HALF+5, HALF+6 |
| >> AZOCHECK | TEST+1*, TEST+2*, TEST+3*, TEST+4 |
| >> AZOCLASS | EN+10*, EN+11, DRUG+1, HALF+6 |
| >> AZODRCOM | XREF+1*, XREF+2, XREF+3 |
| >> AZODREF | XREF+5 |
| >> AZODREF( | XREF+2*, XREF+3*, FULL+7, FULL+8 |
| >> AZODRUG | QUAR+1*, QUAR+4 |
| >> AZODRUGC | QUAR+2*, QUAR+3, QUAR+4, QUAR+5 |
| >> AZODRUGI | QUAR+4* |
| AZOHIT | FULL+8*, FULL+11, FULL+12!, HALF+6*, HALF+8, HALF+9!, QUAR+5*, QUAR+8, QUAR+9! |
| AZOIT | TEST~, TEST+2, TEST+3 |
| >> AZOQUIT | EN+5*, EN+7*, EN+8*, EN+11*, EN+12, EN+13, EN+14, EN+16, XREF+5*, DRUG+1* |
| >> AZOXREF | EN+7*, EN+8*, XREF+1 |
| >> DGI | 1+1*, 2+1* |
| DIR | ASK+16! |
| DIR("A" | ASK+6*, ASK+7*, ASK+8*, ASK+9*, ASK+10* |
| DIR("B" | ASK+11* |
| DIR(0 | ASK+12* |
| DIROUT | ASK+15, ASK+16! |
| DIRUT | ASK+15, ASK+16! |
| DTOUT | ASK+16! |
| DUOUT | ASK+16! |
| >> I | XREF+1*, XREF+2, XREF+3, FULL+7*, FULL+8, ASK+4* |
| >> IORVOFF | ASK+4 |
| >> IORVON | ASK+4 |
| >> PSODFN | EN+2, EN+3, EN+4, FULL+1, FULL+2, HALF+2, HALF+3, QUAR+2 |
| >> PSODRUG("IEN" | QUAR+1 |
| >> PSODRUG("NAME" | XREF+5, CLASS+4, DRUG+1, FULL+8, HALF+6, QUAR+5 |
| >> PSODRUG("NDF" | EN+7 |
| >> PSODRUG("VA C | LASS" , EN+10 |
| >> PSORX("DFLG" | 1+1* |
| >> PSORX("INTERVENE" | 2+1* |
| U | XREF+2, FULL+5, FULL+8, HALF+6, QUAR+4, QUAR+5, TEST+3 |
| >> X | ASK+2* |
| >> Y | ASK+15*, ASK+17 |