ORWDAL32 ; SLC/REV - Allergy calls to support windows ;Apr 21, 2022@08:43:40
Source file <ORWDAL32.m>
| Package | Total | Call Graph |
|---|---|---|
| Adverse Reaction Tracking | 4 | GETREC^GMRAGUI (EIE,NKA,UPDATE)^GMRAGUI1 $$SENDREQ^GMRAPES0 SITE^GMRAUTL |
| National Drug File | 4 | ALL^PSN5067 NAME^PSN50P41 C^PSN50P65 ($$B,$$T,$$TGTOG)^PSNAPIS |
| Order Entry Results Reporting | 4 | (EN,TITLE)^ORB3 $$ENTITY^ORB31 (ALLERGY,CLRALLGY)^ORWDXC ACTIVE^ORWPS |
| Kernel | 1 | $$UP^XLFSTR |
| Registration | 1 | OERR^VADPT |
| Toolkit | 1 | ($$SCREEN,SCREEN)^XTID |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEF(LST) | ; Get dialog data for allergies
|
|
| GMRASITE(ORY) | ;Return GMRA Site Params
|
|
| TOPTEN | ; Get top ten symptoms from Allergy Site Parameters file
|
|
| ALLSRCH(Y,X) | ; Return list of partial matches ; CHANGED TO PRODUCE TREEVIEW IN GUI
|
|
| FILENAME | ; Display text of filenames for search treeview
|
|
| NATREACT | ; Get the NATURE OF REACTION types
|
|
| ALLGYTYP | ; Get the allergy types
|
|
| OBSHIST | ; Observed or historical
|
|
| SEVERITY | ; Severity
|
|
| SYMPTOMS(Y,FROM,DIR) | ; Return a subset of symptoms
; .Return Array, Starting Text, Direction |
|
| NXT() | ; Increment index of LST
|
|
| EDITLOAD(Y,ORALIEN) | ; Load an allergy/adverse reaction for editing
|
|
| EDITSAVE(ORY,ORALIEN,ORDFN,OREDITED) | ; Save Edit/Add of an allergy/adverse reaction
|
|
| SENDBULL(Y,ORDUZ,ORDFN,ORTEXT,ORCMTS) | ; Send bulletin if user attempts free-text entry
|
|
| INGSRCH(NAME,LIST) | ;
|
|
| CLASRCH(NAME,LIST) | ;
|
|
| TRDNAME(NAME,LIST) | ;
|
|
| CHKMEDS(LST,ORDFN,GMRAGNT) | ||
| CHKMEDS2(AGNT,AGYLST,AGYTXT) | ;Scan returned allegy checks against the new allergy agent for a match
|
|
| GETPROV(LST,ORNUM,ORBDFN) | ;return a list of providers related to a list of orders based on parameter option
|
|
| GETPROVQ | ||
| SENDALRT(Y,ORIFN,PROVLST) | ;Send a group of alerts for instances where a user enters a new allergy impacting an existing med order
|
|
| FILLID(MED) | ;
|
| Name | Field # of Occurrence |
|---|---|
| GETREC^GMRAGUI | EDITLOAD+6 |
| EIE^GMRAGUI1 | EDITSAVE+7 |
| NKA^GMRAGUI1 | EDITSAVE+8 |
| UPDATE^GMRAGUI1 | EDITSAVE+9 |
| $$SENDREQ^GMRAPES0 | SENDBULL+2, SENDBULL+4 |
| SITE^GMRAUTL | GMRASITE+2, TOPTEN+2 |
| EN^ORB3 | SENDALRT+10 |
| TITLE^ORB3 | GETPROV+17 |
| $$ENTITY^ORB31 | GETPROV+8 |
| ALLERGY^ORWDXC | CHKMEDS+16 |
| CLRALLGY^ORWDXC | CHKMEDS+11, CHKMEDS+18 |
| ACTIVE^ORWPS | CHKMEDS+4 |
| ALL^PSN5067 | TRDNAME+2 |
| NAME^PSN50P41 | INGSRCH+2 |
| C^PSN50P65 | CLASRCH+2 |
| $$B^PSNAPIS | ALLSRCH+3 |
| $$T^PSNAPIS | ALLSRCH+3 |
| $$TGTOG^PSNAPIS | TRDNAME+5 |
| OERR^VADPT | GETPROV+13 |
| $$UP^XLFSTR | ALLSRCH+2 |
| $$SCREEN^XTID | TOPTEN+6, ALLSRCH+10, ALLSRCH+17, ALLSRCH+27, ALLSRCH+35, SYMPTOMS+11 |
| SCREEN^XTID | TOPTEN+6, ALLSRCH+10, ALLSRCH+17, ALLSRCH+27, ALLSRCH+35, SYMPTOMS+11 |
| RPC Name | Call Tags |
|---|---|
| ORWDAL32 ALLERGY MATCH | ALLSRCH |
| ORWDAL32 DEF | DEF |
| ORWDAL32 SYMPTOMS | SYMPTOMS |
| ORWDAL32 SEND BULLETIN | SENDBULL |
| ORWDAL32 LOAD FOR EDIT | EDITLOAD |
| ORWDAL32 SAVE ALLERGY | EDITSAVE |
| ORWDAL32 SITE PARAMS | GMRASITE |
| ORWDAL32 CHKMEDS | CHKMEDS |
| ORWDAL32 GETPROV | GETPROV |
| ORWDAL32 SENDALRT | SENDALRT |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(3.1 - [#3.1] | GETPROV+24 |
| ^DPT - [#2] | CHKMEDS+30 |
| ^GMRD(120.82 - [#120.82] | ALLSRCH+11, ALLSRCH+13, ALLSRCH+18, ALLSRCH+20 |
| ^GMRD(120.83 - [#120.83] | TOPTEN+4, TOPTEN+7, SYMPTOMS+5, SYMPTOMS+6, SYMPTOMS+7 |
| ^GMRD(120.84 - [#120.84] | GMRASITE+3, TOPTEN+3, TOPTEN+4 |
| ^OR(100 - [#100] | CHKMEDS+7, CHKMEDS+8, CHKMEDS+9, CHKMEDS+22, CHKMEDS+29, SENDALRT+7, FILLID+3 |
| ^ORD(100.9 - [#100.9] | SENDALRT+8 |
| ^ORD(100.98 - [#100.98] | FILLID+4 |
| ^TMP("GMRA" | EDITLOAD+3, EDITSAVE+4 |
| ^TMP($J | SYMPTOMS+3!, SYMPTOMS+5*, SYMPTOMS+7*, SYMPTOMS+8, SYMPTOMS+10, INGSRCH+1!, INGSRCH+3, INGSRCH+4, INGSRCH+5, INGSRCH+6! , CLASRCH+1!, CLASRCH+3, CLASRCH+4, CLASRCH+5, CLASRCH+6!, TRDNAME+1!, TRDNAME+3, TRDNAME+4, TRDNAME+5, TRDNAME+6! |
| ^VA(200 - [#200] | CHKMEDS+26, CHKMEDS+27, CHKMEDS+31, GETPROV+21 |
| ^XTMP("ORBUSER" | GETPROV+3!, GETPROVQ! |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | GETPROV+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | SENDALRT+5~, SENDALRT+9* |
| AGNT | CHKMEDS2~, CHKMEDS2+3 |
| AGY | CHKMEDS2+1~, CHKMEDS2+2*, CHKMEDS2+3*, CHKMEDS2+6, CHKMEDS2+17 |
| AGYLST | CHKMEDS+1~, CHKMEDS+15!, CHKMEDS+16, CHKMEDS+17, CHKMEDS+34!, CHKMEDS2~ |
| AGYLST( | CHKMEDS2+3, CHKMEDS2+6 |
| AGYSTP | CHKMEDS2+1~, CHKMEDS2+9*, CHKMEDS2+10*, CHKMEDS2+12 |
| AGYSTRT | CHKMEDS2+1~, CHKMEDS2+7*, CHKMEDS2+8, CHKMEDS2+12 |
| AGYSTRT1 | CHKMEDS2+1~, CHKMEDS2+8*, CHKMEDS2+10 |
| AGYTXT | CHKMEDS+1~, CHKMEDS+15!, CHKMEDS+17, CHKMEDS2~, CHKMEDS2+16* |
| AGYTXT( | CHKMEDS2+13, CHKMEDS2+14, CHKMEDS2+17* |
| AGYTXTQ | CHKMEDS2+1~, CHKMEDS2+5*, CHKMEDS2+13, CHKMEDS2+14*, CHKMEDS2+15 |
| ALST | CHKMEDS+1~, CHKMEDS+4, CHKMEDS+34! |
| ALST( | CHKMEDS+5, CHKMEDS+6, CHKMEDS+7 |
| ATTEND | CHKMEDS+1~, CHKMEDS+28*, CHKMEDS+30*, CHKMEDS+31 |
| CNT | TOPTEN+1~*, TOPTEN+3*, ALLSRCH+1~*, ALLSRCH+5*, ALLSRCH+11*, ALLSRCH+12*, ALLSRCH+13, ALLSRCH+18*, ALLSRCH+19*, ALLSRCH+20 , ALLSRCH+28*, ALLSRCH+36*, SYMPTOMS+2~*, SYMPTOMS+8, GETPROV+1~, GETPROV+4*, GETPROV+23*, GETPROV+24, GETPROV+25 |
| CODE | ALLSRCH+22~, ALLSRCH+23*, ALLSRCH+24, ALLSRCH+30~, ALLSRCH+31*, ALLSRCH+32 |
| DFN | CHKMEDS+1~, CHKMEDS+29*, CHKMEDS+30, GETPROV+10~, GETPROV+11* |
| DGRP | FILLID+1~, FILLID+3*, FILLID+4 |
| DIR | SYMPTOMS~, SYMPTOMS+8 |
| DUZ | CHKMEDS+4 |
| ENT | CHKMEDS+1~, CHKMEDS+22*, CHKMEDS+27 |
| FID | CHKMEDS+1~, CHKMEDS+14*, CHKMEDS+16 |
| FILLID | CHKMEDS+1~ |
| FROM | SYMPTOMS~, SYMPTOMS+8*, SYMPTOMS+9, SYMPTOMS+10, SYMPTOMS+13 |
| GMRAGNT | CHKMEDS~, CHKMEDS+17 |
| GMRASITE | GMRASITE+1~, GMRASITE+3, TOPTEN+1~, TOPTEN+3, TOPTEN+4 |
| I | DEF+1~, TOPTEN+1~*, TOPTEN+3*, TOPTEN+4, SYMPTOMS+2~*, SYMPTOMS+8, SYMPTOMS+12*, SYMPTOMS+13, EDITLOAD+2~, EDITLOAD+3* , INGSRCH+4~*, INGSRCH+5, CLASRCH+4~*, CLASRCH+5, TRDNAME+4~*, TRDNAME+5 |
| IEN | SYMPTOMS+2~, SYMPTOMS+10*, SYMPTOMS+11, SYMPTOMS+13 |
| ILST | DEF+1~*, NXT+1*, NXT+2 |
| J | INGSRCH+5~*, CLASRCH+5~*, TRDNAME+5~* |
| K | TRDNAME+5~* |
| L | CHKMEDS+1~, CHKMEDS+5*, CHKMEDS+6, CHKMEDS+7 |
| LIST | ALLSRCH+22~, ALLSRCH+24, ALLSRCH+30~, ALLSRCH+32, INGSRCH~, CLASRCH~, TRDNAME~ |
| LIST( | ALLSRCH+24, ALLSRCH+25, ALLSRCH+26, ALLSRCH+32, ALLSRCH+33, ALLSRCH+34, ALLSRCH+35, ALLSRCH+36, INGSRCH+5*, CLASRCH+5* , TRDNAME+5* |
| LOOP | CHKMEDS2+1~, CHKMEDS2+13*, CHKMEDS2+14 |
| LST | DEF~, CHKMEDS~, CHKMEDS+2*, CHKMEDS+24*, CHKMEDS+25, CHKMEDS+26, CHKMEDS+27, CHKMEDS+31, CHKMEDS+32, GETPROV~ , GETPROV+25* |
| LST( | DEF+2*, DEF+3*, DEF+4*, DEF+5*, DEF+6*, DEF+7*, TOPTEN+7*, NATREACT+3*, ALLGYTYP+2*, OBSHIST+2* , SEVERITY+2*, CHKMEDS+25*, CHKMEDS+26*, CHKMEDS+27*, CHKMEDS+31*, CHKMEDS+32*, GETPROV+24* |
| M | CHKMEDS+1~, CHKMEDS+9*, CHKMEDS+12*, CHKMEDS+13, CHKMEDS+14, CHKMEDS+17, CHKMEDS+23*, CHKMEDS+25, CHKMEDS+32 |
| MATCH | CHKMEDS2+1~, CHKMEDS2+2*, CHKMEDS2+4*, CHKMEDS2+18 |
| MDA | CHKMEDS+1~, CHKMEDS+8*, CHKMEDS+9 |
| MDARRAY | CHKMEDS+1~, CHKMEDS+10, CHKMEDS+19! |
| MDARRAY( | CHKMEDS+9*, CHKMEDS+12, CHKMEDS+13, CHKMEDS+14, CHKMEDS+17 |
| MDARRAY2 | CHKMEDS+1~, CHKMEDS+20, CHKMEDS+33! |
| MDARRAY2( | CHKMEDS+17*, CHKMEDS+21, CHKMEDS+23, CHKMEDS+25, CHKMEDS+32 |
| MED | CHKMEDS+1~, CHKMEDS+7*, CHKMEDS+8, CHKMEDS+9, CHKMEDS+13*, CHKMEDS+14, CHKMEDS+16, CHKMEDS+17, CHKMEDS+21*, CHKMEDS+22 , CHKMEDS+23, CHKMEDS+25, CHKMEDS+29, CHKMEDS+32, FILLID~, FILLID+3 |
| MEDD | CHKMEDS+1~, CHKMEDS+7*, CHKMEDS+9 |
| NAME | ALLSRCH+22~, ALLSRCH+25*, ALLSRCH+28, ALLSRCH+30~, ALLSRCH+33*, ALLSRCH+36, SYMPTOMS+2~, SYMPTOMS+7*, INGSRCH~, INGSRCH+2 , CLASRCH~, CLASRCH+2, TRDNAME~, TRDNAME+2 |
| ORALIEN | EDITLOAD~, EDITLOAD+1, EDITLOAD+6, EDITSAVE~, EDITSAVE+7, EDITSAVE+9 |
| ORBADT | GETPROV+1~, GETPROV+4* |
| ORBATTD | GETPROV+1~, GETPROV+16* |
| ORBDFN | GETPROV~, GETPROV+7*, GETPROV+11 |
| ORBDUZ | GETPROV+1~ |
| ORBENT | GETPROV+1~, GETPROV+8* |
| ORBNOTIF | GETPROV+1~ |
| ORBPRIM | GETPROV+1~, GETPROV+16* |
| ORBT | SENDALRT+5~, SENDALRT+8*, SENDALRT+10 |
| ORBTDEV | GETPROV+1~ |
| ORBU | GETPROV+1~ |
| ORCMTS | SENDBULL~, SENDBULL+1, SENDBULL+4 |
| ORD | CHKMEDS+1~, CHKMEDS+5!, CHKMEDS+22*, CHKMEDS+26, CHKMEDS+27, CHKMEDS+31 |
| ORDFN | EDITSAVE~, EDITSAVE+7, EDITSAVE+9, SENDBULL~, SENDBULL+2, SENDBULL+4, CHKMEDS~, CHKMEDS+4, CHKMEDS+11, CHKMEDS+16 , CHKMEDS+18, SENDALRT+5~, SENDALRT+7*, SENDALRT+10 |
| ORDGPMA | GETPROV+1~, GETPROV+5* |
| ORDUZ | SENDBULL~, SENDBULL+2, SENDBULL+4 |
| OREDITED | EDITSAVE~, EDITSAVE+5 |
| ORFILE | ALLSRCH+1~*, ALLSRCH+4* |
| ORFORCE | GETPROV+1~, GETPROV+5* |
| ORIEN | ALLSRCH+1~*, ALLSRCH+9*, ALLSRCH+10, ALLSRCH+11, ALLSRCH+12, ALLSRCH+16*, ALLSRCH+17, ALLSRCH+18, ALLSRCH+19, ALLSRCH+24* , ALLSRCH+25, ALLSRCH+26, ALLSRCH+27, ALLSRCH+28, ALLSRCH+32*, ALLSRCH+33, ALLSRCH+34, ALLSRCH+35, ALLSRCH+36 |
| ORIFN | SENDALRT~, SENDALRT+6, SENDALRT+7, SENDALRT+10 |
| ORLIST | SENDALRT+5~, SENDALRT+10 |
| ORLIST( | SENDALRT+9* |
| ORN | GETPROV+1~, GETPROV+15* |
| ORNODE | EDITLOAD+2~, EDITLOAD+3*, EDITLOAD+6, EDITLOAD+7, EDITSAVE+3~, EDITSAVE+4*, EDITSAVE+5, EDITSAVE+7, EDITSAVE+8, EDITSAVE+9 |
| ORNUM | GETPROV~, GETPROV+6*, GETPROV+8 |
| ORPOSIT | GETPROV+1~ |
| ORREAX | ALLSRCH+1~ |
| ORRECIP | GETPROV+2~, GETPROV+21*, GETPROV+22, GETPROV+24 |
| ORSRC | ALLSRCH+1~*, ALLSRCH+4*, ALLSRCH+5, ALLSRCH+6, ALLSRCH+8, ALLSRCH+11, ALLSRCH+12, ALLSRCH+13, ALLSRCH+15, ALLSRCH+18 , ALLSRCH+19, ALLSRCH+20, ALLSRCH+21, ALLSRCH+23, ALLSRCH+27, ALLSRCH+28, ALLSRCH+29, ALLSRCH+36 |
| ORSRC( | ALLSRCH+4*, ALLSRCH+5 |
| ORTEXT | SENDBULL~, SENDBULL+2, SENDBULL+4 |
| ORX | ALLSRCH+1~, ALLSRCH+2* |
| ORY | GMRASITE~, GMRASITE+3*, EDITSAVE~, EDITSAVE+6* |
| PROVLST | SENDALRT~ |
| PROVLST( | SENDALRT+9 |
| RECTITLE | GETPROV+2~, GETPROV+21*, GETPROV+24 |
| ROOT | ALLSRCH+1~, ALLSRCH+3*, ALLSRCH+4, ALLSRCH+7, ALLSRCH+9, ALLSRCH+11, ALLSRCH+12, ALLSRCH+14, ALLSRCH+16, ALLSRCH+18 , ALLSRCH+19, ALLSRCH+28, ALLSRCH+36 |
| STATUS | CHKMEDS+1~, CHKMEDS+3*, CHKMEDS+6 |
| SUB | SYMPTOMS+2~, SYMPTOMS+6*, SYMPTOMS+7 |
| SYN | SYMPTOMS+2~, SYMPTOMS+6*, SYMPTOMS+7 |
| TEXT | GETPROV+2~ |
| TXT | CHKMEDS2+1~, CHKMEDS2+6*, CHKMEDS2+7, CHKMEDS2+8, CHKMEDS2+9, CHKMEDS2+10, CHKMEDS2+12*, CHKMEDS2+14, CHKMEDS2+16, CHKMEDS2+17 |
| TXT4 | GETPROV+2~ |
| U | TOPTEN+7, ALLSRCH+5, ALLSRCH+11, ALLSRCH+12, ALLSRCH+13, ALLSRCH+18, ALLSRCH+19, ALLSRCH+20, ALLSRCH+25, ALLSRCH+26 , ALLSRCH+28, ALLSRCH+33, ALLSRCH+34, ALLSRCH+36, SYMPTOMS+7, SYMPTOMS+13, INGSRCH+5, CLASRCH+5, TRDNAME+5, CHKMEDS+6 , CHKMEDS+7, CHKMEDS+9, CHKMEDS+14, CHKMEDS+17, CHKMEDS+22, CHKMEDS+25, CHKMEDS+26, CHKMEDS+27, CHKMEDS+29, CHKMEDS+31 , CHKMEDS+32, CHKMEDS2+16, GETPROV+16, GETPROV+21, GETPROV+24, FILLID+3, FILLID+4 |
| VA | GETPROV+2~ |
| VA("BID" | GETPROV+14 |
| VA200 | GETPROV+2~, GETPROV+12* |
| VADM | GETPROV+2~ |
| VADM(1 | GETPROV+14 |
| VAIN | GETPROV+2~ |
| VAIN(11 | GETPROV+16 |
| VAIN(2 | GETPROV+16 |
| VAL | ALLSRCH+22~, ALLSRCH+30~, FILLID+1~, FILLID+2*, FILLID+5*, FILLID+6 |
| X | DEF+1~, ALLSRCH~, ALLSRCH+2*, ALLSRCH+7, ALLSRCH+8, ALLSRCH+9, ALLSRCH+11, ALLSRCH+12, ALLSRCH+14, ALLSRCH+26 , ALLSRCH+34, NATREACT+2*, NATREACT+3, ALLGYTYP+1*, ALLGYTYP+2, OBSHIST+1*, OBSHIST+2, SEVERITY+1*, SEVERITY+2, SYMPTOMS+2~ , GETPROV+2~, GETPROV+19*, GETPROV+20*, GETPROV+21, GETPROV+24, FILLID+1~, FILLID+4*, FILLID+5 |
| X0 | TOPTEN+1~*, TOPTEN+4*, TOPTEN+6, TOPTEN+7 |
| XP | ALLSRCH+1~, ALLSRCH+14*, ALLSRCH+15, ALLSRCH+16, ALLSRCH+18, ALLSRCH+19 |
| XQA | GETPROV+2~, GETPROV+18 |
| XQA( | GETPROV+20 |
| Y | ALLSRCH~, SYMPTOMS~, EDITLOAD~, EDITLOAD+7*, SENDBULL~, SENDBULL+2*, SENDBULL+4*, SENDALRT~, SENDALRT+4*, SENDALRT+6* , SENDALRT+7* |
| Y( | ALLSRCH+5*, ALLSRCH+11*, ALLSRCH+12*, ALLSRCH+13*, ALLSRCH+18*, ALLSRCH+19*, ALLSRCH+20*, ALLSRCH+28*, ALLSRCH+36*, SYMPTOMS+13* |
| Name | Field # of Occurrence |
|---|---|
| $T(FILENAME+ORSRC | ALLSRCH+4 |
| $T(SCREEN^XTID | TOPTEN+6, ALLSRCH+10, ALLSRCH+17, ALLSRCH+27, ALLSRCH+35, SYMPTOMS+11 |