©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
APSPALG ;IHS/DSD/ENM - POC ALLERGY DRUG CHECK [ 06/07/2001 10:53 AM ]
Source file <APSPALG.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS VA Utilities | 1 | EN^XBVK |
| Kernel | 1 | ENDR^%ZISS |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NONE | ;SHOULD NOT GET HERE
|
|
| FULL | ||
| END | ;CLEAN UP TIME
|
|
| TEST(APSZIT) | ||
| DRUG | ;GO HERE IF NO NDF OR CLASS
|
|
| QUAR | ||
| 1 | ;DELETE THE DRUG
|
|
| 3 | ;DO BOTH 1 AND 2
|
|
| EN | ;EP ENTRY POINT FROM PSODRG
|
|
| 4 | ;DO NOTHING
|
|
| HALF | ||
| ASK | ||
| 2 | ;DO AN INTERVENTION
|
|
| XREF | ;GET THE DRUG COMPONENTS TO BE CHECKED
|
|
| 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, FULL+1, FULL+5, HALF, HALF+1, HALF+3, QUAR+1, QUAR+3 , QUAR+4, QUAR+7, QUAR+8, TEST+2, TEST+3 |
| ^PS(50.416 - [#50.416] | XREF+1, XREF+2, FULL+3 |
| Name | Line Occurrences |
|---|---|
| $$TEST | FULL+2, HALF+2, QUAR+2 |
| 1 | 3+1 |
| 2 | 3+1 |
| @( | ASK+11 |
| ASK | FULL+9, HALF+5, QUAR+11 |
| CLASS | EN+11 |
| DRUG | EN+11 |
| END | EN+15 |
| FULL | EN+14 |
| HALF | EN+14 |
| NONE | EN+14 |
| QUAR | EN+14 |
| XREF | EN+11 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | XREF+2, FULL+3, QUAR+3, QUAR+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> APSZ( | ASK+2 |
| >> APSZ("HITC" | HALF+3* |
| >> APSZ("HITD" | QUAR+4* |
| >> APSZ("HITE" | FULL+5* |
| >> APSZ("HITS" | QUAR+8* |
| >> APSZ("MESS" | XREF+6*, CLASS+1*, DRUG+1* |
| >> APSZALLC | HALF*, HALF+1, HALF+3 |
| >> APSZALLD | FULL*, FULL+1, FULL+3, FULL+5 |
| >> APSZALLDR | FULL+3* |
| >> APSZALLI | FULL+1*, FULL+2, FULL+5, HALF+1*, HALF+2, HALF+3 |
| >> APSZCHECK | TEST+1*, TEST+2*, TEST+3*, TEST+5 |
| >> APSZCLASS | EN+9*, EN+10, HALF+3 |
| >> APSZDRCOM | XREF+1*, XREF+2, XREF+4 |
| >> APSZDREF | XREF+6 |
| >> APSZDREF( | XREF+2*, XREF+4*, FULL+4, FULL+5 |
| >> APSZDRUG | QUAR*, QUAR+3 |
| >> APSZDRUGC | QUAR+1*, QUAR+2, QUAR+3, QUAR+4, QUAR+7, QUAR+8 |
| >> APSZDRUGI | QUAR+3* |
| >> APSZDRUGN | QUAR+7* |
| APSZHIT | FULL+5*, FULL+9, FULL+10!, HALF+3*, HALF+5, HALF+6!, QUAR+4*, QUAR+6, QUAR+8*, QUAR+11 , QUAR+12! |
| APSZIT | TEST~, TEST+2, TEST+3 |
| >> APSZQUIT | EN+5*, EN+7*, EN+8*, EN+10*, EN+11, EN+14, XREF+6* |
| >> APSZXREF | EN+7*, EN+8*, XREF+1 |
| >> DGI | 1+1*, 2+1* |
| DIR | ASK+10! |
| DIR("A" | ASK+4*, ASK+5*, ASK+6*, ASK+7* |
| DIR("B" | ASK+7* |
| DIR(0 | ASK+7* |
| DIROUT | ASK+9, ASK+10! |
| DIRUT | ASK+9, ASK+10! |
| DTOUT | ASK+10! |
| DUOUT | ASK+10! |
| >> I | XREF+1*, XREF+2, XREF+4, FULL+4*, FULL+5, ASK+2* |
| >> IORVOFF | ASK+2 |
| >> IORVON | ASK+2 |
| >> PSODFN | EN+2, EN+3, EN+4, FULL, FULL+1, HALF, HALF+1, QUAR+1 |
| >> PSODRUG("IEN" | QUAR |
| >> PSODRUG("NAME" | XREF+6, CLASS+1, DRUG+1, FULL+5, HALF+3, QUAR+4, QUAR+7, QUAR+8 |
| >> PSODRUG("NDF" | EN+7 |
| >> PSODRUG("VA C | LASS" , EN+9 |
| >> PSORX("DFLG" | 1+1* |
| >> PSORX("INTERVENE" | 2+1* |
| U | XREF+2, FULL+3, FULL+5, HALF+3, QUAR+3, QUAR+4, QUAR+7, QUAR+8, TEST+3 |
| >> X | ASK* |
| >> Y | ASK+9*, ASK+11 |