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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSNAPIS

Package: National Drug File

Routine: PSNAPIS


Information

PSNAPIS ;BIR/DMA-APIs for NDF ; 27 Jan 2010 7:44 AM

Source Information

Source file <PSNAPIS.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 NOW^%DTC  IX^DIC  $$GET1^DIQ  
Kernel 1 $$RJ^XLFSTR  
National Drug File 1 $$CPTIER^PSNAPIS  
Pharmacy Data Management 1 NDF^PSS50  

Caller Graph

Caller Graph Total: 148

Package Total Caller Graph
Pharmacy Data Management 54 PSS117EN  PSS147PO  PSS160EN  PSSADDIT  PSSCPRS  PSSCPRS1  PSSCREAT  PSSDEE  
PSSDEE1  PSSDENT  PSSDIUTL  PSSDOS  PSSDOSED  PSSDOSER  PSSDOSLZ  PSSDOSRP  
PSSDRDOS  PSSDSAPA  PSSDSAPD  PSSDSAPI  PSSDSAPK  PSSDSAPM  PSSDSBBP  PSSDSPOP  
PSSDSUTL  PSSDTR  PSSHLDFS  PSSHRVL1  PSSLDALL  PSSLDEDT  PSSLDOSE  PSSLOOK  
PSSMARK  PSSOIDOS  PSSOPKI1  PSSORPH  PSSORUTL  PSSORUTZ  PSSPNSRP  PSSPOI  
PSSPOIC  PSSPOIKA  PSSPOIM  PSSPOIM2  PSSPOIMN  PSSSCHRP  PSSSOLI1  PSSSPD  
PSSTRENG  PSSUTIL  PSSUTIL1  PSSUTIL3  PSSUTLPR  PSSUTLPZ  
Outpatient Pharmacy 25 PSOCP  PSOCPB  PSOCPBA2  PSOCPBK2  PSOCPBK4  PSOCPIBC  PSODDPR4  PSODDPR5  
PSODDPR8  PSODDPRE  PSODGDGI  PSOFDAUT  PSOHLDS1  PSOHLNE3  PSOHLSG1  PSOHLSN1  
PSOHLSNC  PSOORDER  PSOORDRG  PSOORRDI  PSOORROC  PSORELD1  PSORLLLI  PSOSUTL  
PSOVDF2  
CMOP 12 PSXBLD  PSXBLD1  PSXCMOP  PSXCMOP1  PSXCOSTU  PSXDENT  PSXDODQY  PSXLBL1  
PSXMISC1  PSXNOCMP  PSXUNREL  PSXVPN  
National Drug File 12 PSNACT  PSNAPIS  PSNFDAMG  PSNHIT  PSNLOOK  PSNMRG  PSNNGR  PSNOUT  
PSNPPSNW  PSNPSS  PSNSTCK  PSNVFY  
Adverse Reaction Tracking 10 GMRAFX2  GMRAGUI1  GMRAIAL2  GMRAOR  GMRAOR0  GMRAOR3  GMRAOR9  GMRAPES0  
GMRAPES1  GMRARAD1  
Inpatient Medications 7 PSGOE7  PSJHL3  PSJMISC  PSJORUT2  PSJORUTL  PSJPADE  PSJPDCLU  
DSS Extracts 6 ECXFEKEY  ECXNDC  ECXOPRX  ECXPIVD  ECXPIVDN  ECXUD  
Pharmacy Benefits Management 5 PSUAR2  PSUCS4  PSUOP3  PSUUD1  PSUV1  
Clinical Reminders 4 PXRMDGEN  PXRMDRCL  PXRMDRUG  PXRMPSN  
Order Entry Results Reporting 4 ORBCMA32  ORWDAL32  ORWDPS2  ORWDPS33  
Drug Accountability 2 PSANDF  PSATI  
Accounts Receivable 1 RCDPURED  
Clinical Case Registries 1 RORPUT02  
Enterprise Health Management Platform 1 HMPCORD5  
Health Summary 1 GMTSPST2  
Integrated Billing 1 IBAUTL  
PCE Patient Care Encounter 1 PXVNDC  
VA Point of Service 1 VPSPDO2M  

Entry Points

Name Comments DBIA/ICR reference
PROD0(P1,P2) ;GET INFO IN THE FORM OF THE OLD 0 PRODUCT NODE
  • ICR #2531
    • Status: Active
    • Usage: Supported
    VAP(DA,LIST) ;GIVEN GENERIC RETURN ARRAY LIST(IEN)=IEN^PRODUCT^DF PTR^DOSE FOMR^CLIEN^CLASS^INACTIVE^TIER
  • ICR #2531
    • Status: Active
    • Usage: Supported
    FORMRX(DA,K,LIST) ;RETURN X=1 FOR RESTRICTIONS, 0 FOR NO
  • ICR #2574
    • Status: Active
    • Usage: Supported
    CPTIER(VAPIEN,DATE,PSNDRIEN,PSNCINQS) ; RETURN COPAY TIER INFORMATION (FMCT)
  • ICR #2531
    • Status: Active
    • Usage: Supported
    DSS(DA,K,DATE) ;RETURN DSS FEEDER KEY
  • ICR #2531
    • Status: Active
    • Usage: Supported
    PSPT(DA,K,LIST) ;GIVEN PRODUCT K RETURN LIST(INE1^IEN2)=IEN1^PSIZE^IEN1^PTYPE
  • ICR #2531
    • Status: Active
    • Usage: Supported
    DDIEX(DA,K) ;RETURN X=1 FOR EXCLUDE DDI CHECK, 0 FOR CONTINUE DDI CHECK
  • ICR #2574
    • Status: Active
    • Usage: Supported
    TGTOG2(NAME,LIST) ;PARTIAL LOOKUP ON T OR B
  • ICR #2574
    • Status: Active
    • Usage: Supported
    CIRN2(P1,P3,LIST) ;RETURN LIST OF NDCS FOR A PRODUCT
  • ICR #2574
    • Status: Active
    • Usage: Supported
    CPTIER3(RETURN,DATE,PSNDRIEN) ;
    ;
    CLASS2(IEN) ;RETURNS FIRST 2 PIECES OF ZERO NODE OF 50.605
  • ICR #2574
    • Status: Active
    • Usage: Supported
    TGTOG(NAME) ;GIVEN NAME TRY TO FIND IT IN T OR B CROSS REFERENCE AND RETURN IEN
  • ICR #2574
    • Status: Active
    • Usage: Supported
    FORMI(DA,K) ;GET FORMULARY INDICATOR FOR VA PRODUCT
  • ICR #2574
    • Status: Active
    • Usage: Supported
    DRGCLS(IEN) ; return class and parent class for NDC
    ; Input: IEN - (required) internal entry number of NDC in file 50.67
    ;
    ; Output: Drug Class code^Parent Class
  • ICR #2531
    • Status: Active
    • Usage: Supported
    CMOP(CODE) ;CODE = 5 CHARACTER CMOP CODE RETURNS PRODUCT NAME
  • ICR #2531
    • Status: Active
    • Usage: Supported
  • ICR #2574
    • Status: Active
    • Usage: Supported
    PSJDF(DA,K) ;GET DOSE FORM
  • ICR #2531
    • Status: Active
    • Usage: Supported
    CLASS(CL) ;ENTRY FOR OE/RR TO GET CLASS $D
  • ICR #2531
    • Status: Active
    • Usage: Supported
    CPTIER2(RETURN,DATE,VAPIEN) ;
    DFSU(DA,K) ;RETURN DOSE FORM, STRENGTH, AND UNITS FOR PDM AND CPRS
  • ICR #2531
    • Status: Active
    • Usage: Supported
    PROD2(P1,P2) ;GET OLD 2 NODE
  • ICR #2531
    • Status: Active
    • Usage: Supported
    QLIST(SCR) ; executable help ("?" or "??") for fields that store NDC codes
    ; Input: SCR - (optional) M code for value of DIC("S") - If SCR is not
    ; defined, all active entries will be returned
  • ICR #2531
    • Status: Active
    • Usage: Supported
    FORMR(DA,K) ;GET EXISTENCE OF FORMULARY RESTRICTIONS
  • ICR #2574
    • Status: Active
    • Usage: Supported
    POSDOS(IEN) ; Return Possible Dosage Auto-Creation Related fields
    ; Input: IEN - VA Product (#50.68) IEN
  • ICR #2531
    • Status: Active
    • Usage: Supported
    PSJST(DA,K) ;ENTRY FOR STRENGTH
  • ICR #2531
    • Status: Active
    • Usage: Supported
    TTOG(TRADE,LIST) ;RETURNS LIST(IEN)=IEN_"^"GENERIC FOR EVERY ENTRY IN 50.6 WHICH MATCHES THE TRADE NAME
  • ICR #2574
    • Status: Active
    • Usage: Supported
    CLIST(DA,LIST) ;RETURNS LIST(IEN)=IEN IN 50.605^CLASS CODE
  • ICR #2574
    • Status: Active
    • Usage: Supported
    DCLCODE(DA,K) ;RETURN VA CLASS CODE
  • ICR #2531
    • Status: Active
    • Usage: Supported
    T() ;RETURNS THE GLOBAL ROOT OF THE "T" CROSSREFERENCE IN NDF
  • ICR #2531
    • Status: Active
    • Usage: Supported
    DCLASS(DA,K) ;GET CLASS FOR PRODUCT
  • ICR #2531
    • Status: Active
    • Usage: Supported
    DRUG(DA) ;ENTRY FOR OE/RR TO GET DRUG $D
  • ICR #2531
    • Status: Active
    • Usage: Supported
    B() ;RETURNS THE GLOBAL ROOT OF THE "B" CROSSREFERENCE IN NDF
  • ICR #2531
    • Status: Active
    • Usage: Supported
    PSA(NDC,LIST) ;ENTRY FOR DRUG ACCOUNTABILITY
  • ICR #2531
    • Status: Active
    • Usage: Supported
    FDAMG(IEN) ;RETURN URL FOR MED GUIDE OR NULL
  • ICR #2531
    • Status: Active
    • Usage: Supported
    INTRAN(SCR) ; input transform lookup for fields that store NDC codes
    ; Input: SCR - (optional) M code for value of DIC("S") - If SCR is not
    ; defined, all active entries will be returned
  • ICR #2531
    • Status: Active
    • Usage: Supported
    VAGN(DA) ;GET VA GENERIC NAME
  • ICR #2531
    • Status: Active
    • Usage: Supported
    OVRIDE(PSNPOV1,PSNPOV3) ;Return Override Dose Form Exclusion
  • ICR #2531
    • Status: Active
    • Usage: Supported
    CIRN(NDC,LIST) ;CALL FOR CIRN
  • ICR #2531
    • Status: Active
    • Usage: Supported
    CPRS(DA,K) ;CALL FOR CPRS
  • ICR #2531
    • Status: Active
    • Usage: Supported
    PSJING(DA1,K,LIST) ;ENTRY FOR INGREDIENTS
  • ICR #2531
    • Status: Active
    • Usage: Supported

    External References

    Name Field # of Occurrence
    NOW^%DTC VAP+5, CPTIER+51
    IX^DIC INTRAN+11, QLIST+7
    $$GET1^DIQ DRGCLS+8, CPTIER3+4
    $$CPTIER^PSNAPIS VAP+6
    NDF^PSS50 CPTIER3+3
    $$RJ^XLFSTR DSS+4, DSS+5, CIRN+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PSDRUG - [#50] GET1^DIQ
    ^PS(50.605 - [#50.605] GET1^DIQ
    ^PSNDF(50.67 - [#50.67] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(50.416 - [#50.416] PSJING+4
    ^PS(50.605 - [#50.605] CLASS+2, DCLASS+2, DCLCODE+2, VAP+4, CPRS+4, CLIST+4, CLASS2+1
    ^PS(50.606 - [#50.606] PSJDF+4, VAP+4, CPRS+6
    ^PS(50.607 - [#50.607] PSJING+4, DFSU+3, CPRS+6
    ^PS(50.608 - [#50.608] PSPT+4
    ^PS(50.609 - [#50.609] PSPT+4
    ^PSDRUG - [#50] PSA+4
    ^PSDRUG("VAPN" PSA+4
    ^PSNDF(50.6 - [#50.6] DRUG+2, VAGN+1, VAGN+2, VAP+2, VAP+3, DSS+5, CIRN+7, TTOG+4, CLIST+3, CLIST+4
    , TGTOG+3, TGTOG2+4, TGTOG2+6
    ^PSNDF(50.64 - [#50.64] PROD2+3
    ^PSNDF(50.67 - [#50.67] PSA+2, PSA+3, DRUG+2, PSPT+4, CIRN+4, TTOG+3, TTOG+4, TGTOG+4, TGTOG+5, TGTOG2+5
    , CIRN2+5, DRGCLS+6
    ^PSNDF(50.68 - [#50.68] PSA+3, PSJING+3, PSJING+4, PSJDF+3, PSJDF+4, PSJST+1, PSJST+2, PROD0+4, PROD2+3, DCLASS+2
    , DCLCODE+2, FORMI+3, FORMR+2, DFSU+2, DFSU+3, VAP+3, VAP+4, PSPT+3, PSPT+4, DSS+4
    , DSS+5, CPRS+3, CPRS+4, CPRS+5, CIRN+5, CIRN+6, TTOG+4, CLIST+4, TGTOG+5, TGTOG2+5
    , CIRN2+2, CIRN2+5, CMOP+2, CMOP+3, FORMRX+3, FORMRX+4, DDIEX+2, DDIEX+3, OVRIDE+2, FDAMG+1
    , POSDOS+7, DRGCLS+7, CPTIER2+1, CPTIER2+4
    ^TMP($J CPTIER3+2!, CPTIER3+7, CPTIER3+20!
    ^XTMP("PSOTIEREFTST" CPTIER+54

    Label References

    Name Line Occurrences
    $$CPTIER2 CPTIER+59, CPTIER3+12
    $$CPTIER3 CPTIER+58
    $$PSJDF DFSU+4
    $$PSJST DFSU+4

    Naked Globals

    Name Field # of Occurrence
    ^( PSJING+4, CIRN+4
    ^(1 PROD0+4
    ^(7 VAP+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % VAP+5, VAP+6!, CPTIER+53
    A PROD0+1~, PROD0+4*, PROD0+5, CIRN+1~, CIRN+4*, CIRN+5*, CIRN+6
    B PROD0+1~, PROD0+4*, PROD0+5
    CL CLASS~, CLASS+1, CLASS+2, CPRS+1~, CPRS+4*, CPRS+6
    CODE CMOP~, CMOP+1, CMOP+2, CMOP+3
    CPDATE VAP+5~*, VAP+6!
    CPTIER CPTIER+47~, CPTIER2+4*, CPTIER2+5, CPTIER2+6, CPTIER2+7
    CT PSJING+1~, PSJING+4*, PSJING+5, TTOG+2~, TTOG+4*, TTOG+5, CLIST+4~*, CLIST+5, TGTOG2+2~, TGTOG2+3*
    , TGTOG2+4*, TGTOG2+6*, TGTOG2+7
    D CIRN2+3~, INTRAN+7~, INTRAN+11*, QLIST+3~, QLIST+6*
    DA PSJING+4*, PSJDF~, PSJST~, DRUG~, DRUG+1, DRUG+2, DCLASS~, DCLCODE~, VAGN~, VAGN+1
    , VAGN+2, FORMI~, FORMR~, DFSU~, DFSU+4, VAP~, VAP+2, VAP+3, PSPT~, DSS~
    , DSS+5, CPRS~, CIRN+1~, CIRN+4*, CLIST~, CLIST+2, CLIST+3, CLIST+4, FORMRX~, DDIEX~
    DA1 PSJING~
    DAT VAP+1~, VAP+3*, VAP+4
    DATE DSS~, DSS+3*, DSS+4, CPTIER~, CPTIER+58, CPTIER+59, CPTIER2~, CPTIER2+6, CPTIER2+7, CPTIER3~
    , CPTIER3+12
    DEA CPTIER+47~, CPTIER3+5*, CPTIER3+6
    DEAFLG CPTIER+47~, CPTIER3+4*, CPTIER3+6*, CPTIER3+17
    DEASH CPTIER+47~, CPTIER3+4*, CPTIER3+5
    DF PSJDF+1~, PSJDF+4*, PSJDF+5, CPRS+1~, CPRS+5*, CPRS+6
    DIC INTRAN+7~, INTRAN+10*, QLIST+3~, QLIST+6*
    DIC("S" INTRAN+8*, INTRAN+9*, QLIST+4*, QLIST+5*
    DIC(0 INTRAN+10*, QLIST+6*
    DO QLIST+3~
    DT VAP+4
    EFFDT CPTIER+47~, CPTIER2+5*, CPTIER2+6, CPTIER2+7
    ENDDT CPTIER+47~, CPTIER2+5*, CPTIER2+6, CPTIER2+7
    FLG CPTIER+47~, CPTIER2+3*, CPTIER2+6*, CPTIER2+7*
    I CPTIER+47~, CPTIER3+5*
    IEN CLIST+4*, CLASS2~, CLASS2+1, FDAMG~, FDAMG+1, POSDOS~, POSDOS+7, DRGCLS~, DRGCLS+6
    II CPTIER+47~, CPTIER2+3*, CPTIER2+4*
    J PSA+1~, PSA+4*, PSA+5, VAP+1~, VAP+3*, VAP+4*, VAP+7, PSPT+1~, PSPT+4*, PSPT+5
    , CIRN+3*, CIRN+8*, CIRN2+3~, CIRN2+5*, CIRN2+6
    K PSJING~, PSJING+3, PSJING+4, PSJDF~, PSJDF+3, PSJDF+4, PSJST~, PSJST+1, PSJST+2, DCLASS~
    , DCLASS+1, DCLASS+2, DCLCODE~, DCLCODE+1, DCLCODE+2, FORMI~, FORMI+3, FORMR~, FORMR+2, DFSU~
    , DFSU+2, DFSU+3, DFSU+4, PSPT~, PSPT+3, PSPT+4, DSS~, DSS+4, DSS+5, CPRS~
    , CPRS+3, CPRS+4, CPRS+5, CLIST+4~*, FORMRX~, FORMRX+3, FORMRX+4, DDIEX~, DDIEX+2, DDIEX+3
    LIST PSA~, PSJING~, VAP~, PSPT~, CIRN~, CIRN+3!*, CIRN+7*, TTOG~, CLIST~, TGTOG2~
    , CIRN2~, FORMRX~, FORMRX+4*
    LIST( PSA+4*, PSJING+4*, VAP+4*, VAP+6*, PSPT+4*, CIRN+3*, CIRN+8*, TTOG+4*, CLIST+4*, TGTOG2+4*
    , TGTOG2+6*, CIRN2+5*
    LIST(0 CIRN+7*
    LIST(1 CIRN+7*
    LIST(2 CIRN+6*
    LIST(3 CIRN+6*
    LIST(4 CIRN+6*
    LIST(5 CIRN+5*
    LIST(6 CIRN+5*
    LIST(7 CIRN+4*
    N CIRN2+3~, CIRN2+4*, CIRN2+5*
    NAM TGTOG2+2~, TGTOG2+4*, TGTOG2+5*
    NAME TGTOG~, TGTOG+2, TGTOG+3, TGTOG+4, TGTOG+5, TGTOG2~, TGTOG2+1, TGTOG2+4, TGTOG2+5
    NDC PSA~, PSA+2, PSPT+1~, PSPT+4*, CIRN~, CIRN+2*, CIRN+4, CIRN+7
    P1 PROD0~, PROD2~, CIRN2~
    P2 PROD0~, PROD0+3, PROD0+4, PROD2~, PROD2+2, PROD2+3
    P3 CIRN2~, CIRN2+1, CIRN2+2, CIRN2+5
    P50 PSA+1~, PSA+4*
    PN PSA+1~, PSA+3*, PSA+4
    PN1 PSA+1~, PSA+3*, PSA+4
    PR VAP+1~, VAP+3*, VAP+4, VAP+6
    PS PSPT+1~, PSPT+4*
    PSNCINQS CPTIER~, CPTIER+48*, CPTIER3+14, CPTIER3+18
    PSNCLS DRGCLS+4~, DRGCLS+5*, DRGCLS+6, DRGCLS+7, DRGCLS+8*, DRGCLS+9
    PSNDC DRGCLS+4~, DRGCLS+7*, DRGCLS+8
    PSNDRIEN CPTIER~, CPTIER+58, CPTIER3~, CPTIER3+3, CPTIER3+4, CPTIER3+7
    PSNP DRGCLS+4~, DRGCLS+6*, DRGCLS+7
    PSNPOV1 OVRIDE~
    PSNPOV3 OVRIDE~, OVRIDE+1, OVRIDE+2
    PSOTIERE CPTIER+47~, CPTIER+51~, CPTIER+52*, CPTIER+53*, CPTIER+54*, CPTIER+55, CPTIER2+2*
    PSSTIER VAP+5~, VAP+6*!
    PT PSPT+1~, PSPT+4*
    RETTIER CPTIER+47~, CPTIER+55*, CPTIER2+3*, CPTIER2+6*, CPTIER2+7*, CPTIER2+8
    RETURN CPTIER+47~, CPTIER+49*, CPTIER+58*, CPTIER+59*, CPTIER2~, CPTIER3~, CPTIER3+10*, CPTIER3+12*, CPTIER3+13, CPTIER3+14*
    , CPTIER3+15*, CPTIER3+17, CPTIER3+18*, CPTIER3+19*, CPTIER3+22
    SCR INTRAN~, INTRAN+9, QLIST~, QLIST+5
    ST CPRS+1~, CPRS+5*, CPRS+6
    TIER CPTIER+47~, CPTIER2+5*
    TRADE TTOG~, TTOG+1, TTOG+3, TTOG+4
    U1 DFSU+1~, DFSU+3*, DFSU+4
    UN DFSU+1~, DFSU+3*, DFSU+4, CPRS+1~, CPRS+5*, CPRS+6
    VAPIEN CPTIER~, CPTIER+59, CPTIER2~, CPTIER2+1, CPTIER2+4, CPTIER3+7*, CPTIER3+10, CPTIER3+12
    X PSJING+1~, PSJING+4*, PSJDF+1~, PSJDF+4*, PSJDF+5, DCLASS+2*, DCLASS+3, DCLCODE+2*, DCLCODE+3, VAP+1~
    , VAP+3*, VAP+4, VAP+6!, PSPT+4*, CPRS+1~, CPRS+5*, CIRN+1~, CIRN+4*, CIRN+5*, CIRN+6
    , CIRN+7, TTOG+2~, TTOG+4*, TGTOG+1~, TGTOG+3*, TGTOG+5*, TGTOG2+2~, TGTOG2+4*, TGTOG2+5*, INTRAN+12*
    , INTRAN+13!, QLIST+3~, QLIST+6*
    Y PSA+1~, PSA+2*, PSA+3*, DCLASS+2*, DCLASS+3, TTOG+4*, TGTOG2+2~, TGTOG2+5*, TGTOG2+6, INTRAN+7~
    , INTRAN+12, INTRAN+13
    Y(0 INTRAN+12
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All