PSOERALL ;ALB/MR - eRx Patient Allergies ; 8/3/2016 5:14pm
Source file <PSOERALL.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 8 | HDR^PSOERALL ($$COMPARE,ADDLINE,BLANKLN,RESET,VIDEO)^PSOERUT0 $$VISTAPAT^PSOERUT6 $$ELIG^PSOERXP1 ALRGDATA^PSOERXU9 $$ERXIEN^PSOERXUT EN^PSOLMDA ^PSOORUT2 |
| List Manager | 3 | (EN,SHOW)^VALM (FULL,INSTR)^VALM1 SAVE^VALM10 |
| Adverse Reaction Tracking | 2 | ^GMRADPT EN1^GMRAOR2 |
| Kernel | 2 | ($$FMTE,$$HL7TFM)^XLFDT $$TITLE^XLFSTR |
| VA FileMan | 2 | ($$GET1,GETS)^DIQ ^DIWP |
| Order Entry Results Reporting | 1 | ($$HAVEHDR,GET,HAVEHDR)^ORRDI1 |
| Registration | 1 | (ADD,DEM)^VADPT |
| 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 |
|---|---|---|
| EN | ; -- main entry point for PSO ERX HOLDING QUEUE
|
|
| LMHDR | ; ListMan Header Code
|
|
| HDR | ; -- header code
|
|
| INIT | ;
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| VPA | ; Vista Patient Allergies
|
|
| ALLERGY(ERXIEN,DFN) | ; VistA Patient Allergy and Adverse Reaction information
; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) ; DFN - Pointer to PATIENT File(#2) |
|
| ADDFRTXT(TEXT,RS2C,SIZE,ARRAY,ARRLN,PFIX,HIGH) | ; Wraps FreeText and adds to existing array
|
|
| C2S(STR) | ; Replaces commas with spaces (for auto-wrap to work) - Arbitrarily using '@' (not likely to be on the string)
|
|
| S2C(STR) | ; Replaces spaces with commas (for auto-wrap to work)
|
|
| SORT(STR) | ; Sorts a comma (,) separated list alphabetically
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | EN+2, HDR+2, HDR+3, HDR+4, INIT+7, VPA+3, ALLERGY+28 |
| GETS^DIQ | INIT+12 |
| ^DIWP | ADDFRTXT+10 |
| ^GMRADPT | ALLERGY+12 |
| EN1^GMRAOR2 | ALLERGY+67 |
| $$HAVEHDR^ORRDI1 | ALLERGY+18 |
| GET^ORRDI1 | ALLERGY+19 |
| HAVEHDR^ORRDI1 | ALLERGY+18 |
| HDR^PSOERALL | LMHDR+1 |
| $$COMPARE^PSOERUT0 | INIT+25, INIT+26, INIT+29, INIT+31, INIT+32, INIT+34, INIT+35 |
| ADDLINE^PSOERUT0 | INIT+27, INIT+30, INIT+33, INIT+36, ALLERGY+138 |
| BLANKLN^PSOERUT0 | INIT+38, INIT+40 |
| RESET^PSOERUT0 | INIT+22 |
| VIDEO^PSOERUT0 | INIT+47 |
| $$VISTAPAT^PSOERUT6 | INIT+8 |
| $$ELIG^PSOERXP1 | HDR+7 |
| ALRGDATA^PSOERXU9 | ALLERGY+33 |
| $$ERXIEN^PSOERXUT | EN+4 |
| EN^PSOLMDA | VPA+5 |
| ^PSOORUT2 | VPA+5 |
| ADD^VADPT | INIT+18 |
| DEM^VADPT | INIT+18 |
| EN^VALM | EN+8 |
| SHOW^VALM | LMHDR+1 |
| FULL^VALM1 | EXIT+1 |
| INSTR^VALM1 | HDR+7, HDR+11, HDR+13 |
| SAVE^VALM10 | INIT+45 |
| $$FMTE^XLFDT | HDR+9, ALLERGY+51, ALLERGY+88 |
| $$HL7TFM^XLFDT | ALLERGY+88 |
| $$TITLE^XLFSTR | ALLERGY+68, ALLERGY+70, ALLERGY+90 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PS(52.46 - [#52.46] | GETS^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ |
| ^PS(59.7 - [#59.7] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.41 - [#52.41] | EN+4 |
| ^TMP("PSOERALL" | INIT+10! |
| ^UTILITY($J | ADDFRTXT+10!, ADDFRTXT+11, ADDFRTXT+12 |
| ^XTMP("ORRDI" | ALLERGY+18, ALLERGY+20, ALLERGY+21, ALLERGY+22, ALLERGY+82, ALLERGY+83, ALLERGY+86, ALLERGY+87, ALLERGY+88, ALLERGY+89 , ALLERGY+90, ALLERGY+91, ALLERGY+93, ALLERGY+94, ALLERGY+95 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGENT | ALLERGY+5~, ALLERGY+22*, ALLERGY+23, ALLERGY+44*, ALLERGY+45, ALLERGY+46, ALLERGY+47, ALLERGY+48, ALLERGY+49*, ALLERGY+68* , ALLERGY+72, ALLERGY+76, ALLERGY+78, ALLERGY+86*, ALLERGY+92, ALLERGY+94, ALLERGY+96, ALLERGY+111*, ALLERGY+119*, ALLERGY+120 , ALLERGY+126, ALLERGY+127, ALLERGY+128, ALLERGY+129, ALLERGY+131 |
| ALL | ALLERGY+5~, ALLERGY+16*, ALLERGY+21*, ALLERGY+22, ALLERGY+65*, ALLERGY+66, ALLERGY+67, ALLERGY+82*, ALLERGY+83, ALLERGY+86 , ALLERGY+87, ALLERGY+88, ALLERGY+89, ALLERGY+90, ALLERGY+91, ALLERGY+93, ALLERGY+94, ALLERGY+95 |
| ALLINFO | ALLERGY+5~, ALLERGY+67!, ALLERGY+68, ALLERGY+69, ALLERGY+70, ALLERGY+71 |
| ALLINFO("H" | ALLERGY+74 |
| ALLINFO("O" | ALLERGY+75 |
| ALLINFO("S" | ALLERGY+77, ALLERGY+78 |
| ALLLIST | ALLERGY+5~, ALLERGY+62! |
| ALLLIST( | ALLERGY+72*, ALLERGY+76*, ALLERGY+78*, ALLERGY+92*, ALLERGY+94*, ALLERGY+96*, ALLERGY+112, ALLERGY+115, ALLERGY+117, ALLERGY+119 , ALLERGY+120, ALLERGY+126, ALLERGY+127, ALLERGY+128, ALLERGY+129, ALLERGY+131 |
| ALLLN | ALLERGY+4~, ALLERGY+26*, ALLERGY+27*, ALLERGY+30*, ALLERGY+31, ALLERGY+32, ALLERGY+35*, ALLERGY+36, ALLERGY+37, ALLERGY+46* , ALLERGY+47, ALLERGY+48, ALLERGY+51*, ALLERGY+52, ALLERGY+53*, ALLERGY+54, ALLERGY+56*, ALLERGY+57, ALLERGY+58*, ALLERGY+59 , ALLERGY+99*, ALLERGY+101*, ALLERGY+103*, ALLERGY+104, ALLERGY+105, ALLERGY+107*, ALLERGY+108, ALLERGY+109, ALLERGY+113*, ALLERGY+114* , ALLERGY+116*, ALLERGY+118*, ALLERGY+121*, ALLERGY+122, ALLERGY+123, ALLERGY+124*, ALLERGY+125*, ALLERGY+127*, ALLERGY+128, ALLERGY+130* , ALLERGY+132, ALLERGY+135*, ALLERGY+136, ALLERGY+137 |
| AMATCH | HDR+1~, HDR+2*, HDR+8 |
| ARRAY | ADDFRTXT~ |
| ARRAY( | ADDFRTXT+14* |
| ARRLN | ADDFRTXT~, ADDFRTXT+14* |
| BLINKLN | INIT+2~ |
| C2S | C2S+1~, C2S+2*, C2S+3*, C2S+4 |
| DATA | INIT+1~ |
| DATA( | INIT+13 |
| DFN | INIT+1~, INIT+8*, INIT+17, INIT+39, VPA+1~, VPA+3*, VPA+4, ALLERGY~, ALLERGY+10, ALLERGY+19 , ALLERGY+20, ALLERGY+21, ALLERGY+22, ALLERGY+63, ALLERGY+81, ALLERGY+82, ALLERGY+83, ALLERGY+86, ALLERGY+87, ALLERGY+88 , ALLERGY+89, ALLERGY+90, ALLERGY+91, ALLERGY+93, ALLERGY+94, ALLERGY+95 |
| DIWF | ADDFRTXT+8~, ADDFRTXT+10* |
| DIWL | ADDFRTXT+8~, ADDFRTXT+10* |
| DIWR | ADDFRTXT+8~, ADDFRTXT+10* |
| DRUGFOOD | ALLERGY+4~, ALLERGY+70*, ALLERGY+72, ALLERGY+76, ALLERGY+78, ALLERGY+90*, ALLERGY+92, ALLERGY+94, ALLERGY+96, ALLERGY+111* , ALLERGY+117*, ALLERGY+118, ALLERGY+119, ALLERGY+120, ALLERGY+126, ALLERGY+127, ALLERGY+128, ALLERGY+129, ALLERGY+131 |
| EALLDATA | ALLERGY+4~, ALLERGY+33 |
| EALLDATA( | ALLERGY+38, ALLERGY+39, ALLERGY+43, ALLERGY+44 |
| EALLDATA(0 | ALLERGY+34, ALLERGY+104 |
| ERR | INIT+1~ |
| ERXALL | ALLERGY+5~, ALLERGY+54, ALLERGY+57, ALLERGY+59 |
| ERXALL( | ALLERGY+27*, ALLERGY+30*, ALLERGY+35*, ALLERGY+46*, ALLERGY+51*, ALLERGY+53*, ALLERGY+56*, ALLERGY+58*, ALLERGY+135, ALLERGY+136 |
| ERXALLS | ALLERGY+6~ |
| ERXALLS( | ALLERGY+39*, ALLERGY+122 |
| ERXDM | INIT+1~, INIT+13* |
| ERXDM( | INIT+14 |
| ERXDOB | INIT+1~, INIT+14*, INIT+31, INIT+32 |
| ERXIEN | EN+7*, ALLERGY~, ALLERGY+28, ALLERGY+33 |
| ERXNAME | INIT+1~, INIT+14*, INIT+25, INIT+26, INIT+28, INIT+29 |
| ERXNKA | ALLERGY+6~, ALLERGY+28*, ALLERGY+29, ALLERGY+34, ALLERGY+104, ALLERGY+108 |
| ERXPAT | INIT+1~, INIT+7*, INIT+12, INIT+13 |
| ERXSSN | INIT+1~, INIT+14*, INIT+34, INIT+35 |
| FILE | ALLERGY+5~, ALLERGY+84*, ALLERGY+85 |
| GMRA | ALLERGY+4~, ALLERGY+12* |
| GMRAL | ALLERGY+4~, ALLERGY+13, ALLERGY+14, ALLERGY+15, ALLERGY+64 |
| GMRAL( | ALLERGY+16, ALLERGY+65, ALLERGY+66 |
| HDR | HDR+1~, HDR+12*, HDR+13* |
| HIGH | ADDFRTXT~, ADDFRTXT+14 |
| HIGHLN | INIT+2~ |
| HIGHLN( | ALLERGY+31*, ALLERGY+36*, ALLERGY+52*, ALLERGY+104*, ALLERGY+108*, ALLERGY+124*, ALLERGY+125*, ALLERGY+128*, ADDFRTXT+14* |
| HIGUNDLN | INIT+2~ |
| HIGUNDLN( | ALLERGY+47*, ALLERGY+122* |
| I | INIT+45*, ADDFRTXT+8~, ADDFRTXT+11*, ADDFRTXT+12, SORT+1~, SORT+2* |
| IEN | ALLERGY+4~ |
| >> IOINHI | HDR+4, HDR+7, HDR+11 |
| >> IOINORM | HDR+4, HDR+7, HDR+11, HDR+13 |
| >> IORVOFF | HDR+13 |
| >> IORVON | HDR+13 |
| >> IOUON | HDR+13 |
| LASTLINE | EN+1~, INIT+44, INIT+45, INIT+46* |
| LDAT | ALLERGY+4~ |
| >> LINE | INIT+24*, INIT+42, INIT+44, INIT+45, INIT+46, ALLERGY+26, ALLERGY+99 |
| LN | ALLERGY+4~, ALLERGY+5~ |
| MATCH | HDR+1~, HDR+8*, HDR+9*, HDR+10*, HDR+11* |
| MBMSITE | EN+1~, EN+2*, HDR+7 |
| >> NMSPC | INIT+4*, INIT+27, INIT+30, INIT+33, INIT+36 |
| OBSHIST | ALLERGY+5~, ALLERGY+68*, ALLERGY+72, ALLERGY+91*, ALLERGY+92 |
| >> ORD | EN+4 |
| ORIGDTTM | ALLERGY+5~, ALLERGY+71*, ALLERGY+72, ALLERGY+88*, ALLERGY+92 |
| PFIX | ADDFRTXT~, ADDFRTXT+14 |
| PSODFN | INIT+1~, INIT+8*, VPA+1~, VPA+3* |
| PSOIEN | EN+4~*, EN+5, EN+7, HDR+2, HDR+3, HDR+4, INIT+6, INIT+7, INIT+8, INIT+39 , VPA+2, VPA+3 |
| PSONOAL | ALLERGY+4~ |
| REF | ALLERGY+62! |
| REVLN | INIT+2~ |
| REVLN( | ALLERGY+32*, ALLERGY+37*, ALLERGY+48*, ALLERGY+105*, ALLERGY+109*, ALLERGY+123* |
| RS2C | ADDFRTXT~, ADDFRTXT+13 |
| S2C | S2C+1~, S2C+2*, S2C+3*, S2C+4*, S2C+5 |
| SARR | SORT+1~ |
| SARR( | SORT+2*, SORT+3 |
| SEQ | ALLERGY+4~, ALLERGY+38*, ALLERGY+39, ALLERGY+42*, ALLERGY+43*, ALLERGY+44 |
| SEV | ALLERGY+4~, ALLERGY+75* |
| SEVER | ALLERGY+5~ |
| SEVERITY | ALLERGY+5~, ALLERGY+73*, ALLERGY+74*, ALLERGY+75*, ALLERGY+76, ALLERGY+95*, ALLERGY+96 |
| SEVERS | ALLERGY+6~ |
| SIZE | ADDFRTXT~, ADDFRTXT+10 |
| SSTR | SORT+1~, SORT+3*, SORT+4*, SORT+5 |
| STR | C2S~, C2S+2, S2C~, S2C+2, SORT~, SORT+2 |
| SYMP | ALLERGY+4~, ALLERGY+77*, ALLERGY+78, ALLERGY+93*, ALLERGY+94, ALLERGY+111*, ALLERGY+131*, ALLERGY+132 |
| SYMPS | ALLERGY+4~, ALLERGY+77*, ALLERGY+93*, ALLERGY+111! |
| TEXT | ADDFRTXT~, ADDFRTXT+9 |
| TXT | ADDFRTXT+8~, ADDFRTXT+12*, ADDFRTXT+13*, ADDFRTXT+14 |
| TYPE | ALLERGY+4~, ALLERGY+5~, ALLERGY+69*, ALLERGY+72, ALLERGY+76, ALLERGY+78, ALLERGY+87*, ALLERGY+92, ALLERGY+94, ALLERGY+96 , ALLERGY+111*, ALLERGY+112*, ALLERGY+114, ALLERGY+115, ALLERGY+117, ALLERGY+119, ALLERGY+120, ALLERGY+126, ALLERGY+127, ALLERGY+128 , ALLERGY+129, ALLERGY+131 |
| UNDERLN | INIT+2~ |
| UNDERLN( | ALLERGY+118* |
| UPPERLN | ALLERGY+6~, ALLERGY+111*, ALLERGY+113, ALLERGY+114* |
| VAALLS | ALLERGY+6~ |
| VAALLS( | ALLERGY+16*, ALLERGY+23*, ALLERGY+47 |
| VADM | INIT+1~ |
| VADM(1 | INIT+19 |
| VADM(2 | INIT+19 |
| VADM(3 | INIT+19 |
| VADOB | INIT+1~, INIT+16*, INIT+19*, INIT+31, INIT+32 |
| VALDTTM | HDR+1~, HDR+3*, HDR+9 |
| >> VALMBCK | EN+6*, VPA+4*, VPA+6* |
| >> VALMCNT | INIT+42* |
| >> VALMHDR(1 | HDR+4* |
| >> VALMSG | EN+6*, VPA+4* |
| VALUSER | HDR+1~, HDR+3*, HDR+9 |
| VANAME | INIT+1~, INIT+16*, INIT+19*, INIT+25, INIT+26 |
| VANKA | ALLERGY+4~, ALLERGY+7*, ALLERGY+14*, ALLERGY+31, ALLERGY+100 |
| VANOASS | ALLERGY+4~, ALLERGY+7*, ALLERGY+13*, ALLERGY+36, ALLERGY+100, ALLERGY+102 |
| VAPA | INIT+1~ |
| VASSN | INIT+1~, INIT+16*, INIT+19*, INIT+34, INIT+35 |
| VERIFY | ALLERGY+5~, ALLERGY+68*, ALLERGY+72, ALLERGY+76, ALLERGY+78, ALLERGY+89*, ALLERGY+92, ALLERGY+94, ALLERGY+96, ALLERGY+111* , ALLERGY+115*, ALLERGY+116, ALLERGY+117, ALLERGY+119, ALLERGY+120, ALLERGY+126, ALLERGY+127, ALLERGY+128, ALLERGY+129, ALLERGY+131 |
| VISTAALL | ALLERGY+99!, ALLERGY+132 |
| VISTAALL( | ALLERGY+101*, ALLERGY+103*, ALLERGY+107*, ALLERGY+113*, ALLERGY+114*, ALLERGY+116*, ALLERGY+118*, ALLERGY+121*, ALLERGY+124*, ALLERGY+125* , ALLERGY+127*, ALLERGY+130*, ALLERGY+135, ALLERGY+137 |
| VPATIEN | HDR+1~, HDR+2*, HDR+6, HDR+7, HDR+8 |
| WORD | SORT+1~, SORT+3* |
| X | ADDFRTXT+8~, ADDFRTXT+9* |
| XE | INIT+1~, INIT+25*, INIT+27, INIT+29*, INIT+30, INIT+31*, INIT+33, INIT+34*, INIT+36, ALLERGY+4~ , ALLERGY+136*, ALLERGY+138 |
| >> XQORM("??" | LMHDR+2* |
| XV | INIT+1~, INIT+26*, INIT+27, INIT+32*, INIT+33, INIT+35*, INIT+36, ALLERGY+4~, ALLERGY+137*, ALLERGY+138 |
| Z | ALLERGY+5~, ALLERGY+44*, ALLERGY+47, ALLERGY+50, ALLERGY+51, ALLERGY+54, ALLERGY+55, ALLERGY+57, ALLERGY+59, ALLERGY+66* , ALLERGY+83*, ALLERGY+84, ALLERGY+120*, ALLERGY+121, ALLERGY+122, ALLERGY+123, ALLERGY+124, ALLERGY+125, ADDFRTXT+8~ |
| ZH | ALLERGY+5~, ALLERGY+66* |
| Name | Field # of Occurrence |
|---|---|
| $T(HAVEHDR^ORRDI1 | ALLERGY+18 |