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

Package: Outpatient Pharmacy

Routine: PSOSD0


Information

PSOSD0 ;BHAM ISC/SAB - action or informational profile cont. ;6/21/07 8:20am

Source Information

Source file <PSOSD0.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Outpatient Pharmacy 6 ENSAVE^PSODACT  (,PRINT)^PSOLAB  (HD1,PSRENW)^PSOSD2  COS^PSOSDP  FSIG^PSOUTLA  EN3^PSOUTLA1  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOSD  

Entry Points

Name Comments DBIA/ICR reference
BAR ;barcode
RXN
ACTS ;
EIGHTY ;prints profile in 80 column format
DRUG
SIG
DUP ;DUP DRUG
RXN1
RXN2
RXN3
CLASS

External References

Name Field # of Occurrence
^DIR RXN1+3
ENSAVE^PSODACT RXN+6
^PSOLAB RXN1+21, EIGHTY+15
PRINT^PSOLAB RXN1+31, EIGHTY+25
HD1^PSOSD2 RXN+1, RXN+3, RXN1+4, RXN1+5
PSRENW^PSOSD2 RXN1+25, EIGHTY+19
COS^PSOSDP RXN1+10
FSIG^PSOUTLA SIG
EN3^PSOUTLA1 SIG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RXN1+3
Function Call: WRITE
  • Prompt: ?45,"Qty: "_$P(RX0,"^",7)_" for "_$P(RX0,"^",8)_" Days ",?74,$P(RX0,"^"),?84," ",ACTS,?99,$E($P(RX2,"^",6),4,5)_"-"_$E($P(RX2,"^",6),6,7)_"-"_($E($P(RX2,"^",6),1,3)+1700)
  • Line Location: RXN1+9
Function Call: WRITE
  • Prompt: ?110,$E(PHYS,1,30)
  • Line Location: RXN1+10
Function Call: WRITE
  • Prompt: !," Message: "_$G(^PSDRUG(+$P(RX0,"^",6),"PSO"))
  • Line Location: RXN1+11
Function Call: WRITE
  • Prompt: !?9,"Sig: ",$G(BSIG(1))
  • Line Location: RXN1+12
Function Call: WRITE
  • Prompt: !?14,$G(BSIG(PSREV))
  • Line Location: RXN1+13
Function Call: WRITE
  • Prompt: " ",$E($P(Y,"^"),4,5),"-",$E($P(Y,"^"),6,7),"-",($E($P(Y,"^"),1,3)+1700)_$P(Y,"^",2)
  • Condition for execution: Y
  • Line Location: RXN1+16
Function Call: WRITE
  • Prompt: " Past Fills:"
  • Line Location: RXN1+18
Function Call: WRITE
  • Prompt: !?10,"Remaining Refills: "_($P(RX0,"^",9)-RFS),?45,"Clinic: ",$S($D(^SC(+$P(RX0,"^",5),0)):$E($P(^(0),"^"),1,30),1:"UNKNOWN")
  • Line Location: RXN1+19
Function Call: WRITE
  • Prompt: ?105,"Price: "
  • Line Location: RXN1+20
Function Call: WRITE
  • Prompt: "$",$J(COST,3,2),!
  • Line Location: RXN1+20
Function Call: WRITE
  • Prompt: "_"
  • Line Location: RXN1+26
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: RXN1+26
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: RXN1+26
Function Call: WRITE
  • Prompt: "_"
  • Line Location: RXN1+30
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: RXN1+30
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: RXN1+30
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: RXN1+30
Function Call: WRITE
  • Prompt: !
  • Line Location: RXN2+0
Function Call: WRITE
  • Prompt: " ",$E($P(Y,"^"),4,5)_"-"_$E($P(Y,"^"),6,7)_"-"_($E($P(Y,"^"),1,3)+1700)_$P(Y,"^",2)
  • Line Location: DUP+4
Function Call: WRITE
  • Prompt: !?15
  • Line Location: BAR+1
Function Call: WRITE
  • Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13)
  • Line Location: BAR+1
Function Call: WRITE
  • Prompt: !," Message: "_$G(^PSDRUG(+$P(RX0,"^",6),"PSO"))
  • Line Location: EIGHTY+2
Function Call: WRITE
  • Prompt: !?1,"Qty: "_$P(RX0,"^",7)_" for "_$P(RX0,"^",8)_" Days "_ACTS," Exp: "_$E($P(RX2,"^",6),4,5)_"-"_$E($P(RX2,"^",6),6,7)_"-"_($E($P(RX2,"^",6),1,3)+1700)
  • Line Location: EIGHTY+4
Function Call: WRITE
  • Prompt: ?48," Prov: "_$E(PHYS,1,30)
  • Line Location: EIGHTY+5
Function Call: WRITE
  • Prompt: !,?43,"COSIGNER: "_$P($G(^VA(200,+$P(^PSRX(J,3),"^",3),0)),"^")
  • Line Location: EIGHTY+5
Function Call: WRITE
  • Prompt: !?9,"Sig: ",$G(BSIG(1))
  • Line Location: EIGHTY+6
Function Call: WRITE
  • Prompt: !?14,$G(BSIG(PSREV))
  • Line Location: EIGHTY+7
Function Call: WRITE
  • Prompt: " ",$E($P(Y,"^"),4,5),"-",$E($P(Y,"^"),6,7),"-",($E($P(Y,"^"),1,3)+1700)_$P(Y,"^",2)
  • Condition for execution: Y
  • Line Location: EIGHTY+10
Function Call: WRITE
  • Prompt: " Past Fills:"
  • Line Location: EIGHTY+12
Function Call: WRITE
  • Prompt: !?10,"Remaining Refills: "_($P(RX0,"^",9)-RFS),?45,"Clinic: ",$S($D(^SC(+$P(RX0,"^",5),0)):$E($P(^(0),"^"),1,30),1:"UNKNOWN")
  • Line Location: EIGHTY+13
Function Call: WRITE
  • Prompt: !?10,"Price: "
  • Line Location: EIGHTY+14
Function Call: WRITE
  • Prompt: "$",$J(COST,3,2),!
  • Line Location: EIGHTY+14
Function Call: WRITE
  • Prompt: "_"
  • Line Location: EIGHTY+20
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: EIGHTY+20
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: EIGHTY+20
Function Call: WRITE
  • Prompt: "_"
  • Line Location: EIGHTY+24
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: EIGHTY+24
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: EIGHTY+24
Function Call: WRITE
  • Prompt: "VA#:"
  • Line Location: EIGHTY+24
Function Call: WRITE
  • Prompt: !
  • Line Location: RXN3+0
Routine Call
  • DIR
  • Line Location:
    • RXN1+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.605 - [#50.605] CLASS
^PS(53 - [#53] RXN1+23, EIGHTY+17
^PSDRUG - [#50] RXN1+7, RXN1+11, RXN1+20, RXN1+21, RXN1+23, RXN1+31, EIGHTY+1, EIGHTY+2, EIGHTY+14, EIGHTY+15
, EIGHTY+17, EIGHTY+25
^PSRX - [#52] RXN+5, RXN+6, RXN1+1, RXN1+15, RXN1+25, SIG, SIG+1, DUP+2, DUP+3, EIGHTY+5
, EIGHTY+9, EIGHTY+19
^PSRX("B" RXN1+24, EIGHTY+18
^SC - [#44] RXN1+19, EIGHTY+13
^TMP($J CLASS, DRUG, RXN+4, RXN+5, RXN1+17, DUP+1, DUP+2, DUP+5!, EIGHTY+11
^VA(200 - [#200] RXN1+2, EIGHTY+5

Label References

Name Line Occurrences
ACTS RXN1+8, EIGHTY+3
BAR RXN1+23, EIGHTY+17
DRUG CLASS
DUP RXN1+18, EIGHTY+12
EIGHTY RXN1+6
RXN DRUG
RXN1 RXN+6
RXN2 RXN1+21, RXN1+22, EIGHTY+15
RXN3 EIGHTY+16
SIG RXN1+12, EIGHTY+6

Naked Globals

Name Field # of Occurrence
^("CLOZ1" RXN1+21, RXN1+31, EIGHTY+15, EIGHTY+25
^("STA" RXN+6
^(0 CLASS, RXN1+1, RXN1+2, RXN1+7, RXN1+19, DUP+3, EIGHTY+1, EIGHTY+13
^(2 RXN+5, DUP+2
^(3 RXN+5, EIGHTY+5
^(660 RXN1+20, EIGHTY+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTS RXN1+8~, RXN1+9, EIGHTY+3~, EIGHTY+4, ACTS+1*
BSIG RXN1+14!, SIG!, EIGHTY+8!
BSIG( RXN1+13, SIG*, EIGHTY+7
BSIG(1 RXN1+12, RXN1+13, EIGHTY+6, EIGHTY+7
>> CLASS CLASS*, DRUG, RXN+4, RXN+5, RXN1+3, RXN1+4, RXN1+5, RXN1+17, DUP+1, DUP+2
, DUP+5, EIGHTY+11
COST RXN1+20*!, EIGHTY+14*!
>> CS RXN1+28, EIGHTY+22
>> DFN RXN+1, RXN+3, RXN1+22, EIGHTY+16
DIR RXN1+3!
DIR(0 RXN1+3*
>> DOD( RXN+1, RXN+3, RXN1+22, EIGHTY+16
>> DRUG DRUG*, RXN+4, RXN+5, RXN1+17, DUP+1, DUP+2, DUP+5, EIGHTY+11
>> DTOUT CLASS, DRUG, RXN+4, RXN1+3, RXN1+4
>> DUOUT CLASS, DRUG, RXN+4, RXN1+3, RXN1+4
>> DUPD RXN1+17*, EIGHTY+11*
>> FDT DRUG*, RXN+4, RXN+5, RXN1+17, RXN1+18*, DUP+1*, DUP+2, DUP+5, EIGHTY+11, EIGHTY+12*
FILL RXN2!, DUP+3!, RXN3!
FILL( RXN1+16, DUP+4, EIGHTY+10
FILL(9999999 RXN1*, RXN1+1*, DUP+3*
FILLS RXN1*, RXN2!, RXN3!
FSIG SIG!, SIG+1!
FSIG( SIG
I RXN1+26*, RXN1+30*, RXN2!, EIGHTY+20*, EIGHTY+24*, RXN3!
II RXN1+1*, RXN2!, DUP+3*, RXN3!
IOM DUP+4
IOSL RXN1+4
IOST RXN1+3, SIG, SIG+1
>> J RXN+5*, RXN1+1, RXN1+18*, EIGHTY+5, EIGHTY+12*
LABEL RXN2!, RXN3!
OLDFILL RXN1+18*!, EIGHTY+12*!
OLDJ RXN1+18*!, EIGHTY+12*!
OLDRX RXN1+18*!, EIGHTY+12*!
OLDRX2 RXN1+18*!, EIGHTY+12*!
>> PCLASS CLASS*, RXN1+5
PHYS RXN1+2*, RXN1+10, RXN2!, EIGHTY+5, RXN3!
PRDT RXN2!, RXN3!
PRICE RXN1+20*, RXN2!, EIGHTY+14*, RXN3!
PSI RXN2!, RXN3!
PSII RXN2!, DUP+4*, RXN3!
PSIII RXN1+16*, RXN2!, EIGHTY+10*, RXN3!
>> PSOBAR2 BAR+1
>> PSOBAR3 BAR+1
>> PSOBAR4 RXN1+23, BAR+1, EIGHTY+17
>> PSODEA RXN1+23*, RXN1+24, EIGHTY+17*, EIGHTY+18
>> PSOIFSUP RXN1+24*, RXN1+26, EIGHTY+18*, EIGHTY+20
>> PSOINST BAR+1
>> PSOPAR RXN+1, RXN+3
>> PSOPRINT RXN1+26, EIGHTY+20
>> PSORM RXN, RXN+2, RXN1+5, RXN1+6, SIG, SIG+1, DUP+4
>> PSRENW RXN1+23*, RXN1+26, EIGHTY+17*, EIGHTY+20
PSREV RXN1+13*, RXN1+14!, SIG*, SIG+1!, EIGHTY+7*, EIGHTY+8!
>> PSTYPE RXN+1, RXN+3, RXN1+3, RXN1+4, RXN1+5, RXN1+21, RXN1+29, EIGHTY+15, EIGHTY+23
>> RF RXN1+15*, EIGHTY+9*
>> RFL RXN1*, RXN1+1*, RXN1+17, DUP+1, EIGHTY+11
>> RFS RXN1+15*, RXN1+19, EIGHTY+9*, EIGHTY+13
RX0 RXN+5*, RXN1, RXN1+2, RXN1+7, RXN1+9, RXN1+11, RXN1+19, RXN1+20, RXN1+21, RXN1+23
, RXN1+24, RXN1+28, RXN1+29, RXN1+31, RXN2!, EIGHTY+1, EIGHTY+2, EIGHTY+4, EIGHTY+13, EIGHTY+14
, EIGHTY+15, EIGHTY+17, EIGHTY+18, EIGHTY+22, EIGHTY+23, EIGHTY+25, RXN3!, ACTS+1
RX2 RXN+5*, RXN1, RXN1+9, RXN1+18*, RXN2!, DUP+2*, DUP+3, EIGHTY+4, EIGHTY+12*, RXN3!
RX3 RXN+5*, RXN2!, RXN3!
>> RXCNT CLASS*, RXN+1, RXN+3, RXN1+12*, EIGHTY+6*
>> RXN RXN+4*, RXN+5, RXN+6, RXN1+15, RXN1+18*, SIG, SIG+1, BAR+1, EIGHTY+9, EIGHTY+12*
>> RXNO RXN+5*
>> RXNODE RXN+6*
RXX RXN1+24*, RXN1+25, RXN2!, EIGHTY+18*, EIGHTY+19, RXN3!
RXX(1 RXN1+24*, EIGHTY+18*
SIG RXN2!, RXN3!
T RXN1+26*, RXN1+30*, RXN2!, EIGHTY+20*, EIGHTY+24*, RXN3!
X RXN2!, BAR+1*, RXN3!
>> X1 BAR+1*
>> X2 BAR+1*
Y RXN1+16*, RXN2!, DUP+4*, EIGHTY+10*, RXN3!
>> Z0 CLASS*
>> Z1 DRUG*
>> Z2 RXN+4*
>> Z3 DRUG*
>> Z4 DUP+1*
>> Z5 DUP+2*, DUP+3, DUP+5
Z9 RXN2!, RXN3!
>> ZCLASS CLASS*, RXN1+3, RXN1+4, RXN1+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All