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

Package: Outpatient Pharmacy

Routine: PSORENW4


Information

PSORENW4 ;BIR/SAB - rx speed renew ;Oct 20, 2022@15:42

Source Information

Source file <PSORENW4.m>

Entry Points

Name Comments DBIA/ICR reference
SEL
SELQ ;
RXCS(RXIEN) ; Return the CS Federal Schedule associated with Rx# RXIEN
DRGCS(DRGIEN) ; Return the CS Federal Schedule associated with Drug File entry DRGIEN
PROCESS ; Process one order at a time
DSPL
PROCESSX ;
INIT ;
ASK ;upfront questions
POZ ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(50,PSDRGIEN,.01)
  • Line Location: SEL+19
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+34
Function Call: WRITE
  • Prompt: $C(7),!," Cannot renew Rx # "_$$GET1^DIQ(52,ORD,.01)_", Rx is in "_PSOSTA_" status."
  • Line Location: SEL+37
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" has OPEN/UNRESOLVED 3rd Party Payer Rejects!"
  • Line Location: PROCESS+5
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" is marked as 'Titration Rx' and cannot be renewed."
  • Line Location: PROCESS+7
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" - "_$P(PSOCHECK,"^",3)
  • Line Location: PROCESS+12
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" - "_$P(PSOCHECK,"^",3)
  • Line Location: PROCESS+23
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" - # of Refills requested exceeds maximum allowed ("_MAXNUMRF_") for this Rx"
  • Line Location: PROCESS+27
Function Call: WRITE
  • Prompt: $C(7),!!,"Rx# "_$$GET1^DIQ(52,PSORXIEN,.01)_" - Rx is for a CS Drug and the Issue Date entered ("_$$FMTE^XLFDT(PSORENW("ISSUE DATE"))_") is",!,"greater than 6 months."
  • Line Location: PROCESS+34
Function Call: WRITE
  • Prompt: $C(7),!!,"Only providers with DEA# or a VA# can write prescriptions for clozapine.",!
  • Line Location: PROCESS+63
Function Call: WRITE
  • Prompt: $C(7),!!,$$CLKEYWRN^PSOCLUTL,!
  • Line Location: PROCESS+65
Function Call: WRITE
  • Prompt: !!,"Now Renewing Rx # "_PSORENW("ORX #")_" Drug: "_$P($G(^PSDRUG(+$G(PSORENW("DRUG IEN")),0)),"^"),!
  • Line Location: PROCESS+71
Function Call: WRITE
  • Prompt: !,$C(7),"Rx NOT RENEWED. RENEWED RX DELETED",!
  • Line Location: PROCESSX+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call