PSNAPIS ;BIR/DMA-APIs for NDF ; 27 Jan 2010 7:44 AM
Source file <PSNAPIS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PSA(NDC,LIST) | ;ENTRY FOR DRUG ACCOUNTABILITY
|
|
| PSJING(DA1,K,LIST) | ;ENTRY FOR INGREDIENTS
|
|
| PSJDF(DA,K) | ;GET DOSE FORM
|
|
| PSJST(DA,K) | ;ENTRY FOR STRENGTH
|
|
| CLASS(CL) | ;ENTRY FOR OE/RR TO GET CLASS $D
|
|
| DRUG(DA) | ;ENTRY FOR OE/RR TO GET DRUG $D
|
|
| PROD0(P1,P2) | ;GET INFO IN THE FORM OF THE OLD 0 PRODUCT NODE
|
|
| PROD2(P1,P2) | ;GET OLD 2 NODE
|
|
| DCLASS(DA,K) | ;GET CLASS FOR PRODUCT
|
|
| DCLCODE(DA,K) | ;RETURN VA CLASS CODE
|
|
| VAGN(DA) | ;GET VA GENERIC NAME
|
|
| FORMI(DA,K) | ;GET FORMULARY INDICATOR FOR VA PRODUCT
|
|
| FORMR(DA,K) | ;GET EXISTENCE OF FORMULARY RESTRICTIONS
|
|
| DFSU(DA,K) | ;RETURN DOSE FORM, STRENGTH, AND UNITS FOR PDM AND CPRS
|
|
| VAP(DA,LIST) | ;GIVEN GENERIC RETURN ARRAY LIST(IEN)=IEN^PRODUCT^DF PTR^DOSE FOMR^CLIEN^CLASS^INACTIVE^TIER
|
|
| PSPT(DA,K,LIST) | ;GIVEN PRODUCT K RETURN LIST(INE1^IEN2)=IEN1^PSIZE^IEN1^PTYPE
|
|
| DSS(DA,K,DATE) | ;RETURN DSS FEEDER KEY
|
|
| CPRS(DA,K) | ;CALL FOR CPRS
|
|
| CIRN(NDC,LIST) | ;CALL FOR CIRN
|
|
| B() | ;RETURNS THE GLOBAL ROOT OF THE "B" CROSSREFERENCE IN NDF
|
|
| T() | ;RETURNS THE GLOBAL ROOT OF THE "T" CROSSREFERENCE IN NDF
|
|
| TTOG(TRADE,LIST) | ;RETURNS LIST(IEN)=IEN_"^"GENERIC FOR EVERY ENTRY IN 50.6 WHICH MATCHES THE TRADE NAME
|
|
| CLIST(DA,LIST) | ;RETURNS LIST(IEN)=IEN IN 50.605^CLASS CODE
|
|
| TGTOG(NAME) | ;GIVEN NAME TRY TO FIND IT IN T OR B CROSS REFERENCE AND RETURN IEN
|
|
| TGTOG2(NAME,LIST) | ;PARTIAL LOOKUP ON T OR B
|
|
| CIRN2(P1,P3,LIST) | ;RETURN LIST OF NDCS FOR A PRODUCT
|
|
| CLASS2(IEN) | ;RETURNS FIRST 2 PIECES OF ZERO NODE OF 50.605
|
|
| CMOP(CODE) | ;CODE = 5 CHARACTER CMOP CODE RETURNS PRODUCT NAME
|
|
| FORMRX(DA,K,LIST) | ;RETURN X=1 FOR RESTRICTIONS, 0 FOR NO
|
|
| DDIEX(DA,K) | ;RETURN X=1 FOR EXCLUDE DDI CHECK, 0 FOR CONTINUE DDI CHECK
|
|
| OVRIDE(PSNPOV1,PSNPOV3) | ;Return Override Dose Form Exclusion
|
|
| FDAMG(IEN) | ;RETURN URL FOR MED GUIDE OR NULL
|
|
| POSDOS(IEN) | ; Return Possible Dosage Auto-Creation Related fields
; Input: IEN - VA Product (#50.68) IEN |
|
| 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 |
|
| 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 |
|
| 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 |
|
| CPTIER(VAPIEN,DATE,PSNDRIEN,PSNCINQS) | ; RETURN COPAY TIER INFORMATION (FMCT)
|
|
| CPTIER2(RETURN,DATE,VAPIEN) | ;
|
|
| CPTIER3(RETURN,DATE,PSNDRIEN) | ;
; |
|
| PGX(PSNPGX1,PSNPGX3) | ;Return PGx information for VA Product
|
|
| PGXING(PSNING1,PSNING3,PSNLST) | ;Return PGx information for VA Product and Ingredients
|
|
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PS(50.605 - [#50.605] | GET1^DIQ |
| ^PSNDF(50.67 - [#50.67] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(50.416 - [#50.416] | PSJING+4, PGXING+6, PGXING+7 |
| ^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, PGX+3, PGXING+3, PGXING+5 |
| ^TMP($J | CPTIER3+2!, CPTIER3+7, CPTIER3+20! |
| ^XTMP("PSOTIEREFTST" | CPTIER+54 |
| Name | Line Occurrences |
|---|---|
| $$CPTIER2 | CPTIER+59, CPTIER3+12 |
| $$CPTIER3 | CPTIER+58 |
| $$PSJDF | DFSU+4 |
| $$PSJST | DFSU+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | PSJING+4, CIRN+4 |
| ^(1 | PROD0+4 |
| ^(7 | VAP+3 |
| >> | 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 |
| PSNING1 | PGXING~ |
| PSNING3 | PGXING~, PGXING+2, PGXING+3, PGXING+5 |
| PSNIPGX | PGXING+1~, PGXING+6*, PGXING+7 |
| PSNLP | PGXING+1~, PGXING+5*, PGXING+6, PGXING+7 |
| PSNLST | PGXING~, PGXING+1! |
| PSNLST("ING" | PGXING+7* |
| PSNLST("PROD" | PGXING+2*, PGXING+4* |
| PSNP | DRGCLS+4~, DRGCLS+6*, DRGCLS+7 |
| PSNPGX1 | PGX~ |
| PSNPGX3 | PGX~, PGX+2, PGX+3 |
| PSNPGXND | PGX+1~, PGX+3*, PGX+4 |
| PSNPGXVA | PGXING+1~, PGXING+3*, PGXING+4 |
| 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 |