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 |
| 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 |