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

Package: Outpatient Pharmacy

Routine: PSOSUPOE


Information

PSOSUPOE ;BIR/RTR - Suspense pull via Listman ;Jan 20, 2022@11:21:55

Source Information

Source file <PSOSUPOE.m>

Entry Points

Name Comments DBIA/ICR reference
SEL
SELQ
BEG ;
BEGQ
WIND ;
DIR ;
END
ADD ;Add Rx to SPSORX array
BBADD ;
PPLADD ;
; This function will move entries from the RXRS array (which has RXs that were pulled
; from supense via the PP action on the Medication profile) to the list of RXs that
; will get a label (PPL variable and possible PSORX array).
; Note that arrays RXRS and PSORX and variable PPL are pre-existing
CKDIV ;
SELONE ;Pull one Rx through Listman
RESET ;
GETMW ;
ULRX ;
EHOLD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Rx# ",$P(^PSRX(RXREC,0),"^")," is not on Suspense",$S($G(^PSRX(RXREC,"PARK")):" and needs to be UNPARKED to be filled",1:""),"!"
  • Line Location: BEGQ+2
Function Call: WRITE
  • Prompt: !,">>> Rx #",$P(^PSRX(+$P(^(0),"^"),0),"^")," ALREADY PRINTED FROM SUSPENSE.",!,?5,"USE THE REPRINT OPTION TO REPRINT LABEL."
  • Line Location: BEGQ+4
Function Call: WRITE
  • Prompt: !,"Rx # "_$P(^PSRX(RXREC,0),"^")_" has expired!"
  • Line Location: BEGQ+5
Function Call: WRITE
  • Prompt: !!,"A reprint has already been requested for Rx # ",$P($G(^PSRX(RXREC,0)),"^")
  • Line Location: BEGQ+7
Function Call: WRITE
  • Prompt: !!,"A partial has already been requested for Rx # ",$P($G(^PSRX(RXREC,0)),"^")
  • Line Location: BEGQ+8
Function Call: WRITE
  • Prompt: !,"This prescription will not be pulled but will be left on suspense."
  • Line Location: BEGQ+18
Function Call: WRITE
  • Prompt: !!,"Pull early cannot be done for non-billable TRICARE/CHAMPVA Rx on the worklist"
  • Line Location: BEGQ+35
Function Call: WRITE
  • Prompt: !!,"Pull early cannot be done for IN PROGRESS TRICARE/CHAMPVA Rx"
  • Line Location: BEGQ+39
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+1
Function Call: WRITE
  • Prompt: !!?10,"Rx # ",$P(^PSRX(RXREC,0),"^")," is not a valid choice (Different Division)"
  • Line Location: CKDIV+1
Function Call: WRITE
  • Prompt: $C(7),$C(7)
  • Line Location: SELONE+1
Function Call: WRITE
  • Prompt: !,"This is an ePharmacy billable fill which is Suspended until "_$$GET1^DIQ(52.5,ESIEN,10)_", based"
  • Line Location: EHOLD+4
Function Call: WRITE
  • Prompt: !,"on the 3/4 Days rule.",!
  • Line Location: EHOLD+5

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,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call