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

Package: Outpatient Pharmacy

Routine: PSOP1


Information

PSOP1 ;BHAM ISC/SAB - prints short medication profile ;02/25/94

Source Information

Source file <PSOP1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Outpatient Pharmacy 7 $$ECME^PSOBPSUT  STAT^PSOFUNC  SIGONE^PSOHELP  (NVA,PEND)^PSOP2  $$TITRX^PSOUTL  FSIG^PSOUTLA  EN2^PSOUTLA1  
VA FileMan 3 ^%DT  ^DIC  ^DIR  
Kernel 1 ^%ZISC  

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 2 PSOP  PSOP2  
Medicine 1 MCPSOP  

Entry Points

Name Comments DBIA/ICR reference
SORT
CLSS ;asks drug class list
W
TO1
DRUG ;asks drug list
Q
TO
SIG
DIR
EDT
DATE ;asks date range
HD

External References

Name Field # of Occurrence
^%DT DATE+1, EDT
^%ZISC Q
^DIC DRUG+3, TO, CLSS+1, TO1
^DIR SORT+1, DIR
$$ECME^PSOBPSUT W+9
STAT^PSOFUNC W+4
SIGONE^PSOHELP SIG+1
NVA^PSOP2 PSOP1+7
PEND^PSOP2 PSOP1+7
$$TITRX^PSOUTL W+9
FSIG^PSOUTLA W+14
EN2^PSOUTLA1 W+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: I
  • Line Location: W+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: W+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: W+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,CP_$P(RX0,"^"),$$ECME^PSOBPSUT(J),$$TITRX^PSOUTL(J),?14,$S($D(^PSDRUG(+$P(RX0,"^",6),0)):$E($P(^(0),"^"),1,39),1:"NOT ON FILE"),?54,$S($L(ST)=1:" "_ST,1:ST)
  • Line Location: W+9
Function Call: WRITE
  • Prompt: ?58,$S($L(RXF)=1:" "_RXF,1:RXF)
  • Line Location: W+11
Function Call: WRITE
  • Prompt: ?61,$E($P(RX0,"^",13),4,5)_"-"_$E($P(RX0,"^",13),6,7)_"-"_$E($P(RX0,"^",13),2,3)
  • Line Location: W+12
Function Call: WRITE
  • Prompt: ?70,$E(RXD,4,5)_"-"_$E(RXD,6,7)_"-"_$E(RXD,2,3)_$S($G(RST(RXD)):"R",1:"")
  • Condition for execution: RXD
  • Line Location: W+12
Function Call: WRITE
  • Prompt: !?5,"QTY: ",$P(RX0,"^",7),?24,"SIG: ",$G(FSIG(1))
  • Line Location: W+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: W+18
Function Call: WRITE
  • Prompt: !?57,"REF",!?1,"Rx#",?14,"Drug",?54,"ST",?57,"REM",?62,"Issued",?70,"Last Fill",!,PSOPLINE
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !,$C(7),"Less Than 'Start' Value"
  • Line Location: TO+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CLSS+1
Function Call: WRITE
  • Prompt: !,$C(7),"Less Than 'Start' Value"
  • Line Location: TO1+1
Function Call: WRITE
  • Prompt: !?6
  • Condition for execution: ($X+$L($P(MIG," ",SG)_" "))>$S(IOST["C-":IOM,1:70)
  • Line Location: SIG+4
Function Call: WRITE
  • Prompt: $P(MIG," ",SG)_" "
  • Line Location: SIG+4
Function Call: WRITE
  • Prompt: !?6
  • Condition for execution: ($X+$L($P(MIG," ",SG)_" "))>$S(IOST["C-":IOM,1:70)
  • Line Location: SIG+6
Function Call: WRITE
  • Prompt: $P(MIG," ",SG)_" "
  • Line Location: SIG+6
Routine Call
  • DIC
  • Line Location:
    • DRUG+3
    • TO
    • CLSS+1
    • TO1
Routine Call
  • DIR
  • Line Location:
    • SORT+1
    • DIR

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] HD+1
^PSDRUG - [#50] W+9
^PSRX - [#52] PSOP1+6, W+5, W+6, W+10, W+13, SIG, SIG+1, SIG+3, SIG+5
^TMP($J PSOP1+5, PSOP1+6, Q!

Label References

Name Line Occurrences
@( SORT+2
CLSS CLSS+2
DATE DATE+2
DIR W, W+18
DRUG DRUG+4
EDT EDT+1
HD PSOP1+5, W, W+2, W+3, W+18
Q PSOP1+5
TO TO+1
TO1 TO1+1
W PSOP1+6

Naked Globals

Name Field # of Occurrence
^( PSOP1+6
^("STA" PSOP1+6
^(0 W+9, W+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DRUG+5*, TO+3*, CLSS+3*, TO1+3*
%DT DATE+1!*, EDT+2!
%DT("A" DATE+1*, EDT*
%DT(0 DATE+2*
AL Q!
BSIG W+13!, W+16!
BSIG( W+15
>> CLS TO1+4*
>> CP PSOP1+6*, W+9
CT Q!
D0 Q!
DA Q+1!
DFN Q!, HD+1
DIC Q!, DRUG+1*, DRUG+3!, TO!, TO+4!, CLSS+1*
DIC("A" DRUG+1*, TO*, CLSS+1*, TO1*
DIC("S" DRUG+2*
DIC(0 DRUG+1*, CLSS+1*
DIR Q!, SORT!, SORT+2!, DIR!
DIR("?" SORT+1*
DIR("A" SORT+1*
DIR("B" SORT+1*
DIR(0 SORT+1*, DIR*
DIROUT PSOP1+4!, PSOP1+5
DIRUT PSOP1+4!, Q!, SORT+2, DIR!
>> DRS TO+2*
DRUG PSOP1+5*, PSOP1+6, Q!
DRX Q+1!
DTOUT PSOP1+4!, PSOP1+5, SORT!, DIR!
>> DTS EDT+1*
DUOUT PSOP1+4!, PSOP1+5, Q!, SORT!, DATE+1*, EDT*, DRUG+3*, TO*, CLSS+1*, TO1*
, DIR!
>> EDT EDT+1*
EEEE Q+1!
FN Q+1!
>> FR HD+2, DATE+2*, DRUG+4*, DRUG+5, TO+1, CLSS+2*, CLSS+3, TO1+1
FSIG Q+1!, W+13!, W+19!
FSIG( W+15*, W+18
FSIG(1 W+17
G Q!
GGGG W+15*, W+16!, W+18*, W+19!
>> HDR HD+2
I PSOP1+5*, Q+1!, SIG+5*
I1 Q!
II Q!, W+10*
>> INS1 SIG+1
IO W+2
IO(0 W+2
IOF W, W+2, W+3, W+18
IOM SIG+2, SIG+4, SIG+6
IOSL W, W+2, W+3, W+18
IOST W, W+3, W+18, SIG+2, SIG+4, SIG+6
J PSOP1+6*, Q+1!, W+5, W+6, W+9, W+10, W+13, W+14, W+15, SIG
, SIG+1, SIG+3
K Q!
LMI Q+1!
>> M DRUG+5*, TO+3*, CLSS+3*, TO1+3*
>> MIG SIG+3*, SIG+4, SIG+5*, SIG+6
>> PAGE HD, HD+1, HD+3*
PCOUNT Q+1!
PENDREX Q+1!
PHYS Q!
PI Q+1!
PLS Q!
PP Q+1!
PPDIS Q+1!
PPOI Q+1!
PPP Q+1!
PPPCNT Q+1!
PPPSTAT Q+1!
PQT PSOP1+5, PSOP1+6, PSOP1+7, Q!, W, W+18, W+19, DIR!*
>> PSFR DRUG+6*, CLSS+4*
PSOBADR W+1~, W+5*, W+6*, W+7*, W+8
PSODTCT Q!
PSOPEND Q+1!
>> PSOPLINE HD+3
PSOPRSIG W+13*, W+14, W+16!
PSRT Q!, SORT+2
>> PSTO TO+4*, TO1+4*
REF Q!
RST W+21!
RST( PSOP1+6*, W+10*, W+12
RX PSOP1+4!, Q+1!
RX0 PSOP1+6*, Q+1!, W+9, W+10, W+12, W+17
RX2 PSOP1+6*, Q+1!
RXD Q!, W+10*, W+12
RXF Q!, W+10*, W+11
>> RXN SIG+5
>> SDT DATE+2*
>> SG SIG+2*, SIG+4*, SIG+6*
>> SIG SIG+1*, SIG+2
>> SIGOK SIG+3*
ST Q!, Q+1!, W+4*, W+8*, W+9
>> ST0 W+4
STA W+4*!
>> TO HD+2, EDT+1*, TO+2*, TO+3, TO1+2*, TO1+3
X Q!, DATE+1, EDT, DRUG+3, DRUG+6!, TO, TO+1!, TO+4!, CLSS+1, CLSS+4!
, TO1, TO1+1!, TO1+4!, SIG+1*
Y Q+1!, SORT+2, DATE+2, EDT+1, DRUG+4, DRUG+6!, TO+1!, TO+2, TO+4!, CLSS+2
, CLSS+4!, TO1+1!, TO1+2, TO1+4!
Y1 DRUG+5*, DRUG+6!, TO+3*, TO+4!, CLSS+3*, CLSS+4!, TO1+3*, TO1+4!
>> ZTQUEUED Q+2
>> ZTREQ Q+2*
ZX Q!
ZZZZ Q+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All