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 |  Marked Items  | All
Print Page as PDF
Routine: PSNPPSCL

Package: National Drug File

Routine: PSNPPSCL


Information

PSNPPSCL ;BIR/DMA-clean up ingredients and interactions ; 19 Aug 2008 9:42 AM

Source Information

Source file <PSNPPSCL.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^DIE  ^DIK  $$GET1^DIQ  
Kernel 2 ^%ZTLOAD  EN^XQOR  
MailMan 1 ^XMD  
National Drug File 1 (CTRKDL,ENABLE)^PSNPPSMS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNPPSNU  

Entry Points

Name Comments DBIA/ICR reference
INTER ;CHECK FOR NON-PRIMARIES
ALLER ;now the allergies
SENDIT ;
QUIT
PRO
PROTO
TEXT3 ;
TEXT ;
TEXT2 ;
TEXT4 ;
TEXT5 ;

External References

Name Field # of Occurrence
^%ZTLOAD PRO+12
^DIE INTER+12, ALLER+9
^DIK INTER+23
$$GET1^DIQ SENDIT+12
CTRKDL^PSNPPSMS INTER+4, ALLER+1, SENDIT+2
ENABLE^PSNPPSMS INTER+3
^XMD SENDIT+13
EN^XQOR PROTO

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.8 - [#120.8] Classic Fileman Calls
^PS(56 - [#56] Classic Fileman Calls
^PS(57.23 - [#57.23] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ALLER+6
^GMR(120.8 - [#120.8] ALLER+6, ALLER+7*, ALLER+8, ALLER+9
^PS(50.416 - [#50.416] INTER+6, INTER+8, INTER+12, ALLER+7, ALLER+9
^PS(56 - [#56] INTER+6, INTER+10, INTER+13!*, INTER+14*, INTER+16, INTER+19*!, INTER+21!*
^PS(59.7 - [#59.7] SENDIT+5
^PSNDF(50.68 - [#50.68] PRO+4
^TMP("PSN PPSN PARSED" PRO+2, PRO+5
^TMP("PSN" PSNPPSCL+6!, INTER+2*, INTER+26*, INTER+27*, INTER+28*, INTER+29*, INTER+30*, INTER+31*, INTER+32*, ALLER+12*
ALLER+13*, ALLER+14*, ALLER+15*, ALLER+16*, QUIT!, PRO!, PRO+10*, PRO+12
^TMP($J PSNPPSCL+6!, INTER+12*, INTER+17*, INTER+19, INTER+21, INTER+23, INTER+25, INTER+28, INTER+29, INTER+31
INTER+32, ALLER+5!, ALLER+9*, ALLER+11, ALLER+14, ALLER+15, QUIT!
^XMB("NETNAME" ALLER+3
^XUSEC("PSNMGR" SENDIT+11

Label References

Name Line Occurrences
ALLER INTER+25
SENDIT ALLER+3, ALLER+11

Naked Globals

Name Field # of Occurrence
^( INTER+6, INTER+21, ALLER+6, ALLER+8
^("RENAM" INTER+25
^(0 ALLER+6, ALLER+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA PSNPPSCL+5~, INTER+6*, INTER+13, INTER+14, INTER+17, INTER+23*, ALLER+9*, SENDIT+11*, QUIT!
DA(1 ALLER+9*
DATA PRO+1~, PRO+6*, PRO+7*, PRO+8*, PRO+9, PRO+10
DIC PROTO*!
DIE PSNPPSCL+5~, INTER+12*, ALLER+9*, QUIT!
DIFROM SENDIT+13~
DIK PSNPPSCL+5~, INTER+23*, QUIT!
DR PSNPPSCL+5~, INTER+12*, ALLER+9*, QUIT!
DUZ SENDIT+11
II PRO+1~, PRO+2*, PRO+3
J PSNPPSCL+5~, INTER+26*, INTER+27*, INTER+30*, ALLER+12*, ALLER+13*, QUIT!
LINE PSNPPSCL+5~, INTER+1*, INTER+2*, INTER+26*, INTER+27*, INTER+28*, INTER+29*, INTER+30*, INTER+31*, INTER+32*
ALLER+12*, ALLER+13*, ALLER+14*, ALLER+15*, ALLER+16*, QUIT!
NA PSNPPSCL+5~, INTER+29*, INTER+32*, ALLER+15*, QUIT!
NDFKD PRO+1~, PRO+5*, PRO+6, PRO+7, PRO+8
NDFKPR PRO+1~, PRO+3*, PRO+4, PRO+5, PRO+6, PRO+10
NEWDA PSNPPSCL+5~, INTER+16*, INTER+17, INTER+21*, QUIT!
PSGRP SENDIT+4~
PSN PSNPPSCL+5~, INTER+12!, INTER+19*, INTER+23*, QUIT!
PSN( INTER+12*
PSN("" INTER+12
PSNDA PSNPPSCL+5~, ALLER+6*, ALLER+7, ALLER+8, ALLER+9, QUIT!
>> PSNHLD INTER+2
PSNI PSNPPSCL+5~, ALLER+6*, ALLER+7*, ALLER+8*, ALLER+9, QUIT!
PSNI1 PSNPPSCL+5~, INTER+6*, INTER+9, INTER+13, INTER+19*, QUIT!
PSNI1N PSNPPSCL+5~, INTER+6*, INTER+7, INTER+9, QUIT!
PSNI1P PSNPPSCL+5~, INTER+9*, INTER+10, INTER+12, INTER+13, INTER+14, INTER+16, QUIT!
PSNI2 PSNPPSCL+5~, INTER+6*, INTER+8, INTER+9, INTER+13, INTER+19*, QUIT!
PSNI2N PSNPPSCL+5~, INTER+6*, INTER+7, INTER+8*, INTER+9, QUIT!
PSNI2P PSNPPSCL+5~, INTER+9*, INTER+10, INTER+12, INTER+13, INTER+14, INTER+16, QUIT!
PSNK PSNPPSCL+5~, ALLER+8*, ALLER+9, QUIT!
PSNLEG PSNPPSCL+5~, SENDIT+12*
PSNN PSNPPSCL+5~, INTER+12!*, QUIT!
PSNPAT PSNPPSCL+5~, ALLER+6*, ALLER+9, QUIT!
PSNPS SENDIT+4~, SENDIT+5*
>> PSNSCJOB INTER+5, ALLER+2
>> PSNSITET INTER+4, ALLER+1, SENDIT+2
PSNX PSNPPSCL+5~, ALLER+9*, QUIT!
VADC PRO+1~
VAGEN PRO+1~
X PSNPPSCL+5~, INTER+6*, INTER+12, INTER+17, INTER+19*, INTER+21*, INTER+26*, INTER+27*, INTER+30*, ALLER+12*
ALLER+13*, ALLER+15*, ALLER+16, QUIT!, PROTO*!
XMDUZ PSNPPSCL+5~, SENDIT+8*, QUIT!
XMSUB PSNPPSCL+5~, SENDIT+6*, QUIT!
XMTEXT PSNPPSCL+5~, SENDIT+9*, QUIT!
XMY PSNPPSCL+5~, SENDIT+10!, QUIT!
XMY( SENDIT+11*
ZTDTH PRO+12*!
ZTIO PRO+12*!
ZTRTN PRO+12*!
ZTSAVE PRO+12!
ZTSAVE("^TMP(""PSN"",$J," PRO+12*

Marked Items

Name Field # of Occurrence
$T(TEXT+J INTER+27
$T(TEXT2+J INTER+30
$T(TEXT3+J ALLER+13
$T(TEXT4+J INTER+26
$T(TEXT5+J ALLER+12
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 |  Marked Items  | All