PSSPGXUT ;BIR/RTR - PHARMACOGENOMICS UTILITY ROUTINE ;09/20/07
Source file <PSSPGXUT.m>
| 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 |
|---|---|---|
| Pharmacy Data Management | 4 | PSSHDPG1 PSSHRIT PSSPGXPR PSSPGXTS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DATA(PSSGNPH,PSSRESUL) | ;Validate HDR Gene and Phenotype data to send to vendor
|
|
| GENE(PSSGNE) | ;Find vendor gene equivalent
|
|
| PHEN(PSSPNT) | ;Find vendor phenotype equivalent
|
|
| MESS | ;Send message of unresolvable genes/phenotypes to Pharmacy Benefits Management
|
|
| COMM | ;
|
|
| ADD | ;
|
|
| ADDLN | ;
|
|
| ERR | ; Check for HDR & Vender errors
|
|
| SETDGR | ;Set drugGeneReference data for Additional Information output
|
|
| HDRERR | ;Unable to retrieve Lab results from the HDR
|
|
| FDBERR | ;Unexpected error from vendor database
|
|
| SETERR(PSSTEMPX,PSSACT,PSSXCT,PSSXL) | ;Unable to retrieve Lab results from the HDR
|
|
| FORMAT(X) | ;
|
|
| DRGLST(PSSTEMPX) | ;Compile drug names for into text
|
|
| LABRSLT | ;Set PGx lab result in ^TMP
|
|
| NOCONN | ;Both HDR & FDB are not connecting
|
|
| PGXCHK() | ; check pgx called from PSSHRIT - pss*1*262
; Return 1 if OK, 0 if not OK. |
|
| URL | ;Set URL info for PGx check
|
|
| SUPP() | ;Suppress if disabled in CPRS - called from PSSPGXPR
|
|
| SCR | ;Set screen message text from PSSPGXPR
|
| Name | Field # of Occurrence |
|---|---|
| ^DIWP | FORMAT+4 |
| OUTPUT^PSSHRIT | PGXCHK+19, PGXCHK+20, PGXCHK+22 |
| GENETBL^PSSPGX | FDBERR+7 |
| PGXMAIN^PSSPGX1 | PGXCHK+13 |
| INC^PSSPGXPR | HDRERR+4, FDBERR+5, FDBERR+6, FORMAT+7, LABRSLT+3, LABRSLT+5, LABRSLT+6, LABRSLT+7, LABRSLT+9, NOCONN+5 , URL+1, URL+2, URL+3 |
| $$EMAILDT^PSSPGXU2 | COMM+8 |
| $$PGXEMAIL^PSSPGXU2 | MESS+2 |
| WRT^PSSPGXU2 | MESS+19 |
| $$SITE^VASITE | MESS+3 |
| $$UP^XLFSTR | GENE+5, PHEN+5 |
| ^XMD | MESS+22 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(51.26 - [#51.26] | GENE+6, GENE+8 |
| ^PS(51.28 - [#51.28] | PHEN+6, PHEN+8 |
| ^PS(59.7 - [#59.7] | LABRSLT+8, URL+2 |
| ^TMP("PSSPGXBS" | SETDGR+1, SETDGR+2, SETDGR+3, SETDGR+4, SETDGR+5, SETDGR+6, SETDGR+7, SETDGR+8, SETDGR+9, SETDGR+10 , SETDGR+11, SETDGR+12, SETDGR+13 |
| ^TMP($J | HDRERR+4*, HDRERR+5*, FDBERR+5*, FDBERR+6*, FORMAT+7*, LABRSLT+3*, LABRSLT+5*, LABRSLT+6*, LABRSLT+7*, LABRSLT+9* , NOCONN+5*, NOCONN+6*, PGXCHK+16, PGXCHK+18, PGXCHK+23, PGXCHK+24, PGXCHK+25, PGXCHK+26!, PGXCHK+27, PGXCHK+28 , PGXCHK+30, URL+1*, URL+2*, URL+3* |
| ^UTILITY($J | FORMAT+3!, FORMAT+5, FORMAT+6, FORMAT+7, FORMAT+8! |
| Name | Line Occurrences |
|---|---|
| $$DRGLST | SETERR+5 |
| $$GENE | DATA+7 |
| $$PHEN | DATA+8 |
| ADD | MESS+10, MESS+16, MESS+17, COMM+14, COMM+15, COMM+16, COMM+17, COMM+18 |
| ADDLN | MESS+7, MESS+9, MESS+13, MESS+15 |
| COMM | MESS+11, MESS+18 |
| FDBERR | ERR+4 |
| FORMAT | SETERR+6 |
| HDRERR | ERR+3 |
| LABRSLT | FDBERR+7 |
| MESS | DATA+10 |
| NOCONN | ERR+2 |
| SETERR | HDRERR+3, FDBERR+4, NOCONN+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BASE | PGXCHK+2~, PGXCHK+8*, PGXCHK+13 |
| DIFROM | MESS+22~ |
| >> DIWF | FORMAT+2* |
| >> DIWL | FORMAT+2* |
| >> DIWR | FORMAT+2* |
| DRGIEN | PGXCHK+2~ |
| DRGNM | PGXCHK+2~, PGXCHK+5*, PGXCHK+10, PGXCHK+15 |
| DRUG | PGXCHK+2~ |
| DT | COMM+23 |
| DUZ | MESS+22~ |
| GENE | PGXCHK+2~, PGXCHK+6*, PGXCHK+9, PGXCHK+15 |
| GENES | PGXCHK+2~, PGXCHK+13 |
| GENES( | PGXCHK+9* |
| INFO | PGXCHK+2~ |
| INTRO | PGXCHK+2~, PGXCHK+15*, PGXCHK+16*, PGXCHK+19, PGXCHK+22 |
| PSSACT | ERR+1~, HDRERR+1*, HDRERR+3, HDRERR+4, HDRERR+5, FDBERR+1*, FDBERR+4, FDBERR+5, FDBERR+6, SETERR~ , SETERR+4*, FORMAT+7, LABRSLT+3, LABRSLT+5, LABRSLT+6, LABRSLT+7, LABRSLT+9, NOCONN+1*, NOCONN+4, NOCONN+5 , NOCONN+6, URL+1, URL+2, URL+3 |
| >> PSSCAT2 | SETDGR+2*, SETDGR+3, SETDGR+4, SETDGR+5, SETDGR+6, SETDGR+7, SETDGR+8, SETDGR+9, SETDGR+10, SETDGR+11 , SETDGR+12, SETDGR+13 |
| PSSCNT | LABRSLT+1~, LABRSLT+4*, LABRSLT+5 |
| PSSCPSOV | PGXCHK+2~, PGXCHK+6* |
| PSSCR | GENE+2~, GENE+6* |
| PSSCRT | PHEN+2~, PHEN+6* |
| PSSCTR | DATA+3~, DATA+4*, DATA+5, DATA+7, DATA+8, GENE+4, GENE+7, GENE+8, PHEN+4, PHEN+7 , PHEN+8 |
| >> PSSDFN | MESS+2, MESS+19, COMM+8 |
| PSSDS1 | PGXCHK+2~, PGXCHK+23*, PGXCHK+24, PGXCHK+25, PGXCHK+26, PGXCHK+27, PGXCHK+28 |
| PSSDX | PGXCHK+2~, PGXCHK+24*, PGXCHK+25, PGXCHK+26, PGXCHK+27, PGXCHK+28 |
| PSSDXC | PGXCHK+2~, PGXCHK+6*, PGXCHK+25*, PGXCHK+26, PGXCHK+27, PGXCHK+28 |
| PSSEDT | COMM+1~, COMM+8*, COMM+16 |
| PSSEL | ERR+1~, DRGLST+2*, DRGLST+3 |
| PSSELCT | ERR+1~, DRGLST+1~, DRGLST+2*, DRGLST+4*, DRGLST+5 |
| PSSELDNM | ERR+1~, DRGLST+1~, DRGLST+3*, DRGLST+4 |
| PSSELOG | DATA+3~, MESS+19 |
| PSSELOG( | COMM+23* |
| PSSERRDR | ERR+1~, DRGLST+1~, DRGLST+2*, DRGLST+4*, DRGLST+5 |
| >> PSSFDBFG | ERR+2, ERR+4, FDBERR+5 |
| >> PSSGDT | FDBERR+7 |
| >> PSSGENE | COMM+3*, COMM+23 |
| PSSGENEX | COMM+1~, COMM+4*, COMM+8 |
| PSSGENEZ | COMM+1~, COMM+3*, COMM+21 |
| PSSGIEN | GENE+2~, GENE+3*, GENE+6*, GENE+7, GENE+8 |
| PSSGNDAT | DATA+3~, DATA+5*, DATA+6*, DATA+7 |
| PSSGNE | GENE~, GENE+4, GENE+5, GENE+7, GENE+8 |
| PSSGNEC | GENE+2~, GENE+5*, GENE+6 |
| PSSGNPH | DATA~ |
| PSSGNPH( | DATA+4, DATA+5, COMM+9, COMM+10, COMM+11 |
| PSSGNPH(1 | MESS+19 |
| PSSGPFLG | COMM+1~, COMM+21*, COMM+23 |
| PSSGRSLT | GENE+2~, GENE+8*, GENE+9 |
| >> PSSGTBL | LABRSLT+3, LABRSLT+4 |
| >> PSSGTBL( | LABRSLT+4, LABRSLT+5 |
| >> PSSHDRFG | ERR+2, ERR+3, FDBERR+7 |
| PSSICN | MESS+2, COMM+1~, COMM+9*, COMM+14 |
| PSSICT | MESS+1~, MESS+3*, MESS+8, MESS+10, MESS+14, MESS+16, MESS+17, COMM+14, COMM+15, COMM+16 , COMM+17, COMM+18, ADD+1*, ADDLN+1*, ADDLN+2, ADDLN+3* |
| PSSINLP | MESS+1~, MESS+6*, MESS+10, MESS+12*, MESS+16, MESS+17, COMM+2, COMM+5, COMM+9, COMM+10 , COMM+11 |
| PSSINV | DATA+3~, DATA+9, MESS+2 |
| PSSINV("G" | GENE+4*, GENE+7*, GENE+8*, MESS+6 |
| PSSINV("P" | PHEN+4*, PHEN+7*, PHEN+8*, MESS+12 |
| PSSLEFT | PGXCHK+3~*, PGXCHK+20 |
| PSSLOC | COMM+1~, COMM+12*, COMM+18, COMM+23 |
| PSSNOFDB | DATA+3~, DATA+8, PHEN+3*, PHEN+8* |
| >> PSSOPTFG | LABRSLT+2 |
| >> PSSORSUP | SUPP+2, SUPP+3 |
| >> PSSPGXDG( | DRGLST+2, DRGLST+3 |
| PSSPGXID | COMM+1~, COMM+11*, COMM+17 |
| PSSPGXST | MESS+1~, MESS+3*, MESS+5, COMM+12 |
| >> PSSPH1 | SETDGR+1, SETDGR+2, SETDGR+3, SETDGR+4, SETDGR+5, SETDGR+6, SETDGR+7, SETDGR+8, SETDGR+9, SETDGR+10 , SETDGR+11, SETDGR+12, SETDGR+13 |
| >> PSSPH5 | SETDGR+1, SETDGR+2 |
| >> PSSPH6 | SETDGR+1*, SETDGR+2, SETDGR+3, SETDGR+4, SETDGR+5, SETDGR+6, SETDGR+7, SETDGR+8, SETDGR+9, SETDGR+10 , SETDGR+11, SETDGR+12, SETDGR+13 |
| >> PSSPHAR( | SCR+1 |
| PSSPHDAT | DATA+3~, DATA+5*, DATA+6*, DATA+8 |
| PSSPIEN | PHEN+2~, PHEN+3*, PHEN+6*, PHEN+7, PHEN+8 |
| PSSPKG | COMM+1~, COMM+22*, COMM+23 |
| PSSPNT | PHEN~, PHEN+4, PHEN+5, PHEN+7, PHEN+8 |
| PSSPNTC | PHEN+2~, PHEN+5*, PHEN+6 |
| PSSPRSLT | PHEN+2~, PHEN+8*, PHEN+9 |
| PSSPTPEX | COMM+1~, COMM+7*, COMM+8 |
| >> PSSPTYPE | COMM+6*, COMM+23 |
| PSSQLC | FORMAT+1~ |
| >> PSSQLRF | FORMAT+2 |
| PSSRDT | COMM+1~, COMM+10*, COMM+15 |
| PSSRESUL | DATA~, MESS+2 |
| PSSRESUL( | DATA+7*, DATA+8*, MESS+10, MESS+16, MESS+17, COMM+2, COMM+5 |
| >> PSSSUB1 | SCR+1 |
| >> PSSSUPFL | SUPP+1*, SUPP+2*, SUPP+3* |
| >> PSSTCNTV | SUPP+2, SUPP+3 |
| PSSTEMPX | ERR+1~, HDRERR+2*, HDRERR+3, FDBERR+3*, FDBERR+4, SETERR~, SETERR+1, SETERR+5*, SETERR+6, FORMAT+8! , DRGLST~, DRGLST+5*, DRGLST+6, NOCONN+3*, NOCONN+4, SCR+1* |
| PSSTENEZ | COMM+1~, COMM+6*, COMM+21 |
| >> PSSURL | LABRSLT+8*, LABRSLT+9, URL+2 |
| PSSW1 | FORMAT+1~, FORMAT+5*, FORMAT+6, FORMAT+7 |
| PSSW2 | FORMAT+1~, FORMAT+6*, FORMAT+7 |
| PSSX | COMM+1~, COMM+2*, COMM+3, COMM+4, COMM+5*, COMM+6, COMM+7 |
| PSSXCT | ERR+1~, HDRERR+1*, HDRERR+3, HDRERR+4, HDRERR+5, FDBERR+2*, FDBERR+4, FDBERR+5, FDBERR+6, SETERR~ , SETERR+2*, FORMAT+7, LABRSLT+3, LABRSLT+5, LABRSLT+6, LABRSLT+7, LABRSLT+9, NOCONN+2*, NOCONN+4, NOCONN+5 , NOCONN+6, URL+1, URL+2, URL+3 |
| >> PSSXDATA("AUTHOR" | SETDGR+5* |
| >> PSSXDATA("ISSUE" | SETDGR+10* |
| >> PSSXDATA("ISSUEDT" | SETDGR+8* |
| >> PSSXDATA("LOCATION" | SETDGR+7* |
| >> PSSXDATA("NAME" | SETDGR+6* |
| >> PSSXDATA("PAGE" | SETDGR+11* |
| >> PSSXDATA("PUBMEDID" | SETDGR+12* |
| >> PSSXDATA("TITLE" | SETDGR+3* |
| >> PSSXDATA("TYPE" | SETDGR+4* |
| >> PSSXDATA("URL" | SETDGR+13* |
| >> PSSXDATA("VOLUME" | SETDGR+9* |
| PSSXL | ERR+1~, HDRERR+1*, HDRERR+3, HDRERR+4, HDRERR+5, FDBERR+2*, FDBERR+4, FDBERR+5, FDBERR+6, SETERR~ , SETERR+3*, FORMAT+7, LABRSLT+3, LABRSLT+5, LABRSLT+6, LABRSLT+7, LABRSLT+9, NOCONN+2*, NOCONN+4, NOCONN+5 , NOCONN+6, URL+1, URL+2, URL+3, SCR+1 |
| PSSXTEXT | MESS+1~ |
| PSSXTEXT( | MESS+8*, MESS+10*, MESS+14*, MESS+16*, MESS+17*, COMM+14*, COMM+15*, COMM+16*, COMM+17*, COMM+18* , ADDLN+2* |
| VAL | PGXCHK+2~ |
| X | FORMAT~ |
| X1 | PGXCHK+2~, PGXCHK+13 |
| X1(1 | PGXCHK+10*, PGXCHK+11*, PGXCHK+12* |
| XMDUZ | MESS+1~, MESS+4* |
| XMMG | MESS+1~ |
| XMROU | MESS+1~ |
| XMSTRIP | MESS+1~ |
| XMSUB | MESS+1~, MESS+5* |
| XMTEXT | MESS+1~, MESS+20* |
| XMY | MESS+1~ |
| XMY("VHAPBMCDSPGX@domain.ext" | MESS+21* |
| XMYBLOB | MESS+1~ |
| XMZ | MESS+1~ |
| >> XQY0 | COMM+22 |
| Name | Field # of Occurrence |
|---|---|
| $T( | PGXCHK+8 |