Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSNPPSI2

Package: National Drug File

Routine: PSNPPSI2


Information

PSNPPSI2 ;HP/MJE-PPSN update NDF data for parsing DATAN records ; 05 Mar 2014 1:20 PM

Source Information

Source file <PSNPPSI2.m>

Call Graph

Call Graph

Call Graph Total: 12

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
National Drug File 2 PSNPPSI1  PSNPPSI3  

Entry Points

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All