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 |  Marked Items |  All
Print Page as PDF
Routine: PSORESK

Package: Outpatient Pharmacy

Routine: PSORESK


Information

PSORESK ;BIR/SAB-return to stock ;14-Nov-2017 14:48;DU

Source Information

Source file <PSORESK.m>

Call Graph

Call Graph Total: 21

Package Total Call Graph
Outpatient Pharmacy 9 REVERSE^PSOBPSU1  ICN^PSODPT  EN^PSOHDR  EN^PSOHLSN1  EN^PSOHLUP  ^PSOLSET  LOCK^PSOORCPY  ($$CHECK,ACT,CP,STAT)^PSORESK1  
INVT^PSORXDL  
VA Fileman 7 (C,NOW)^%DTC  ^DIC  ^DIE  ^DIK  $$GET1^DIQ  EN^DIQ1  ^DIR  
Controlled Substances 1 PSDRTS^PSDOPT0  
IHS Changes To Pharmacy 1 CALLPOS^APSPFUNC  
Pharmacy Data Management 1 ($$L,PSOL,PSOUL,UL)^PSSLOCK  
Registration 1 $$SITE^VASITE  
Toolkit 1 $$GET^XPAR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO RETURNED STOCK  

Entry Points

Name Comments DBIA/ICR reference
PAR
BCI
BC
NPF
AC
RXLKUP(X) ; EP
UL ;
EX ;
MSG
RXP ;S RXP=$O(^PSRX("B",X,RXP)) I $P($G(^PSRX(+RXP,"STA")),"^")=13 G RXP
REF
BC1 ;

External References

Name Field # of Occurrence
C^%DTC NPF+2, NPF+3, NPF+6
NOW^%DTC BC1+45, BC1+46, PAR+25
CALLPOS^APSPFUNC BC1+55, PAR+59
^DIC RXLKUP+5
^DIE BC1+45, BC1+46, BC1+54, PAR+37, PAR+44, PAR+51, PAR+58, NPF+7
^DIK BC1+47, PAR+60
$$GET1^DIQ BC1+48, PAR+52
EN^DIQ1 BC+3
^DIR BC, BC1+13, BC1+22, BC1+35, REF+2, PAR+9, PAR+22
PSDRTS^PSDOPT0 BC1+26, PAR+10, PAR+12, PAR+13
REVERSE^PSOBPSU1 BC1+56, PAR+29
ICN^PSODPT BC1+5
EN^PSOHDR PAR+61
EN^PSOHLSN1 BC1+57, PAR+61
EN^PSOHLUP BC1+8
^PSOLSET AC
LOCK^PSOORCPY BC1+6
$$CHECK^PSORESK1 BC1+45, PAR+51
ACT^PSORESK1 BC1+47, PAR+47
CP^PSORESK1 BC1+29, PAR+16
STAT^PSORESK1 BC1+9
INVT^PSORXDL BC1+28, PAR+15
$$L^PSSLOCK BC1+6
PSOL^PSSLOCK BC1+7
PSOUL^PSSLOCK UL+1
UL^PSSLOCK BC1+7, UL+2
$$SITE^VASITE BC+3
$$GET^XPAR RXLKUP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Outpatient Pharmacy Site Parameters are required!"
  • Line Location: AC+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: BC+0
Function Call: WRITE
  • Prompt: !,$C(7),$C(7)," INVALID STATION NUMBER !!",$C(7),$C(7),!
  • Line Location: BC+2
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),$C(7)," NON-EXISTENT Rx"
  • Line Location: BC+4
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),$C(7)," IMPROPER BARCODE FORMAT"
  • Line Location: BC+5
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Rx # "_$P(^PSRX(RXP,0),"^")_" was NOT released !"
  • Line Location: BC1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: BC1+19
Function Call: WRITE
  • Prompt: !!?5,"Prescription Not Returned to Stock!",!
  • Line Location: BC1+28
Function Call: WRITE
  • Prompt: !?5,"Comments are required, 10-75 characters.",!
  • Line Location: BC1+35
Function Call: WRITE
  • Prompt: !,"Rx # "_$P(^PSRX(RXP,0),"^")_" Returned to Stock.",!
  • Line Location: BC1+57
Function Call: WRITE
  • Prompt: $C(7),!!,"Last Fill Already Returned to Stock !",!
  • Line Location: PAR+2
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),$S(XTYPE:"Refill",1:"PARTIAL")_" #"_TYPE_" was NOT released !",!
  • Line Location: PAR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAR+6
Function Call: WRITE
  • Prompt: !!?5,"Prescription Not Returned to Stock!",!
  • Line Location: PAR+15
Function Call: WRITE
  • Prompt: !?5,"Comments are required, 10-75 characters.",!
  • Line Location: PAR+22
Function Call: WRITE
  • Prompt: !
  • Line Location: PAR+37
Function Call: WRITE
  • Prompt: " - Not Returned!"
  • Line Location: PAR+41
Function Call: WRITE
  • Prompt: !!,"Rx # "_$P(^PSRX(RXP,0),"^")_$S(XTYPE:" REFILL",1:" PARTIAL")_" #"_TYPE_" Returned to Stock"
  • Line Location: PAR+60
Function Call: WRITE
  • Prompt: !!,"The PSDMGR key is required to return a CONTROLLED SUBSTANCE Rx to stock and",!,"update corresponding vault balances."
  • Line Location: MSG+0
Routine Call
  • DIE
  • Line Location:
    • BC1+45
    • BC1+46
    • BC1+54
    • PAR+37
    • PAR+44
    • PAR+51
    • PAR+58
    • NPF+7
Routine Call
  • DIC
  • Line Location:
    • RXLKUP+5
Routine Call
  • DIR
  • Line Location:
    • BC
    • BC1+13
    • BC1+22
    • BC1+35
    • REF+2
    • PAR+9
    • PAR+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls,  GET1^DIQ
^PS(52.5 - [#52.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BC1+20, PAR+7
^PS(52.5 - [#52.5] BC1+47, PAR+60
^PS(55 - [#55] BC1+8
^PSDRUG - [#50] BC1+20, BC1+28, BC1+38, BC1+40*, PAR+7, PAR+15, PAR+25, PAR+27*
^PSRX - [#52] BC+4, BC+5, BC1+2, BC1+4, BC1+8, BC1+9, BC1+10, BC1+11, BC1+15, BC1+16
, BC1+17, BC1+18, BC1+19, BC1+20, BC1+26, BC1+29, BC1+44, BC1+50, BC1+57, REF
, REF+3, PAR, PAR+2, PAR+3, PAR+5, PAR+6, PAR+7, PAR+12, PAR+13, PAR+16
, PAR+25, PAR+32, PAR+33, PAR+40, PAR+49, PAR+54, PAR+60, NPF, NPF+1, NPF+2
, NPF+5, NPF+6
^PSRX("AR" BC1+18, BC1+41!, PAR+5, PAR+28!
^UTILITY($J AC+1!

Label References

Name Line Occurrences
$$RXLKUP RXP+1
BC BC+1, BC+2, BC+4, BC+5, BC1+2, BC1+6, BC1+7, BC1+9, BC1+11, BC1+15
, BC1+17, BC1+22, BC1+24, REF, PAR+1, PAR+2, PAR+3, PAR+9, PAR+14, PAR+15
, PAR+16, PAR+40, PAR+62
BC1 BC+1, BC+5
BCI BC+1
EX BC, BC1+24, PAR+1, PAR+2, PAR+14
MSG BC1+26, PAR+12, PAR+13
NPF PAR+47
PAR BC1+14
REF BC1+10
UL BC1+9, BC1+11, BC1+16, BC1+17, BC1+22, BC1+24, REF, PAR+1, PAR+2, PAR+3
, PAR+9, PAR+14, PAR+15, PAR+16, PAR+44, PAR+62

Naked Globals

Name Field # of Occurrence
^("STA" BC1+9
^(0 BC1+10, BC1+20, PAR+7, PAR+12, PAR+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% BC1+45, BC1+46, EX+1!
COM BC1+36*, PAR+24*, EX+1!
COPAYFLG BC1+10*, BC1+29, PAR+16, EX+1!
DA BC+3*!, BC1+45*!, BC1+46*!, BC1+47*, BC1+53~, BC1+54*, PAR+36*, PAR+42*, PAR+51*!, PAR+57~
, PAR+58*, PAR+60*, EX+1!, NPF+7*
DA(1 PAR+36*, PAR+42*
DIC BC+3*, EX+2!, RXLKUP+1~, RXLKUP+5*
DIC("S" RXLKUP+3*, RXLKUP+4*
DIC(0 RXLKUP+5*
DIE BC1+45*!, BC1+46*!, BC1+53~, BC1+54*, PAR+36*, PAR+42*, PAR+51*!, PAR+57~, PAR+58*, EX+1!
, NPF+7*!
DIK BC1+47*, PAR+60*, EX+2!
DIQ BC+3*!
DIQ(0 BC+3*
DIR BC!, BC1+13!, BC1+22!, BC1+32!, BC1+36!, REF+2!, PAR+4!, PAR+9!, PAR+19!, PAR+22!
, EX+1!
DIR("?" BC*, BC1+13*, BC1+33*, REF+2*, PAR+20*
DIR("A" BC*, BC1+12*, BC1+19*, BC1+20*, BC1+21*, BC1+33*, REF+1*, PAR+6*, PAR+7*, PAR+8*
, PAR+20*
DIR("B" BC1+12*, BC1+19*, BC1+34*, REF+1*, PAR+6*, PAR+21*
DIR(0 BC*, BC1+12*, BC1+22*, BC1+33*, REF+1*, PAR+6*, PAR+20*
DIRUT BC, BC1+22, BC1+31, BC1+32!, BC1+35, PAR+18, PAR+19!, PAR+22, EX+1!
DR BC+3*!, BC1+45*!, BC1+46*!, BC1+53~, BC1+54*, PAR+36*, PAR+43*, PAR+51*!, PAR+57~, PAR+58*
, EX+1!, NPF+7*
DT BC1+48, PAR+52
DTOUT BC1+11, BC1+32!, REF, PAR+4!, PAR+9, PAR+19!
DUOUT BC1+11, BC1+32!, REF, PAR+4!, PAR+9, PAR+19!
I EX+1!
ISDT BC1+44*, BC1+45, PAR+48~, PAR+49*, PAR+50
PSDCS EX+1!, MSG
PSDRS EX+1!, MSG
PSDS BC1+26!, PAR+12!, PAR+13!
PSOCPN EX+1!
PSOCPRX EX+1!
PSODEF AC+1!, BC!, BC1+34, BC1+36*, PAR+21, PAR+24*
PSODEFLG BC!, BC1+28!, PAR+15!, EX+1!
PSODISPP PAR+61!*
PSOINVTX BC!, BC1+28!, BC1+39, PAR+15!, PAR+26, EX+1!
PSOLOCRL BC1+18*, BC1+41, PAR+5!*, PAR+28, EX+1!
PSOLOUD BC1+8*!
PSOMSG BC1+7!, EX+1!
>> PSOPAR AC
PSOPCECT AC+1*, BC1+24*, PAR+1*, PAR+2*, EX+1!
PSOPFS BC1+29~*, PAR+16~*, EX+2!
PSOPLCK BC1+6*!, BC1+7!, EX+1!
PSORESAR BC+3!
PSORESAR(4 BC+3
PSORESST BC+2!, BC+3!*
PSORESSX BC+3*!
PSORRDFN BC1+4*, BC1+5, BC1+6, BC1+7, EX+1!, UL+2
PSOWHERE BC!, BC1+18*, BC1+21, BC1+28, BC1+39, BC1+41, PAR+5!*, PAR+8, PAR+15, PAR+26
, PAR+28, EX+1!
PSOY NPF~, NPF+2*, NPF+3
QDRUG BC1+10*, BC1+28, BC1+38, BC1+40, PAR+15, PAR+25, PAR+27, EX+1!
QTY BC1+10*, BC1+40, PAR+25*, PAR+27, EX+1!
RDUZ EX+1!
REC EX+1!
RESK AC+1*, BC1+24*, PAR+1*, PAR+2*, EX+1!
RETSK BC1+27, PAR+14, EX+1!, MSG*
RXP BC+1, BC+4*, BC+5, BC1+2, BC1+4, BC1+7, BC1+8, BC1+9, BC1+10, BC1+11
, BC1+15, BC1+16, BC1+17, BC1+18, BC1+19, BC1+20, BC1+26, BC1+29, BC1+41, BC1+44
, BC1+45, BC1+46, BC1+47, BC1+48, BC1+50, BC1+54, BC1+55, BC1+56, BC1+57, REF
, REF+3, PAR, PAR+2, PAR+3, PAR+5, PAR+6, PAR+7, PAR+12, PAR+13, PAR+16
, PAR+25, PAR+28, PAR+29, PAR+32, PAR+33, PAR+36, PAR+40, PAR+42, PAR+49, PAR+51
, PAR+52, PAR+54, PAR+58, PAR+59, PAR+60, PAR+61, EX+1!, BCI*, RXP+1*, UL+1
, NPF, NPF+1, NPF+2, NPF+5, NPF+6, NPF+7
STATUS BC1+49~, BC1+50*, BC1+51, BC1+52, PAR+53~, PAR+54*, PAR+55, PAR+56
>> SVRELDT PAR+32*, PAR+33*, PAR+43
TYPE PAR*, PAR+1, PAR+2, PAR+3, PAR+5, PAR+6, PAR+12, PAR+13, PAR+16, PAR+25
, PAR+28, PAR+29, PAR+32, PAR+33, PAR+36, PAR+40, PAR+42, PAR+59, PAR+60, EX+1!
, NPF, NPF+1, NPF+2, NPF+4
U BC1+2, BC1+50, PAR+54
X BC+1, BC+2, BC+3*, BC+4, BC1+32!, BC1+36!, PAR+19!, PAR+24!, EX+1!, RXP+1
, NPF+2, NPF+3*, NPF+6*, NPF+7, RXLKUP~
X1 EX+1!, NPF+1*, NPF+2*, NPF+5*
X2 EX+1!, NPF+1*, NPF+2*, NPF+5*
XDT EX+1!
XTYPE BC!, BC1+14*, REF+3*, PAR*, PAR+2, PAR+3, PAR+5, PAR+6, PAR+12, PAR+16
, PAR+25, PAR+29, PAR+32, PAR+33, PAR+36, PAR+40, PAR+42, PAR+43, PAR+47, PAR+60
, PAR+61, EX+1!
Y BC1+11*, BC1+14, BC1+22, BC1+32!, BC1+36!, BC1+46, REF+3, PAR+9, PAR+19!, PAR+24!
, EX+1!, RXLKUP+1~, RXLKUP+6
YY PAR*, EX+1!

Marked Items

Name Field # of Occurrence
$T(PSDRTS^PSDOPT0 BC1+26, PAR+10
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 |  Marked Items |  All