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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSNOP54

Package: National Drug File

Routine: PSNOP54


Information

PSNOP54 ;BHAM ISC/SAB - build array of outpatient current meds ;14 Dec 01

Source Information

Source file <PSNOP54.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$PATCH^XPDUTL  
VA Fileman 4 ^%DT  NOW^%DTC  EN^DDIOL  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJUTL99  

Entry Points

Name Comments DBIA/ICR reference
EN
HDR ;
EXC ;builds exceptions
PT
GET ;med list
EOJ
DIDI ;check for interactions
BUILDX ;
GETX
START ;
BUILD ;build profiles
RPT
BUILDXB ;
OUT ;data print

External References

Name Field # of Occurrence
^%DT START+7, START+9
NOW^%DTC HDR+1
^%ZIS START+12
^%ZISC EOJ+4
^%ZTLOAD START+15
EN^DDIOL START+1, START+8
^DIR START+5
DEM^VADPT EXC+10
$$PATCH^XPDUTL START+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This report searches Outpatient Medications looking for drug interactions",!,"based on the data in ^XTMP(""PSNINT"",VA PRODUCT,VA PRODUCT,1)",!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,"Nothing Printed"
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,"The primary data for this report does not exist",!!
  • Line Location: BUILD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BUILDX+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BUILDXB+2
Function Call: WRITE
  • Prompt: !!,"NO EXCEPTIONS FOUND!",!
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: "_"
  • Line Location: OUT+3
Function Call: WRITE
  • Prompt: !,$P(^TMP($S(PSONISS:"ZPSN PSOEX",1:"PSN PSOEX"),$J,PT,0),"^"),?40,"PID: "_$P(^TMP($S(PSONISS:"ZPSN PSOEX",1:"PSN PSOEX"),$J,PT,0),"^",2),?60,"DOB: "_$P(^TMP($S(PSONISS:"ZPSN PSOEX",1:"PSN PSOEX"),$J,PT,0),"^",3)
  • Line Location: OUT+8
Function Call: WRITE
  • Prompt: !,"Interaction Inactivation Date: "_$P($G(^TMP("ZPSN PSOEX",$J,PT,RX,PSOF,PSOG,1,0)),"^",5)
  • Line Location: OUT+10
Function Call: WRITE
  • Prompt: "Interaction inactivated on "_$P($G(^TMP("ZPSN PSOEX",$J,PT,RX,PSOF,PSOG,1,0)),"^",5),!
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: @IOF,"Possible Unreported Drug Interactions",?($X+5),"Print Date: "_Y,?($X+10),"Page: "_PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Inactivated Drug Interactions"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Routine Call
  • DIR
  • Line Location:
    • START+5
Routine Call
  • %ZIS
  • Line Location:
    • START+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" START+7, GET+10, HDR+1
^PS(55 - [#55] PT, PT+1
^PS(56 - [#56] DIDI+9, DIDI+12
^PSDRUG - [#50] GET+7, GET+8, GET+9
^PSRX - [#52] PT+1, GET+1, GET+2, GET+11, EXC+3
^TMP( EXC+9, EXC+11*, EXC+13*, EXC+14*, EXC+15*, EXC+16*, EXC+17*, OUT+3, OUT+5, OUT+6
, OUT+7, OUT+8, OUT+9, OUT+11, OUT+12, OUT+13, OUT+14, OUT+15, RPT, RPT+1
, RPT+2, RPT+3, RPT+4
^TMP("PSN PSO" START+3!, PT+2!, GET+11*, EOJ+2!, DIDI+1, DIDI+2, DIDI+4, DIDI+11*, DIDI+14*, EXC+13
, EXC+14, EXC+17
^TMP("PSN PSOEX" START+3!, EOJ+1!, OUT+1
^TMP("ZPSN PSOEX" START+4!, BUILDX+3, BUILDXB+2, BUILDXB+4, EOJ+3!, EXC+19*, OUT+1, OUT+10, RPT+5
^XTMP("PSNINT" BUILD+1, DIDI+5, DIDI+7, EXC+15, EXC+16

Label References

Name Line Occurrences
BUILD EN
BUILDX PT
BUILDXB BUILDX+1
DIDI PT+2
EOJ START+5, START+9, START+12, START+13, EN
EXC DIDI+11, DIDI+14
GET PT+1
GETX GET+5, GET+7
HDR OUT+1, OUT+4, OUT+8
OUT BUILDX+2, BUILDX+3, BUILDXB+1, BUILDXB+2, BUILDXB+3, BUILDXB+4
PT PT+3
RPT OUT+2

Naked Globals

Name Field # of Occurrence
^("STA" GET+2
^(0 GET+1
^(2 GET+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+2!, HDR+1
%DT START+7*, START+9*, EOJ+2!
%DT("A" START+9*
%DT("B" START+9*
%ZIS START+12!*
DFN EXC+10*!
DIR START+3!, EOJ+1!
DIR("A" START+5*
DIR("B" START+5*
DIR(0 START+5*
DIRUT START+3!, START+5, EOJ+1!
DT EXC+7
DTOUT EOJ+1!
DUOUT EOJ+1!
ED GET+10*, GET+11, EOJ+2!
FD GET+10*, GET+11, EOJ+2!
IO OUT+1, RPT, HDR+2
IO("Q" START+13
IOF BUILDX+4, BUILDXB+2, HDR+2
IOM OUT+3, HDR+4
IOP START+12!
IOSL OUT+4, OUT+8
NDF1 EOJ+2!, DIDI+1*, DIDI+5, DIDI+7, EXC+15, EXC+16
NDF2 EOJ+2!, DIDI+4*, DIDI+5, DIDI+7, EXC+15, EXC+16
PG EOJ+1!, HDR+1*, HDR+2
POP START+12!
PSNVP EOJ+3!, DIDI+5*, DIDI+7, EXC+15, EXC+16
PSNW DIDI+6!
PSOCUTDT START+10*, PT, EOJ+1!
PSODRG GET+6*, GET+7, GET+8, GET+9, GET+11, EOJ!
PSODRUGN GET+8*, GET+11, EOJ!
PSOEXPDT PT*, PT+1*, EOJ!
PSOF EOJ+3!, OUT+6*, OUT+7, OUT+9, OUT+10, OUT+11, OUT+12, OUT+13, OUT+14, OUT+15
, RPT+1*, RPT+2, RPT+3, RPT+4, RPT+5
PSOG EOJ+3!, OUT+7*, OUT+9, OUT+10, OUT+11, OUT+12, OUT+13, OUT+14, OUT+15, RPT+2*
, RPT+3, RPT+4, RPT+5
PSOININD EOJ+3!, DIDI+6!, DIDI+9*, DIDI+10!, DIDI+12*, DIDI+13!, EXC+1, EXC+8, EXC+19
PSOINN1 EOJ+3!, DIDI+6!, DIDI+7*, DIDI+8, DIDI+9, DIDI+11, DIDI+12
PSOINN2 EOJ+3!, DIDI+6!, DIDI+7*, DIDI+8, DIDI+12, DIDI+14
PSOISLAT EOJ+3!, EXC+4!*, EXC+5*, EXC+6*, EXC+7*, EXC+8
PSOISSD1 EOJ+3!, EXC+3*, EXC+4, EXC+5, EXC+6
PSOISSD2 EOJ+3!, EXC+3*, EXC+4, EXC+5, EXC+6
PSONDF GET+9*, GET+11, EOJ!
PSONISS BUILDX+2*, BUILDX+3*, BUILDXB+1*, BUILDXB+2*, BUILDXB+3*, BUILDXB+4*, EOJ+3!, OUT+3, OUT+5, OUT+6
, OUT+7, OUT+8, OUT+9, OUT+10, OUT+11, OUT+12, OUT+13, OUT+14, OUT+15, RPT
, RPT+1, RPT+2, RPT+3, RPT+4, RPT+5, HDR+3
PSORX0 GET+2*, GET+6, EOJ!
PSOSETIN EOJ+3!
PSOST0 GET+2*, GET+4, GET+5, EOJ!
PSOW EOJ+3!, DIDI+11*, DIDI+14*, EXC+13, EXC+14, EXC+15, EXC+16, EXC+17, EXC+19
PSOZZACT EOJ+3!, EXC+1*, EXC+8*, EXC+9, EXC+11, EXC+13, EXC+14, EXC+15, EXC+16, EXC+17
, EXC+19
PT BUILD+2*, PT*, PT+1, GET+1, EOJ+1!, EXC+9, EXC+10, EXC+11, EXC+13, EXC+14
, EXC+15, EXC+16, EXC+17, EXC+19, OUT+3*, OUT+5, OUT+6, OUT+7, OUT+8, OUT+9
, OUT+10, OUT+11, OUT+12, OUT+13, OUT+14, OUT+15, RPT*, RPT+1, RPT+2, RPT+3
, RPT+4, RPT+5
RPT START+5*, BUILDX+1, BUILDX+4, BUILDXB+1*, BUILDXB+3*, EOJ+1!, OUT+1, OUT+2
RX PT+1*, GET+1, GET+2, GET+11, EOJ!, OUT+6*, OUT+7, OUT+9, OUT+10, OUT+11
, OUT+12, OUT+13, OUT+14, OUT+15, RPT+1*, RPT+2, RPT+3, RPT+4, RPT+5
RX2 GET+2*, GET+10, EOJ!
SS EOJ!, OUT+3*, HDR+4*
STA GET+3*, GET+4, EOJ!
STATUS GET+4*, GET+11, EOJ!
VADM EXC+12!
VADM(1 EXC+11
VADM(2 EXC+11
VADM(3 EXC+11
VADM(4 EXC+11
VADM(5 EXC+11
X START+7*, EOJ+1!
XI EOJ+1!, DIDI+1*, DIDI+2, DIDI+11, DIDI+14, EXC+3, EXC+13, EXC+14, EXC+15, EXC+16
, EXC+17, EXC+19
XT EOJ+1!, DIDI+2*, DIDI+4, DIDI+11, DIDI+14, EXC+3, EXC+13, EXC+14, EXC+15, EXC+16
, EXC+17, EXC+19
>> Y START+5, START+9, START+10, GET+10*, HDR+1*, HDR+2
>> ZTDESC START+14*
>> ZTREQ START+15*
>> ZTRTN START+14*
>> ZTSAVE("PSOCUTDT" START+14*
>> ZTSAVE("RPT" START+14*
>> ZTSK START+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All