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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSORXPR

Package: Outpatient Pharmacy

Routine: PSORXPR


Information

PSORXPR ;BHAM ISC/SAB - view individual prescription ;29-May-2012 15:13;PLS

Source Information

Source file <PSORXPR.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Outpatient Pharmacy 5 STAT^PSOFUNC  LAST^PSORFL  (HLD,PAR,RF)^PSORXPR1  FSIG^PSOUTLA  EN3^PSOUTLA1  
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  
CMOP 1 ^PSXVIEW  
IHS Changes To Pharmacy 1 EP1^APSPMAN1  
Kernel 1 ENDR^%ZISS  
Registration 1 PID^VADPT  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 4 PSOCAN  PSORXED  PSOVER  PSOVER1  
IHS Changes To Pharmacy 1 APSPRXV  

Entry Points

Name Comments DBIA/ICR reference
PR
LG
H1
L1
GET
ACT
DAT
A1
EN ; Entry Point for PSORXED
Q
REM
CON
DTT

External References

Name Field # of Occurrence
ENDR^%ZISS PR+5
EP1^APSPMAN1 GET+6
^DIC DTT+1, DTT+6, DTT+8, DTT+10, LG+2, A1+4
$$GET1^DIQ PR+20, PR+21
^DIR CON
STAT^PSOFUNC PR
LAST^PSORFL PR+28
HLD^PSORXPR1 REM+1
PAR^PSORXPR1 REM+2
RF^PSORXPR1 REM+2
FSIG^PSOUTLA PR+23
EN3^PSOUTLA1 PR+24
^PSXVIEW ACT+2
PID^VADPT PR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"RX: ",$P(RX0,"^"),?20,"PATIENT: "_$P(P0,"^")_" (",VA("PID")_") ",!,"STATUS: "_ST_" "_$S($P($G(^PSRX(DA,"IB")),"^")]"":"CO-PAY STATUS",1:"")
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !,PKIT
  • Line Location: PR+4
Function Call: WRITE
  • Prompt: !,"Manufacturer: "_APSPMM,?40,"Mfg Expiration Date: "_$E(APSPD,4,5)_"/"_$E(APSPD,2,3)
  • Line Location: PR+9
Function Call: WRITE
  • Prompt: !?6," NDC: ",$P(RX2,U,7)
  • Line Location: PR+10
Function Call: WRITE
  • Prompt: ?$X+2,"("_$P(R9999999,U,6)_")"
  • Line Location: PR+11
Function Call: WRITE
  • Prompt: ?$X+2,"("_$P(RX0,U,17)_")"
  • Line Location: PR+12
Function Call: WRITE
  • Prompt: !?6," QTY: ",$P(RX0,"^",7)," ",$S($P(RX0,"^",8)?1N.N:$P(RX0,"^",8),1:"??")," DAY SUPPLY"
  • Line Location: PR+14
Function Call: WRITE
  • Prompt: !?6," NDC: ",$P(RX2,U,7)
  • Line Location: PR+16
Function Call: WRITE
  • Prompt: ?$X+2,"("_$P(R9999999,U,6)_")"
  • Line Location: PR+17
Function Call: WRITE
  • Prompt: ?$X+2,"("_$P(RX0,U,17)_")"
  • Line Location: PR+18
Function Call: WRITE
  • Prompt: !,"SUBSTITUTION : "_$$GET1^DIQ(52,DA,9999999.25)
  • Line Location: PR+20
Function Call: WRITE
  • Prompt: !,"CASH DUE: "_$$GET1^DIQ(52,DA,9999999.26)
  • Line Location: PR+21
Function Call: WRITE
  • Prompt: !?7,"SIG: ",$G(BSIG(1))
  • Line Location: PR+25
Function Call: WRITE
  • Prompt: !?12,$G(BSIG(PSREV))
  • Line Location: PR+26
Function Call: WRITE
  • Prompt: !?4,"LATEST: ",RFLL,?37,"# OF REFILLS: ",$P(RX0,"^",9)
  • Line Location: PR+28
Function Call: WRITE
  • Prompt: " REMAINING: ",$P(RX0,"^",9)-PL
  • Line Location: PR+28
Function Call: WRITE
  • Prompt: !?4,"ISSUED: ",DAT
  • Line Location: DTT+0
Function Call: WRITE
  • Prompt: ?41,"PROVIDER: "_PHYS
  • Line Location: DTT+2
Function Call: WRITE
  • Prompt: !?41,"COSIGNER: "_$P(Y,"^",2)
  • Line Location: DTT+3
Function Call: WRITE
  • Prompt: !?4,"LOGGED: ",DAT,?43,"CLINIC: ",$S($D(^SC(+$P(RX0,"^",5),0)):$P(^(0),"^"),1:"NOT ON FILE")
  • Line Location: DTT+4
Function Call: WRITE
  • Prompt: !?3,"EXPIRES: ",PSEXDT,?41,"DIVISION: ",PSDIV,!?7,"CAP: ",$P("NON-^","^",$S($D(^PS(55,DFN,0)):+$P(^(0),"^",2),1:0)),"SAFETY",?42,"ROUTING: "
  • Line Location: DTT+5
Function Call: WRITE
  • Prompt: $P("MAIL^WINDOW^INPATIENT","^",X)
  • Condition for execution: X
  • Line Location: DTT+5
Function Call: WRITE
  • Prompt: !?2,"ENTRY BY: ",$S(+Y:$P(Y,"^",2),1:$P(RX0,"^",16))
  • Line Location: DTT+7
Function Call: WRITE
  • Prompt: !!,"FILLED: "_RFL,?20,"PHARMACIST: "_$S(+Y:$P(Y,"^",2),1:""),?52,"LOT #: "_$P(RX2,"^",4)
  • Line Location: DTT+11
Function Call: WRITE
  • Prompt: !," DISPENSED: "_$S($P(RX2,"^",5):$E($P(RX2,"^",5),4,5)_"/"_$E($P(RX2,"^",5),6,7)_"/"_$E($P(RX2,"^",5),2,3),1:"")
  • Line Location: DTT+12
Function Call: WRITE
  • Prompt: ?$X+10,$S($P(RX2,"^",15):" RETURNED TO STOCK: "_$E($P(RX2,"^",15),4,5)_"/"_$E($P(RX2,"^",15),6,7)_"/"_$E($P(RX2,"^",15),2,3),1:" RELEASED: "_$S($P(RX2,"^",13):$E($P(RX2,"^",13),4,5)_"/"_$E($P(RX2,"^",13),6,7)_"/"_$E($P(RX2,"^",13),2,3),1:""))
  • Line Location: DTT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: REM+2
Function Call: WRITE
  • Prompt: !,L1,?3,DAT,?14,$S($P(LBL,"^",2):"REFILL "_$P(^PSRX(DA,"L",L1,0),"^",2),1:"ORIGINAL")
  • Line Location: LG+1
Function Call: WRITE
  • Prompt: ?40,$P(Y,"^",2),!,"COMMENTS: "_$P(^PSRX(DA,"L",L1,0),"^",3)
  • Line Location: LG+3
Function Call: WRITE
  • Prompt: !,N,?3,DAT,?14
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: ?25
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: $S(X>0&(X<6):"REFILL "_X,X=6:"PARTIAL",X>6:"REFILL "_(X-1),1:"ORIGINAL")
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: ?40,$S(+Y:$P(Y,"^",2),1:$P(P1,"^",3))
  • Line Location: A1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,"ACTIVITY LOG:",!,"#",?3,"DATE",?14,"REASON",?25,"RX REF",?40,"INITIATOR OF ACTIVITY",!
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !!,"LABEL LOG:",!,"#",?3,"DATE",?14,"RX REF",?40,"PRINTED BY",!
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: "="
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+2
Routine Call
  • DIC
  • Line Location:
    • DTT+1
    • DTT+6
    • DTT+8
    • DTT+10
    • LG+2
    • A1+4
Routine Call
  • DIR
  • Line Location:
    • CON

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" ACT+2
^DPT - [#2] GET
^PS(52.4 - [#52.4] PR
^PS(55 - [#55] DTT+5
^PS(59 - [#59] GET+9
^PSDRUG - [#50] PR+7
^PSRX - [#52] GET, GET+3, PR+2, PR+23, PR+24, PR+28, PR+29, REM, REM+1, ACT
, ACT+1, LG+1, LG+2, LG+3
^SC - [#44] DTT+4

Label References

Name Line Occurrences
A1 ACT
CON ACT, ACT+1, LG, A1
DAT DTT, DTT+4, ACT+1, A1
H1 ACT, A1
L1 ACT+1, LG
LG ACT+1
PSORXPR EN+2
Q REM+2, ACT, ACT+1, ACT+3
REM DTT+10

Naked Globals

Name Field # of Occurrence
^( ACT
^("D" REM
^("I" PR+7
^("STA" GET
^("TN" GET
^(0 GET, GET+9, PR+7, DTT+4, DTT+5, ACT+1
^(2 GET
^(3 GET

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H Q+1!
%I Q+1!
>> APSP GET+5*
>> APSPD GET+7*, GET+8*, PR+9
>> APSPL GET+7*, GET+8*
>> APSPLTYP EN+1*
>> APSPMAN GET+6, GET+7, GET+8, PR+9
>> APSPMM GET+7*, GET+8*, PR+9
>> APSPRXX GET+5*
>> APSPX9 GET+4*
BSIG PR+23!, PR+27!
BSIG( PR+23*, PR+26
BSIG(1 PR+25, PR+26
>> DA GET, GET+3, GET+5, PR, PR+2, PR+20, PR+21, PR+23, PR+24, PR+28
, PR+29, REM, REM+1, ACT, ACT+1, LG+1, LG+2, LG+3
DAT DTT, DTT+4, LG+1, A1, Q!, DAT*
DFN GET*, PR, DTT+5, Q+1!
DIC DTT+1!*, DTT+6!*, DTT+8!*, DTT+10!*, LG+2!*, LG+3!, A1+4!*, A1+5!
DIC(0 DTT+1*, DTT+6*, DTT+8*, DTT+10*, LG+2*, A1+4*
DIR Q!, CON!
DIR(0 CON*
DIRUT REM+2, ACT, ACT+1, LG, A1, Q!, CON!
DTOUT Q!, CON!
DTT DTT*, DTT+2*, ACT*, ACT+1*, Q!, DAT*
DUOUT Q!, CON!
EXDT Q!
FFX GET*, A1, Q!, H1, H1+2*, L1, L1+2*, CON*
FSIG PR+23!, PR+24!
FSIG( PR+23
I Q+1!, H1+1*, L1+1*
IFN PR+28!, PR+29*, Q!
II PR+28*, Q!
IOF PR+2, H1, L1
IORVOFF PR+5!, PR+6
IORVON PR+5!, PR+6
J GET*, PR+28, Q!
L1 ACT+1*, LG+1, LG+2, LG+3, Q!
LBL ACT+1*, LG+1, Q+1!
M1 PR+7*, Q!
MED PR+7*, Q!
N ACT*, A1, Q!
P0 GET*, PR+2, Q!
P1 ACT*, A1+1, A1+3, A1+4, A1+5, A1+6, Q!
P9999999 GET+2~
PHYS DTT+2*, Q!, EN+2!
>> PKI PR+4
>> PKI1 PR+4
>> PKIE PR+5, PR+6
PKIT PR+4~, PR+5*, PR+6*
PL PR+28*, PR+29*, REM+2, Q!
>> PS PR+2*, Q+1
PSDIV GET+9*, DTT+5, Q!
PSEXDT GET+9*, DTT+5, Q!
>> PSOAC CON
>> PSOFROM GET+4
>> PSOZVER DTT+10
PSREV PR+23*, PR+24!, PR+26*, PR+27!
R3 GET*, DTT+1, DTT+3, Q!
R9999999 GET+2~, GET+3*, PR+11, PR+13, PR+17, PR+19
RFDATE Q+1!, EN+2!
RFL DTT+11, Q!, EN+2!
RFL1 Q!, EN+2!
RFLL PR+28, Q!, EN+2!
RTN GET*, PR+7, Q!
RX0 GET*, GET+4, GET+5, PR+2, PR+7, PR+12, PR+14, PR+18, PR+28, DTT
, DTT+4, DTT+5, DTT+6, DTT+7, Q!
RX2 GET*, GET+7, GET+9, PR+10, PR+16, DTT+2, DTT+8, DTT+9, DTT+10, DTT+11
, DTT+12, DTT+13, Q!
SIG Q!
ST PR*, PR+2, REM+1, Q!, EN+2!
ST0 PR, Q!, EN+2!
STA Q!
U GET+5, PR+10, PR+11, PR+12, PR+13, PR+16, PR+17, PR+18, PR+19
>> VA("PID" PR+2
X PR+5*!, DTT+1!*, DTT+5*, DTT+6!*, DTT+8!*, DTT+10!*, ACT+2~*!, LG+2!*, LG+3!, A1+1*
, A1+2, A1+3*, A1+4!*, A1+5!
Y DTT+1!, DTT+2, DTT+3, DTT+6!, DTT+7, DTT+8!, DTT+9, DTT+10!, DTT+11, LG+2!
, LG+3!, A1+4!, A1+5!
Z0 Q!
Z1 Q!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All