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

Package: Drug Accountability

Routine: PSACONW


Information

PSACONW ;BIR/LTL-Display Connected Drug and Procurement History - CONT'D ;7/23/97

Source Information

Source file <PSACONW.m>

Entry Points

Name Comments DBIA/ICR reference
LOOP
QUIT
HEADER

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The Supply Warehouse is the mandatory source for this item.",!
  • Line Location: PSACONW+10
Function Call: WRITE
  • Prompt: !!,"NO HISTORY!"
  • Line Location: PSACONW+11
Function Call: WRITE
  • Prompt: !,"There is a procurement history."
  • Line Location: PSACONW+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PSACONW+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PSACONW+16
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: PSACONW+17
Function Call: WRITE
  • Prompt: !!,Y
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,PSALN,!!,"Average ord/mon: ",X,?24,"TOT ORD: ",$J($G(PSAQ),3),?49,"TOTAL $: "
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: X
  • Line Location: LOOP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: QUIT+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: !,$E($P($G(^PSDRUG(+PSA,0)),U),1,40),"=> from ",PSAD(2),?60,"PAGE: ",PSAPG,!,PSALN,!?2,"DATE",?16,"TRANSACTION",?33,"QTY",?39,"PKG",?47,"UNIT $",?57,"TOTAL $",?66,"INVENTORY",!,PSALN
  • Line Location: HEADER+3
Info |  Source |  Entry Points |  Interaction Calls