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 ;29-May-2012 15:12;PLS

Source Information

Source file <PSORXL1.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Outpatient Pharmacy 8 ($$LSTRFL,REVERSE)^PSOBPSU1  $$STATUS^PSOBPSUT  SUS1^PSOCMOP  EN^PSOHLSN1  $$TRIC^PSOREJP1  $$HDLG^PSOREJU1  $$FIND^PSOREJUT  (Q,RXS)^PSORXL  
VA Fileman 5 NOW^%DTC  FILE^DICN  ^DIK  $$GET1^DIQ  ^DIR  
IHS Changes To Pharmacy 1 EN^APSPPCC1  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Outpatient Pharmacy 4 PSOREJU1  PSOREJU3  PSORXL  PSORXPA1  

Entry Points

Name Comments DBIA/ICR reference
WARN
RMV(RX,PPL) ; Remove the Rx from the label print queue
SWARNQ ;
WARN1
LOCK
S1
SWARN ;
HLP
SUSQ
TRIC(PSORX) ;
S
SUS
ACT
ECME ; - Looks for DUR/79 REJECTS and send Mail Rx's to ECME that have not been SUSPENDED
SWARS ;
D1

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $P(^PSRX($P(SPPL,",",I),0),"^")_", "
  • Line Location: S1+4
Function Call: WRITE
  • Prompt: !,"Label device must be selected for Drug Interaction label!"
  • Line Location: S1+5
Function Call: WRITE
  • Prompt: !!,$S(RXP:"Partial ",1:"")_"RX# ",$P(^PSRX(RXN,0),"^")_" has been suspended until "_LFD_"."
  • Line Location: LOCK+5
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
Routine Call
  • DIR
  • Line Location:
    • S1+3
    • 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.5 - [#52.5] SUS, SUS+2, SUS+3, LOCK+1*, LOCK+2*, LOCK+3*, WARN, SWARN+1, SWARS+1
^PSRX - [#52] S1+1, S1+2, S1+4, SUS, SUS+2, SUS+4, LOCK, LOCK+1, LOCK+4*, LOCK+5
, LOCK+6, LOCK+7, ACT, ACT+1, ACT+2*, ACT+3*, WARN+1, WARN1+1*, SWARN+2, SWARN+6
, SWARN+12
^TMP("PSORXN" LOCK+8, LOCK+9*

Label References

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

Naked Globals

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

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*, D1+2!
BWH ECME+1~, ECME+10*, ECME+12
COMM LOCK+7*, LOCK+8, LOCK+9, LOCK+14!
COUNT D1+2!
>> DA S1*, S1+1, S1+2, SUS, SUS+2, SUS+3, SUS+4*, SUS+5, LOCK+1, ACT
, ACT+1, ACT+2, ACT+3, WARN+1, WARN1+1*, SWARN+1, SWARN+2, SWARN+4, SWARN+5, SWARN+6
, SWARNQ+1*
>> DA(1 WARN1+1*
DD LOCK+1!, LOCK+2!
DFLG SUS, SUS+3, D1+2!, WARN!, WARN1+1*, WARN1+2*
DG S1+6*!
DIC LOCK+1*, ACT+3!
DIC("DR" LOCK+1*
DIC(0 LOCK+1*
DIE ACT+3!
>> DIK SUS+4*, WARN1+1*
DIR S1+3!, D1+2!, WARN!, WARN1!, SWARN+6!
DIR("?" WARN1*
DIR("A" S1+3*, WARN+1*, WARN+5*, WARN+6*, SWARN+6*
DIR("B" WARN1*, SWARN+6*
DIR(0 S1+3*, WARN*, SWARN+6*
DIROUT D1+2!
DIRUT S1+3!, D1+2!, WARN!, WARN1+1
DO LOCK+1!, LOCK+2!
DPI WARN1+2*!
DPPI WARN1+2!
DPPL WARN1+2*!
DR ACT+3!
DTOUT S1+3!, D1+2!, WARN!
DUOUT S1+3!, D1+2!, WARN!
DUZ ACT+3
EACTION ECME+1~, ECME+5*, ECME+6
ESTAT ECME+1~, ECME+4*, ECME+5
EXDT D1+2!
FDA ACT+1*, ACT+3!
FLD D1+2!
HOLDPPL1 WARN1+2*!
I S1+4*, ACT*, ACT+3!, RMV+1~, RMV+2*
ION S1+5
>> IR ACT+1*, ACT+2*, ACT+3
L D1+2!
LBL D1+2!
>> LFD LOCK+4*, LOCK+5, LOCK+6, LOCK+7, ACT+3
PDUZ D1+2!
PI S1*, D1+2!, WARN1+2*, SWARN+9, SWARN+11*, SWARS+2
PPL S*, S1, S1+6*, D1*, D1+2!, WARN1+2*, SWARN+9, SWARN+10*, SWARS+3, ECME+2
, ECME+6, ECME+8, ECME+11, RMV~, RMV+2*, RMV+3!
PPL1 S*, S1+6~, 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+7
>> PSODFN SUS+6
>> PSOEXREP LOCK+2
PSOI ECME+1~, ECME+3*
PSOJ ECME+1~
PSOKSPPL SWARN+9*, SWARN+10, SWARN+11!, SWARS+2
>> PSOLAP S1+5
>> PSONPROG LOCK+13
>> PSOQFLAG SWARN+5*
PSORF SWARN+4~, SWARN+5, TRIC+1*, TRIC+2, ECME+1~, ECME+4, ECME+10, ECME+11, ECME+12
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
PSORXLDA SWARN+1*, SWARN+7, SWARN+11, SWARN+12, SWARNQ+1!, SWARS+1, SWARS+4
PSORXZD SWARN+1*, SWARN+2!
>> PSOSITE LOCK+1
PSOSTA ECME+1~, ECME+8*
PSOTRIC SWARN+4~, SWARN+5, TRIC+2*, ECME+1~, ECME+5, ECME+6
PSOWFLG SUS, SUS+2*, SUS+3!, D1+2!, SWARN+10*, SWARN+12*
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+7
REF D1+2!
REPRINT D1+2!
RFDATE D1+2!
RFL1 D1+2!
RFLL D1+2!
RX RMV~, RMV+2
>> RX0 SUS*
>> RXCMOP SUS*, WARN+1, WARN+2, WARN1+1, HLP, HLP+1, SWARN+2
RXF ACT*, ACT+3!
>> RXFL( LOCK+3, LOCK+12*, SWARN+7!, SWARN+11!, SWARS+4*
RXLTOP WARN1+2*!, SWARN+9*, SWARN+11!
RXN SUS*, SUS+4, SUS+6, LOCK, LOCK+1, LOCK+3, LOCK+4, LOCK+5, LOCK+6, LOCK+7
, LOCK+8, LOCK+9, LOCK+12, LOCK+13, D1+2!, WARN1+2, SWARN+10
>> RXP LOCK+1*, LOCK+5, LOCK+6, LOCK+7, LOCK+13, ACT+3
RXPD D1+2!, WARN*, WARN+1
>> RXPR( SUS+2, SUS+3, SUS+5, LOCK+1, WARN1+1, ECME+8, ECME+9
>> RXRP( SUS+5, LOCK+1, LOCK+6, LOCK+7, ACT+3
>> RXRS D1+1
>> RXS SUS*, SUS+2, SUS+3, SUS+4, WARN, SWARN+1, SWARS+1
SD SUS*, LOCK+1, LOCK+4, D1+2!
SPPL S*, S1+2*, S1+3, S1+4, S1+6!
>> SUSPT S1+7*
>> VALMSG LOCK+6*
WARN D1+2!
X LOCK+1*, ACT+3!, D1+2!
XFLAG SUS+7!
XPPL RMV+1~, RMV+2*
Y LOCK+1, LOCK+2, LOCK+3, ACT+3!, D1+2!, WARN*, WARN1+1, WARN1+2, SWARN+7, SWARN+8
ZD D1+2!
ZD( SUS
ZY D1+2!
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