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) | ;
; |
| FileNo | Call Tags |
|---|---|
| ^PSDRUG - [#50] | GET1^DIQ |
| ^PS(50.605 - [#50.605] | GET1^DIQ |
| ^PSNDF(50.67 - [#50.67] | Classic Fileman Calls |
