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 Total: 1

Package Total Call Graph
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Drug Accountability 2 PSA DELETE INVOICES  PSAPROC  

Entry Points

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

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+11
Function Call: WRITE
  • Prompt: !,"Incoming",?40,"Already Marked as "_" * "_PSASTAS_" *",!,"Invoice file",?40,"in Drug Accountability Order file",!
  • Line Location: 1+18
Function Call: WRITE
  • Prompt: "="
  • Line Location: 1+18
Function Call: WRITE
  • Prompt: !,PSAUPDT2,?16," <-- Order Date --> ",?40,Y
  • Line Location: 1+19
Function Call: WRITE
  • Prompt: !,PSAUPDT1,?15," <-- Invoice Date --> ",?40,Y
  • Line Location: 1+20
Function Call: WRITE
  • Prompt: !,?3,$J($G(INVCNT),8),?16," <-- Line Items -->",?40,$G(PSDCNT),!!
  • Line Location: CHECK+0
Function Call: READ
  • Prompt: "Do you want to compare item? NO// "
  • Formatting: !
  • Timeout: DTIME
  • Variable: AN
  • 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
  • Prompt: "Do you want to delete the incoming invoice ? NO// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: AN
  • 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+7, 1+8, 1+19, 1+20
^PSD(58.811 - [#58.811] 1+10, 1+13, 1+14, 1+15, 1+17, 1+19, 1+20, CMPRE+4
^XTMP("PSAPV" 1+4!, 1+5!, 1+6!, 1+9, CMPRE+3, 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+10, 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+9*
INVCNT 1+9*, CHECK, Q!
INVDEL Q!
INVIEN 1+12!, 1+14*, 1+15, 1+17, 1+19, 1+20, CMPRE+4, Q!
INVITM 1+9*, Q!
IOF 1+11
IOM 1+18
LINEITM Q!
ORDIEN 1+12!, 1+13*, 1+14, 1+15, 1+17, 1+19, 1+20, CMPRE+4, Q!
PSACTRL 1+4, 1+5, 1+6, 1+9, CMPRE+3, ASK+3, ASKDT+4*, ASKDT+6, ASKDT+7, ASKDT+8!
>> PSAIN 1+2, 1+3, 1+6, 1+7, 1+8
>> PSAINVDL 1+4*, 1+5*, 1+6*, 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+17*, 1+18
PSAUPDT1 1+7*, 1+20, Q!
PSAUPDT2 1+8*, 1+19, Q!
PSAUPINV 1+3*, 1+5, 1+10, 1+11, 1+13, 1+14, Q!
>> PSAUPITM( CMPRE+4*
PSAUPORD 1+2*, 1+4, 1+10, 1+11, 1+13, 1+14, Q!
PSDCNT 1+15*, CHECK, Q!
X 1+15*, 1+18*, CMPRE+3*, CMPRE+4*, Q!
XX Q!
Y 1+7*, 1+8*, 1+19*, 1+20*, 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