PSODGAL3 ; BIR/LC,SAB,CMF - enhanced DRUG ALLERGY REACTION CHECKING continued ;12/09/07 02:22
Source file <PSODGAL3.m>
Package | Total | Call Graph |
---|---|---|
Adverse Reaction Tracking | 1 | ^GMRADPT |
Outpatient Pharmacy | 1 | $$GMSGPTR^PSODGAL1 |
VA FileMan | 1 | $$GET1^DIQ |
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 | 1 | PSODGAL1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
SORTN | ;
|
|
SORTM | ;
|
|
SYM | ;
|
|
TMP | ;
|
|
TMPSET | ;
|
|
END | ;
|
|
GETSEV(PSOSSITE,ZMSG,GMRARSLT) | ; return external highest severity for possible local multiple
|
|
GETSEVI(ZALL) | ; return internal highest severity for possible local multiple
|
|
GETSYMNM(ZYALL,SYMIEN,SYMINC) | ; getSymptomName(allergyResultIEN,symptomIEN,symptomIncrement)
|
|
UPPER(PSOUCS) | ;
|
|
TSTREM | ;For remote developer testing
|
|
SINGLE | ;Test Remote with a single ingredient
|
|
MULTI | ;Test Remote with multiple ingredients
|
|
DRGCLASS | ;Test Remote Interaction by drug class
|
|
BIGARRAY | ;dummy big array with complex local/remote combinations. Will not match drugs passed in
|
FileNo | Call Tags |
---|---|
^GMRD(120.83 - [#120.83] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4 - [#4] | SORTM+24 |
^TMP("PSODAOC" | TMPSET+10*, TMPSET+21*, TMPSET+29*, TMPSET+35*, TMPSET+37*, TMPSET+38*, TMPSET+39* |
^XTMP("ORRDI" | GETSYMNM+12, BIGARRAY+44* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARRAY | GETSEV+1~, GETSEV+11, GETSEVI+1~, GETSEVI+10 |
ARRAY( | GETSEV+9*, GETSEV+11, GETSEVI+8* |
ARRAY("" | GETSEV+11, GETSEVI+10 |
DACNT | TMP+2~, TMP+5*, TMPSET+1*, TMPSET+8, TMPSET+9, TMPSET+10, TMPSET+21, TMPSET+29, TMPSET+35 |
DATEI | TMPSET+1~, TMPSET+5*, TMPSET+9 |
>> DFN | GETSYMNM+12, BIGARRAY+44 |
GMRADRCL | DRGCLASS+1! |
GMRADRCL("R1" | DRGCLASS+2* |
GMRADRCL("R2" | DRGCLASS+3* |
GMRAING | DRGCLASS+1! |
GMRAING("R1" | SINGLE+3* |
GMRAING("R10" | MULTI+3* |
GMRAING("R11" | MULTI+4* |
GMRAING("R12" | MULTI+5* |
GMRAING("R2" | SINGLE+4* |
GMRAING("R3" | SINGLE+5* |
GMRAING("R4" | SINGLE+6* |
GMRAING("R7" | MULTI+1* |
GMRAING("R8" | MULTI+2* |
GMRAL | GETSYMNM+16~, GETSYMNM+19! |
GMRAL( | GETSYMNM+18 |
GMRAREAC | DRGCLASS+1! |
GMRARSLT | SORTM+5, GETSEV~, GETSEV+3, BIGARRAY+1!, BIGARRAY+2* |
GMRARSLT( | SORTN+10, SORTN+15, SORTM+3, SORTM+4, SORTM+10, SORTM+15, SORTM+16, SORTM+18, SORTM+19, SORTM+20 , SORTM+38, TMP+15, TMPSET+13, TMPSET+16, TMPSET+24, TMPSET+25, GETSEV+5, GETSEV+7, GETSEV+8 |
GMRARSLT(1 | BIGARRAY+3*, BIGARRAY+4*, BIGARRAY+5*, BIGARRAY+6*, BIGARRAY+7*, BIGARRAY+8* |
GMRARSLT(2 | BIGARRAY+9*, BIGARRAY+10*, BIGARRAY+11*, BIGARRAY+12*, BIGARRAY+13*, BIGARRAY+14*, BIGARRAY+15*, BIGARRAY+16*, BIGARRAY+17* |
GMRARSLT(3 | BIGARRAY+18*, BIGARRAY+19*, BIGARRAY+20*, BIGARRAY+21*, BIGARRAY+22*, BIGARRAY+23* |
GMRARSLT(4 | BIGARRAY+24*, BIGARRAY+25*, BIGARRAY+26*, BIGARRAY+27*, BIGARRAY+28*, BIGARRAY+29*, BIGARRAY+30*, BIGARRAY+31* |
GMRARSLT(5 | BIGARRAY+32*, BIGARRAY+33*, BIGARRAY+34*, BIGARRAY+35*, BIGARRAY+36*, BIGARRAY+37* |
GMRARSLT(6 | BIGARRAY+38*, BIGARRAY+39*, BIGARRAY+40*, BIGARRAY+41*, BIGARRAY+42*, BIGARRAY+43* |
GMRARSLT(7 | BIGARRAY+45*, BIGARRAY+46*, BIGARRAY+47*, BIGARRAY+48*, BIGARRAY+49*, BIGARRAY+50* |
I | GETSEV+1~, GETSEV+6*, GETSEV+7*, GETSEV+8, GETSEV+11*, GETSEVI+1~, GETSEVI+6*, GETSEVI+10* |
II | TMPSET+1~, TMPSET+19~, TMPSET+20*, TMPSET+21, TMPSET+27~, TMPSET+28*, TMPSET+29 |
III | SORTM+39~*, TMPSET+1~ |
INGLOC | SORTN+1~, SORTM+2*, SORTM+15*, SORTM+21, SORTM+24 |
INGRED | SORTN+1~, SORTM+38*, SORTM+39*, SORTM+40, SORTM+42, TMPSET+28*, TMPSET+29 |
INGREDS | SORTN+1~, SORTN+2~, SORTM+2*, SORTM+38*, SORTM+39, TMPSET+25*, TMPSET+26*, TMPSET+28 |
INGREDZ | SORTN+2~, SORTM+37*, SORTM+38, SORTM+41 |
J | GETSEVI+1~, GETSEVI+6*, GETSEVI+7, GETSEVI+8 |
K | GETSEVI+1~, GETSEVI+7*, GETSEVI+8 |
LOCREM | TMP+2~, TMP+13*, TMP+14*, TMPSET+8 |
OLDDATA | SORTM+28*, SORTM+29*, SORTM+30, TMP+2~ |
ORRDIEN | GETSYMNM+9~, GETSYMNM+10*, GETSYMNM+11, GETSYMNM+12 |
>> PSJALGCT | TMPSET+10, TMPSET+21, TMPSET+29, TMPSET+35, TMPSET+37, TMPSET+38 |
>> PSJAOC | TMPSET+38 |
PSOACNT | SORTN+1~ |
PSOAFEND | SORTN+1~ |
PSOAFLG | SORTN+1~ |
PSOASEV | TMP+3~ |
PSOATYP | TMP+2~, TMP+5*, TMP+16*, TMP+17*, TMPSET+12, TMPSET+15, TMPSET+37 |
PSOATYPE | SORTN+2~, SORTN+14*, SORTN+15*, SORTM+25, SORTM+27, SORTM+29, SORTM+31, SORTM+32, SORTM+33, SORTM+34 , SORTM+40, SORTM+42, SYM+4, SYM+5, SYM+14, SYM+15, TMP+5*, TMP+7*, TMP+8*, TMP+10 , TMP+16, TMP+17, TMPSET+33, TMPSET+35 |
PSOCA | SORTN+7!, SORTM+28*, SORTM+31*, SORTM+32 |
PSOCA2 | SORTN+1~ |
PSOCAGNT | SORTN+7! |
PSOCAGNT( | SORTM+27, SORTM+29, SORTM+31, SORTM+32*, SORTM+33, SORTM+34*, SORTM+40*, SORTM+42! |
PSOCDATE | SORTN+1~, SORTM+16*, SORTM+17*, SORTM+21 |
PSODGCL | SORTN+2~, TMP+3~, TMPSET+4*, TMPSET+13*, TMPSET+14*, TMPSET+18*, TMPSET+20*, TMPSET+21 |
PSODGCL1 | SORTN+2~ |
PSODGCLS | SORTN+2~, TMPSET+16*, TMPSET+17*, TMPSET+20 |
>> PSODRCL | SORTN+13*, SORTN+15*, SORTM+42, TMP+13*, TMP+17* |
>> PSODRCL1( | SORTM+42* |
>> PSODRUG("IEN" | TMPSET+37 |
PSOHIS | TMP+3~ |
PSOHISI | TMP+3~, TMPSET+2*, TMPSET+9 |
PSOINSTL | TMP+3~ |
PSOLCLAC | TMP+2~, TMP+5* |
PSOLCLAS | TMP+2~ |
PSOLOC | SORTN+2~, SORTM+2*, SORTM+4* |
PSOLOCAL | TMP+2~, TMPSET+4* |
PSOLOCI | TMP+3~, TMPSET+4* |
PSOMEDL | TMP+3~ |
PSOONEA | SORTM+1~ |
PSOPAIEN | TMP+2~, TMP+5*, TMP+12*, TMP+15, TMPSET+13, TMPSET+16, TMPSET+24, TMPSET+25 |
PSOQX | SYM+7~, SYM+9*, SYM+10, SYM+12 |
PSOREACT | SORTN+1~, SORTM+2*, SORTM+19*, SORTM+25, SORTM+27, SORTM+29, SORTM+31, SORTM+32, SORTM+33, SORTM+34 , SORTM+40, SORTM+42, SYM+4, SYM+5, SYM+14, SYM+15, TMP+2~, TMP+4~, TMP+5*, TMP+8* , TMP+10, TMPSET+8, TMPSET+33, TMPSET+35 |
PSOSARRY | SORTN+2~ |
PSOSARRY( | SORTM+25*, SYM+5*, SYM+15*, TMP+6, TMP+8, TMP+10, TMPSET+33, TMPSET+35 |
PSOSDATA | SORTN+1~, SORTM+2*, SORTM+11*, SORTM+21*, SORTM+30, SORTM+31, SORTM+34 |
PSOSEV | SORTN+7!, SORTM+2*, SORTM+5*, SORTM+6, SORTM+7 |
PSOSEVER | TMP+2~, TMP+5*, TMP+6*, TMP+8, TMP+10, TMPSET+33, TMPSET+35 |
PSOSEVI | TMP+3~, TMPSET+3*, TMPSET+9 |
PSOSEVP | SORTN+7!, SORTM+7* |
PSOSEVT | SORTM+2*, SORTM+6*, SORTM+8, SORTM+9, TMP+3~ |
>> PSOSEVT1("S" | SORTM+9* |
>> PSOSITT | SORTM+2*, SORTM+20*, SORTM+21, SORTM+24 |
PSOSORT | SORTN+7! |
PSOSSITE | SORTN+2~, SORTM+2*, SORTM+3*, SORTM+4, SORTM+5, SORTM+24, GETSEV~, GETSEV+4, GETSEV+7, GETSEV+8 |
PSOSTA | TMP+3~ |
PSOSTYP | SORTN+7!, SORTM+2*, SORTM+8*, SORTM+25, SORTM+27, SORTM+29, SORTM+31, SORTM+32, SORTM+33, SORTM+34 , SORTM+40, SORTM+42, SYM+4, SYM+5, SYM+14, SYM+15, TMP+3~ |
PSOSTYPI | TMP+3~ |
PSOSYM | SORTN+1~, SORTM+2*, SORTM+18*, SYM+1, SYM+2, SYM+4, SYM+5, SYM+6, SYM+8*, SYM+9 , SYM+10, TMP+5* |
PSOSYM("Name" | SYM+2*, SYM+3, SYM+4, SYM+5, SYM+12*, SYM+13, SYM+14, SYM+15 |
PSOSYMN | TMPSET+32~*, TMPSET+33*, TMPSET+35 |
>> PSOSYMS | SORTN+8* |
>> PSOSYMS( | SYM+4*, SYM+14* |
>> PSOTSTMD | SORTN+5, TSTREM+5, TSTREM+6, TSTREM+7, TSTREM+8 |
PSOUCS | UPPER~, UPPER+1 |
PSOY | SYM+7~, SYM+10*, SYM+11, SYM+12, SYM+14, SYM+15 |
PTR | TMPSET+1~, TMPSET+6*, TMPSET+8 |
RESULT | GETSEV+1~, GETSEV+2*, GETSEV+3, GETSEV+4, GETSEV+5, GETSEV+11*, GETSEV+12, GETSEVI+1~, GETSEVI+2*, GETSEVI+5 , GETSEVI+10*, GETSEVI+11, GETSYMNM+1~, GETSYMNM+2*, GETSYMNM+3, GETSYMNM+4, GETSYMNM+5, GETSYMNM+7, GETSYMNM+12*, GETSYMNM+14 , GETSYMNM+18*, GETSYMNM+20 |
SETTMP | SORTN+2~, TMPSET+1! |
SETTMP( | TMPSET+8*, TMPSET+9*, TMPSET+10 |
SEV | GETSEV+1~, GETSEV+8*, GETSEV+9, GETSEVI+1~, GETSEVI+3*, GETSEVI+4*, GETSEVI+5, GETSEVI+6 |
SEVT | SORTN+1~ |
SITE | TMP+3~, TMP+13*, TMP+14*, TMPSET+8 |
SITEARY | SORTM+1~, SORTM+23*, SORTM+24*, SORTM+25, SYM+5, SYM+15 |
SITENM | TMP+2~, TMP+5*, TMP+13*, TMP+14* |
STYP | SORTN+1~ |
SYMCNT | TMPSET+32~*, TMPSET+34*, TMPSET+35 |
SYMIEN | GETSYMNM~, GETSYMNM+4, GETSYMNM+6 |
SYMINC | GETSYMNM~, GETSYMNM+5, GETSYMNM+12, GETSYMNM+18 |
TYPE | TMP+2~, TMP+5*, TMP+6*, TMP+8, TMP+10, TMP+14, TMPSET+33, TMPSET+35 |
U | SORTM+3, SORTM+4, SORTM+15, SORTM+16, SORTM+18, SORTM+19, SORTM+20, TMPSET+2, TMPSET+5, TMPSET+6 , TMPSET+8, TMPSET+9, GETSEV+8, GETSEVI+3, GETSYMNM+12 |
ZALL | SORTN+1~, SORTN+8*, SORTN+11*, SORTN+12, SORTM+3, SORTM+4, TMP+5*, TMP+13*, TMP+15*, TMP+18 , TMPSET+2, TMPSET+3, TMPSET+4, TMPSET+5, TMPSET+6, TMPSET+37, GETSEVI~, GETSEVI+3 |
ZCDATE | SORTN+1~ |
ZCNT | SORTN+2~, SORTN+3* |
ZCNT2 | TMP+2~, TMP+5* |
ZGMRA | SORTN+2! |
ZING | SORTN+2~, SORTN+8* |
ZLOC | SORTN+1~ |
ZMSG | SORTN+2~, SORTN+8*, SORTN+10*, SORTN+11, SORTN+15, SORTM+3, SORTM+4, SORTM+5, SORTM+10, SORTM+14 , SORTM+15, SORTM+16, SORTM+18, SORTM+19, SORTM+20, SORTM+21, SORTM+25, SORTM+38, SYM+5, SYM+15 , TMP+4~, TMP+9*, TMP+10*, TMP+11, TMP+12, TMP+15, TMPSET+13, TMPSET+16, TMPSET+24, TMPSET+25 , TMPSET+33, TMPSET+35, GETSEV~, GETSEV+5, GETSEV+7, GETSEV+8 |
ZSITE | SORTM+1~, SORTM+13* |
ZSITES | SORTM+1~, SORTM+10*, SORTM+13 |
ZXX | SORTN+2~ |
ZYALL | SORTM+1~, SORTM+12*, SORTM+14*, SORTM+15, SORTM+16, SORTM+18, SORTM+20, SYM+2, SYM+12, GETSYMNM~ , GETSYMNM+3, GETSYMNM+7, GETSYMNM+10, GETSYMNM+14, GETSYMNM+18 |