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

Package: Outpatient Pharmacy

Routine: PSOVEXRX


Information

PSOVEXRX ;BIRM/KML - PHARMACY TELEPHONE REFILLS ; July 31, 2023@18:05:28

Source Information

Source file <PSOVEXRX.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
PSOX
PSO6
PSO3 ; avoid skipping renewal requests.
PSO5 ; Mark the node as processed.
PSO7(PSORXIEN,PSOTILDE) ; Add skipped prescriptions due to tilde error to the report
; input = PSORXIEN - ien of RX in PRESCRIPTION file (#52)
; input = PSOTILDE - string representing the results of Tilde check
; first piece = 1 or 0; where 1 means it's an RX with a Tilde in the dosage form
; second piece = 1 or 0; where 1 means it's a controlled substance RX
;
PSO7X ;
PSO12 ; refill not processed.
END
ULK ; unlock a record.
RENEWCHK ; Checks ^PS(52.444 node for renewal information
BFDRNCHK ; There is data in global - is it date or renewal request
SUMM ; display summary of refills processed

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No telephone refills were processed."
  • Line Location: PSOVEXRX+12
Function Call: WRITE
  • Prompt: !,"Looking for refill requests for inactive Outpatient divisions..."
  • Line Location: START+6
Function Call: WRITE
  • Prompt: ".none found.",!
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !?5,$P($G(^PS(59,+$G(PSOVX),0)),"^")
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !!!?20,"Division: "_$P(^PS(59,PSOSITE,0),"^"),!!
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !!,"There are no telephone refills to process for the selected division."
  • Line Location: START+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PSOX+0
Function Call: WRITE
  • Prompt: !?7,$C(7),"No telephone refills were processed."
  • Line Location: PSOX+0
Function Call: WRITE
  • Prompt: !?7,$C(7),"No telephone refills were processed."
  • Line Location: PSOX+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PSOX+6
Function Call: WRITE
  • Prompt: !,"There are no requests for your selected division."
  • Line Location: PSOX+11
Function Call: WRITE
  • Prompt: !?7,$C(7),$C(7),$C(7),"Not from this institution.",!
  • Line Location: PSO6+3
Function Call: WRITE
  • Prompt: !,$C(7),"Rx data is not on file!",!
  • Line Location: PSO6+6
Function Call: WRITE
  • Prompt: !,$C(7),"Rx has already been deleted."
  • Line Location: PSO6+7
Function Call: WRITE
  • Prompt: !,$C(7),"Rx has already been entered."
  • Line Location: PSO6+8
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PSO6+10
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PSO6+11
Function Call: WRITE
  • Prompt: !!,"There are NO telephone refills to process."
  • Line Location: PSO3+17
Function Call: WRITE
  • Prompt: !,LN,!,"Prescription: RX # "_$P(^PSRX(PSORXIEN,0),U)_" Processed",!
  • Line Location: PSO5+8
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PSO7+19
Function Call: WRITE
  • Prompt: !,TXT(XX)
  • Line Location: PSO7+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PSO7+21
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: PSO7+32
Function Call: WRITE
  • Prompt: !,TXT(XX)
  • Line Location: PSO7+33
Function Call: WRITE
  • Prompt: !
  • Line Location: PSO7X+2
Function Call: WRITE
  • Prompt: !,"Prescription REFILL, RX # "_$P(^PSRX(PSORXIEN,0),U)_", was not processed. ",!," PLEASE TAKE APPROPRIATE ACTION."
  • Line Location: PSO12+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PSO12+11
Function Call: WRITE
  • Prompt: !!,"Your Outpatient Site parameters have been deleted because you selected an",!,"inactive Outpatient Site!",!
  • Line Location: END+11
Function Call: WRITE
  • Prompt: !,LN,!,$C(7),"Prescription Renewal Request, RX # "_$P(^PSRX(PSORXIEN,0),U)_", was not sent to the provider. ",!," PLEASE TAKE APPROPRIATE ACTION."
  • Line Location: RENEWCHK+11
Function Call: WRITE
  • Prompt: !!!,"TELEPHONE REFILL/RENEW SUMMARY",!!
  • Line Location: SUMM+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59 - [#59] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call