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

Package: Drug Accountability

Routine: PSAPSI


Information

PSAPSI ;BIR/LTL-IV Dispensing (Single Drug) ;7/23/97

Source Information

Source file <PSAPSI.m>

Entry Points

Name Comments DBIA/ICR reference
LOOK
DEV
LUP
STOP
TR
QUIT
HEADER
PSAWARN ;DAVEB (PSA*3*3)
ASK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no drugs in ",PSALOCN,!!
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+3
Function Call: WRITE
  • Prompt: !!,"This drug is not linked to an entry in the IV ADDITIVE or SOLUTION file.",!!
  • Line Location: LOOK+4
Function Call: WRITE
  • Prompt: !!,"Sorry, no dispensing for this drug has been compiled since "
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: $S(Y]"":Y,1:"ever"),".",!!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: $S(Y:Y,1:"*not scheduled*"),"."
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR ACTION TAKEN!"
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: ?14,X,PSADRUG(2),?40,PSADRUG(3),"/",PSADRUG(2),?63
  • Line Location: LUP+8
Function Call: WRITE
  • Prompt: ?40,X
  • Line Location: LUP+9
Function Call: WRITE
  • Prompt: !,PSALN,!,PSA(6)," DAY TOTALS: "
  • Line Location: LUP+10
Function Call: WRITE
  • Prompt: ?5,X,PSADRUG(2)
  • Line Location: LUP+10
Function Call: WRITE
  • Prompt: ?63,X
  • Line Location: LUP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: STOP+1
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?2,"DAILY DISPENSING TOTALS FOR ",$E($P($G(^PSDRUG(+PSADRUG,0)),U),1,30),?70,"PAGE: ",PSAPG,!,PSALN,!
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: " DATE",?23,"TOTAL",?45,"$/DISP",?67,"TOTAL",!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: "DISPENSED",?23,"DISP",?46,"UNIT",?68,"COST",!,PSALN
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: @IOF,!!,?30," ** W A R N I N G **",!!,"Execution of this option should only be done for either one of the following:",!
  • Line Location: PSAWARN+2
Function Call: WRITE
  • Prompt: !,"1. The ""All Location Dispense/Purge"", [PSA IV ALL LOCATIONS] nightly back-"
  • Line Location: PSAWARN+3
Function Call: WRITE
  • Prompt: !," ground option has failed to run.",!!,"2. New drugs have been added to a pharmacy location, and you would like to see",!," the dispensing activity that has occurred for up to the last sixty days.",!
  • Line Location: PSAWARN+4
Function Call: WRITE
  • Prompt: !!,"Each time this option is executed, the balances are updated in the MONTHLY",!,"ACTIVITY multiple within the DRUG ACCOUNTABILITY STATS file (#58.8)."
  • Line Location: PSAWARN+5
Function Call: WRITE
  • Prompt: !!,"The proram will continue to add or subtract the dispensed amount each time the ",!,"option is used.",!
  • Line Location: PSAWARN+6

FileMan Files Accessed Via FileMan Db Call

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