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: PSN548D

Package: National Drug File

Routine: PSN548D


Information

PSN548D ;BIR/DMA-post install routine to load data ; 03 Jan 2018 1:28 PM

Source Information

Source file <PSN548D.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 PSN548D+22
FIELD^DID PSN548D+52
^DIE DRUGFILE+8, DRUGFILE+10, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15, DRUGFILE+23, HAZWASTE+3
FILE^DIE PSN548D+21, PSN548D+80
UPDATE^DIE PSN548D+67
WP^DIE WP+7
^DIK PSN548D+32, RXNORMD1+6, RXNORMD2+6
ENALL^DIK REINDEX+9
$$ROOT^DILFD PSN548D+19, PSN548D+27, PSN548D+73
$$GET1^DIQ PSN548D+21
EN2^GMRAUIX0 REINDEX+1
^PSNCLEAN MORE+11
ING^PSNXREF PSN548D+82
PSN^PSSHUIDG DRUGFILE+28
$$FMTE^XLFDT DRUGFILE+7, LOAD1+6
^XMD GROUP+7, GROUP+17, DRUGFILE+23
UPDATE^XPDID PSN548D+23, PSN548D+68, PSN548D+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( PSN548D+63, PSN548D+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] PSN548D+31, PSN548D+32, PSN548D+40, PSN548D+42, DRUGFILE+6, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15, RXNORMD1+3, RXNORMD2+4
, RXNORMD2+7!
^TMP("PPSN.WP" PSN548D+10!, PSN548D+56!, PSN548D+57*, PSN548D+58*, WP+1, WP+2, WP+3, WP+5, WP+6, WP+8!
^TMP("PPSN.WPXRF" PSN548D+10!, PSN548D+48*, PSN548D+56!
^TMP("PSN" PSN548D+10!, DRUGFILE+18!, QUIT+4!, LOAD1+1*, LOAD1+2*, LOAD1+3*, LOAD1+5*, LOAD1+6*, LOAD1+7*
^TMP("PSNN" PSN548D+10!, PSN548D+69*, PSN548D+82, QUIT+4!
^TMP($J PSN548D+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 PSN548D+57, PSN548D+58
@( DRUGFILE+25
HAZWASTE PSN548D+33, PSN548D+75
LOAD DRUGFILE+9
LOAD1 DRUGFILE+18
MORE REINDEX+1
RXNORMD1 PSN548D+35, PSN548D+36
RXNORMD2 PSN548D+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 PSN548D+7~, QUIT+2!
CLA PSN548D+7~, DRUGFILE+5*, QUIT+2!
CLASS REINDEX+2~, REINDEX+5*
CMOP PSN548D+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 PSN548D+7~, WORD+1*, WORD+2*, QUIT+2!
DA PSN548D+7~, PSN548D+20*, PSN548D+21, PSN548D+22, PSN548D+32*, PSN548D+65*, PSN548D+67, PSN548D+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 PSN548D+32*, PSN548D+82*, REINDEX+6*, RXNORMD1+2*, RXNORMD1+3, RXNORMD1+5, RXNORMD2+3*, RXNORMD2+4, RXNORMD2+5*
DA(2 RXNORMD2+3*, RXNORMD2+5*
DA1 PSN548D+7~, QUIT+2!, LOAD+2*, LOAD+3*, LOAD+4*, LOAD+5*
DD PSN548D+22!
DIA PSN548D+7~, PSN548D+19*, PSN548D+20, PSN548D+27*, PSN548D+28, PSN548D+31, PSN548D+32, PSN548D+33, PSN548D+35, PSN548D+36
PSN548D+40, PSN548D+42, PSN548D+44, PSN548D+47, PSN548D+49, PSN548D+57, PSN548D+63, PSN548D+64, PSN548D+69, PSN548D+73*
PSN548D+74, PSN548D+75, PSN548D+77, PSN548D+78, QUIT+2!, HAZWASTE+3, RXNORMD1~, RXNORMD1+2, RXNORMD2~, RXNORMD2+2
, RXNORMD2+3
DIC PSN548D+7~, PSN548D+22*, QUIT+2!
DIC("DR" PSN548D+22*
DIC(0 PSN548D+22*
DIE PSN548D+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 PSN548D+7~, PSN548D+32*, REINDEX+2~, REINDEX+7*, QUIT+2!, RXNORMD1+1~, RXNORMD1+5*, RXNORMD2+1~, RXNORMD2+5*
DIK(1 REINDEX+8*
DINUM PSN548D+7~, PSN548D+22*, QUIT+2!
DO PSN548D+22!
DR PSN548D+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 PSN548D+7~, PSN548D+20!, PSN548D+28!, PSN548D+49!, PSN548D+74!, QUIT+2!
FDA( PSN548D+21*, PSN548D+67*, PSN548D+80*
FILE PSN548D+7~, PSN548D+17*, PSN548D+19*, PSN548D+21, PSN548D+25*, PSN548D+27*, PSN548D+28, PSN548D+30, PSN548D+48, PSN548D+49
PSN548D+52, PSN548D+56, PSN548D+57, PSN548D+58, PSN548D+69, PSN548D+71*, PSN548D+73*, PSN548D+74, PSN548D+75, WP+1*
WP+2, WP+3, WP+5, WP+6, WP+7, QUIT+2!
FLDS PSN548D+7~, PSN548D+28*, PSN548D+31, PSN548D+39, PSN548D+49*, PSN548D+52, PSN548D+55, PSN548D+56, PSN548D+61, PSN548D+74*
PSN548D+76, PSN548D+79*, PSN548D+80, WP+3*, WP+5, WP+6, WP+7, QUIT+2!
GE PSN548D+7~, DRUGFILE+5*, QUIT+2!
GMRAIEN REINDEX+2~, REINDEX+4*, REINDEX+5
GROOT PSN548D+7~, PSN548D+17*, PSN548D+19, PSN548D+25*, PSN548D+27, PSN548D+71*, PSN548D+73, QUIT+2!
GROOT1 PSN548D+7~, PSN548D+19*, PSN548D+27*, PSN548D+73*, QUIT+2!
I STRIP+1~, STRIP+2*
IEN PSN548D+28!, PSN548D+49!, PSN548D+74!
IEN( PSN548D+67*
IENS PSN548D+7~, PSN548D+20!, PSN548D+28*, PSN548D+31, PSN548D+49*, PSN548D+55, PSN548D+56, PSN548D+64*, PSN548D+65, PSN548D+67
PSN548D+74*, PSN548D+78*, PSN548D+80, WP+2*, WP+3, WP+5, WP+6, WP+7, QUIT+2!
IN PSN548D+7~, DRUGFILE+5*, DRUGFILE+7*, QUIT+2!, LOAD+1, LOAD+2, LOAD+3, LOAD+4, LOAD+5
INA PSN548D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
IND PSN548D+7~, DRUGFILE+10*, DRUGFILE+15*, QUIT+2!
INDX PSN548D+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 PSN548D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
J PSN548D+7~, PSN548D+63*, PSN548D+64*, PSN548D+77*, PSN548D+78*, QUIT+2!, LOAD+1*, LOAD+2*, LOAD+3*, LOAD+4*
LOAD+5*, LOAD1+3*, LOAD1+6*, LOAD1+7*
JJ PSN548D+7~, PSN548D+19*, PSN548D+27*, PSN548D+55, PSN548D+59*, PSN548D+73*, PSN548D+82*, WP+5*, WP+6, QUIT+2!
K PSN548D+7~, MORE+2*, QUIT+2!
LI PSN548D+7~, PSN548D+63*, PSN548D+64*, PSN548D+77*, PSN548D+78*, QUIT+2!
LINE PSN548D+7~, DRUGFILE+18*, QUIT+2!, LOAD1+1*, LOAD1+2*, LOAD1+3*, LOAD1+5*, LOAD1+6*, LOAD1+7*
MFLDS PSN548D+9~, PSN548D+47*, PSN548D+48
MIENS PSN548D+9~, PSN548D+47*, PSN548D+48
MJJ PSN548D+9~, PSN548D+55*, PSN548D+57*, PSN548D+58*
NA PSN548D+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 PSN548D+7~, WORD+2*, QUIT+2!
ND PSN548D+7~, DRUGFILE+12*, DRUGFILE+13, QUIT+2!
NEW PSN548D+7~, PSN548D+19*, PSN548D+21, PSN548D+22, PSN548D+27*, PSN548D+33, PSN548D+35, PSN548D+36, PSN548D+48, PSN548D+58
PSN548D+59, PSN548D+67, PSN548D+73*, PSN548D+75, PSN548D+80, QUIT+2!
NFI PSN548D+7~, DRUGFILE+13*, QUIT+2!
OFLDS PSN548D+9~, PSN548D+48, PSN548D+55*, PSN548D+56, PSN548D+57, PSN548D+58
OIENS PSN548D+9~, PSN548D+48, PSN548D+55*, PSN548D+56, PSN548D+57, PSN548D+58
OVAL RXNORMD2+1~, RXNORMD2+4*, RXNORMD2+7
POST PSN548D+7~, DRUGFILE+25*, QUIT+2!
PR PSN548D+7~, DRUGFILE+5*, DRUGFILE+6, DRUGFILE+7, DRUGFILE+11, DRUGFILE+12*, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15, QUIT+2!
PSN PSN548D+7~, DRUGFILE+3*, DRUGFILE+9, DRUGFILE+11, QUIT+2!
PSN1 PSN548D+7~, DRUGFILE+3*, DRUGFILE+10, MORE+4!*, MORE+5, MORE+6, MORE+9*, QUIT+2!
PSN1( MORE+5*, MORE+6*, MORE+9
PSN11 PSN548D+7~, MORE+6*, QUIT+2!
PSN2 MORE+4!*, MORE+7, MORE+8, MORE+9*
PSN2( MORE+7*, MORE+8*, MORE+9
PSN21 PSN548D+7~, MORE+8*, QUIT+2!
>> PSNCPCNT PSN548D+31*, PSN548D+32*
PSNDF PSN548D+7~, PSN548D+12*, QUIT+2!
PSNMULTI PSN548D+9~, PSN548D+46, PSN548D+48*, PSN548D+52, PSN548D+53, PSN548D+54, PSN548D+58*
PSNVAPN PSN548D+9~, RXNORMD2+1~, RXNORMD2+2*, RXNORMD2+4, RXNORMD2+5, RXNORMD2+7
R1 PSN548D+7~, QUIT+2!
RES1 PSN548D+51!
RES1("TYPE" PSN548D+53
ROOT PSN548D+7~, PSN548D+19*, PSN548D+22, PSN548D+27*, PSN548D+28*, PSN548D+49*, PSN548D+63*, PSN548D+67, PSN548D+73*, PSN548D+74*
PSN548D+77*, PSN548D+80, QUIT+2!
ROOT1 PSN548D+7~, WORD+1*, WORD+2, DRUGFILE+4*, QUIT+2!
ROOT2 PSN548D+7~, WORD+1*, WORD+2*, DRUGFILE+4*, DRUGFILE+7, QUIT+2!
ROOT3 PSN548D+7~, WORD+2*, DRUGFILE+4*, DRUGFILE+11, QUIT+2!
>> SS1 PSN548D+40*, PSN548D+41, PSN548D+42
>> SS2 PSN548D+42*
>> SS3 PSN548D+42*, PSN548D+43
SUB REINDEX+2~, REINDEX+3*, REINDEX+4, REINDEX+5, REINDEX+6
SUBS PSN548D+7~, QUIT+2!
TMP WP+4!
TMP( WP+6*
TREC PSN548D+8~, PSN548D+12*, PSN548D+23*, PSN548D+68*, PSN548D+81*, DRUGFILE+16*
U REINDEX+4
VAC PSN548D+7~, DRUGFILE+14*, QUIT+2!
VAIN PSN548D+7~, DRUGFILE+6*, DRUGFILE+7, QUIT+2!
VAPN PSN548D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
X PSN548D+8~, PSN548D+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 PSN548D+8~, GROUP+6*, GROUP+16*, DRUGFILE+19*, QUIT+3!
XMSUB PSN548D+8~, GROUP+5*, GROUP+15*, DRUGFILE+19*, QUIT+3!
XMTEXT PSN548D+8~, GROUP+7*, GROUP+17*, DRUGFILE+19*, QUIT+3!
XMY PSN548D+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 PSN548D+8~, DRUGFILE+23, QUIT+3!
>> XPDGREF PSN548D+12, PSN548D+17, PSN548D+25, PSN548D+71, WORD+1, MESSAGE+1, GROUP+1, GROUP+9, GROUP+11, DRUGFILE+4
DRUGFILE+20, DRUGFILE+25, LOAD1+3
>> XPDIDTOT PSN548D+12*, QUIT+1
XUMF PSN548D+8~, PSN548D+13*, QUIT+3!
Y STRIP+1~, STRIP+2*, STRIP+3
ZTDESC PSN548D+9~, DRUGFILE+28*, QUIT+3!
ZTDTH PSN548D+9~, DRUGFILE+28*, QUIT+3!
ZTIO PSN548D+9~, DRUGFILE+28*, QUIT+3!
ZTRTN PSN548D+9~, DRUGFILE+28*, QUIT+3!
ZTSAVE PSN548D+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