Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
^PS(52.5 - [#52.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call