Routine: PSNPPSI2

Package	Total	Call Graph
VA FileMan	7	^DIC FILE^DICN ($$GET1,FIELD)^DID (,UPDATE,WP)^DIE ^DIK $$ROOT^DILFD $$GET1^DIQ
National Drug File	5	DATAO^PSNPPSI3 (56,CTRLFILE,CTRLIEN,CTRLSS)^PSNPPSMS (CPTIER,NDFK)^PSNPPSNK ($$STRIP,ERROR,ERROR2)^PSNPPSNU ING^PSNXREF

Package	Total	Caller Graph
National Drug File	2	PSNPPSI1 PSNPPSI3

Name	Comments	DBIA/ICR reference
DATAN	;
DATAN2	;word processing fields
CPTIERD(PSNVAPN)	;copay tiers deleted
COPNDFK	; define NDFK file 5000.93
DOSFORUD(PSNVAPN)	;dosage forms units deleted
DOSFORDD(PSNVAPN)	;dispense units per dose deleted
MULTIPLE	;There should only be one RxNorm entry and one RXCUI
EDTMULT	;edit existing multiple entry other than .01 field
RXNORMD1(PSNVAPN)	;RxNorm deleted
RXNORMD2(PSNVAPN)	;RxNorm deleted
UNMATCH	;DRUGS TO UNMATCH
SETPROD	;
AIDEL(PSNVAPD)	; active ingredients deleted

Name	Field # of Occurrence
^DIC	COPNDFK+4, MULTIPLE+22, MULTIPLE+24, MULTIPLE+27, EDTMULT+1
FILE^DICN	DATAN+87, DATAN+97, SETPROD+3
$$GET1^DID	DATAN+41
FIELD^DID	DATAN+35, DATAN+42
^DIE	COPNDFK+7, MULTIPLE+29
UPDATE^DIE	DATAN+3, DATAN+72, DATAN+76, DATAN+93, EDTMULT+8
WP^DIE	DATAN2+22
^DIK	CPTIERD+4, DOSFORUD+4, DOSFORDD+4, RXNORMD1+7, RXNORMD2+7, AIDEL+3
$$ROOT^DILFD	DATAN+11, DATAN+82
$$GET1^DIQ	DATAN+75, COPNDFK+3
DATAO^PSNPPSI3	DATAN2+25
56^PSNPPSMS	DATAN+32
CTRLFILE^PSNPPSMS	DATAN+6, DATAN+11
CTRLIEN^PSNPPSMS	DATAN+8, DATAN+60, DATAN+76, DATAN+98
CTRLSS^PSNPPSMS	DATAN+7, DATAN+15
CPTIER^PSNPPSNK	DATAN+88
NDFK^PSNPPSNK	DATAN+23
$$STRIP^PSNPPSNU	DATAN+47, DATAN+48
ERROR^PSNPPSNU	DATAN+72, DATAN+93
ERROR2^PSNPPSNU	DATAN+87, DATAN+97, DATAN2+3, MULTIPLE+26, MULTIPLE+28, EDTMULT+2, EDTMULT+5
ING^PSNXREF	DATAN2+4

FileNo	Call Tags
^PSNDF(50.68 - [#50.68]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD(	DATAN+55, DATAN+57, MULTIPLE+15, EDTMULT+7
^NDFK(5000	DATAN+45*
^NDFK(5000.2	SETPROD+2
^NDFK(5000.93	COPNDFK+2*
^PS(	DATAN+91
^PS(50.606 - [#50.606]	DOSFORUD+2, DOSFORDD+2
^PSNDF(	DATAN+92
^PSNDF(50.68 - [#50.68]	DATAN+21, DATAN2+3, DATAN2+10, DATAN2+12, CPTIERD+2, MULTIPLE+7, MULTIPLE+9, MULTIPLE+11, EDTMULT+4, RXNORMD1+2 , RXNORMD1+3, RXNORMD2+2, RXNORMD2+3, RXNORMD2+8!, AIDEL+2
^TMP("PSN ADDINGRED"	DATAN+1!, DATAN2+13*
^TMP("PSN DELINGRED"	DATAN+1!, DATAN2+10*
^TMP("PSN OLDINGRED"	DATAN+1!, DATAN+21*, DATAN2+9, DATAN2+12, DATAN2+13
^TMP("PSN PPSN PARSED"	DATAN+9, DATAN+14, DATAN+27, DATAN+56, MULTIPLE+17, UNMATCH+4, UNMATCH+5*
^TMP("PSN PPSN.WP"	DATAN+39!, DATAN+47, DATAN+48, DATAN2+16, DATAN2+17, DATAN2+18, DATAN2+20, DATAN2+21, DATAN2+23!
^TMP("PSN PPSN.WPXRF"	DATAN+18*, DATAN+39!
^TMP("PSNINGRED"	DATAN+22*
^TMP("PSNN"	DATAN2+2

Name	Line Occurrences
AIDEL	DATAN+22
COPNDFK	CPTIERD+6
CPTIERD	DATAN+65
DOSFORDD	DATAN+68
DOSFORUD	DATAN+67
EDTMULT	MULTIPLE+20
MULTIPLE	DATAN+53
RXNORMD1	MULTIPLE+4, MULTIPLE+5, MULTIPLE+7
RXNORMD2	MULTIPLE+13
SETPROD	UNMATCH+6
UNMATCH	DATAN+28

Name	Field # of Occurrence
^(	DATAN+45*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	CPTIERD+2, CPTIERD+3, DOSFORUD+2, DOSFORUD+3, DOSFORDD+2, DOSFORDD+3, RXNORMD1+1~, RXNORMD1+2, RXNORMD1+3, RXNORMD1+6 , RXNORMD2+1~, RXNORMD2+2*, RXNORMD2+3, RXNORMD2+6, RXNORMD2+8
CNT1	AIDEL+1~, AIDEL+2*, AIDEL+3
CNT2	RXNORMD1+1~, RXNORMD2+1~, RXNORMD2+2*, RXNORMD2+3, RXNORMD2+6, RXNORMD2+8
COPAYACT	CPTIERD+1~, CPTIERD+5*, COPNDFK+6
>> CTRLIEN	DATAN+2
>> CTRLXIEN	DATAN+2
DA	DATAN+59, DATAN+75, DATAN+84, DATAN+85, DATAN+86, DATAN+87, DATAN+91, DATAN+92, DATAN+93, DATAN+97 , DATAN2+2, CPTIERD+3, COPNDFK+5, DOSFORUD+3, DOSFORDD+3, MULTIPLE+1~, MULTIPLE+22!, MULTIPLE+24!, MULTIPLE+26, MULTIPLE+28 , MULTIPLE+29!, EDTMULT+1!, EDTMULT+2, EDTMULT+4, EDTMULT+5, EDTMULT+6, EDTMULT+8, RXNORMD1+1~, RXNORMD1+6, RXNORMD2+1~ , RXNORMD2+6, AIDEL+1~, AIDEL+3*
DA(1	DATAN+82, DATAN2+2, DATAN2+3, CPTIERD+3, DOSFORUD+3, DOSFORDD+3, MULTIPLE+22, MULTIPLE+24, MULTIPLE+25, MULTIPLE+26 , MULTIPLE+27, EDTMULT+1, EDTMULT+3, EDTMULT+6, EDTMULT+7, RXNORMD1+6, RXNORMD2+6, AIDEL+3*
DA(2	MULTIPLE+25, EDTMULT+3, EDTMULT+6, RXNORMD2+6*
DD	DATAN+87!, DATAN+97!
>> DIA	DATAN+12, DATAN+13, DATAN+14, DATAN+17, DATAN+19, DATAN+20, DATAN+21, DATAN+22, DATAN+24, DATAN+32 , DATAN+41, DATAN+47, DATAN+53, DATAN+55, DATAN+56, DATAN+62, DATAN+65, DATAN+67, DATAN+68, DATAN+70 , DATAN+79, DATAN+82, DATAN+84, DATAN+85, DATAN+86, DATAN+88, DATAN+90, DATAN+91, DATAN+92, MULTIPLE+2 , MULTIPLE+4, MULTIPLE+5, MULTIPLE+7, MULTIPLE+8, MULTIPLE+17, UNMATCH+2, UNMATCH+4, UNMATCH+5, SETPROD+2, SETPROD+3
DIAFLD	UNMATCH+1~, UNMATCH+2*, UNMATCH+3
DIC	DATAN+80!, DATAN+82, DATAN+96!, DATAN+97, COPNDFK+1~, COPNDFK+4, COPNDFK+5!, MULTIPLE+1~, MULTIPLE+22!, MULTIPLE+24!* , MULTIPLE+27!, MULTIPLE+29!, EDTMULT+1!, EDTMULT+6, SETPROD+3*
DIC("DR"	DATAN+83, DATAN+97
DIC(0	DATAN+83, DATAN+97, COPNDFK+4, MULTIPLE+22, MULTIPLE+24, MULTIPLE+27, EDTMULT+1, SETPROD+3
DIE	COPNDFK+1~, COPNDFK+5, MULTIPLE+29!, EDTMULT+6*
DIK	CPTIERD+3, DOSFORUD+3, DOSFORDD+3, RXNORMD1+1~, RXNORMD1+6, RXNORMD2+1~, RXNORMD2+6, AIDEL+3
DINUM	DATAN+84, DATAN+86, DATAN+97, MULTIPLE+1~, SETPROD+3, AIDEL+1~
DLAYGO	MULTIPLE+1~, MULTIPLE+22, MULTIPLE+27
DO	DATAN+87!, DATAN+97!
DOSFORU	DOSFORUD+1~, DOSFORUD+5, DOSFORDD+1~, DOSFORDD+5
DR	COPNDFK+1~, COPNDFK+6, MULTIPLE+29!
ERR	DATAN2+19!
ERROR	DATAN+71!, DATAN+90!, DATAN2+1*, EDTMULT+8!
ERROR("DIERR"	DATAN+72, DATAN+93
FDA	DATAN+1!, DATAN+4!, DATAN+19!, DATAN+70!, DATAN+71!, DATAN+72!, DATAN+76!, DATAN+80!, DATAN+90!, DATAN+93! , DATAN+96!, EDTMULT+8!
FDA(	DATAN+2, DATAN+72, DATAN+75, DATAN+93, EDTMULT+8*
>> FILE	DATAN+9, DATAN+11, DATAN+14, DATAN+18, DATAN+19, DATAN+20, DATAN+23, DATAN+27, DATAN+28, DATAN+32 , DATAN+35, DATAN+39, DATAN+41, DATAN+42, DATAN+47, DATAN+48, DATAN+53, DATAN+57, DATAN+62, DATAN+91 , DATAN+92, DATAN2+16*, DATAN2+17, DATAN2+18, DATAN2+20, DATAN2+21, DATAN2+22, MULTIPLE+4, MULTIPLE+5, MULTIPLE+7 , MULTIPLE+8
>> FLDS	DATAN+19, DATAN+27, DATAN+35, DATAN+38, DATAN+39, DATAN+42, DATAN+52, DATAN+57, DATAN+58, DATAN+72 , DATAN+75, DATAN2+18, DATAN2+20, DATAN2+21, DATAN2+22, MULTIPLE+19, MULTIPLE+21, MULTIPLE+23*
>> GROOT	DATAN+9*, DATAN+11
>> GROOT1	DATAN+11*, DATAN+13, DATAN+15
IEN	DATAN+19!
IEN(	DATAN+75*
>> IENS	DATAN+19, DATAN+27, DATAN+38, DATAN+39, DATAN+56, DATAN+59, DATAN+60, DATAN+65, DATAN+67, DATAN+68 , DATAN+72, DATAN+75, DATAN+76, DATAN+82, DATAN+87, DATAN+93, DATAN+97, DATAN+98, DATAN2+3, DATAN2+17 , DATAN2+18, DATAN2+20, DATAN2+21, DATAN2+22, MULTIPLE+17, MULTIPLE+26, MULTIPLE+28, EDTMULT+2, EDTMULT+5, EDTMULT+6 , EDTMULT+8
>> J	DATAN+55, DATAN+56, MULTIPLE+15, MULTIPLE+17, MULTIPLE+18*
>> JJ	DATAN+11, DATAN+13, DATAN+15, DATAN+38, DATAN+49, DATAN2+2, DATAN2+20, DATAN2+21
JJJJ	DATAN+5~
>> LI	DATAN+55, DATAN+56, MULTIPLE+2, MULTIPLE+15, MULTIPLE+17, MULTIPLE+18
MFLDS	DATAN+5~, DATAN+17*, DATAN+18
MIENS	DATAN+5~, DATAN+17*, DATAN+18
>> MJJ	DATAN+38, DATAN+47, DATAN+48*
MLTCNT	MULTIPLE+1~, MULTIPLE+2, MULTIPLE+18, MULTIPLE+21, MULTIPLE+23
MROOT	MULTIPLE+1~, MULTIPLE+16*, MULTIPLE+26, MULTIPLE+28, EDTMULT+2, EDTMULT+5
NAME	COPNDFK+1~, COPNDFK+3*, COPNDFK+4
NDFKSEQ	COPNDFK+1~*
>> NEW	DATAN+12, DATAN+13, DATAN+18, DATAN+20, DATAN+26, DATAN+32, DATAN+48, DATAN+49, DATAN+65, DATAN+67 , DATAN+68, DATAN+72, DATAN+75, DATAN+83, DATAN+93, DATAN+97, MULTIPLE+4, MULTIPLE+5, MULTIPLE+22, MULTIPLE+27 , MULTIPLE+29, EDTMULT+8, RXNORMD2+5
OFLDS	DATAN+5~, DATAN+18, DATAN+38*, DATAN+39, DATAN+47, DATAN+48
OIENS	DATAN+5~, DATAN+18, DATAN+38*, DATAN+39, DATAN+47, DATAN+48
OINGRED	DATAN+5~, DATAN+21*
OLDGEN	UNMATCH+1~, UNMATCH+2*
OLDNDF	DATAN+5~
ORD	DATAN+25!, DATAN+26*, DATAN+27
OVAL	RXNORMD2+1~, RXNORMD2+5*, RXNORMD2+8
PRIEN	COPNDFK+1~*, COPNDFK+3
>> PSNATYP	DATAN+88, CPTIERD+6
PSNINGRED	DATAN+5~, DATAN2+7, DATAN2+9, DATAN2+10, DATAN2+12*, DATAN2+13
>> PSNMULTI	DATAN+16, DATAN+18, DATAN+35, DATAN+36, DATAN+37, DATAN+48
>> PSNPS	DATAN+23, DATAN+30, DATAN+45, DATAN2+7, SETPROD+1
>> PSNTMPN	DATAN+2*, DATAN+32, DATAN+87, DATAN+97, DATAN2+3, MULTIPLE+6, MULTIPLE+20, MULTIPLE+26, MULTIPLE+28, EDTMULT+2 , EDTMULT+5
PSNVAPD	DATAN+5~, DATAN2+7, DATAN2+9, DATAN2+10, DATAN2+12*, DATAN2+13, AIDEL~, AIDEL+2, AIDEL+3
PSNVAPN	CPTIERD~, CPTIERD+2, CPTIERD+3, COPNDFK+1, DOSFORUD~, DOSFORUD+2, DOSFORUD+3, DOSFORDD~, DOSFORDD+2, DOSFORDD+3 , RXNORMD1~, RXNORMD1+2, RXNORMD1+3, RXNORMD1+6, RXNORMD2~, RXNORMD2+2, RXNORMD2+3, RXNORMD2+6, RXNORMD2+8
>> PSNWP	DATAN+41, DATAN+44, DATAN+45
RES1	DATAN+34!
RES1("TYPE"	DATAN+36
RES2	DATAN+34!
RES2("GLOBAL	SUBSCRIPT LOCATION" , DATAN+43
RES3	DATAN+34!, DATAN+43*, DATAN+44
>> ROOT	DATAN+11, DATAN+19, DATAN+55, DATAN+65, DATAN+67, DATAN+68, DATAN+72, DATAN+75, DATAN+82, DATAN+84 , DATAN+85, DATAN+86, DATAN+87, DATAN+88, DATAN+93, DATAN+97, DATAN2+3, MULTIPLE+2, MULTIPLE+15, MULTIPLE+16 , EDTMULT+7, EDTMULT+8, EDTMULT+9
>> ROOT3	EDTMULT+7*
SROOT	DATAN+4!, MULTIPLE+1~, MULTIPLE+2*, EDTMULT+9
SS1	MULTIPLE+1~, MULTIPLE+9*, MULTIPLE+10, MULTIPLE+11
SS2	MULTIPLE+1~, MULTIPLE+11*
SS3	MULTIPLE+1~, MULTIPLE+11*, MULTIPLE+12
TMP	DATAN2+19!
TMP(	DATAN2+21*
VAPRIEN	MULTIPLE+1~, MULTIPLE+2*, MULTIPLE+4, MULTIPLE+5, MULTIPLE+7, MULTIPLE+9, MULTIPLE+11, MULTIPLE+13, MULTIPLE+22, MULTIPLE+24 , MULTIPLE+25, MULTIPLE+27, EDTMULT+1, EDTMULT+3
X	DATAN+45, DATAN+83, DATAN+97, COPNDFK+1~, COPNDFK+4, MULTIPLE+1~, MULTIPLE+22, MULTIPLE+24, MULTIPLE+27, EDTMULT+1 , RXNORMD1+1~, RXNORMD1+3, RXNORMD1+4, RXNORMD1+5, RXNORMD2+1~, RXNORMD2+3, RXNORMD2+4, RXNORMD2+5, SETPROD+3, AIDEL+1~
XFILE	DATAN+5~, DATAN+57*
XFLDS	DATAN+5~, DATAN+57, MULTIPLE+19, EDTMULT+8
>> XPATH	EDTMULT+7*
Y	DATAN+87, DATAN+97, COPNDFK+5, MULTIPLE+1~, MULTIPLE+25, MULTIPLE+27!, MULTIPLE+28, MULTIPLE+29!, EDTMULT+2, EDTMULT+3

Customize PDF page

Package: National Drug File

Routine: PSNPPSI2

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: