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

Package: Drug Accountability

Routine: PSATRAN


Information

PSATRAN ;BIR/JMB-Transfer Drugs between Pharmacies ;8/21/97

Source Information

Source file <PSATRAN.m>

Entry Points

Name Comments DBIA/ICR reference
FROM ;select FROM pharmacy
DRUG ;select drug
QTY ;enter quantity
CHK
ASK ;ask ok
EXIT
KILL
MSG
ADD ;ask to add drug
ADD1 ;add drug
TO ;transfer TO pharmacy
HELP ;Extended help for 'Do you want to continue?'
PRINTYN ;Extended help for 'Print transfer signature sheets?'
QTYHELP ;Extended help for 'Enter Quantity to Transfer'

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"** Contact your Pharmacy Coordinator for access to transfer drugs between",!,?4,"pharmacies. PSAMGR and PSJ RPHARM security keys are required.",!
  • Line Location: PSATRAN+3
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: !!,"There are no drugs in the transferring pharmacy.",!!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: @IOF,!,PSAFROMN
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: $C(7),!!,PSADRGN," has a "_$S(PSABAL=0:"zero",1:"negative")_" balance.",!,"Select another drug to transfer."
  • Line Location: DRUG+8
Function Call: WRITE
  • Prompt: !!,?5,"Dispense Unit: ",PSADU,?35,"Current Balance: "_PSABAL,!
  • Line Location: QTY+2
Function Call: WRITE
  • Prompt: !,PSASLN,!,$P($G(^PSDRUG(PSADRG,0)),"^"),!,"Transferring: ",PSATQTY," (",$P($G(^PSDRUG(PSADRG,660)),"^",8),")",!!,"From: ",PSAFROMN,!,"To : ",PSATON,!,PSASLN,!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"No action taken.",!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TO+5
Function Call: WRITE
  • Prompt: !?5,"Enter YES if it is okay to transfer this drug. Enter NO to abort the transfer."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES if you want to print sheets that can be carried with the drugs",!?5,"to the receiving pharmacy for signature. The person signing the sheet is",!?5,"signing that he/she received the drug(s)."
  • Line Location: PRINTYN+1
Function Call: WRITE
  • Prompt: !!?5,"Enter NO if you do not want to print the signature sheets. You will exit",!?5,"from the option."
  • Line Location: PRINTYN+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number of dispense units to be transferred out of the",!?5,"pharmacy location. Enter a whole number between 1 and "_PSABAL_"."
  • Line Location: QTYHELP+1
Info |  Source |  Entry Points |  Interaction Calls