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

Package: Controlled Substances

Routine: PSDREPV


Information

PSDREPV ;BIR/LTL-Review PV Receipt Transactions ; 29 Aug 94

Source Information

Source file <PSDREPV.m>

Entry Points

Name Comments DBIA/ICR reference
DEV ;(PSD*3*18) Changed %ZIS( call to fileman - SQA.
START ;compiles and prints output
LOOP
END
HEADER ;prints header info

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSDREPV+10
Function Call: WRITE
  • Prompt: !!,"No Prime Vendor Invoice for this transaction."
  • Line Location: PSDREPV+11
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+PSDLOC,0)),U),!
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !,Y," "
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,Y," "
  • Line Location: LOOP+10
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: !,"History of receipts for Invoice # ",PSD(2),?57,RPDT,?70,"PAGE: ",PG,!,LN,!
  • Line Location: HEADER+3

FileMan Files Accessed Via FileMan Db Call

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