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 ;08/23/96 8:15 am

Source Information

Source file <PSORXPR.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Outpatient Pharmacy 7 $$CHK^PSODPT  STAT^PSOFUNC  LAST^PSORFL  (HLD,PAR,RF)^PSORXPR1  FSIG^PSOUTLA  EN3^PSOUTLA1  DRIDOSE^PSOVER1  
VA FileMan 2 ^DIC  ^DIR  
CMOP 1 ^PSXVIEW  
Kernel 1 ENDR^%ZISS  
Pharmacy Data Management 1 $$DS^PSSDSAPI  
Registration 1 PID^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Outpatient Pharmacy 3 PSOCAN  PSORXED  PSOVER1  

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+8
^DIC DTT+1, DTT+6, DTT+8, DTT+10, LG+2, A1+4
^DIR CON
$$CHK^PSODPT PR+3
STAT^PSOFUNC PR
LAST^PSORFL PR+17
HLD^PSORXPR1 REM+1
PAR^PSORXPR1 REM+2
RF^PSORXPR1 REM+2
FSIG^PSOUTLA PR+12
EN3^PSOUTLA1 PR+13
DRIDOSE^PSOVER1 PR+4
$$DS^PSSDSAPI PR+4
^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")_") "
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !,"STATUS: "_ST_" "_$S($P($G(^PSRX(DA,"IB")),"^")]"":"CO-PAY STATUS",1:"")
  • Line Location: PR+5
Function Call: WRITE
  • Prompt: !,PKIT
  • Line Location: PR+7
Function Call: WRITE
  • Prompt: !?6," QTY: ",$P(RX0,"^",7)," ",$S($P(RX0,"^",8)?1N.N:$P(RX0,"^",8),1:"??")," DAY SUPPLY"
  • Line Location: PR+11
Function Call: WRITE
  • Prompt: !?7,"SIG: ",$G(BSIG(1))
  • Line Location: PR+14
Function Call: WRITE
  • Prompt: !?12,$G(BSIG(PSREV))
  • Line Location: PR+15
Function Call: WRITE
  • Prompt: !?4,"LATEST: ",RFLL,?37,"# OF REFILLS: ",$P(RX0,"^",9)
  • Line Location: PR+17
Function Call: WRITE
  • Prompt: " REMAINING: ",$P(RX0,"^",9)-PL
  • Line Location: PR+17
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

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+1
^PSDRUG - [#50] PR+10
^PSRX - [#52] GET, PR+5, PR+12, PR+13, PR+17, PR+18, 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+1
Q PR+3, REM+2, ACT, ACT+1, ACT+3
REM DTT+10

Naked Globals

Name Field # of Occurrence
^( ACT
^("D" REM
^("I" PR+10
^("STA" GET
^("TN" GET
^(0 GET, GET+1, PR+10, 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!
BSIG PR+12!, PR+16!
BSIG( PR+12*, PR+15
BSIG(1 PR+14, PR+15
>> DA GET, PR, PR+4, PR+5, PR+12, PR+13, PR+17, PR+18, REM, REM+1
, ACT, ACT+1, LG+1, LG+2, LG+3
DAT DTT, DTT+4, LG+1, A1, Q!, DAT*
DFN GET*, PR, PR+3, 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+12!, PR+13!
FSIG( PR+12
I Q+1!, H1+1*, L1+1*
IFN PR+17!, PR+18*, Q!
II PR+17*, Q!
IOF PR+2, H1, L1
IORVOFF PR+8!, PR+9
IORVON PR+8!, PR+9
J GET*, PR+17, Q!
L1 ACT+1*, LG+1, LG+2, LG+3, Q!
LBL ACT+1*, LG+1, Q+1!
M1 PR+10*, Q!
MED PR+10*, Q!
N ACT*, A1, Q!
P0 GET*, PR+2, Q!
P1 ACT*, A1+1, A1+3, A1+4, A1+5, A1+6, Q!
PHYS DTT+2*, Q!, EN+1!
>> PKI PR+7
>> PKI1 PR+7
>> PKIE PR+8, PR+9
PKIT PR+7~, PR+8*, PR+9*
PL PR+17*, PR+18*, REM+2, Q!
>> PS PR+5*, Q+1
PSDIV GET+1*, DTT+5, Q!
PSEXDT GET+1*, DTT+5, Q!
>> PSOAC CON
>> PSORX("DFLG" PR+3*
>> PSOZVER DTT+10
PSREV PR+12*, PR+13!, PR+15*, PR+16!
R3 GET*, DTT+1, DTT+3, Q!
RFDATE Q+1!, EN+1!
RFL DTT+11, Q!, EN+1!
RFL1 Q!, EN+1!
RFLL PR+17, Q!, EN+1!
RTN GET*, PR+10, Q!
RX0 GET*, PR+2, PR+4, PR+10, PR+11, PR+17, DTT, DTT+4, DTT+5, DTT+6
, DTT+7, Q!
RX2 GET*, GET+1, DTT+2, DTT+8, DTT+9, DTT+10, DTT+11, DTT+12, DTT+13, Q!
SIG Q!
ST PR*, PR+5, REM+1, Q!, EN+1!
ST0 PR, Q!, EN+1!
STA Q!
>> VA("PID" PR+2
X PR+8*!, 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