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

Package: Drug Accountability

Routine: PSAPTCH


Information

PSAPTCH ;BHM/DAV - FIND INVOICES PROCESSED BY CONTROLLED SUBS;

Source Information

Source file <PSAPTCH.m>

Entry Points

Name Comments DBIA/ICR reference
1 ;Check for uploaded CS invoice
CHECK
CMPRE
ASK
Q
PSAOLD ;Entry point for deleting old invoices
ASKDT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"** WARNING **",!!,"P.O. Number : ",PSAUPORD,!,"Invoice Number : ",PSAUPINV,!
  • Line Location: 1+17
Function Call: WRITE
  • Prompt: !,"Incoming",?40,"Already Marked as "_" * "_PSASTAS_" *",!,"Invoice file",?40,"in Drug Accountability Order file",!
  • Line Location: 1+20
Function Call: WRITE
  • Prompt: "="
  • Line Location: 1+20
Function Call: WRITE
  • Prompt: !,PSAUPDT2,?16," <-- Order Date --> ",?40,Y
  • Line Location: 1+21
Function Call: WRITE
  • Prompt: !,PSAUPDT1,?15," <-- Invoice Date --> ",?40,Y
  • Line Location: 1+22
Function Call: WRITE
  • Prompt: !,?3,$J($G(INVCNT),8),?16," <-- Line Items -->",?40,$G(PSDCNT),!!
  • Line Location: CHECK+0
Function Call: READ
  • Formatting: !
  • Prompt: "Do you want to compare item? NO// "
  • Variable: AN
  • Timeout: DTIME
  • Line Location: CMPRE+0
Function Call: WRITE
  • Prompt: !,"Answer 'Y'es to display the items from the invoice file, as well as the items",!,"already uploaded.",!
  • Line Location: CMPRE+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want to delete the incoming invoice ? NO// "
  • Variable: AN
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Answer 'Y'es, and the incoming invoice will be deleted.",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"Sorry, there aren't any invoices on file."
  • Line Location: PSAOLD+1
Function Call: WRITE
  • Prompt: !,"Sorry, the date has to be in the past."
  • Line Location: ASKDT+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: ASKDT+7
Function Call: WRITE
  • Prompt: !,"Finished"
  • Line Location: ASKDT+8
Info |  Source |  Entry Points |  Interaction Calls