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

Package: Drug Accountability

Routine: PSAREVC


Information

PSAREVC ;BIR/LTL-Control Point Transaction Review ;7/23/97

Source Information

Source file <PSAREVC.m>

Entry Points

Name Comments DBIA/ICR reference
DEV ;asks device and queueing info
START ;compiles and prints output
LOOP
END
HEADER ;prints header info

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Because of the size of this file, look-ups of less than four characters",!!,"are NOT advised. Please enter either the entire transaction number,",!!,"Station-FY-QTR-Control Point-Sequence Number, or at least the four digit"
  • Line Location: PSAREVC+6
Function Call: WRITE
  • Prompt: !!,"Sequence Number.",!!
  • Line Location: PSAREVC+7
Function Call: WRITE
  • Prompt: !!,"There are no receipts for this Transaction.",!!
  • Line Location: PSAREVC+10
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!"
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+PSALOC,0)),U),!
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !,"Receiving Site: ",$P($G(^PSD(58.8,+$P($G(^PSD(58.81,+PSAR,0)),U,3),0)),U),!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,Y," ",$E($P($G(^PSDRUG(+$P($G(^PSD(58.81,PSAR,0)),U,5),0)),U),1,25)," -> "
  • Line Location: LOOP+3
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 Transaction # ",$P($G(^PRCS(410,+PSACON,0)),U),?57,PSARPDT,?70,"PAGE: ",PSAPG,!,PSALN,!
  • Line Location: HEADER+3

FileMan Files Accessed Via FileMan Db Call

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