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

Package: Outpatient Pharmacy

Routine: PSOSUDPR


Information

PSOSUDPR ;BIR/RTR-Delete printed Rx's from Suspense File ; 10/4/96

Source Information

Source file <PSOSUDPR.m>

Entry Points

Name Comments DBIA/ICR reference
EN
SING ;Delete single RX
DATE ;
BDATE
EDATE
ALL ;
BAR
END
MES

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"Site Parameters must be defined to use this option!",!
  • Line Location: PSOSUDPR+2
Function Call: WRITE
  • Prompt: !!,"This option allows you to delete printed Rx's from suspense.",!
  • Line Location: PSOSUDPR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SING+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SING+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SING+4
Function Call: WRITE
  • Prompt: $C(7),!?5,"Cannot delete, Rx# ",RXEXT," has not been printed yet!"
  • Line Location: SING+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SING+6
Function Call: WRITE
  • Prompt: !!?5,"Rx# ",RXEXT," deleted from suspense!",!
  • Line Location: SING+8
Function Call: WRITE
  • Prompt: !!,"Deleting by date range will delete based on the day the Rx was",!,"actually printed from suspense!"
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDATE+1
Function Call: WRITE
  • Prompt: !!,"Deleting printed suspense entries."
  • Line Location: EDATE+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: EDATE+7
Function Call: WRITE
  • Prompt: !,"Finished!"
  • Line Location: EDATE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BAR+0
Function Call: WRITE
  • Prompt: !!,"Invalid Prescription!",!
  • Line Location: BAR+1
Function Call: WRITE
  • Prompt: !!,"Patient: ",$P($G(^DPT(PSODFN,0)),"^")
  • Line Location: BAR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BAR+3
Function Call: WRITE
  • Prompt: !!,"Deleting Suspense entries for ",$P($G(^DPT(PSODFN,0)),"^")
  • Line Location: BAR+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: BAR+6
Function Call: WRITE
  • Prompt: !!,"Finished!",!
  • Line Location: BAR+7
Function Call: WRITE
  • Prompt: !!?3,"Nothing deleted!",!
  • Line Location: MES+0

FileMan Files Accessed Via FileMan Db Call

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