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
Print Page as PDF
Routine: PSDNBAL

Package: Controlled Substances

Routine: PSDNBAL


Information

PSDNBAL ;EPIP/RTW - Ask CS Remaining Balance ;29 Aug 94

Source Information

Source file <PSDNBAL.m>

Entry Points

Name Comments DBIA/ICR reference
ENTER ;
HLPMSG ;
EXIT ;
PSDATMPT
MESS1
MESS2
MESG ;Ask comment and send message

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"*** NOTICE: You have 3 valid attempts to enter the correct remaining balance"
  • Line Location: ENTER+4
Function Call: WRITE
  • Prompt: !," before a message is sent to the CS BALANCE DISCREPANCY mail group.",!
  • Line Location: ENTER+5
Function Call: WRITE
  • Prompt: !!,"Enter the remaining balance on hand. The system will compare"
  • Line Location: HLPMSG+1
Function Call: WRITE
  • Prompt: !,"against the database. You will have a total of 3 valid attempts"
  • Line Location: HLPMSG+2
Function Call: WRITE
  • Prompt: !,"before a message is sent to the CS BALANCE DISCREPANCY mail"
  • Line Location: HLPMSG+3
Function Call: WRITE
  • Prompt: !,"group."
  • Line Location: HLPMSG+4
Function Call: WRITE
  • Prompt: !,""
  • Line Location: HLPMSG+5
Function Call: WRITE
  • Prompt: !,"Input must be a numeric amount with no more than two decimal"
  • Line Location: HLPMSG+6
Function Call: WRITE
  • Prompt: !,"digits. Invalid attempts will not count against your total"
  • Line Location: HLPMSG+7
Function Call: WRITE
  • Prompt: !,"attempts."
  • Line Location: HLPMSG+8
Function Call: WRITE
  • Prompt: !!,"Sorry the remaining balance you entered does not match the balance",!,"on record in the CS package.",!!,"Please check to ensure you have dispensed the right drug and",!," dispensed the correct quantity.",!
  • Line Location: MESS1+0
Function Call: WRITE
  • Prompt: !!,"This will be the last entry in the remaining balance check.",!!,"If the entry still does not match a message will be sent to the",!,"appropriate person for review."
  • Line Location: MESS2+0
Function Call: WRITE
  • Prompt: " You may proceed if you have dispensed the",!,"correct drug in the correct quantity. Thank you.",!
  • Line Location: MESS2+1
Info |  Source |  Entry Points |  Interaction Calls