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

Package: National Drug File

Routine: PSN138D


Information

PSN138D ;BIR/DMA-post install routine to load data ; 03 Apr 2007 12:42 PM

Source Information

Source file <PSN138D.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 5 FILE^DICN  (,FILE,UPDATE)^DIE  ENALL^DIK  $$ROOT^DILFD  $$GET1^DIQ  
Kernel 3 ^%ZTLOAD  $$FMTE^XLFDT  $$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
WORD
MESSAGE
GROUP
DRUGFILE ;
REINDEX ;Make sure APC xref is correct
MORE ;REINDEXING
QUIT
LOAD ;GET DOSE STUFF
LOAD1 ;BUILD THE MESSAGE

External References

Name Field # of Occurrence
^%ZTLOAD DRUGFILE+27
FILE^DICN PSN138D+22
^DIE DRUGFILE+8, DRUGFILE+10, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15, DRUGFILE+22
FILE^DIE PSN138D+21, PSN138D+45
UPDATE^DIE PSN138D+34
ENALL^DIK REINDEX+9
$$ROOT^DILFD PSN138D+19, PSN138D+26, PSN138D+39
$$GET1^DIQ PSN138D+21
EN2^GMRAUIX0 REINDEX+1
^PSNCLEAN MORE+11
ING^PSNXREF PSN138D+46
PSN^PSSHUIDG DRUGFILE+27
$$FMTE^XLFDT DRUGFILE+7, LOAD1+6
^XMD GROUP+6, GROUP+16, DRUGFILE+22
$$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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( PSN138D+30, PSN138D+42
^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] DRUGFILE+6, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15
^TMP("PSN" PSN138D+10!, DRUGFILE+17!, QUIT+2!, LOAD1+1*, LOAD1+2*, LOAD1+3*, LOAD1+5*, LOAD1+6*, LOAD1+7*
^TMP("PSNN" PSN138D+10!, PSN138D+35*, PSN138D+46, QUIT+2!
^TMP($J PSN138D+10!, MESSAGE!*, GROUP+8!*, DRUGFILE+2!, DRUGFILE+7*, DRUGFILE+27, QUIT+2!, LOAD+1*, LOAD+2*, LOAD+3*
LOAD+4*, LOAD+5*, LOAD1+5, LOAD1+6, LOAD1+7
^XMB("NETNAME" GROUPGROUP+10, DRUGFILE+19
^XUSEC("PSNMGR" GROUP+1, GROUP+11, DRUGFILE+20

Label References

Name Line Occurrences
@( DRUGFILE+24
LOAD DRUGFILE+9
LOAD1 DRUGFILE+17
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+24
^(0 MORE+4, LOAD1+6*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CL PSN138D+7~, QUIT!
CLA PSN138D+7~, DRUGFILE+5*, QUIT!
CLASS REINDEX+2~, REINDEX+5*
CMOP PSN138D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT!
CT PSN138D+7~, WORD*, WORD+1*, QUIT!
DA PSN138D+7~, PSN138D+20*, PSN138D+21, PSN138D+22, PSN138D+32*, PSN138D+34, PSN138D+46*, GROUP+1*, GROUP+11*, DRUGFILE+4*
DRUGFILE+5*, DRUGFILE+7, DRUGFILE+9, DRUGFILE+10, DRUGFILE+11, DRUGFILE+12, DRUGFILE+15, DRUGFILE+20*, DRUGFILE+22*, REINDEX+2~
MORE+2*, MORE+4*, MORE+9, QUIT!, LOAD+1, LOAD+2, LOAD+3, LOAD+4, LOAD+5
DA(1 PSN138D+46*, REINDEX+6*
DA1 PSN138D+7~, QUIT!, LOAD+2*, LOAD+3*, LOAD+4*, LOAD+5*
DD PSN138D+22!
DIA PSN138D+7~, PSN138D+19*, PSN138D+20, PSN138D+26*, PSN138D+27, PSN138D+30, PSN138D+31, PSN138D+35, PSN138D+39*, PSN138D+40
PSN138D+42, PSN138D+43, QUIT!
DIC PSN138D+7~, PSN138D+22*, QUIT!
DIC("DR" PSN138D+22*
DIC(0 PSN138D+22*
DIE PSN138D+7~, DRUGFILE+8*!, DRUGFILE+10*!, DRUGFILE+13*, DRUGFILE+14*, DRUGFILE+15*!, DRUGFILE+22*, QUIT!
DIFROM GROUP+6~, GROUP+16~, DRUGFILE+22~
DIK PSN138D+7~, REINDEX+2~, REINDEX+7*, QUIT!
DIK(1 REINDEX+8*
DINUM PSN138D+7~, PSN138D+22*, QUIT!
DO PSN138D+22!
DR PSN138D+7~, DRUGFILE+8*!, DRUGFILE+10*!, DRUGFILE+13*, DRUGFILE+14*, DRUGFILE+15*!, DRUGFILE+22*, QUIT!
DT DRUGFILE+5
DUZ GROUP+2, GROUP+12, DRUGFILE+21
FDA PSN138D+7~, PSN138D+20!, PSN138D+27!, PSN138D+40!, QUIT!
FDA( PSN138D+21*, PSN138D+34*, PSN138D+45*
FILE PSN138D+7~, PSN138D+17*, PSN138D+19*, PSN138D+21, PSN138D+24*, PSN138D+26*, PSN138D+27, PSN138D+35, PSN138D+37*, PSN138D+39*
PSN138D+40, QUIT!
FLDS PSN138D+7~, PSN138D+27*, PSN138D+28, PSN138D+40*, PSN138D+41, PSN138D+44*, PSN138D+45, QUIT!
GE PSN138D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT!
GMRAIEN REINDEX+2~, REINDEX+4*, REINDEX+5
GROOT PSN138D+7~, PSN138D+17*, PSN138D+19, PSN138D+24*, PSN138D+26, PSN138D+37*, PSN138D+39, QUIT!
GROOT1 PSN138D+7~, PSN138D+19*, PSN138D+26*, PSN138D+39*, QUIT!
IEN PSN138D+27!, PSN138D+40!
IEN( PSN138D+34*
IENS PSN138D+7~, PSN138D+20!, PSN138D+27*, PSN138D+31*, PSN138D+32, PSN138D+34, PSN138D+40*, PSN138D+43*, PSN138D+45, QUIT!
IN PSN138D+7~, DRUGFILE+5*, DRUGFILE+7*, QUIT!, LOAD+1, LOAD+2, LOAD+3, LOAD+4, LOAD+5
INA PSN138D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT!
IND PSN138D+7~, DRUGFILE+10*, DRUGFILE+15*, QUIT!
INDX PSN138D+7~, DRUGFILE+7*, DRUGFILE+17*, QUIT!, LOAD+1, LOAD+2, LOAD+3, LOAD+4, LOAD+5, LOAD1+2
LOAD1+5, LOAD1+6, LOAD1+7
INV PSN138D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT!
J PSN138D+7~, PSN138D+30*, PSN138D+31*, PSN138D+42*, PSN138D+43*, QUIT!, LOAD+1*, LOAD+2*, LOAD+3*, LOAD+4*
LOAD+5*, LOAD1+3*, LOAD1+6*, LOAD1+7*
JJ PSN138D+7~, PSN138D+19*, PSN138D+26*, PSN138D+39*, PSN138D+46*, QUIT!
K PSN138D+7~, MORE+2*, QUIT!
LI PSN138D+7~, PSN138D+30*, PSN138D+31*, PSN138D+42*, PSN138D+43*, QUIT!
LINE PSN138D+7~, DRUGFILE+17*, QUIT!, LOAD1+1*, LOAD1+2*, LOAD1+3*, LOAD1+5*, LOAD1+6*, LOAD1+7*
NA PSN138D+7~, DRUGFILE+5*, DRUGFILE+7, MORE+5*, MORE+6*, MORE+7*, MORE+8*, QUIT!, LOAD+1, LOAD+2
LOAD+3, LOAD+4, LOAD+5, LOAD1+5*, LOAD1+6*, LOAD1+7
NAME PSN138D+7~, WORD+1*, QUIT!
ND PSN138D+7~, DRUGFILE+12*, DRUGFILE+13, QUIT!
NEW PSN138D+7~, PSN138D+19*, PSN138D+21, PSN138D+22, PSN138D+26*, PSN138D+34, PSN138D+39*, PSN138D+45, QUIT!
NFI PSN138D+7~, DRUGFILE+13*, QUIT!
POST PSN138D+7~, DRUGFILE+24*, QUIT!
PR PSN138D+7~, DRUGFILE+5*, DRUGFILE+6, DRUGFILE+7, DRUGFILE+11, DRUGFILE+12*, DRUGFILE+13, DRUGFILE+14, DRUGFILE+15, QUIT!
PSN PSN138D+7~, DRUGFILE+3*, DRUGFILE+9, DRUGFILE+11, QUIT!
PSN1 PSN138D+7~, DRUGFILE+3*, DRUGFILE+10, MORE+4!*, MORE+5, MORE+6, MORE+9*, QUIT!
PSN1( MORE+5*, MORE+6*, MORE+9
PSN11 PSN138D+7~, MORE+6*, QUIT!
PSN2 MORE+4!*, MORE+7, MORE+8, MORE+9*
PSN2( MORE+7*, MORE+8*, MORE+9
PSN21 PSN138D+7~, MORE+8*, QUIT!
PSNDF PSN138D+7~, PSN138D+12*, QUIT!
R1 PSN138D+7~, QUIT!
ROOT PSN138D+7~, PSN138D+19*, PSN138D+22, PSN138D+26*, PSN138D+27*, PSN138D+30*, PSN138D+34, PSN138D+39*, PSN138D+40*, PSN138D+42*
PSN138D+45, QUIT!
ROOT1 PSN138D+7~, WORD*, WORD+1, DRUGFILE+4*, DRUGFILE+7, QUIT!
ROOT2 PSN138D+7~, WORD*, WORD+1*, DRUGFILE+4*, DRUGFILE+7, QUIT!
ROOT3 PSN138D+7~, WORD+1*, DRUGFILE+4*, DRUGFILE+11, QUIT!
SUB REINDEX+2~, REINDEX+3*, REINDEX+4, REINDEX+5, REINDEX+6
SUBS PSN138D+7~, QUIT!
U REINDEX+4
VAC PSN138D+7~, DRUGFILE+14*, QUIT!
VAIN PSN138D+7~, DRUGFILE+6*, DRUGFILE+7, QUIT!
VAPN PSN138D+7~, DRUGFILE+5*, DRUGFILE+7, QUIT!
X PSN138D+8~, PSN138D+22*, GROUP*, GROUP+10*, DRUGFILE+5*, DRUGFILE+7*, DRUGFILE+19*, MORE+2*, QUIT+1!, LOAD+1*
LOAD+3*, LOAD+5*, LOAD1+6*
XMDUZ PSN138D+8~, GROUP+5*, GROUP+15*, DRUGFILE+18*, QUIT+1!
XMSUB PSN138D+8~, GROUP+4*, GROUP+14*, DRUGFILE+18*, QUIT+1!
XMTEXT PSN138D+8~, GROUP+6*, GROUP+16*, DRUGFILE+18*, QUIT+1!
XMY PSN138D+8~, GROUP!, GROUP+10!, DRUGFILE+19!, QUIT+1!
XMY( GROUP+1*, GROUP+2*, GROUP+11*, GROUP+12*, DRUGFILE+20*, DRUGFILE+21*
XMY("G." GROUP*, GROUP+10*, DRUGFILE+19*
XMZ PSN138D+8~, DRUGFILE+22, QUIT+1!
>> XPDGREF PSN138D+17, PSN138D+24, PSN138D+37, WORDMESSAGEGROUPGROUP+8, GROUP+10, DRUGFILE+4, DRUGFILE+19
DRUGFILE+24, LOAD1+3
XUMF PSN138D+8~, PSN138D+13*, QUIT+1!
ZTDESC PSN138D+9~, DRUGFILE+27*, QUIT+1!
ZTDTH PSN138D+9~, DRUGFILE+27*, QUIT+1!
ZTIO PSN138D+9~, DRUGFILE+27*, QUIT+1!
ZTRTN PSN138D+9~, DRUGFILE+27*, QUIT+1!
ZTSAVE PSN138D+9~, QUIT+1!
ZTSAVE("^TMP($J,""^""," DRUGFILE+27*

Marked Items

Name Field # of Occurrence
$T(EN2^GMRAUIX0 REINDEX+1
$T(PSN^PSSHUIDG DRUGFILE+27
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