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

Package: Outpatient Pharmacy

Routine: PSORXL1


Information

PSORXL1 ;BIR/SAB - action to be taken on prescriptions ; June 09, 2023@11:10:21

Source Information

Source file <PSORXL1.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Outpatient Pharmacy 9 ($$LSTRFL,REVERSE)^PSOBPSU1  ($$RXSITE,$$STATUS)^PSOBPSUT  SUS1^PSOCMOP  EN^PSOHLSN1  PRK^PSOPRK  $$TRIC^PSOREJP1  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  
(Q,RXS)^PSORXL  
VA FileMan 5 NOW^%DTC  FILE^DICN  ^DIK  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 1 $$DS^PSSDSAPI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 5 PSOPRKA  PSOREJU1  PSOREJU3  PSORRPA1  PSORXL  

Entry Points

Name Comments DBIA/ICR reference
S
S1
SUS ;
LOCK
SUSQ
ACT
D1
WARN
WARN1
HLP
SWARN ;
SWARNQ ;
SWARS ;
TRIC(PSORX) ;
ECME ; - Looks for DUR/79 REJECTS and send Mail Rx's to ECME that have not been SUSPENDED
RMV(RX,PPL) ; Remove the Rx from the label print queue
PPLPARK ;CHECK IF RX IN PPL STRING IS PARKED - REMOVE IT IF IT IS SO LABEL DOES NOT PRINT
PK ;

External References

Name Field # of Occurrence
NOW^%DTC ACT+3
FILE^DICN LOCK+3
^DIK SUS+7, WARN1+1
$$GET1^DIQ ECME+6
^DIR S1+6, WARN1, SWARN+6
$$LSTRFL^PSOBPSU1 LOCK+14, TRIC+1
REVERSE^PSOBPSU1 LOCK+15
$$RXSITE^PSOBPSUT LOCK+2
$$STATUS^PSOBPSUT SWARN+5, ECME+4
SUS1^PSOCMOP SUS+9
EN^PSOHLSN1 LOCK+10
PRK^PSOPRK PK+4
$$TRIC^PSOREJP1 TRIC+2
$$HDLG^PSOREJU1 ECME+12
$$FIND^PSOREJUT ECME+11
Q^PSORXL S1+9, WARN1+2, SWARN+10
RXS^PSORXL D1+1
$$DS^PSSDSAPI S1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(^PSRX($P(SPPL,",",I),0),"^")_", "
  • Line Location: S1+7
Function Call: WRITE
  • Prompt: !,"Label device must be selected for Drug Interaction or dose warning label!"
  • Line Location: S1+8
Function Call: WRITE
  • Prompt: !!,$S(RXP:"Partial ",1:"")_"RX# ",$P(^PSRX(RXN,0),"^")_" has been suspended until "_LFD_"."
  • Line Location: LOCK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: WARN+0
Function Call: WRITE
  • Prompt: $C(7)," Partial Removed!"
  • Line Location: WARN1+1
Function Call: WRITE
  • Prompt: !!,"If you choose to suspend this partial Rx, the current suspended fill will",!,"be replaced by the partial. You may want to pull this fill early instead.",!
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !!,"You cannot suspend a partial when a CMOP fill is in suspense, because the partial will replace the CMOP fill in suspense."
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !,"If you choose to queue this partial, the label will printout on the previous",!,"selected label printer.",!
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !,"You may exit without printing or suspending this partial. This will also delete",!,"the partial Rx entered."
  • Line Location: HLP+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx "_$P($G(^PSRX(DA,0)),"^")_" is already suspended "_$S($G(RXCMOP)]"":"for CMOP ",1:"")_"until "_$E(PSORXZD,4,5)_"-"_$E(PSORXZD,6,7)_"-"_$E(PSORXZD,2,3)_"."
  • Line Location: SWARN+2
Function Call: WRITE
  • Prompt: !,"By suspending this fill, the fill that is already suspended will be overwritten",!,"and a label will not print for that fill!",!
  • Line Location: SWARN+3
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print for Rx "_$P($G(^PSRX(PSORXLDA,0)),"^"),!
  • Line Location: SWARN+12
Function Call: WRITE
  • Prompt: !,ZZ," not active or suspended!"
  • Line Location: PK+6
Function Call: WRITE
  • Prompt: !,ZZ," - drug not allowed to be parked!"
  • Line Location: PK+8
Routine Call
  • DIR
  • Line Location:
    • S1+6
    • WARN1
    • SWARN+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WARN
^PS(52.4 - [#52.4] S1+2
^PS(52.5 - [#52.5] SUS+3, SUS+5, SUS+6, LOCK+3*, LOCK+4*, LOCK+5*, WARN, SWARN+1, SWARS+1
^PSDRUG - [#50] PK+5, PK+7
^PSRX - [#52] S1+1, S1+3, S1+4, S1+7, SUS+3, SUS+5, SUS+7, LOCK, LOCK+3, LOCK+6*
, LOCK+7, LOCK+8, LOCK+9, ACT, ACT+1, ACT+2*, ACT+3*, WARN+1, WARN1+1*, SWARN+2
, SWARN+6, SWARN+12, PPLPARK+3, PPLPARK+5, PPLPARK+7, PK+4, PK+5, PK+6, PK+7, PK+9
^TMP("PSORXN" LOCK+10, LOCK+11*
^XUSEC("PSORPH" S1+2, S1+3

Label References

Name Line Occurrences
ACT LOCK+6
D1 S, S1+10
LOCK SUS+8
RMV ECME+8, ECME+11
S1 D1
SUS S1+4
SUSQ LOCK
SWARN SUS+5
SWARNQ SWARN+7, SWARN+8
SWARS SWARN+10
TRIC SWARN+4, ECME+4
WARN SUS+6
WARN1 WARN+2

Naked Globals

Name Field # of Occurrence
^("STA" S1+4, SUS+7*, PK+6
^(3 SUS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ACT+3!, D1+2!
%DT D1+2!
%H ACT+3!
%I ACT+3!
ACT SUS+3*, D1+2!
BWH ECME+1~, ECME+10*, ECME+12
COMM LOCK+9*, LOCK+10, LOCK+11, LOCK+16!
COUNT D1+2!
>> DA S1*, S1+1, S1+2, S1+3, S1+4, SUS+3, SUS+5, SUS+6, SUS+7*, SUS+8
, LOCK+3, ACT, ACT+1, ACT+2, ACT+3, WARN+1, WARN1+1*, SWARN+1, SWARN+2, SWARN+4
, SWARN+5, SWARN+6, SWARNQ+1*, PK+4*, PK+5, PK+6, PK+7, PK+9
>> DA(1 WARN1+1*
DD LOCK+3!, LOCK+4!
DFLG SUS+3, SUS+6, D1+2!, WARN!, WARN1+1*, WARN1+2*
DG S1+9*!
DIC LOCK+3*, ACT+3!
DIC("DR" LOCK+3*
DIC(0 LOCK+3*
DIE ACT+3!
>> DIK SUS+7*, WARN1+1*
DIR S1+6!, D1+2!, WARN!, WARN1!, SWARN+6!
DIR("?" WARN1*
DIR("A" S1+6*, WARN+1*, WARN+5*, WARN+6*, SWARN+6*
DIR("B" WARN1*, SWARN+6*
DIR(0 S1+6*, WARN*, SWARN+6*
DIROUT D1+2!
DIRUT S1+6!, D1+2!, WARN!, WARN1+1
DO LOCK+3!, LOCK+4!
DPI WARN1+2*!
DPPI WARN1+2!
DPPL WARN1+2*!
DR ACT+3!
DTOUT S1+6!, D1+2!, WARN!
DUOUT S1+6!, D1+2!, WARN!
DUZ S1+2, S1+3, ACT+3
ESTAT ECME+1~, ECME+4*, ECME+7
EXDT D1+2!
FDA ACT+1*, ACT+3!
FLD D1+2!
HOLDPPL1 WARN1+2*!
I S1+7*, ACT*, ACT+3!, RMV+1~, RMV+2*
ION S1+8
>> IR ACT+1*, ACT+2*, ACT+3
L D1+2!
LBL D1+2!
>> LFD LOCK+6*, LOCK+7, LOCK+8, LOCK+9, ACT+3
PDUZ D1+2!
PI S1*, D1+2!, WARN1+2*, SWARN+9, SWARN+11*, SWARS+2, PK+1*, PK+4
PPL S*, S1, S1+9*, D1*, D1+2!, WARN1+2*, SWARN+9, SWARN+10*, SWARS+3, ECME+2
, ECME+8, ECME+11, RMV~, RMV+2*, RMV+3!, PPLPARK+3, PPLPARK+4*, PK+1, PK+4
PPL1 S*, S1+9~, D1*, D1+2!, WARN1+2*, SWARN+9, SWARN+11*
PPLTMP ECME+1~, ECME+2*, ECME+3
PSOACT ECME+1~, ECME+10*, ECME+11, ECME+12*
>> PSOCKDC ECME+5
PSODRUG PK+2~, PK+5*, PK+8
PSODRUG("DEA" PK+7*, PK+8
>> PSOEXREP LOCK+4
PSOI ECME+1~, ECME+3*
PSOJ ECME+1~
PSOKSPPL SWARN+9*, SWARN+10, SWARN+11!, SWARS+2
>> PSOLAP S1+8
>> PSONPROG LOCK+15
PSOPARK PK+2~, PK+3*, PK+4, PK+6*, PK+8*
PSOPRX PPLPARK+2~, PPLPARK+3*, PPLPARK+5*, PPLPARK+7*
PSOPX PPLPARK+2~, PPLPARK+3*, PPLPARK+4*, PPLPARK+5!, PPLPARK+6*, PPLPARK+7!*, PPLPARK+8*
PSOPX( PPLPARK+3*, PPLPARK+4, PPLPARK+5*, PPLPARK+6, PPLPARK+7*, PPLPARK+8
>> PSOQFLAG SWARN+5*
PSORF SWARN+4~, SWARN+5, TRIC+1*, TRIC+2, ECME+1~, ECME+4, ECME+10, ECME+11, ECME+12
PSORFD1 S1+1*, S1+2, S1+3, S1+5!
PSORX TRIC~, TRIC+1, TRIC+2, ECME+1~, ECME+3*, ECME+4, ECME+6, ECME+8, ECME+9, ECME+11
, ECME+12
PSORX("PSOL" S, D1, PPLPARK+7, PPLPARK+8*
PSORXLDA SWARN+1*, SWARN+7, SWARN+11, SWARN+12, SWARNQ+1!, SWARS+1, SWARS+4
PSORXZD SWARN+1*, SWARN+2!
PSOSITE LOCK+2~*, LOCK+3
PSOSTA ECME+1~, ECME+6*, ECME+7
PSOTRIC SWARN+4~, SWARN+5, TRIC+2*, ECME+1~
PSOWFLG SUS+3, SUS+5*, SUS+6!, D1+2!, SWARN+10*, SWARN+12*
PSOX7 S1+1*, S1+5!
PSOZXFL SWARS+1!, SWARS+5!
PSOZXFL( SWARS+1*, SWARS+4
PSOZXFPL SWARS+2*, SWARS+3, SWARS+5!
PSOZXFPN SWARS+3*, SWARS+4, SWARS+5!
PSOZXPI SWARN+9*, SWARN+11!
PSOZXPPL SWARN+9*, SWARN+11!
PSPARTXX WARN1+2*!
>> PSXSYS SUS+9
REF D1+2!
REPRINT D1+2!
RFDATE D1+2!
RFL1 D1+2!
RFLL D1+2!
RX RMV~, RMV+2
RX0 SUS+2~, SUS+3*
>> RXCMOP SUS+3*, WARN+1, WARN+2, WARN1+1, HLP, HLP+1, SWARN+2
RXF ACT*, ACT+3!
>> RXFL( LOCK+2, LOCK+5, LOCK+14*, SWARN+7!, SWARN+11!, SWARS+4*
RXLTOP WARN1+2*!, SWARN+9*, SWARN+11!
RXN SUS+3*, SUS+7, LOCK, LOCK+2, LOCK+3, LOCK+5, LOCK+6, LOCK+7, LOCK+8, LOCK+9
, LOCK+10, LOCK+11, LOCK+14, LOCK+15, D1+2!, WARN1+2, SWARN+10
>> RXP LOCK+3*, LOCK+7, LOCK+8, LOCK+9, LOCK+15, ACT+3
RXPD D1+2!, WARN*, WARN+1
>> RXPR( SUS+5, SUS+6, SUS+8, LOCK+3, WARN1+1, ECME+8, ECME+9
>> RXRP( SUS+8, LOCK+3, LOCK+8, LOCK+9, ACT+3
RXRS D1+1, PPLPARK+6!
RXRS( ECME+8, PPLPARK+5, PPLPARK+6*
>> RXS SUS+3*, SUS+5, SUS+6, SUS+7, WARN, SWARN+1, SWARS+1
SD SUS+3*, LOCK+3, LOCK+6, D1+2!
SPPL S*, S1+2*, S1+3*, S1+6, S1+7, S1+9!, PK+1!*, PK+9*
>> SUSPT S1+10*
VALMSG LOCK+8*, LOCK+19!
>> VEXANS2 LOCK+19
>> VEXPSORX LOCK+19
WARN D1+2!
X LOCK+3*, ACT+3!, D1+2!
XFLAG SUS+9!
XPPL RMV+1~, RMV+2*
Y LOCK+3, LOCK+4, LOCK+5, ACT+3!, D1+2!, WARN*, WARN1+1, WARN1+2, SWARN+7, SWARN+8
ZD D1+2!
ZD( SUS+3
ZY D1+2!
ZZ PK+2~, PK+4, PK+5*, PK+6, PK+8
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