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 |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PSN545D

Package: National Drug File

Routine: PSN545D


Information

PSN545D ;BIR/DMA-post install routine to load data ; 13 Dec 2017 1:39 PM

Source Information

Source file <PSN545D.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
VA FileMan 6 FILE^DICN  FIELD^DID  (,FILE,UPDATE,WP)^DIE  (,ENALL)^DIK  $$ROOT^DILFD  $$GET1^DIQ  
Kernel 4 ^%ZTLOAD  $$FMTE^XLFDT  UPDATE^XPDID  $$PATCH^XPDUTL  
National Drug File 2 ^PSNCLEAN  ING^PSNXREF  
Adverse Reaction Tracking 1 EN2^GMRAUIX0  
MailMan 1 ^XMD  
Pharmacy Data Management 1 PSN^PSSHUIDG  

Entry Points

Name Comments DBIA/ICR reference
WP ;
WORD ;
MESSAGE ;
GROUP ;
DRUGFILE ;
REINDEX ;Make sure APC xref is correct
MORE ;REINDEXING
QUIT ;
LOAD ;GET DOSE STUFF
LOAD1 ;BUILD THE MESSAGE
HAZWASTE ;
STRIP(X) ; Strip control characters
RXNORMD1(DIA) ;RxNorm deleted
RXNORMD2(DIA) ;RxNorm deleted

External References

Name Field # of Occurrence
^%ZTLOAD DRUGFILE+28
FILE^DICN PSN545D+22
FIELD^DID PSN545D+52
^DIE DRUGFILE+8, DRUGFILE+10, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15, DRUGFILE+23, HAZWASTE+3
FILE^DIE PSN545D+21, PSN545D+80
UPDATE^DIE PSN545D+67
WP^DIE WP+7
^DIK PSN545D+32, RXNORMD1+6, RXNORMD2+6
ENALL^DIK REINDEX+9
$$ROOT^DILFD PSN545D+19, PSN545D+27, PSN545D+73
$$GET1^DIQ PSN545D+21
EN2^GMRAUIX0 REINDEX+1
^PSNCLEAN MORE+11
ING^PSNXREF PSN545D+82
PSN^PSSHUIDG DRUGFILE+28
$$FMTE^XLFDT DRUGFILE+7, LOAD1+6
^XMD GROUP+7, GROUP+17, DRUGFILE+23
UPDATE^XPDID PSN545D+23, PSN545D+68, PSN545D+81, DRUGFILE+16, QUIT+1
$$PATCH^XPDUTL DRUGFILE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] Classic Fileman Calls
^PSDRUG - [#50] Classic Fileman Calls
^PSNDF(50.68 - [#50.68] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( PSN545D+63, PSN545D+77
^GMR(120.8 - [#120.8] REINDEX+3, REINDEX+4, REINDEX+5!
^PS(50.416 - [#50.416] MORE+2!*, MORE+5, MORE+6, MORE+7, MORE+8
^PS(50.605 - [#50.605] DRUGFILE+14
^PS(50.607 - [#50.607] LOAD+1
^PS(56 - [#56] MORE+4!, MORE+9*
^PSDRUG - [#50] DRUGFILE+5, DRUGFILE+9!, DRUGFILE+10, DRUGFILE+11!, DRUGFILE+12, DRUGFILE+15, LOAD+1, LOAD+2, LOAD+3, LOAD+4
LOAD+5
^PSNDF(50.68 - [#50.68] PSN545D+31, PSN545D+32, PSN545D+40, PSN545D+42, DRUGFILE+6, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15, RXNORMD1+3, RXNORMD2+4
, RXNORMD2+7!
^TMP("PPSN.WP" PSN545D+10!, PSN545D+56!, PSN545D+57*, PSN545D+58*, WP+1, WP+2, WP+3, WP+5, WP+6, WP+8!
^TMP("PPSN.WPXRF" PSN545D+10!, PSN545D+48*, PSN545D+56!
^TMP("PSN" PSN545D+10!, DRUGFILE+18!, QUIT+4!, LOAD1+1*, LOAD1+2*, LOAD1+3*, LOAD1+5*, LOAD1+6*, LOAD1+7*
^TMP("PSNN" PSN545D+10!, PSN545D+69*, PSN545D+82, QUIT+4!
^TMP($J PSN545D+10!, MESSAGE+1!*, GROUP+9!*, DRUGFILE+2!, DRUGFILE+7*, DRUGFILE+28, QUIT+4!, LOAD+1*, LOAD+2*, LOAD+3*
LOAD+4*, LOAD+5*, LOAD1+5, LOAD1+6, LOAD1+7
^XMB("NETNAME" GROUP+1, GROUP+11, DRUGFILE+20
^XUSEC("PSNMGR" GROUP+2, GROUP+12, DRUGFILE+21

Label References

Name Line Occurrences
$$STRIP PSN545D+57, PSN545D+58
@( DRUGFILE+25
HAZWASTE PSN545D+33, PSN545D+75
LOAD DRUGFILE+9
LOAD1 DRUGFILE+18
MORE REINDEX+1
RXNORMD1 PSN545D+35, PSN545D+36
RXNORMD2 PSN545D+44

Naked Globals

Name Field # of Occurrence
^( DRUGFILE+10*, DRUGFILE+15*, MORE+2, MORE+4, LOAD+2*, LOAD+3*, LOAD+4*, LOAD+5*, LOAD1+6, LOAD1+7
^("DOS1" DRUGFILE+9!, DRUGFILE+11!
^("DOS2" DRUGFILE+9!, DRUGFILE+11!
^("I" DRUGFILE+5
^("ND" DRUGFILE+5
^("POST" DRUGFILE+25
^(0 MORE+4, LOAD1+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CL PSN545D+7~, QUIT+2!
CLA PSN545D+7~, DRUGFILE+5*, QUIT+2!
CLASS REINDEX+2~, REINDEX+5*
CMOP PSN545D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
CNT RXNORMD2+1~, RXNORMD2+3*, RXNORMD2+5, RXNORMD2+7
CNT2 RXNORMD2+1~, RXNORMD2+3*, RXNORMD2+5, RXNORMD2+7
CT PSN545D+7~, WORD+1*, WORD+2*, QUIT+2!
DA PSN545D+7~, PSN545D+20*, PSN545D+21, PSN545D+22, PSN545D+32*, PSN545D+65*, PSN545D+67, PSN545D+82*, GROUP+2*, GROUP+12*
DRUGFILE+4*, DRUGFILE+5*, DRUGFILE+7, DRUGFILE+9, DRUGFILE+10, DRUGFILE+11, DRUGFILE+12, DRUGFILE+15, DRUGFILE+21*, DRUGFILE+23*
REINDEX+2~, MORE+2*, MORE+4*, MORE+9, QUIT+2!, LOAD+1, LOAD+2, LOAD+3, LOAD+4, LOAD+5
HAZWASTE+2~*, HAZWASTE+3*, RXNORMD1+1~, RXNORMD1+2*, RXNORMD1+3, RXNORMD2+1~, RXNORMD2+3*, RXNORMD2+4, RXNORMD2+5*
DA(1 PSN545D+32*, PSN545D+82*, REINDEX+6*, RXNORMD1+2*, RXNORMD1+3, RXNORMD1+5, RXNORMD2+3*, RXNORMD2+4, RXNORMD2+5*
DA(2 RXNORMD2+3*, RXNORMD2+5*
DA1 PSN545D+7~, QUIT+2!, LOAD+2*, LOAD+3*, LOAD+4*, LOAD+5*
DD PSN545D+22!
DIA PSN545D+7~, PSN545D+19*, PSN545D+20, PSN545D+27*, PSN545D+28, PSN545D+31, PSN545D+32, PSN545D+33, PSN545D+35, PSN545D+36
PSN545D+40, PSN545D+42, PSN545D+44, PSN545D+47, PSN545D+49, PSN545D+57, PSN545D+63, PSN545D+64, PSN545D+69, PSN545D+73*
PSN545D+74, PSN545D+75, PSN545D+77, PSN545D+78, QUIT+2!, HAZWASTE+3, RXNORMD1~, RXNORMD1+2, RXNORMD2~, RXNORMD2+2
, RXNORMD2+3
DIC PSN545D+7~, PSN545D+22*, QUIT+2!
DIC("DR" PSN545D+22*
DIC(0 PSN545D+22*
DIE PSN545D+7~, DRUGFILE+8*!, DRUGFILE+10*!, DRUGFILE+13*, DRUGFILE+14*, DRUGFILE+15*!, DRUGFILE+23*, QUIT+2!, HAZWASTE+2~*, HAZWASTE+3*
DIFROM GROUP+7~, GROUP+17~, DRUGFILE+23~
DIK PSN545D+7~, PSN545D+32*, REINDEX+2~, REINDEX+7*, QUIT+2!, RXNORMD1+1~, RXNORMD1+5*, RXNORMD2+1~, RXNORMD2+5*
DIK(1 REINDEX+8*
DINUM PSN545D+7~, PSN545D+22*, QUIT+2!
DO PSN545D+22!
DR PSN545D+7~, DRUGFILE+8*!, DRUGFILE+10*!, DRUGFILE+13*, DRUGFILE+14*, DRUGFILE+15*!, DRUGFILE+23*, QUIT+2!, HAZWASTE+3*
DT DRUGFILE+5
DUZ GROUP+3, GROUP+13, DRUGFILE+22
ERR WP+4!
FDA PSN545D+7~, PSN545D+20!, PSN545D+28!, PSN545D+49!, PSN545D+74!, QUIT+2!
FDA( PSN545D+21*, PSN545D+67*, PSN545D+80*
FILE PSN545D+7~, PSN545D+17*, PSN545D+19*, PSN545D+21, PSN545D+25*, PSN545D+27*, PSN545D+28, PSN545D+30, PSN545D+48, PSN545D+49
PSN545D+52, PSN545D+56, PSN545D+57, PSN545D+58, PSN545D+69, PSN545D+71*, PSN545D+73*, PSN545D+74, PSN545D+75, WP+1*
WP+2, WP+3, WP+5, WP+6, WP+7, QUIT+2!
FLDS PSN545D+7~, PSN545D+28*, PSN545D+31, PSN545D+39, PSN545D+49*, PSN545D+52, PSN545D+55, PSN545D+56, PSN545D+61, PSN545D+74*
PSN545D+76, PSN545D+79*, PSN545D+80, WP+3*, WP+5, WP+6, WP+7, QUIT+2!
GE PSN545D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
GMRAIEN REINDEX+2~, REINDEX+4*, REINDEX+5
GROOT PSN545D+7~, PSN545D+17*, PSN545D+19, PSN545D+25*, PSN545D+27, PSN545D+71*, PSN545D+73, QUIT+2!
GROOT1 PSN545D+7~, PSN545D+19*, PSN545D+27*, PSN545D+73*, QUIT+2!
I STRIP+1~, STRIP+2*
IEN PSN545D+28!, PSN545D+49!, PSN545D+74!
IEN( PSN545D+67*
IENS PSN545D+7~, PSN545D+20!, PSN545D+28*, PSN545D+31, PSN545D+49*, PSN545D+55, PSN545D+56, PSN545D+64*, PSN545D+65, PSN545D+67
PSN545D+74*, PSN545D+78*, PSN545D+80, WP+2*, WP+3, WP+5, WP+6, WP+7, QUIT+2!
IN PSN545D+7~, DRUGFILE+5*, DRUGFILE+7*, QUIT+2!, LOAD+1, LOAD+2, LOAD+3, LOAD+4, LOAD+5
INA PSN545D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
IND PSN545D+7~, DRUGFILE+10*, DRUGFILE+15*, QUIT+2!
INDX PSN545D+7~, DRUGFILE+7*, DRUGFILE+18*, QUIT+2!, LOAD+1, LOAD+2, LOAD+3, LOAD+4, LOAD+5, LOAD1+2
LOAD1+5, LOAD1+6, LOAD1+7
INV PSN545D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
J PSN545D+7~, PSN545D+63*, PSN545D+64*, PSN545D+77*, PSN545D+78*, QUIT+2!, LOAD+1*, LOAD+2*, LOAD+3*, LOAD+4*
LOAD+5*, LOAD1+3*, LOAD1+6*, LOAD1+7*
JJ PSN545D+7~, PSN545D+19*, PSN545D+27*, PSN545D+55, PSN545D+59*, PSN545D+73*, PSN545D+82*, WP+5*, WP+6, QUIT+2!
K PSN545D+7~, MORE+2*, QUIT+2!
LI PSN545D+7~, PSN545D+63*, PSN545D+64*, PSN545D+77*, PSN545D+78*, QUIT+2!
LINE PSN545D+7~, DRUGFILE+18*, QUIT+2!, LOAD1+1*, LOAD1+2*, LOAD1+3*, LOAD1+5*, LOAD1+6*, LOAD1+7*
MFLDS PSN545D+9~, PSN545D+47*, PSN545D+48
MIENS PSN545D+9~, PSN545D+47*, PSN545D+48
MJJ PSN545D+9~, PSN545D+55*, PSN545D+57*, PSN545D+58*
NA PSN545D+7~, DRUGFILE+5*, DRUGFILE+7, MORE+5*, MORE+6*, MORE+7*, MORE+8*, QUIT+2!, LOAD+1, LOAD+2
LOAD+3, LOAD+4, LOAD+5, LOAD1+5*, LOAD1+6*, LOAD1+7
NAME PSN545D+7~, WORD+2*, QUIT+2!
ND PSN545D+7~, DRUGFILE+12*, DRUGFILE+13, QUIT+2!
NEW PSN545D+7~, PSN545D+19*, PSN545D+21, PSN545D+22, PSN545D+27*, PSN545D+33, PSN545D+35, PSN545D+36, PSN545D+48, PSN545D+58
PSN545D+59, PSN545D+67, PSN545D+73*, PSN545D+75, PSN545D+80, QUIT+2!
NFI PSN545D+7~, DRUGFILE+13*, QUIT+2!
OFLDS PSN545D+9~, PSN545D+48, PSN545D+55*, PSN545D+56, PSN545D+57, PSN545D+58
OIENS PSN545D+9~, PSN545D+48, PSN545D+55*, PSN545D+56, PSN545D+57, PSN545D+58
OVAL RXNORMD2+1~, RXNORMD2+4*, RXNORMD2+7
POST PSN545D+7~, DRUGFILE+25*, QUIT+2!
PR PSN545D+7~, DRUGFILE+5*, DRUGFILE+6, DRUGFILE+7, DRUGFILE+11, DRUGFILE+12*, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15, QUIT+2!
PSN PSN545D+7~, DRUGFILE+3*, DRUGFILE+9, DRUGFILE+11, QUIT+2!
PSN1 PSN545D+7~, DRUGFILE+3*, DRUGFILE+10, MORE+4!*, MORE+5, MORE+6, MORE+9*, QUIT+2!
PSN1( MORE+5*, MORE+6*, MORE+9
PSN11 PSN545D+7~, MORE+6*, QUIT+2!
PSN2 MORE+4!*, MORE+7, MORE+8, MORE+9*
PSN2( MORE+7*, MORE+8*, MORE+9
PSN21 PSN545D+7~, MORE+8*, QUIT+2!
>> PSNCPCNT PSN545D+31*, PSN545D+32*
PSNDF PSN545D+7~, PSN545D+12*, QUIT+2!
PSNMULTI PSN545D+9~, PSN545D+46, PSN545D+48*, PSN545D+52, PSN545D+53, PSN545D+54, PSN545D+58*
PSNVAPN PSN545D+9~, RXNORMD2+1~, RXNORMD2+2*, RXNORMD2+4, RXNORMD2+5, RXNORMD2+7
R1 PSN545D+7~, QUIT+2!
RES1 PSN545D+51!
RES1("TYPE" PSN545D+53
ROOT PSN545D+7~, PSN545D+19*, PSN545D+22, PSN545D+27*, PSN545D+28*, PSN545D+49*, PSN545D+63*, PSN545D+67, PSN545D+73*, PSN545D+74*
PSN545D+77*, PSN545D+80, QUIT+2!
ROOT1 PSN545D+7~, WORD+1*, WORD+2, DRUGFILE+4*, DRUGFILE+7, QUIT+2!
ROOT2 PSN545D+7~, WORD+1*, WORD+2*, DRUGFILE+4*, DRUGFILE+7, QUIT+2!
ROOT3 PSN545D+7~, WORD+2*, DRUGFILE+4*, DRUGFILE+11, QUIT+2!
>> SS1 PSN545D+40*, PSN545D+41, PSN545D+42
>> SS2 PSN545D+42*
>> SS3 PSN545D+42*, PSN545D+43
SUB REINDEX+2~, REINDEX+3*, REINDEX+4, REINDEX+5, REINDEX+6
SUBS PSN545D+7~, QUIT+2!
TMP WP+4!
TMP( WP+6*
TREC PSN545D+8~, PSN545D+12*, PSN545D+23*, PSN545D+68*, PSN545D+81*, DRUGFILE+16*
U REINDEX+4
VAC PSN545D+7~, DRUGFILE+14*, QUIT+2!
VAIN PSN545D+7~, DRUGFILE+6*, DRUGFILE+7, QUIT+2!
VAPN PSN545D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
X PSN545D+8~, PSN545D+22*, GROUP+1*, GROUP+11*, DRUGFILE+5*, DRUGFILE+7*, DRUGFILE+20*, MORE+2*, QUIT+3!, LOAD+1*
LOAD+3*, LOAD+5*, LOAD1+6*, STRIP~, STRIP+2, RXNORMD1+1~, RXNORMD1+3*, RXNORMD1+4
XMDUZ PSN545D+8~, GROUP+6*, GROUP+16*, DRUGFILE+19*, QUIT+3!
XMSUB PSN545D+8~, GROUP+5*, GROUP+15*, DRUGFILE+19*, QUIT+3!
XMTEXT PSN545D+8~, GROUP+7*, GROUP+17*, DRUGFILE+19*, QUIT+3!
XMY PSN545D+8~, GROUP+1!, GROUP+11!, DRUGFILE+20!, QUIT+3!
XMY( GROUP+2*, GROUP+3*, GROUP+12*, GROUP+13*, DRUGFILE+21*, DRUGFILE+22*
XMY("G." GROUP+1*, GROUP+11*, DRUGFILE+20*
XMZ PSN545D+8~, DRUGFILE+23, QUIT+3!
>> XPDGREF PSN545D+12, PSN545D+17, PSN545D+25, PSN545D+71, WORD+1, MESSAGE+1, GROUP+1, GROUP+9, GROUP+11, DRUGFILE+4
DRUGFILE+20, DRUGFILE+25, LOAD1+3
>> XPDIDTOT PSN545D+12*, QUIT+1
XUMF PSN545D+8~, PSN545D+13*, QUIT+3!
Y STRIP+1~, STRIP+2*, STRIP+3
ZTDESC PSN545D+9~, DRUGFILE+28*, QUIT+3!
ZTDTH PSN545D+9~, DRUGFILE+28*, QUIT+3!
ZTIO PSN545D+9~, DRUGFILE+28*, QUIT+3!
ZTRTN PSN545D+9~, DRUGFILE+28*, QUIT+3!
ZTSAVE PSN545D+9~, QUIT+3!
ZTSAVE("^TMP($J,""^""," DRUGFILE+28*

Marked Items

Name Field # of Occurrence
$T(EN2^GMRAUIX0 REINDEX+1
$T(PSN^PSSHUIDG DRUGFILE+28
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All