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

Package: Controlled Substances

Routine: PSDOPTX


Information

PSDOPTX ;BIR/LTL - Review OP Transactions by Rx # ; 29 Aug 94

Source Information

Source file <PSDOPTX.m>

Entry Points

Name Comments DBIA/ICR reference
BRX
ERX
DEV ;asks device and queuing info
START ;compiles and prints output
LOOP
END
HEADER ;prints header info
SAVE ;save queued variables

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BRX+1
Function Call: WRITE
  • Prompt: !!,"No transactions beginning from Rx # ",PSDRX(1),"."
  • Line Location: BRX+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ERX+1
Function Call: WRITE
  • Prompt: !!,"Ending Rx # must have been created after Rx # ",PSDRX(1),"."
  • Line Location: ERX+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,Y,?19
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: " ("_VA("BID")_")",?60
  • Line Location: LOOP+11
Function Call: WRITE
  • Prompt: Y
  • Line Location: LOOP+12
Function Call: WRITE
  • Prompt: Y
  • Line Location: LOOP+13
Function Call: WRITE
  • Prompt: Y
  • Line Location: LOOP+14
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"."
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"Outpatient Activity from Rx # ",PSDRX(1)," to Rx # ",PSDRX(3),?70,"PAGE: ",PG,!,LN,!,"Date Posted",?19,"Rx#",?28,"Patient",?60,"Date Released",!,LN
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,PSDU," (continued)",!
  • Condition for execution: $G(PSDT(1))
  • Line Location: HEADER+3

FileMan Files Accessed Via FileMan Db Call

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