PSOERUT3 ;ALB/MFR - eRx Listman Allergy Utilities; 06/25/2022 5:14pm
Source file <PSOERUT3.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 3 | ($$C2S,$$S2C,$$SORT)^PSOERUT ($$COMPARE,ADDLINE,BLANKLN,VIDEO)^PSOERUT0 ALRGDATA^PSOERXU9 |
| VA FileMan | 2 | ($$GET1,GETS)^DIQ ^DIWP |
| Adverse Reaction Tracking | 1 | ^GMRADPT |
| DRG Grouper | 1 | ICDDESC^ICDXCODE |
| Kernel | 1 | $$UP^XLFSTR |
| Order Entry Results Reporting | 1 | ($$HAVEHDR,GET,HAVEHDR)^ORRDI1 |
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Outpatient Pharmacy | 4 | PSOERUT0 PSOERUT5 PSOERUT6 PSOERXD1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ALLERGY(MODE,NPSPC,ERXIEN,DFN) | ; Sets Allergy and Adverse Reaction information
; Input: MODE - Display Mode: "RS": Roll & Scroll | "LM": ListMan ; NMSPC - ListMan Temp Global Namespace (e.g., "PSOERXP1") ; ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) ; DFN - Pointer to PATIENT File(#2) |
|
| ADDALLS | ; Add Alergies to the Screen (Reverses or Highlights Video for each Allergy)
|
|
| SETDIAGS(MODE,NPSPC,ERXIEN) | ; Sets Diagnosis information
; Input: MODE - Display Mode: "RS": Roll & Scroll | "LM": ListMan ; NMSPC - ListMan Temp Global Namespace (e.g., "PSOERXP1") ; ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) |
|
| GETDIAGS(ERXIEN,ICDARR) | ; Returns the diagnosis codes for the eRx order
; Input: (r) ERXIEN - Pointer to the ERX HOLDING QUEUE file (52.49) |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | ALLERGY+50 |
| GETS^DIQ | GETDIAGS+10 |
| ^DIWP | ALLERGY+63, ALLERGY+76, ALLERGY+81, ALLERGY+86, ALLERGY+92, ALLERGY+96 |
| ^GMRADPT | ALLERGY+12 |
| ICDDESC^ICDXCODE | GETDIAGS+15, GETDIAGS+25 |
| $$HAVEHDR^ORRDI1 | ALLERGY+30 |
| GET^ORRDI1 | ALLERGY+32 |
| HAVEHDR^ORRDI1 | ALLERGY+29 |
| $$C2S^PSOERUT | ALLERGY+63, ALLERGY+76, ALLERGY+81, ALLERGY+86, ALLERGY+92, ALLERGY+96 |
| $$S2C^PSOERUT | ALLERGY+64, ALLERGY+77, ALLERGY+82, ALLERGY+87, ALLERGY+93, ALLERGY+97 |
| $$SORT^PSOERUT | ALLERGY+43, ALLERGY+44, ALLERGY+45, ALLERGY+46, ALLERGY+47 |
| $$COMPARE^PSOERUT0 | SETDIAGS+16 |
| ADDLINE^PSOERUT0 | ALLERGY+102, ALLERGY+124, ADDALLS+22, SETDIAGS+8, SETDIAGS+12, SETDIAGS+16 |
| BLANKLN^PSOERUT0 | ALLERGY+125, SETDIAGS+18 |
| VIDEO^PSOERUT0 | ALLERGY+125 |
| ALRGDATA^PSOERXU9 | ALLERGY+52 |
| $$UP^XLFSTR | ALLERGY+27, ALLERGY+40, GETDIAGS+20, GETDIAGS+31 |
| FileNo | Call Tags |
|---|---|
| ^PS(52.49 - [#52.49] | GET1^DIQ |
| 52.493113 | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.49 - [#52.49] | ALLERGY+8, GETDIAGS+7, GETDIAGS+8 |
| ^UTILITY($J | ALLERGY+63!, ALLERGY+64, ALLERGY+74!, ALLERGY+76!, ALLERGY+77, ALLERGY+79!, ALLERGY+81!, ALLERGY+82, ALLERGY+84!, ALLERGY+86! , ALLERGY+87, ALLERGY+92!, ALLERGY+93, ALLERGY+96!, ALLERGY+97 |
| ^XTMP("ORRDI" | ALLERGY+31, ALLERGY+33, ALLERGY+34, ALLERGY+35 |
| Name | Line Occurrences |
|---|---|
| GETDIAGS | SETDIAGS+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGENT | ALLERGY+16~, ALLERGY+19*, ALLERGY+22*, ALLERGY+23, ALLERGY+24, ALLERGY+25, ALLERGY+26, ALLERGY+27, ALLERGY+36*, ALLERGY+39 , ALLERGY+40 |
| ALL | ALLERGY+16~, ALLERGY+17*, ALLERGY+18, ALLERGY+34*, ALLERGY+35 |
| ALLLIST | ALLERGY+16~ |
| ALLLIST( | ALLERGY+18*, ALLERGY+20, ALLERGY+21, ALLERGY+22 |
| ALLLN | ALLERGY+6~, ALLERGY+103*, ALLERGY+104, ALLERGY+111, ALLERGY+117, ALLERGY+122, ALLERGY+123, ADDALLS+1~, ADDALLS+2*, ADDALLS+3 , ADDALLS+20, ADDALLS+21 |
| ALORAR | ALLERGY+16~, ALLERGY+19*, ALLERGY+21*, ALLERGY+22, ALLERGY+23, ALLERGY+24, ALLERGY+25, ALLERGY+26 |
| COUNT | GETDIAGS+5~, GETDIAGS+7*, GETDIAGS+17*, GETDIAGS+20*, GETDIAGS+27*, GETDIAGS+30*, GETDIAGS+31 |
| DFN | ALLERGY~, ALLERGY+10, ALLERGY+32, ALLERGY+33, ALLERGY+34, ALLERGY+35, ALLERGY+69, ALLERGY+119, ADDALLS+17 |
| DIAG | SETDIAGS+4~, SETDIAGS+6*, SETDIAGS+7 |
| DIAGDAT | GETDIAGS+5~, GETDIAGS+9~ |
| DIAGDAT( | GETDIAGS+11, GETDIAGS+12, GETDIAGS+13, GETDIAGS+21, GETDIAGS+22, GETDIAGS+23 |
| DIAGIEN | GETDIAGS+5~, GETDIAGS+8*, GETDIAGS+9 |
| DIAGS | SETDIAGS+4~, SETDIAGS+5 |
| DIAGS( | SETDIAGS+6, SETDIAGS+7 |
| DIAGS(0 | SETDIAGS+18 |
| DIAGZ | SETDIAGS+4~, SETDIAGS+7*, SETDIAGS+8, SETDIAGS+9, SETDIAGS+14 |
| DIENS | GETDIAGS+5~, GETDIAGS+9*, GETDIAGS+10, GETDIAGS+11, GETDIAGS+12, GETDIAGS+13, GETDIAGS+21, GETDIAGS+22, GETDIAGS+23 |
| >> DIWF | ALLERGY+63*, ALLERGY+76*, ALLERGY+81*, ALLERGY+86*, ALLERGY+92*, ALLERGY+96* |
| >> DIWL | ALLERGY+63*, ALLERGY+76*, ALLERGY+81*, ALLERGY+86*, ALLERGY+92*, ALLERGY+96* |
| >> DIWR | ALLERGY+63*, ALLERGY+76*, ALLERGY+81*, ALLERGY+86*, ALLERGY+92*, ALLERGY+96* |
| DRES | GETDIAGS+5~, GETDIAGS+15 |
| DRES( | GETDIAGS+18, GETDIAGS+19 |
| DRES(0 | GETDIAGS+16 |
| DRESDAT | GETDIAGS+5~, GETDIAGS+19*, GETDIAGS+20 |
| DRESL | GETDIAGS+5~, GETDIAGS+18*, GETDIAGS+19 |
| EALLDATA | ALLERGY+6~, ALLERGY+52 |
| EALLDATA( | ALLERGY+53, ALLERGY+54, ALLERGY+55, ALLERGY+56 |
| EALLLST | ALLERGY+7~, ALLERGY+53*, ALLERGY+55*, ALLERGY+57*, ALLERGY+62, ALLERGY+63, ALLERGY+65 |
| ENKA | ALLERGY+7~, ALLERGY+50*, ALLERGY+60, ALLERGY+65, ALLERGY+119, ADDALLS+17 |
| ERX1ALL | ALLERGY+7~, ALLERGY+107*, ALLERGY+108, ALLERGY+109, ALLERGY+110, ADDALLS+6*, ADDALLS+7, ADDALLS+8, ADDALLS+9 |
| ERXALLS | ALLERGY+7~, ALLERGY+104*, ALLERGY+106, ALLERGY+107, ALLERGY+109, ALLERGY+110, ALLERGY+120, ALLERGY+121, ADDALLS+3*, ADDALLS+5 , ADDALLS+6, ADDALLS+8, ADDALLS+9, ADDALLS+18, ADDALLS+19 |
| ERXIEN | ALLERGY~, ALLERGY+8, ALLERGY+50, ALLERGY+52, SETDIAGS~, SETDIAGS+5, GETDIAGS~, GETDIAGS+7, GETDIAGS+8, GETDIAGS+9 |
| ERXLINES | ALLERGY+59! |
| ERXLINES( | ALLERGY+64*, ALLERGY+103, ALLERGY+104, ALLERGY+122, ADDALLS+2, ADDALLS+3, ADDALLS+20 |
| ERXLINES(1 | ALLERGY+61*, ALLERGY+66* |
| ERXLIST | ALLERGY+7~, ALLERGY+105, ADDALLS+4 |
| ERXLIST( | ALLERGY+56*, ALLERGY+114, ADDALLS+13 |
| FILE | ALLERGY+16~, ALLERGY+37*, ALLERGY+38 |
| >> GMRA | ALLERGY+12* |
| GMRAL | ALLERGY+6~, ALLERGY+13, ALLERGY+14, ALLERGY+15 |
| GMRAL( | ALLERGY+17, ALLERGY+18 |
| HDRLN | ALLERGY+7~, ALLERGY+70! |
| HDRLN( | ALLERGY+75*, ALLERGY+80*, ALLERGY+85*, ALLERGY+89*, ALLERGY+91*, ALLERGY+95*, ALLERGY+111, ALLERGY+117 |
| >> HIGHLN( | ALLERGY+110*, ALLERGY+116*, ALLERGY+120*, ADDALLS+9*, ADDALLS+15*, ADDALLS+18* |
| >> HIGUNDLN( | SETDIAGS+11* |
| I | ALLERGY+7~, ALLERGY+64*, ALLERGY+77*, ALLERGY+82*, ALLERGY+87*, ALLERGY+93*, ALLERGY+97*, ALLERGY+106*, ALLERGY+107, ALLERGY+112* , ALLERGY+113, ADDALLS+5*, ADDALLS+6, ADDALLS+11*, ADDALLS+12 |
| ICDARR | GETDIAGS~ |
| ICDARR( | GETDIAGS+17*, GETDIAGS+20*, GETDIAGS+27*, GETDIAGS+31* |
| IEN | ALLERGY+6~ |
| LDAT | ALLERGY+6~ |
| >> LINE | ALLERGY+109, ALLERGY+110, ALLERGY+115, ALLERGY+116, ALLERGY+117, ALLERGY+120, ALLERGY+121, ADDALLS+8, ADDALLS+9, ADDALLS+14 , ADDALLS+15, ADDALLS+18, ADDALLS+19, SETDIAGS+11 |
| LN | ALLERGY+6~, ALLERGY+70*, ALLERGY+71*, ALLERGY+72*, ALLERGY+75*, ALLERGY+77*, ALLERGY+80*, ALLERGY+82*, ALLERGY+85*, ALLERGY+87* , ALLERGY+89*, ALLERGY+91*, ALLERGY+93*, ALLERGY+95*, ALLERGY+97* |
| MIEN | GETDIAGS+5~, GETDIAGS+7*, GETDIAGS+8, GETDIAGS+9 |
| MODE | ALLERGY~, ALLERGY+102, ALLERGY+124, ALLERGY+125, ADDALLS+22, SETDIAGS~, SETDIAGS+8, SETDIAGS+12, SETDIAGS+16, SETDIAGS+18 |
| >> NMSPC | ALLERGY+102, ALLERGY+124, ADDALLS+22, SETDIAGS+8, SETDIAGS+12, SETDIAGS+16 |
| NOVALLST | ALLERGY+6~, ALLERGY+9*, ALLERGY+24*, ALLERGY+44*, ALLERGY+78, ALLERGY+81 |
| NOVARLST | ALLERGY+6~, ALLERGY+9*, ALLERGY+26*, ALLERGY+46*, ALLERGY+88, ALLERGY+94, ALLERGY+96 |
| NPSPC | ALLERGY~, SETDIAGS~ |
| PDESC | GETDIAGS+5~, GETDIAGS+13*, GETDIAGS+17, GETDIAGS+20 |
| PDIAGQ | GETDIAGS+5~, GETDIAGS+11*, GETDIAGS+14, GETDIAGS+15, GETDIAGS+17, GETDIAGS+20 |
| PDIAGV | GETDIAGS+5~, GETDIAGS+12*, GETDIAGS+15, GETDIAGS+17, GETDIAGS+20 |
| PSONOAL | ALLERGY+6~ |
| REMALLST | ALLERGY+6~, ALLERGY+9*, ALLERGY+39*, ALLERGY+47*, ALLERGY+83, ALLERGY+86 |
| >> REVLN( | ALLERGY+109*, ALLERGY+115*, ALLERGY+121*, ADDALLS+8*, ADDALLS+14*, ADDALLS+19* |
| SDESC | GETDIAGS+6~, GETDIAGS+23*, GETDIAGS+27, GETDIAGS+31 |
| SDIAGQ | GETDIAGS+6~, GETDIAGS+21*, GETDIAGS+24, GETDIAGS+25, GETDIAGS+27, GETDIAGS+31 |
| SDIAGV | GETDIAGS+6~, GETDIAGS+22*, GETDIAGS+25, GETDIAGS+27, GETDIAGS+31 |
| SDRES | GETDIAGS+6~, GETDIAGS+25 |
| SDRES( | GETDIAGS+28, GETDIAGS+29 |
| SDRES(0 | GETDIAGS+26 |
| SDRESDAT | GETDIAGS+6~, GETDIAGS+29*, GETDIAGS+31 |
| SDRESL | GETDIAGS+6~, GETDIAGS+28*, GETDIAGS+29 |
| >> SEQ | ALLERGY+53*, ALLERGY+54, ALLERGY+55, ALLERGY+56 |
| TYPE | ALLERGY+6~ |
| >> UNDERLN( | ALLERGY+117* |
| VA1ALL | ALLERGY+7~, ALLERGY+113*, ALLERGY+114, ALLERGY+115, ALLERGY+116, ADDALLS+12*, ADDALLS+13, ADDALLS+14, ADDALLS+15 |
| VAALLS | ALLERGY+7~, ALLERGY+104*, ALLERGY+112, ALLERGY+113, ALLERGY+115, ALLERGY+116, ALLERGY+117, ALLERGY+120, ALLERGY+121, ADDALLS+3* , ADDALLS+10, ADDALLS+11, ADDALLS+12, ADDALLS+14, ADDALLS+15, ADDALLS+18, ADDALLS+19 |
| VALINES | ALLERGY+59! |
| VALINES( | ALLERGY+75*, ALLERGY+77*, ALLERGY+80*, ALLERGY+82*, ALLERGY+85*, ALLERGY+87*, ALLERGY+89*, ALLERGY+91*, ALLERGY+93*, ALLERGY+95* , ALLERGY+97*, ALLERGY+103, ALLERGY+104, ALLERGY+123, ADDALLS+2, ADDALLS+3, ADDALLS+21 |
| VALINES(1 | ALLERGY+71*, ALLERGY+72* |
| VALIST | ALLERGY+7~, ALLERGY+105, ADDALLS+4 |
| VALIST( | ALLERGY+27*, ALLERGY+40*, ALLERGY+108, ADDALLS+7 |
| VANKA | ALLERGY+6~, ALLERGY+9*, ALLERGY+14*, ALLERGY+72, ALLERGY+119, ADDALLS+17 |
| VANOASS | ALLERGY+6~, ALLERGY+9*, ALLERGY+13*, ALLERGY+71 |
| VERALLST | ALLERGY+6~, ALLERGY+9*, ALLERGY+23*, ALLERGY+43*, ALLERGY+73, ALLERGY+76 |
| VERARLST | ALLERGY+6~, ALLERGY+9*, ALLERGY+25*, ALLERGY+45*, ALLERGY+88, ALLERGY+90, ALLERGY+92 |
| VERIF | ALLERGY+16~, ALLERGY+19*, ALLERGY+20*, ALLERGY+21, ALLERGY+22, ALLERGY+23, ALLERGY+24, ALLERGY+25, ALLERGY+26 |
| X | ALLERGY+6~, ALLERGY+63*, ALLERGY+76*, ALLERGY+81*, ALLERGY+86*, ALLERGY+92*, ALLERGY+96* |
| XE | ALLERGY+6~, ALLERGY+101*, ALLERGY+102, ALLERGY+122*, ALLERGY+124, ADDALLS+20*, ADDALLS+22, SETDIAGS+4~, SETDIAGS+8*, SETDIAGS+9* , SETDIAGS+10, SETDIAGS+11, SETDIAGS+12, SETDIAGS+13*, SETDIAGS+14*, SETDIAGS+15, SETDIAGS+16, SETDIAGS+17* |
| XV | ALLERGY+6~, ALLERGY+101*, ALLERGY+102, ALLERGY+123*, ALLERGY+124, ADDALLS+21*, ADDALLS+22 |
| Z | ALLERGY+16~, ALLERGY+18*, ALLERGY+35*, ALLERGY+36, ALLERGY+37 |
| Name | Field # of Occurrence |
|---|---|
| $T(GET^ORRDI1 | ALLERGY+32 |
| $T(HAVEHDR^ORRDI1 | ALLERGY+29 |
