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

Package: Drug Accountability

Routine: PSAHIS1


Information

PSAHIS1 ;BIR/LTL,JMB-Drug Transaction History - CONT'D ;7/23/97

Source Information

Source file <PSAHIS1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT
DONE ;Holds screen or ejects paper if sent to printer
TRANS
HEADER ;Prints header info
ALL ;Creates drug array with all drugs in location
WRAPDRUG ;Prints drug name w/o spliting words
REASON ;Prints transaction reason w/o spliting words
TRANSFER ;Prints transfer pharm loc that rec'd or sent drugs
TRAN ;Prints transferred location w/o spliting words
TOTALS ;Prints totals

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No transactions were found for the pharmacy location."
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+2
Function Call: WRITE
  • Prompt: !!!,"REPORT RUN: ",PSARUN
  • Line Location: DONE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+4
Function Call: WRITE
  • Prompt: ?72,$J(PSABAL,7)
  • Line Location: TRANS+7
Function Call: WRITE
  • Prompt: !,$E(PSADT,4,5)_"-"_$E(PSADT,6,7)_"-"_$E(PSADT,2,3),?10,$S($P(PSATR0,"^",2)=14:$E($P($G(^VA(200,+$P(PSATR4,"^",2),0)),"^"),1,28),1:$E($P($G(^VA(200,+$P(PSATR0,"^",7),0)),"^"),1,28))
  • Line Location: TRANS+11
Function Call: WRITE
  • Prompt: ?37,"|",?41,$J($P(PSATR0,"^",6),6),?48,"|",?54,"|",?60,"|",?71,"|",?72,$J(PSABAL,7),!
  • Line Location: TRANS+16
Function Call: WRITE
  • Prompt: ?11,"PO# ",$P($G(^(0)),"^"),?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANS+17
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PSAWRT
  • Line Location: TRANS+18
Function Call: WRITE
  • Prompt: ?11,"TR# ",$P($G(^(0)),"^"),?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANS+18
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PSAWRT
  • Line Location: TRANS+19
Function Call: WRITE
  • Prompt: ?11,"ORD# ",$P($G(^(8)),"^",2),?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANS+19
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PSAWRT
  • Line Location: TRANS+20
Function Call: WRITE
  • Prompt: ?11,"INV# ",$P($G(^(8)),"^"),?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANS+20
Function Call: WRITE
  • Prompt: !?11,"DATE ENTERED: "_$E(PSADJDT,4,5)_"-"_$E(PSADJDT,6,7)_"-"_$E(PSADJDT,2,3),?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANS+25
Function Call: WRITE
  • Prompt: ?10,"NIGHTLY BACKGROUND JOB",?37,"|",?48,"|",?49,$J($P(PSATR0,"^",6),5),?54,"|",?60,"|",?71,"|",?72,$J(PSABAL,7)
  • Line Location: TRANS+29
Function Call: WRITE
  • Prompt: ?10,"NIGHTLY BACKGROUND JOB",?37,"|",?48,"|",?54,"|",?55,$J($P(PSATR0,"^",6),5),?60,"|",?71,"|",?72,$J(PSABAL,7)
  • Line Location: TRANS+31
Function Call: WRITE
  • Prompt: ?37,"|",?48,"|",?54,"|",?60,"|",?62,$J($P(PSATR0,"^",6),8),?71,"|",?72,$J($P(PSATR0,"^",10),7)
  • Line Location: TRANS+33
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),"^"),"."
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !?22,"D R U G A C C O U N T A B I L I T Y",?71,"Page ",$J(PSAPG,2)
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !?((42-$L(PSABDTR)-$L(PSARPDT))/2),"HISTORY OF DRUG TRANSACTIONS FROM ",PSABDTR," TO ",PSARPDT
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !?((80-$L(PSALOCN))/2),PSALOCN
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!?37,"|",?48,"| DISPENSED |",?71,"|"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"DATE",?10,"INITIATOR",?37,"| RECEIVED | IP | OP | ADJUSTED | BALANCE"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,PSADLN
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: ?72,$J(PSABAL,7)
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,"* ",PSADRG,?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: WRAPDRUG+1
Function Call: WRITE
  • Prompt: !,"* "_PSAPC1,?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: WRAPDRUG+4
Function Call: WRITE
  • Prompt: !?11,PSAREA,?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: REASON+2
Function Call: WRITE
  • Prompt: !?11,PSAPC1,?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: REASON+5
Function Call: WRITE
  • Prompt: !?11,PSAPC1,?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRANSFER+8
Function Call: WRITE
  • Prompt: !?11,$P(PSAREA,":")_":",?37,"|",?48,"|",?54,"|",?60,"|",?71,"|"
  • Line Location: TRAN+4
Function Call: WRITE
  • Prompt: !?37,"|----------|-----|-----|----------|--------"
  • Line Location: TOTALS+1
Function Call: WRITE
  • Prompt: !?25,"DRUG TOTALS",?37,"|",?41,$J($G(PSARECT),6),?48,"|",$J($G(PSAIPT),5),?54,"|",$J($G(PSAOPT),5),?60,"|",?64,$J($G(PSADJT),6),?71,"|",!,PSADLN
  • Line Location: TOTALS+2
Info |  Source |  Entry Points |  Interaction Calls