Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSSPGXUT

Package: Pharmacy Data Management

Routine: PSSPGXUT


Information

PSSPGXUT ;BIR/RTR - PHARMACOGENOMICS UTILITY ROUTINE ;09/20/07

Source Information

Source file <PSSPGXUT.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Pharmacy Data Management 5 OUTPUT^PSSHRIT  GENETBL^PSSPGX  PGXMAIN^PSSPGX1  INC^PSSPGXPR  ($$EMAILDT,$$PGXEMAIL,WRT)^PSSPGXU2  
Kernel 1 $$UP^XLFSTR  
MailMan 1 ^XMD  
Registration 1 $$SITE^VASITE  
VA FileMan 1 ^DIWP  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Pharmacy Data Management 4 PSSHDPG1  PSSHRIT  PSSPGXPR  PSSPGXTS  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,^TMP($J,"PSSXWARN",PSSDS1,PSSDX,PSSDXC)
  • Line Location: PGXCHK+27
Function Call: WRITE
  • Prompt: !,^TMP($J,"PSSXWARN",PSSDS1,PSSDX,PSSDXC)
  • Line Location: PGXCHK+28

Global Variables Directly Accessed

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!

Label References

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

Local Variables

Legend:

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

Marked Items

Name Field # of Occurrence
$T( PGXCHK+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All