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

Package: Drug Accountability

Routine: PSADJ


Information

PSADJ ;BIR/LTL,JMB-Balance Adjustments ;8/21/97

Source Information

Source file <PSADJ.m>

Entry Points

Name Comments DBIA/ICR reference
LOC ;Gets locations to have adjustments
EXIT ;Kills all variables
DRUG ;Selects location's drug and processes adjustment
POST
MON
TR
FIND
ADJ ;Extended help for "Review drug adjustment history" at PSADJ+2
ADJDATE ;Extended help for "Adjustment date"
OK
QTY ;Extended help for "Adjustment quantity"
REASON ;Extended help for "Adjustment reason"
PSA12 ;Patch PSA*3*12
BGN
DONE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: !
  • Line Location: POST+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: POST+11
Function Call: WRITE
  • Prompt: "."
  • Line Location: MON+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: FIND+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: FIND+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: FIND+4
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: FIND+7
Function Call: WRITE
  • Prompt: !,"Enter yes to print all adjustments for this drug on the screen",!,"or printer. You can enter an adjustment after the report prints."
  • Line Location: ADJ+1
Function Call: WRITE
  • Prompt: !!,"Enter no to bypass the report and make an adjustment."
  • Line Location: ADJ+2
Function Call: WRITE
  • Prompt: !,"If the adjustment pertains today, press the Return key.",!!,"If the adjustment is for a previous date, enter that date."
  • Line Location: ADJDATE+1
Function Call: WRITE
  • Prompt: !,"Today's date will be recorded as the date the adjustment was made."
  • Line Location: ADJDATE+2
Function Call: WRITE
  • Prompt: !,"Enter yes to record this adjustment. The adjustment quantity will be subtracted",!,"from or added to the drug's current balance. The transaction will be recorded"
  • Line Location: OK+1
Function Call: WRITE
  • Prompt: !,"in the activity log and the monthly balance will be adjusted.",!!,"Enter no to abort the adjustment process and return to the menu."
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !,"Enter the quantity to be added or subtracted from the current balance.",!,"If the quantity should be subtracted from the balance, enter a minus"
  • Line Location: QTY+1
Function Call: WRITE
  • Prompt: !,"sign '-' before the quantity.",!!,"For example: -10 or -150 will be subtracted from the balance.",!?14,"10 or 150 will be added to the balance."
  • Line Location: QTY+2
Function Call: WRITE
  • Prompt: !,"Enter the reason you are changing the current balance."
  • Line Location: REASON+1
Function Call: WRITE
  • Prompt: !,"Updating "
  • Line Location: BGN+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: BGN+3
Function Call: WRITE
  • Prompt: !,"DONE"
  • Line Location: DONE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls
^PSD(58.81 - [#58.81] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call