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 |