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

Package: Drug Accountability

Routine: PSADRUGP


Information

PSADRUGP ;BIR/LTL,JMB-Enter/Edit a Drug ;7/23/97

Source Information

Source file <PSADRUGP.m>

Entry Points

Name Comments DBIA/ICR reference
LOC
GETDRUG
NOINV
DRUG
DISP ;
MON
FIND
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: LOC+3
Function Call: WRITE
  • Prompt: !,PSALOCN
  • Line Location: LOC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDRUG+2
Function Call: WRITE
  • Prompt: !,$C(7)," *** INACTIVE ***"
  • Line Location: GETDRUG+5
Function Call: WRITE
  • Prompt: @IOF,!,$G(PSALOCN),!,"DRUG: "_PSADRGN
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+10
Function Call: WRITE
  • Prompt: !!,"Current balance: "_+$P($G(^PSD(58.8,PSALOC,1,PSADRG,0)),"^",4)," ",$P(PSA660,"^",8)
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !!,"Updating beginning balance and transaction history."
  • Line Location: MON+3

FileMan Files Accessed Via FileMan Db Call

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