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 |