Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 ^%DT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Drug Accountability 2 PSA DELETE INVOICES  PSAPROC  

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

External References

Name Field # of Occurrence
^%DT 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" 1+8, 1+9, 1+21, 1+22
^PSD(58.811 - [#58.811] 1+11, 1+13, 1+14, 1+15, 1+19, 1+21, 1+22, CMPRE+4
^XTMP("PSAPV" 1+4!, 1+5!, 1+6!, 1+7!, 1+10, 1+16!, CMPRE+3, CMPRE+5*, ASK+3!, PSAOLD+1
, ASKDT+4, ASKDT+6, ASKDT+7!

Label References

Name Line Occurrences
ASK CMPRE, CMPRE+2, ASK+1
ASKDT ASKDT+1
CMPRE CMPRE+1
Q PSAPTCH+5, 1+11, CMPRE+6, ASK, ASK+2, PSAOLD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT ASKDT*
>> %DT("A" ASKDT*
AN CMPRE*, CMPRE+1*, CMPRE+2, ASK*, ASK+1, ASK+2, ASK+3, Q!
CS Q!
CSCNT Q!
CSIEN Q!
CSINV 1+12!, Q!
DATA CMPRE+3*, CMPRE+4*, Q!, ASKDT+4*, ASKDT+5
DT ASKDT+1
DTIME CMPRE, ASK
FOUND Q!
INV Q!
INV( 1+10*
INVCNT 1+10*, 1+16, CHECK, CMPRE+5, Q!
INVDEL Q!
INVIEN 1+12!, 1+14*, 1+15, 1+19, 1+21, 1+22, CMPRE+4, Q!
INVITM 1+10*, Q!
IOF 1+17
IOM 1+20
LINEITM Q!
ORDIEN 1+12!, 1+13*, 1+14, 1+15, 1+19, 1+21, 1+22, CMPRE+4, Q!
PSACTRL 1+4, 1+5, 1+6, 1+7, 1+10, 1+16, CMPRE+3, CMPRE+5, ASK+3, ASKDT+4*
, ASKDT+6, ASKDT+7, ASKDT+8!
>> PSAIN 1+2, 1+3, 1+7, 1+8, 1+9
>> PSAINVDL 1+4*, 1+5*, 1+6*, 1+7*, ASK+3*
PSAINVDT ASKDT+6*, ASKDT+7, ASKDT+8!
>> PSAITM( CMPRE+3*
PSAKLDT ASKDT+2*, ASKDT+7, ASKDT+8!
PSAORD 1+12!, Q!
>> PSASTAS 1+19*, 1+20
PSAUPDT1 1+8*, 1+22, Q!
PSAUPDT2 1+9*, 1+21, Q!
PSAUPINV 1+3*, 1+6, 1+11, 1+13, 1+14, 1+17, Q!
>> PSAUPITM( CMPRE+4*
PSAUPORD 1+2*, 1+5, 1+11, 1+13, 1+14, 1+17, Q!
PSDCNT 1+15*, 1+16, CHECK, CMPRE+5, Q!
X 1+15*, 1+20*, CMPRE+3*, CMPRE+4*, Q!
XX Q!
Y 1+8*, 1+9*, 1+21*, 1+22*, Q!, ASKDT+1!, ASKDT+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All