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

Package: Drug Accountability

Routine: PSADJR


Information

PSADJR ;BIR/LTL,JMB-Balance Adjustments History ;8/21/97

Source Information

Source file <PSADJR.m>

Entry Points

Name Comments DBIA/ICR reference
LOOK ;Get locations to display
DEV ;asks device and queueing info
START ;compiles and prints output
LOOP
EXIT
HEADER ;prints header info
TRAN ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no active pharmacy locations."
  • Line Location: LOOK+3
Function Call: WRITE
  • Prompt: !!,"There are no drugs in ",PSALOCN
  • Line Location: LOOK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+5
Function Call: WRITE
  • Prompt: !!,"There have been no adjustments for this drug.",!!
  • Line Location: LOOK+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOK+8
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,$E(Y,1,17)
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: ?30
  • Condition for execution: $P($G(^PSD(58.81,PSAR,0)),"^",2)=24
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: $J($P($G(^PSD(58.81,PSAR,0)),"^",6),5,0)
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !?37,$P($G(^PSD(58.81,PSAR,0)),"^",16),!
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !?37,"TRANSFER DATA MISSING",!
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: !?37,"TO "_PSALOCN,!
  • Condition for execution: $L(PSALOCN)<42
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !?37,"TO "
  • Line Location: LOOP+10
Function Call: WRITE
  • Prompt: !?37,"FROM "_PSALOCN,!
  • Condition for execution: $L(PSALOCN)<42
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: !?37,"FROM "
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),"^"),"."
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !?22,"HISTORY OF ADJUSTMENTS AND TRANSFERS",?70,"PAGE: ",PSAPG,!
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?20,"** INACTIVE DRUG IN PHARMACY LOCATION **",!
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"DATE",?22,"ADJUST",?30,"TRANS",?37,"TRANSACTOR & REASON",!,PSASLN
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: $P($P(PSALOCN,":",2),"(IP)"),!
  • Line Location: TRAN+1
Function Call: WRITE
  • Prompt: $P($P(PSALOCN,":",2),"(OP)"),!
  • Line Location: TRAN+2
Function Call: WRITE
  • Prompt: "COMBINED:"_$P($P(PSALOCN,":",2),"(IP)",1)_"(IP)",!
  • Line Location: TRAN+3
Function Call: WRITE
  • Prompt: ?49
  • Condition for execution: PSATF="T"
  • Line Location: TRAN+3
Function Call: WRITE
  • Prompt: ?51
  • Condition for execution: PSATF="F"
  • Line Location: TRAN+3
Function Call: WRITE
  • Prompt: $P($P(PSALOCN,":",2),"(IP)",2),!
  • Line Location: TRAN+3

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