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

Package: National Drug File

Routine: PSN536D


Information

PSN536D ;BIR/DMA-post install routine to load data ; 13 Oct 2017 10:18 AM

Source Information

Source file <PSN536D.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

External References

Name Field # of Occurrence
^%ZTLOAD DRUGFILE+28
FILE^DICN PSN536D+22
FIELD^DID PSN536D+45
^DIE DRUGFILE+8, DRUGFILE+10, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15, DRUGFILE+23, HAZWASTE+3
FILE^DIE PSN536D+21, PSN536D+73
UPDATE^DIE PSN536D+60
WP^DIE WP+7
^DIK PSN536D+32, PSN536D+37
ENALL^DIK REINDEX+9
$$ROOT^DILFD PSN536D+19, PSN536D+27, PSN536D+66
$$GET1^DIQ PSN536D+21
EN2^GMRAUIX0 REINDEX+1
^PSNCLEAN MORE+11
ING^PSNXREF PSN536D+75
PSN^PSSHUIDG DRUGFILE+28
$$FMTE^XLFDT DRUGFILE+7, LOAD1+6
^XMD GROUP+7, GROUP+17, DRUGFILE+23
UPDATE^XPDID PSN536D+23, PSN536D+61, PSN536D+74, 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( PSN536D+56, PSN536D+70
^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] PSN536D+31, PSN536D+32, PSN536D+36, PSN536D+37, DRUGFILE+6, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15
^TMP("PPSN.WP" PSN536D+10!, PSN536D+49!, PSN536D+50*, PSN536D+51*, WP+1, WP+2, WP+3, WP+5, WP+6, WP+8!
^TMP("PPSN.WPXRF" PSN536D+10!, PSN536D+41*, PSN536D+49!
^TMP("PSN" PSN536D+10!, DRUGFILE+18!, QUIT+4!, LOAD1+1*, LOAD1+2*, LOAD1+3*, LOAD1+5*, LOAD1+6*, LOAD1+7*
^TMP("PSNN" PSN536D+10!, PSN536D+62*, PSN536D+75, QUIT+4!
^TMP($J PSN536D+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 PSN536D+50, PSN536D+51
@( DRUGFILE+25
HAZWASTE PSN536D+33, PSN536D+68
LOAD DRUGFILE+9
LOAD1 DRUGFILE+18
MORE REINDEX+1

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 PSN536D+7~, QUIT+2!
CLA PSN536D+7~, DRUGFILE+5*, QUIT+2!
CLASS REINDEX+2~, REINDEX+5*
CMOP PSN536D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
>> CNT1 PSN536D+36*, PSN536D+37*
CT PSN536D+7~, WORD+1*, WORD+2*, QUIT+2!
DA PSN536D+7~, PSN536D+20*, PSN536D+21, PSN536D+22, PSN536D+32*, PSN536D+37*, PSN536D+58*, PSN536D+60, PSN536D+75*, 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*
DA(1 PSN536D+32*, PSN536D+37*, PSN536D+75*, REINDEX+6*
DA1 PSN536D+7~, QUIT+2!, LOAD+2*, LOAD+3*, LOAD+4*, LOAD+5*
DD PSN536D+22!
DIA PSN536D+7~, PSN536D+19*, PSN536D+20, PSN536D+27*, PSN536D+28, PSN536D+31, PSN536D+32, PSN536D+33, PSN536D+36, PSN536D+37
PSN536D+40, PSN536D+42, PSN536D+50, PSN536D+56, PSN536D+57, PSN536D+62, PSN536D+66*, PSN536D+67, PSN536D+68, PSN536D+70
PSN536D+71, QUIT+2!, HAZWASTE+3
DIC PSN536D+7~, PSN536D+22*, QUIT+2!
DIC("DR" PSN536D+22*
DIC(0 PSN536D+22*
DIE PSN536D+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 PSN536D+7~, PSN536D+32*, PSN536D+37*, REINDEX+2~, REINDEX+7*, QUIT+2!
DIK(1 REINDEX+8*
DINUM PSN536D+7~, PSN536D+22*, QUIT+2!
DO PSN536D+22!
DR PSN536D+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 PSN536D+7~, PSN536D+20!, PSN536D+28!, PSN536D+42!, PSN536D+67!, QUIT+2!
FDA( PSN536D+21*, PSN536D+60*, PSN536D+73*
FILE PSN536D+7~, PSN536D+17*, PSN536D+19*, PSN536D+21, PSN536D+25*, PSN536D+27*, PSN536D+28, PSN536D+30, PSN536D+36, PSN536D+41
PSN536D+42, PSN536D+45, PSN536D+49, PSN536D+50, PSN536D+51, PSN536D+62, PSN536D+64*, PSN536D+66*, PSN536D+67, PSN536D+68
WP+1*, WP+2, WP+3, WP+5, WP+6, WP+7, QUIT+2!
FLDS PSN536D+7~, PSN536D+28*, PSN536D+31, PSN536D+36, PSN536D+42*, PSN536D+45, PSN536D+48, PSN536D+49, PSN536D+54, PSN536D+67*
PSN536D+69, PSN536D+72*, PSN536D+73, WP+3*, WP+5, WP+6, WP+7, QUIT+2!
GE PSN536D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
GMRAIEN REINDEX+2~, REINDEX+4*, REINDEX+5
GROOT PSN536D+7~, PSN536D+17*, PSN536D+19, PSN536D+25*, PSN536D+27, PSN536D+64*, PSN536D+66, QUIT+2!
GROOT1 PSN536D+7~, PSN536D+19*, PSN536D+27*, PSN536D+66*, QUIT+2!
I STRIP+1~, STRIP+2*
IEN PSN536D+28!, PSN536D+42!, PSN536D+67!
IEN( PSN536D+60*
IENS PSN536D+7~, PSN536D+20!, PSN536D+28*, PSN536D+31, PSN536D+36, PSN536D+42*, PSN536D+48, PSN536D+49, PSN536D+57*, PSN536D+58
PSN536D+60, PSN536D+67*, PSN536D+71*, PSN536D+73, WP+2*, WP+3, WP+5, WP+6, WP+7, QUIT+2!
IN PSN536D+7~, DRUGFILE+5*, DRUGFILE+7*, QUIT+2!, LOAD+1, LOAD+2, LOAD+3, LOAD+4, LOAD+5
INA PSN536D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
IND PSN536D+7~, DRUGFILE+10*, DRUGFILE+15*, QUIT+2!
INDX PSN536D+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 PSN536D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
J PSN536D+7~, PSN536D+56*, PSN536D+57*, PSN536D+70*, PSN536D+71*, QUIT+2!, LOAD+1*, LOAD+2*, LOAD+3*, LOAD+4*
LOAD+5*, LOAD1+3*, LOAD1+6*, LOAD1+7*
JJ PSN536D+7~, PSN536D+19*, PSN536D+27*, PSN536D+48, PSN536D+52*, PSN536D+66*, PSN536D+75*, WP+5*, WP+6, QUIT+2!
K PSN536D+7~, MORE+2*, QUIT+2!
LI PSN536D+7~, PSN536D+56*, PSN536D+57*, PSN536D+70*, PSN536D+71*, QUIT+2!
LINE PSN536D+7~, DRUGFILE+18*, QUIT+2!, LOAD1+1*, LOAD1+2*, LOAD1+3*, LOAD1+5*, LOAD1+6*, LOAD1+7*
MFLDS PSN536D+9~, PSN536D+40*, PSN536D+41
MIENS PSN536D+9~, PSN536D+40*, PSN536D+41
MJJ PSN536D+9~, PSN536D+48*, PSN536D+50*, PSN536D+51*
NA PSN536D+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 PSN536D+7~, WORD+2*, QUIT+2!
ND PSN536D+7~, DRUGFILE+12*, DRUGFILE+13, QUIT+2!
NEW PSN536D+7~, PSN536D+19*, PSN536D+21, PSN536D+22, PSN536D+27*, PSN536D+33, PSN536D+41, PSN536D+51, PSN536D+52, PSN536D+60
PSN536D+66*, PSN536D+68, PSN536D+73, QUIT+2!
NFI PSN536D+7~, DRUGFILE+13*, QUIT+2!
OFLDS PSN536D+9~, PSN536D+41, PSN536D+48*, PSN536D+49, PSN536D+50, PSN536D+51
OIENS PSN536D+9~, PSN536D+41, PSN536D+48*, PSN536D+49, PSN536D+50, PSN536D+51
POST PSN536D+7~, DRUGFILE+25*, QUIT+2!
PR PSN536D+7~, DRUGFILE+5*, DRUGFILE+6, DRUGFILE+7, DRUGFILE+11, DRUGFILE+12*, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15, QUIT+2!
PSN PSN536D+7~, DRUGFILE+3*, DRUGFILE+9, DRUGFILE+11, QUIT+2!
PSN1 PSN536D+7~, DRUGFILE+3*, DRUGFILE+10, MORE+4!*, MORE+5, MORE+6, MORE+9*, QUIT+2!
PSN1( MORE+5*, MORE+6*, MORE+9
PSN11 PSN536D+7~, MORE+6*, QUIT+2!
PSN2 MORE+4!*, MORE+7, MORE+8, MORE+9*
PSN2( MORE+7*, MORE+8*, MORE+9
PSN21 PSN536D+7~, MORE+8*, QUIT+2!
>> PSNCPCNT PSN536D+31*, PSN536D+32*
PSNDF PSN536D+7~, PSN536D+12*, QUIT+2!
PSNMULTI PSN536D+9~, PSN536D+39, PSN536D+41*, PSN536D+45, PSN536D+46, PSN536D+47, PSN536D+51*
R1 PSN536D+7~, QUIT+2!
RES1 PSN536D+44!
RES1("TYPE" PSN536D+46
ROOT PSN536D+7~, PSN536D+19*, PSN536D+22, PSN536D+27*, PSN536D+28*, PSN536D+42*, PSN536D+56*, PSN536D+60, PSN536D+66*, PSN536D+67*
PSN536D+70*, PSN536D+73, QUIT+2!
ROOT1 PSN536D+7~, WORD+1*, WORD+2, DRUGFILE+4*, DRUGFILE+7, QUIT+2!
ROOT2 PSN536D+7~, WORD+1*, WORD+2*, DRUGFILE+4*, DRUGFILE+7, QUIT+2!
ROOT3 PSN536D+7~, WORD+2*, DRUGFILE+4*, DRUGFILE+11, QUIT+2!
SUB REINDEX+2~, REINDEX+3*, REINDEX+4, REINDEX+5, REINDEX+6
SUBS PSN536D+7~, QUIT+2!
TMP WP+4!
TMP( WP+6*
TREC PSN536D+8~, PSN536D+12*, PSN536D+23*, PSN536D+61*, PSN536D+74*, DRUGFILE+16*
U REINDEX+4
VAC PSN536D+7~, DRUGFILE+14*, QUIT+2!
VAIN PSN536D+7~, DRUGFILE+6*, DRUGFILE+7, QUIT+2!
VAPN PSN536D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT+2!
X PSN536D+8~, PSN536D+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
XMDUZ PSN536D+8~, GROUP+6*, GROUP+16*, DRUGFILE+19*, QUIT+3!
XMSUB PSN536D+8~, GROUP+5*, GROUP+15*, DRUGFILE+19*, QUIT+3!
XMTEXT PSN536D+8~, GROUP+7*, GROUP+17*, DRUGFILE+19*, QUIT+3!
XMY PSN536D+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 PSN536D+8~, DRUGFILE+23, QUIT+3!
>> XPDGREF PSN536D+12, PSN536D+17, PSN536D+25, PSN536D+64, WORD+1, MESSAGE+1, GROUP+1, GROUP+9, GROUP+11, DRUGFILE+4
DRUGFILE+20, DRUGFILE+25, LOAD1+3
>> XPDIDTOT PSN536D+12*, QUIT+1
XUMF PSN536D+8~, PSN536D+13*, QUIT+3!
Y STRIP+1~, STRIP+2*, STRIP+3
ZTDESC PSN536D+9~, DRUGFILE+28*, QUIT+3!
ZTDTH PSN536D+9~, DRUGFILE+28*, QUIT+3!
ZTIO PSN536D+9~, DRUGFILE+28*, QUIT+3!
ZTRTN PSN536D+9~, DRUGFILE+28*, QUIT+3!
ZTSAVE PSN536D+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