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

Package: Drug Accountability

Routine: PSAWARD


Information

PSAWARD ;BIR/LTL,JMB-Set Up/Edit a Pharmacy Location ;7/23/97

Source Information

Source file <PSAWARD.m>

Entry Points

Name Comments DBIA/ICR reference
ALL
MUL
LOOP
QUIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?5,"For the purpose of collecting Unit Dose and IV dispensing data,",!,"any ward at which such dispensing might ever occur should be added."
  • Line Location: PSAWARD+5
Function Call: WRITE
  • Prompt: !,"The ONLY reason to NOT add a ward would be if the dispensing at that ward",!,"should NOT update ",$G(PSALOCN),"."
  • Line Location: PSAWARD+6
Function Call: WRITE
  • Prompt: !!,"There is NO harm in adding inactive wards."
  • Line Location: PSAWARD+7
Function Call: WRITE
  • Prompt: !!,PSALOCN," is linked to "
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: $X+10>IOM
  • Line Location: MUL+3
Function Call: WRITE
  • Prompt: $P($G(^DIC(42,+PSA(3),0)),U),$S($O(^PSD(58.8,+PSALOC,3,+PSA(3))):", ",1:".")
  • Line Location: MUL+3
Function Call: WRITE
  • Prompt: !,$G(PSAW(1))," deleted."
  • Line Location: MUL+13
Function Call: WRITE
  • Prompt: !,PSA,?10,$P($G(^DIC(42,PSAW,0)),U)
  • Line Location: LOOP+0
Function Call: WRITE
  • Prompt: ?40,"***INACTIVE***"
  • Condition for execution: $D(^DIC(42,+PSAW,"I"))
  • Line Location: LOOP+0
Function Call: WRITE
  • Prompt: !!,"Sorry, you've already added all the wards that you can."
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+0

FileMan Files Accessed Via FileMan Db Call

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