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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PSAPROC1

Package: Drug Accountability

Routine: PSAPROC1


Information

PSAPROC1 ;BIR/JMB-Process Uploaded Prime Vendor Invoice Data - CONT'D ;7/23/97

Source Information

Source file <PSAPROC1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Drug Accountability 8 (END,EXIT)^PSAPROC  ^PSAPROC2  (DUOU,RECD,SETLINE)^PSAPROC3  SUPPLY^PSAPROC6  ^PSAPROC7  (DU,DUOU,PLOCK,PRICE,REORDER,STOCK)^PSAPROC8  (GETLOC,MASTER)^PSAPROC9  DISPLAY^PSAUTL1  
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Drug Accountability 1 PSAPROC  

Entry Points

Name Comments DBIA/ICR reference
CHK ;Check for invoices with a status of "OK" (uploaded & error free)
NOERROR ;Display list of invoices that can be processed by selecting
INVSEL
EDIT ;Edit error free invoices
PROC2
HEADER
PROCESS ;Get date recd & line item data
CS
NCS
HDR ;Header for editing line items with missing data
OK ;Sets okay array
SEL ;Extended help to 'Select invoices'

External References

Name Field # of Occurrence
^DIR NOERROR+13, HEADER+1
END^PSAPROC NCS+4
EXIT^PSAPROC NOERROR+16
^PSAPROC2 CHK+14, PROC2
DUOU^PSAPROC3 PROCESS+10
RECD^PSAPROC3 PROCESS+2
SETLINE^PSAPROC3 PROCESS+15
SUPPLY^PSAPROC6 PROCESS+1
^PSAPROC7 NCS+2
DU^PSAPROC8 PROCESS+9
DUOU^PSAPROC8 PROCESS+10
PLOCK^PSAPROC8 NOERROR+15
PRICE^PSAPROC8 PROCESS+11
REORDER^PSAPROC8 PROCESS+14
STOCK^PSAPROC8 PROCESS+13
GETLOC^PSAPROC9 NCS
MASTER^PSAPROC9 CS+2
DISPLAY^PSAUTL1 PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14
$$FMTE^XLFDT NOERROR+10, HDR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?21,"<<< PROCESS ENTIRE INVOICE SCREEN >>>"
  • Line Location: NOERROR+2
Function Call: WRITE
  • Prompt: !!?2,"No errors have been detected on the following invoices. If there are no",!?2,"corrections, you can change the invoices' status to ""Processed"" by"
  • Line Location: NOERROR+3
Function Call: WRITE
  • Prompt: !?2,"selecting them from the list. If you do have corrections, press the return",!?2,"key then a second list will be displayed. You will be able to choose the",!?2,"invoices from that list and enter corrections."
  • Line Location: NOERROR+4
Function Call: WRITE
  • Prompt: !!?2,"Choose the invoices from the list you want to process.",!,PSADLN
  • Line Location: NOERROR+5
Function Call: WRITE
  • Prompt: !,PSADLN
  • Line Location: NOERROR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: NOERROR+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: @IOF,!?21,"<<< PROCESS ENTIRE INVOICE SCREEN >>>",!!,PSADLN
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !!,"The invoice status has been changed to Processed!"
  • Line Location: NCS+2
Function Call: WRITE
  • Prompt: !!,"** The invoice has not been placed in a Processed status!"
  • Line Location: NCS+3
Function Call: WRITE
  • Prompt: @IOF,!?21,"<<< PROCESS ENTIRE INVOICE SCREEN >>>",!,"Order#: "_$P(PSAIN,"^",4)_" Invoice#: "_$P(PSAIN,"^",2)_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN),!,PSADLN
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number to the left of the invoice data that you want to process."
  • Line Location: SEL+1
Routine Call
  • DIR
  • Line Location:
    • NOERROR+13
    • HEADER+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] PROCESS+12, PROCESS+13, PROCESS+14
^PSDRUG - [#50] PROCESS+9, PROCESS+10, PROCESS+11
^XTMP("PSAPV" CHK+3, CHK+5, CHK+6, NOERROR+10, INVSEL+2, INVSEL+3, EDIT+2, EDIT+3, PROCESS+3, PROCESS+6
, PROCESS+15, CS+1*, CS+2, CS+3*, CS+4*, NCS*, NCS+2*, OK+1

Label References

Name Line Occurrences
EDIT NOERROR+13
HDR PROCESS+1, PROCESS+2, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14
HEADER NOERROR+8
OK CHK+8, CHK+9, CHK+10
PROC2 INVSEL+5
PROCESS INVSEL+4

Naked Globals

Name Field # of Occurrence
^("IN" EDIT+2, EDIT+3, NCS*, OK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR NOERROR+13!, HEADER+1!
DIR("?" NOERROR+12*
DIR("??" NOERROR+13*
DIR("A" NOERROR+12*
DIR(0 NOERROR+12*, HEADER+1*
>> DIRUT NOERROR+13, HEADER+1
IOF NOERROR+2, HEADER+2, HDR+2
IOSL NOERROR+8
PSA CHK+2!, CHK+13*, CHK+14, INVSEL*, INVSEL+1, INVSEL+2, EDIT+1*, EDIT+2, EDIT+3, NCS+2
>> PSACNT NOERROR+6*, NOERROR+9*, NOERROR+12
>> PSACNTER CHK+2*, CHK+11*, CHK+12*, EDIT+3*
>> PSACNTOK CHK+2*, OK+1*
>> PSACS PROCESS+2*, PROCESS+15*, CS, CS+3, CS+4, NCS
>> PSACS( CS+2*
>> PSACTRL CHK+2*, CHK+3*, CHK+5, CHK+6, CHK+11, CHK+12, NOERROR+9*, NOERROR+10, INVSEL+2*, INVSEL+3
, PROCESS+3, PROCESS+6, PROCESS+15, CS+1, CS+2, CS+3, CS+4, NCS, NCS+2, OK+1
>> PSADATA PROCESS+6*, PROCESS+7, PROCESS+8, PROCESS+11, PROCESS+13, PROCESS+14
>> PSADISP PROCESS+5*, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14
>> PSADLN NOERROR+5, NOERROR+11, HEADER+2, HDR+2
>> PSADU PROCESS+5*
>> PSAERR( CHK+11*, CHK+12*, EDIT+3*
>> PSAERR(0 PROC2
>> PSAHDR PROCESS+5*, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14, HDR+1*
>> PSAIEN PROCESS+6*, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+13, PROCESS+14
>> PSAIN CHK+6*, CHK+7, CHK+8, CHK+9, CHK+10, CHK+11, CHK+12, INVSEL+3*, PROCESS+1, PROCESS+7
, HDR+2
>> PSAINV NOERROR+9*, NOERROR+10
>> PSAKK HEADER*
>> PSALINE PROCESS+2*, PROCESS+3*, PROCESS+6, PROCESS+15
>> PSALINES INVSEL+3*, NCS+2
>> PSALNCNT PROCESS+2*, PROCESS+5*, CS+3, CS+4, NCS+2
>> PSALOC PROCESS+8*, PROCESS+12, PROCESS+13, PROCESS+14
>> PSAMENU NOERROR+6*, NOERROR+7*, NOERROR+9, NOERROR+10
PSAMV PROCESS+4!, PROCESS+7*, PROCESS+8
PSAOK CHK+2!, PROCESS+16*, CS+2*, NCS*
PSAOK( NOERROR+7, NOERROR+9, INVSEL+1, INVSEL+2, EDIT+1, EDIT+2, EDIT+3, NCS+2!, OK+1*
PSAOK(0 CHK+13, INVSEL+5
>> PSAORD NOERROR+9*, NOERROR+10
>> PSAOUT NOERROR+7, NOERROR+13*, INVSEL, INVSEL+5, PROCESS+2, PROCESS+3, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12
, PROCESS+13, CS, CS+2, NCS
>> PSAPC INVSEL*
PSAPHARM PROCESS+4!, PROCESS+7*, PROCESS+8
>> PSARECD INVSEL+3*
>> PSASEL NOERROR+14*, NOERROR+16, INVSEL
>> PSASORT CHK+5
>> PSASS HEADER*
PSASTOP NOERROR+6*, NOERROR+7, NOERROR+8, NOERROR+11!, HEADER+1*
>> PSASUB PROCESS+6*, PROCESS+10, PROCESS+11
>> Y NOERROR+13, NOERROR+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All