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

Package: Inpatient Medications

Routine: PSGDCC


Information

PSGDCC ;BIR/CML3-CHANGE DRUG COST DATA IN 57.6 ;14 JUL 94 / 9:16 AM

Source Information

Source file <PSGDCC.m>

Entry Points

Name Comments DBIA/ICR reference
CHG ;
DONE ;
NCM ;
DT ;
DTM ;
C1 ;
ENDEL ; delete cost data (completely!)
DELOUT ;
DELDC ;
DELM ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No drug chosen, or change made."
  • Line Location: PSGDCC+4
Function Call: WRITE
  • Prompt: !,"No new cost entered. No changes made."
  • Line Location: PSGDCC+7
Function Call: WRITE
  • Prompt: !!," Enter the new cost (Price Per Dispense Unit) for the drug chosen. The cost",!,"entered here will be used in resetting the data in the cost stats file.",!,"The cost entered may be a decimal value with no trailing zeros."
  • Line Location: NCM+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: !!,"Enter ",M," DATE: "
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: X="^"
  • Condition for execution: '$T $C(7) S:'$T
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: !?2,M," DATE NOT ENTERED. CHANGE TERMINATED."
  • Line Location: DT+2
Function Call: WRITE
  • Prompt: !!," Enter the ",$S(M="STOP":"stop",1:"start")," date of the range of dates over which the cost data is to be",!,"changed. The start and stop dates may be the same day, effectively creating a one day change,"
  • Line Location: DTM+1
Function Call: WRITE
  • Prompt: " but the stop date may not come before the start date.",!," Time is not entered.",!
  • Line Location: DTM+2
Function Call: WRITE
  • Prompt: $C(7),!!,"NO COST DATA FOUND TO DELETE."
  • Line Location: ENDEL+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter LIMIT DATE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENDEL+2
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"No data found prior to date chosen!"
  • Condition for execution: Y'>0 !?2,"No date chosen, or data deleted." I Y>0 W !,"...a few moments, please..." D DELDC W:'H
  • Line Location: ENDEL+3
Function Call: WRITE
  • Prompt: !!?2,"ALL cost data for doses dispensed on or before the date selected will be",!,"completely deleted from the computer. The earliest date found is ",PSGOD,".",!!,"WARNING!! THIS DATA CANNOT BE REBUILT OR RECOMPILED!",!
  • Line Location: DELM+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call