PSNAPIS ;BIR/DMA-APIs for NDF ; 07/02/03 14:07
Source file <PSNAPIS.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PROD0(P1,P2) | ;GET INFO IN THE FORM OF THE OLD 0 PRODUCT NODE | 
 
 | 
| VAP(DA,LIST) | ;GIVEN GENERIC RETURN ARRAY LIST(IEN)=IEN^PRODUCT^DF PTR^DOSE FOMR | 
 
 | 
| FORMRX(DA,K,LIST) | ;RETURN X=1 FOR RESTRICTIONS, 0 FOR NO | 
 
 | 
| DSS(DA,K,DATE) | ;RETURN DSS FEEDER KEY | 
 
 | 
| PSPT(DA,K,LIST) | ;GIVEN PRODUCT K RETURN LIST(INE1^IEN2)=IEN1^PSIZE^IEN1^PTYPE | 
 
 | 
| DDIEX(DA,K) | ;RETURN X=1 FOR EXCLUDE DDI CHECK, 0 FOR CONTINUE DDI CHECK | 
 
 | 
| 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 | 
 
 | 
| TGTOG(NAME) | ;GIVEN NAME TRY TO FIND IT IN T OR B CROSS REFERENCE AND RETURN IEN | 
 
 | 
| FORMI(DA,K) | ;GET FORMULARY INDICATOR FOR VA PRODUCT | 
 
 | 
| CMOP(CODE) | ;CODE = 5 CHARACTER CMOP CODE RETURNS PRODUCT NAME | 
 
 
 
 | 
| PSJDF(DA,K) | ;GET DOSE FORM | 
 
 | 
| CLASS(CL) | ;ENTRY FOR OE/RR TO GET CLASS $D | 
 
 | 
| DFSU(DA,K) | ;RETURN DOSE FORM, STRENGTH, AND UNITS FOR PDM AND CPRS | 
 
 | 
| PROD2(P1,P2) | ;GET OLD 2 NODE | 
 
 | 
| FORMR(DA,K) | ;GET EXISTENCE OF FORMULARY RESTRICTIONS | 
 
 | 
| PSJST(DA,K) | ;ENTRY FOR STRENGTH | 
 
 | 
| 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 | 
 
 | 
| DCLCODE(DA,K) | ;RETURN VA CLASS CODE | 
 
 | 
| T() | ;RETURNS THE GLOBAL ROOT OF THE "T" CROSSREFERENCE IN NDF | 
 
 | 
| DCLASS(DA,K) | ;GET CLASS FOR PRODUCT | 
 
 | 
| DRUG(DA) | ;ENTRY FOR OE/RR TO GET DRUG $D | 
 
 | 
| B() | ;RETURNS THE GLOBAL ROOT OF THE "B" CROSSREFERENCE IN NDF | 
 
 | 
| PSA(NDC,LIST) | ;ENTRY FOR DRUG ACCOUNTABILITY | 
 
 | 
| VAGN(DA) | ;GET VA GENERIC NAME | 
 
 | 
| OVRIDE(PSNPOV1,PSNPOV3) | ;Return Override Dose Form Exclusion | 
 
 | 
| CIRN(NDC,LIST) | ;CALL FOR CIRN | 
 
 | 
| CPRS(DA,K) | ;CALL FOR CPRS | 
 
 | 
| PSJING(DA1,K,LIST) | ;ENTRY FOR INGREDIENTS | 
 
 | 
| Name | Field # of Occurrence | 
|---|---|
| $$RJ^XLFSTR | DSS+4, DSS+5, CIRN+2 | 
| 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 | 
| ^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 | 
| Name | Line Occurrences | 
|---|---|
| $$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 | 
|---|---|
| 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 | 
| 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~ | 
| 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+3*, VAP+4 | 
| DATE | DSS~, DSS+3*, DSS+4 | 
| DF | PSJDF+1~, PSJDF+4*, PSJDF+5, CPRS+1~, CPRS+5*, CPRS+6 | 
| DT | VAP+4 | 
| IEN | CLIST+4*, CLASS2~, CLASS2+1 | 
| J | PSA+1~, PSA+4*, PSA+5, VAP+1~, VAP+3*, VAP+4*, VAP+5, 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*, 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 | 
| PS | PSPT+1~, PSPT+4* | 
| PSNPOV1 | OVRIDE~ | 
| PSNPOV3 | OVRIDE~, OVRIDE+1, OVRIDE+2 | 
| PT | PSPT+1~, PSPT+4* | 
| ST | CPRS+1~, CPRS+5*, CPRS+6 | 
| 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 | 
| 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, 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* | 
| Y | PSA+1~, PSA+2*, PSA+3*, DCLASS+2*, DCLASS+3, TTOG+4*, TGTOG2+2~, TGTOG2+5*, TGTOG2+6 |