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

Package: Outpatient Pharmacy

Routine: PSOP


Information

PSOP ;BIR/SAB - Medication profile long or short ;02/25/94

Source Information

Source file <PSOP.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Outpatient Pharmacy 9 $$ECME^PSOBPSUT  ^PSODEM  STAT^PSOFUNC  EN^PSOHLUP  (,DIR,SORT)^PSOP1  (NVA,PEND)^PSOP2  EN^PSOPATLK  FSIG^PSOUTLA  
EN2^PSOUTLA1  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 C^%DTC  ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Changes To Scheduling 2 ASDFORM  BSDFORM  
Outpatient Pharmacy 1 PSO P  

Entry Points

Name Comments DBIA/ICR reference
Q
O
DOIT
P
S
DEV
LOOP

External References

Name Field # of Occurrence
C^%DTC S+4
^%ZIS DEV+1
^%ZISC Q
^%ZTLOAD DEV+4
^DIC O+21, O+24
^DIR DOIT+2, S+1, S+4
$$ECME^PSOBPSUT O+8
^PSODEM DOIT, DOIT+1, P
STAT^PSOFUNC O+40
EN^PSOHLUP PSOP+5
^PSOP1 P+4
DIR^PSOP1 P+1, P+5, O+3, O+14, O+29, O+37
SORT^PSOP1 DEV
NVA^PSOP2 P+6
PEND^PSOP2 P+6
EN^PSOPATLK PSOP+5
FSIG^PSOUTLA O+10
EN2^PSOUTLA1 O+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?20,$C(7),"NO PHARMACY INFORMATION"
  • Line Location: DOIT+0
Function Call: WRITE
  • Prompt: !!,"PATIENT HAS ARCHIVED PRESCRIPTIONS",!
  • Line Location: DOIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !!?(80-$L("Medication Profile Sorted by "_HDR))/2,"Medication Profile Sorted by "_HDR
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !?(80-$L(FR_" to "_TO))/2,FR_" to "_TO
  • Condition for execution: $G(FR)]""
  • Line Location: P+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $G(PQT)
  • Line Location: P+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: P+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: O+3
Function Call: WRITE
  • Prompt: !!,"Rx #: "_CP_$P(RX0,"^"),$$ECME^PSOBPSUT(J),?32,"Drug: ",$G(DRX)
  • Line Location: O+8
Function Call: WRITE
  • Prompt: !?2,"SIG: "_$G(FSIG(1))
  • Line Location: O+13
Function Call: WRITE
  • Prompt: !?7,$G(FSIG(IIII))
  • Line Location: O+14
Function Call: WRITE
  • Prompt: !?2,"QTY: ",$P(RX0,"^",7),?23,"# of Refills: ",$P(RX0,"^",9),?45,"Issue/Expr: "
  • Line Location: O+20
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3),"/"
  • Line Location: O+20
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3)
  • Condition for execution: Y
  • Line Location: O+20
Function Call: WRITE
  • Prompt: !?2,"Prov: "_PHYS,?30,"Entry By: "_$P(RX0,"^",16),?45,"Filled: "
  • Line Location: O+22
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3)
  • Condition for execution: Y
  • Line Location: O+22
Function Call: WRITE
  • Prompt: " (",$P(RX0,"^",11),")"
  • Line Location: O+22
Function Call: WRITE
  • Prompt: !?2,"Cosigner: "_PHYS
  • Line Location: O+24
Function Call: WRITE
  • Prompt: !?2,"Last Released: "
  • Line Location: O+26
Function Call: WRITE
  • Prompt: $E(PSOLR,4,5)_"-"_$E(PSOLR,6,7)_"-"_$E(PSOLR,2,3)
  • Condition for execution: PSOLR
  • Line Location: O+26
Function Call: WRITE
  • Prompt: ?45,$S($P(RX2,"^",15):"Original Fill Returned to Stock",1:"Original Release: "_$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: O+27
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: O+29
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: O+37
Function Call: WRITE
  • Prompt: @IOF,!,$P(^DPT(DFN,0),"^"),?70,"Page: "_PAGE
  • Line Location: O+38
Function Call: WRITE
  • Prompt: $E(^(K,0),4,5),"-",$E(^(0),6,7),"-",$E(^(0),2,3)," (",$P(^(0),"^",2),") QTY:",$P(^(0),"^",4)_$S($P(^(0),"^",16):" (R)",1:"")_", "
  • Line Location: O+39
Routine Call
  • DIC
  • Line Location:
    • O+21
    • O+24
Routine Call
  • DIR
  • Line Location:
    • DOIT+2
    • S+1
    • S+4
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

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)
^DPT - [#2] O+5, O+16, O+31, O+38
^PS(52.41 - [#52.41] DOIT
^PS(55 - [#55] PSOP+5, DOIT, DOIT+1, P, LOOP, LOOP+1!*
^PS(59 - [#59] O+41
^PS(59.7 - [#59.7] P+2
^PSDRUG - [#50] O+2
^PSRX - [#52] O, O+9, O+25, O+28, O+39, LOOP, LOOP+1
^TMP($J PSOP+5!, P!, P+5, Q!

Label References

Name Line Occurrences
@( LOOP
DEV S+3
LOOP P
O P+5
P DEV+5
PSOP DOIT, DOIT+1, DEV+2, DEV+5
Q PSOP+5, DOIT+2, S+1, S+4, DEV, DEV+1, DEV+4, DEV+5, P+4

Naked Globals

Name Field # of Occurrence
^( O+39, LOOP
^("ARC" DOIT
^("NVA" DOIT
^("STA" O
^(0 O+2, O+25, O+39, O+41, LOOP+1
^(2 O
^(3 O

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1!*
AL Q!
BSIG O+9!, O+12!
BSIG( O+11
CLS PSOP+5!, Q+1!
CP Q!, O*, O+8
CT Q!, O+28*
D0 DOIT*, Q!
DA DOIT*, P, Q!
DFN PSOP+5*, DOIT*, Q!, O+5, O+16, O+31, O+38, LOOP, LOOP+1
DIC Q!, O+21!*, O+24!*
DIC(0 PSOP+5*, O+21*, O+24*
DIR DOIT+2!, S+2!, S+3!, S+4!, Q!
DIR("?" DOIT+2*, S+1*, S+3*
DIR("A" DOIT+2*, S*, S+3*
DIR("B" DOIT+2*, S*, S+3*
DIR(0 DOIT+2*, S*, S+3*
DIRUT DOIT+2, S+1, Q!
DRG Q+1!
DRS Q+1!
DRUG P+5*, Q!
DRX Q!, O*, O+2*, O+8
DT S+4
DTOUT S+4, DEV, Q+1!
DTS Q+1!
DUOUT DOIT+2, S+1, S+4, DEV, Q!
EDT Q+1!
EEEE Q+1!
FN DOIT*, Q!
FR P+3, Q+1!, O+6, O+17, O+32
FSIG Q+1!, O+9!
FSIG( O+11*, O+14
FSIG(1 O+13
G DEV+3*, Q!
HDR S+2*, P+3, Q!, O+6, O+17, O+32
I Q!, LOOP*, LOOP+1
I1 Q!
II P+5*, Q!
IIII Q+1!, O+11*, O+12!, O+14*
IO P
IO("Q" DEV+2, DEV+4!
IOF P+1, P+5, O+3, O+5, O+16, O+29, O+31, O+37, O+38
ION DEV+1
IOP DEV+1!*
IOSL P+1, P+5, O+3, O+4, O+14, O+29, O+30, O+37, O+38
IOST P+1, P+5, O+4, O+14, O+30, O+38
J P+5*, Q!, O, O+8, O+9, O+10, O+11, O+25, O+28, O+39
, LOOP*, LOOP+1
K Q!, O+28*, O+39*
LMI Q!
PAGE P*, Q!, O+4*, O+5, O+15*, O+16, O+30*, O+31, O+38*
PCOUNT Q+1!
PENDREX Q+1!
PHYS Q!, O+21*, O+22, O+24*!
PI Q!
PLS DOIT+2*, P+4, Q!
>> POP DEV+1
PP Q+1!
PPCOUNT Q+1!
PPDIS Q+1!
PPOI Q+1!
PPP Q+1!
PPPCNT Q+1!
PQT P+1, P+5, Q+1!, O+3, O+14, O+19, O+29, O+37
PRLBL Q!, LOOP*
PSDIV Q+1!, O+41*, O+42
PSFR Q+1!
PSOBRSIG O+9*, O+10, O+12!
PSODTCT S+4*, Q!
PSOION DEV+1*!, DEV+2!
PSOLOUD PSOP+5*!
PSOLR Q+1!, O+25*, O+26
>> PSOPAR S
PSOPATOK Q!, LOOP, LOOP+1*
PSOPEND Q+1!
PSOPLINE P*, Q!, O+7, O+18, O+33
PSOPTLK PSOP+5, Q!
>> PSOX O+25*
PSRT S+1*, S+3, Q!, LOOP
PSTO Q+1!
Q DEV+4!
REF Q!, O+28*, O+36*, O+42
RX Q!
RX0 Q!, O*, O+2, O+8, O+20, O+21, O+22, O+28
>> RX1 O+28*, O+34, O+35
RX2 Q!, O*, O+20, O+22, O+25, O+27, O+41
RX3 Q!, O*, O+23, O+24, O+40
RXD Q!
RXF Q!
SDT Q+1!
ST Q!, O+42
ST0 Q!
STAT Q+1!
TO P+3, Q+1!, O+6, O+17, O+32
X S+4, Q!, O+21!*, O+24!*
X1 S+4*, Q!
X2 S+4*, Q!
Y PSOP+5*, DOIT, DOIT+1, DOIT+2, S+1, S+2, Q!, O+20*, O+21!, O+22*
, O+24!
>> ZTDESC DEV+2*
>> ZTQUEUED Q+1
>> ZTREQ Q+1*
>> ZTRTN DEV+2*
>> ZTSAVE( DEV+3*
ZTSK PSOP+5!, DEV+1!, DEV+4!
ZX 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