©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
PSSWRNA ;BIR/EJW-API TO RETRIEVE WARNING LABEL LIST ;04/09/04
Source file <PSSWRNA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHECKLST | ;
|
|
| WARN54 | ; VERIFY ENTRY EXISTS. IF NOT, REMOVE FROM WARNING LIST
|
|
| NEWWARN | ;
|
|
| GCN | ||
| WTEXT(WARN,LAN) | ;
|
|
| GENDER | ;
|
|
| GENDER2 | ;
|
|
| CHECK20 | ; WARNING LABEL 20 - 'DO NOT TRANSFER' REQUIRED FOR CONTROLLED SUBSTANCES
|
|
| WARNLST | ; GET WARNING LIST FROM NEW DATA SOURCE OR USER-DEFINED NEW WARNING LABEL LIST
|
|
| DRUG(XX,DFN) | ; Return warning labels numbers associated with this drug
|
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | WARNLST+5, GENDER+3, GENDER+5, GENDER+8, GENDER2+6 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PS(50.625 - [#50.625] | GET1^DIQ |
| ^PSNDF(50.68 - [#50.68] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(50.625 - [#50.625] | NEWWARN+1, WTEXT+20, WTEXT+22, WTEXT+23 |
| ^PS(50.626 - [#50.626] | WTEXT+24, WTEXT+26, WTEXT+27 |
| ^PS(50.627 - [#50.627] | GCN, GCN+1 |
| ^PS(54 - [#54] | WARN54+1, WTEXT+15, WTEXT+16, WTEXT+17 |
| ^PS(59.7 - [#59.7] | DRUG+12 |
| ^PSDRUG - [#50] | DRUG+13, CHECK20+2, WARNLST+1, WARNLST+4 |
| Name | Line Occurrences |
|---|---|
| CHECK20 | DRUG+15 |
| CHECKLST | DRUG+14 |
| GENDER | CHECKLST+4 |
| NEWWARN | CHECKLST+4 |
| WARN54 | CHECKLST+3 |
| WARNLST | DRUG+12 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | WTEXT+17, WTEXT+23, WTEXT+27 |
| ^(3 | WTEXT+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DEA | CHECK20+2*, CHECK20+3, CHECK20+4 |
| DFN | DRUG~, GENDER+1, GENDER+5 |
| GCNSEQNO | WARNLST+3~, WARNLST+5*, WARNLST+6, GCN, GCN+1 |
| GENDER | GENDER+2~, GENDER+3*, GENDER+4, GENDER+8, GENDER2+2*, GENDER2+4, GENDER2+6* |
| I | DRUG+10~, CHECK20+1~, CHECK20+8*, WARNLST+3~, GCN*, GCN+1, WARN54+1*, NEWWARN+1*, CHECKLST+2*, GENDER+9* , GENDER2+1~, GENDER2+4* |
| >> JJJ | WTEXT+16*, WTEXT+17, WTEXT+21*, WTEXT+22*, WTEXT+23, WTEXT+25*, WTEXT+26*, WTEXT+27 |
| LAN | WTEXT~, WTEXT+14, WTEXT+19 |
| NEWWARN | WARNLST+3~, GCN+1* |
| NEWWARN( | GCN+1*, GCN+2 |
| PSOPROD | WARNLST+3~, WARNLST+4*, WARNLST+5 |
| >> PSOWRNN | WTEXT+20*, WTEXT+22, WTEXT+23, WTEXT+24*, WTEXT+26, WTEXT+27 |
| >> PSSWRN | DRUG+11*, DRUG+13*, DRUG+16, CHECK20+5, CHECK20+6*, CHECK20+7*, CHECK20+8*, WARNLST+1*, GCN+2*, WARN54+1* , NEWWARN+1*, CHECKLST+2, CHECKLST+5*, GENDER+9*, GENDER2+3, GENDER2+4 |
| PSSWSITE | DRUG+10~, DRUG+12* |
| SEQ | WARNLST+3~, GCN+1*, GCN+2* |
| SEX | GENDER+2~, GENDER+5*, GENDER+6, GENDER+7, GENDER+8 |
| >> TEXT | WTEXT+12*, WTEXT+15*, WTEXT+16, WTEXT+17*, WTEXT+21*, WTEXT+23*, WTEXT+25*, WTEXT+27*, WTEXT+28 |
| WARN | WARN54+1, NEWWARN+1, CHECKLST+1~, CHECKLST+2*, CHECKLST+3, CHECKLST+4*, GENDER+3, WTEXT~, WTEXT+13, WTEXT+15 , WTEXT+16, WTEXT+17, WTEXT+18, WTEXT+20, WTEXT+24, GENDER2+1~, GENDER2+4*, GENDER2+5, GENDER2+6* |
| XX | DRUG~, DRUG+13, CHECK20+2, WARNLST+1, WARNLST+4, GENDER+8 |