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

Package: Drug Accountability

Routine: PSAPROC2


Information

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

Source Information

Source file <PSAPROC2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Drug Accountability 6 (END,EXIT)^PSAPROC  RECD^PSAPROC3  (,CHG,SEL)^PSAPROC6  PLOCK^PSAPROC8  (,GETLOC,MASTER)^PSAPROC9  (EDITDISP,SITES)^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 PSAPROC1  

Entry Points

Name Comments DBIA/ICR reference
CHK
INV
PROC
AUTO ;Process line items
EDITINV ;Edits the invoice before placing in Processed status.
HDR ;Screen header
HDR1 ;Screen header with hold
HEADER ;Screen hold with header
SETINV ;Sets invoice to processed if okay.
STATUS
EDIT ;Extended help for 'edit any invoices'
SEL ;Extended help to 'Select invoices to process'
SELHELP ;Extended help to 'Select invoices to edit'

External References

Name Field # of Occurrence
^DIR INV+8, PROC+2, AUTO+29, EDITINV+15, HDR1+2, HEADER+2
END^PSAPROC CHK+1, STATUS, STATUS+2
EXIT^PSAPROC INV+11
RECD^PSAPROC3 AUTO+12
^PSAPROC6 EDITINV+16
CHG^PSAPROC6 STATUS
SEL^PSAPROC6 PROC+3
PLOCK^PSAPROC8 INV+10
^PSAPROC9 AUTO+20
GETLOC^PSAPROC9 SETINV+9
MASTER^PSAPROC9 SETINV+6
EDITDISP^PSAUTL1 AUTO+20
SITES^PSAUTL1 AUTO+9
$$FMTE^XLFDT INV+5, AUTO+6, EDITINV+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"There are no invoices that need to be processed."
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !," More data is needed on the following invoices. Choose the invoices from",!," the list you want to edit.",!,PSASLN
  • Line Location: INV+0
Function Call: WRITE
  • Prompt: !,PSASLN
  • Line Location: INV+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PROC+0
Function Call: WRITE
  • Prompt: !,"Order#: "_$P(PSAIN,"^",4)_" Invoice#: "_$P(PSAIN,"^",2)_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN),!,PSASLN
  • Line Location: AUTO+6
Function Call: WRITE
  • Prompt: "Blank"
  • Line Location: AUTO+10
Function Call: WRITE
  • Prompt: @IOF,!,"If you are changing the status of an invoice to Processed, this is the",!,"last time you will be allowed to edit it before it goes to the verifier."
  • Line Location: AUTO+24
Function Call: WRITE
  • Prompt: !,"If you are not changing the status of an invoice to Processed, you can",!,"edit it now.",!!,"You can edit the invoice's delivery date, pharmacy location, master vault,"
  • Line Location: AUTO+25
Function Call: WRITE
  • Prompt: !,"and the line item's drug, quantity received, order unit, and dispense units",!,"per order unit. The reorder level can be edited if the pharmacy location or"
  • Line Location: AUTO+26
Function Call: WRITE
  • Prompt: !,"master vault is set up to track the reorder levels.",!
  • Line Location: AUTO+27
Function Call: WRITE
  • Prompt: @IOF,!?26,"<<< EDIT INVOICE SCREEN >>>"
  • Line Location: EDITINV+5
Function Call: WRITE
  • Prompt: !!,"Choose the invoices to be edited. You can edit the invoice's date received and",!,"the line item's drug, quantity received, and order unit. The reorder and"
  • Line Location: EDITINV+6
Function Call: WRITE
  • Prompt: !,"stock levels can be edited if the pharmacy location or master vault is set",!,"up to maintain the reorder levels.",!,PSASLN,!
  • Line Location: EDITINV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITINV+14
Function Call: WRITE
  • Prompt: @IOF,!?19,"<<< EDIT INVOICES TO BE PROCESSED SCREEN >>>",!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: @IOF,!?26,"<<< EDIT INVOICE SCREEN >>>",!!,PSASLN
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF,!?19,"<<< EDIT INVOICES TO BE PROCESSED SCREEN >>>",!!,PSASLN
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,"** The invoice has not been placed in a Processed status!"
  • Line Location: STATUS+1
Function Call: WRITE
  • Prompt: !?5,"If you answer Yes, a list of the invoices you were able to process will",!?5,"be displayed. You will be able to select the invoices to be edited then"
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !?5,"the line item numbers. You will be able to edit the date the invoice was",!?5,"received, drug, quantity, order unit, and dispense units per order unit."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !?5,"If the drugs are assigned to a pharmacy location or master vault that",!?5,"maintains reorder levels, you will also be able to edit the reorder and",!?5,"stock levels.",!!?5,"Enter No if the invoice are correct."
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !?5,"Enter the number to the left of the invoice data that you want to process."
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number to the left of the invoice data that you want to",!?5,"edit. The line items will be displayed for you to select the ones"
  • Line Location: SELHELP+1
Function Call: WRITE
  • Prompt: !?5,"you want to edit. You are given this opportunity to edit the invoice",!?5,"because the automatic display may not catch all the needed corrections."
  • Line Location: SELHELP+2
Function Call: WRITE
  • Prompt: !!?5,"For example, the quantity on the invoice may be 6, but one bottle may",!?5,"be broken. Six is a valid quantity that the automatic display will not"
  • Line Location: SELHELP+3
Function Call: WRITE
  • Prompt: !?5,"realize as being incorrect. By answering Yes, you will be allowed to change",!?5,"the quantity to 5."
  • Line Location: SELHELP+4
Routine Call
  • DIR
  • Line Location:
    • INV+8
    • PROC+2
    • AUTO+29
    • EDITINV+15
    • HDR1+2
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] AUTO+7, AUTO+9
^XTMP("PSAPV" INV+5, AUTO+4, AUTO+5, AUTO+15, AUTO+16, AUTO+17*, AUTO+18, EDITINV+2, EDITINV+3, EDITINV+12
, SETINV+2*, SETINV+3*, SETINV+5*, SETINV+6, SETINV+7*, SETINV+8*, SETINV+9*

Label References

Name Line Occurrences
HDR INV, AUTO+6
HDR1 EDITINV+10
HEADER INV+3
SETINV AUTO+21
STATUS SETINV+2

Naked Globals

Name Field # of Occurrence
^("IN" EDITINV+3, SETINV+2*, SETINV+9*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR INV+6!, INV+8!, PROC+2!, AUTO+29!, EDITINV+15!, HDR1+2!, HEADER+2!
DIR("?" INV+7*, PROC+1*, AUTO+28*, EDITINV+14*
DIR("??" INV+8*, AUTO+29*, EDITINV+15*
DIR("A" INV+7*, PROC*, AUTO+28*, EDITINV+14*
DIR("B" PROC*, AUTO+28*
DIR(0 INV+7*, PROC*, AUTO+28*, EDITINV+14*, HDR1+2*, HEADER+2*
>> DIRUT INV+8, PROC+2, AUTO+29, HDR1+2, HEADER+2
>> DTOUT EDITINV+15
>> DUOUT EDITINV+15*
IOF CHK+1, AUTO+24, EDITINV+5, HDR+1, HDR1+3, HEADER+3
IOSL INV+3, EDITINV+10
>> PSA CHK*, CHK+1
>> PSACNT INV+1*, INV+4*, INV+7, EDITINV+8*, EDITINV+11*, EDITINV+12, EDITINV+14
>> PSACOMB AUTO+9
>> PSACS AUTO+3*, AUTO+17*, SETINV+4, SETINV+7, SETINV+8, SETINV+9
>> PSACS( SETINV+6*
>> PSACTRL INV+4*, INV+5, AUTO+3*, AUTO+4, AUTO+5, AUTO+15, AUTO+16, AUTO+17, AUTO+18, EDITINV+1*
, EDITINV+2*, EDITINV+3, EDITINV+11*, EDITINV+12, SETINV+2, SETINV+3, SETINV+5, SETINV+6, SETINV+7, SETINV+8
, SETINV+9
>> PSADATA AUTO+16*, AUTO+17, AUTO+18*, AUTO+19
PSAERR EDITINV+1!*, EDITINV+3*
PSAERR( INV+2, INV+4, AUTO+2, AUTO+3, EDITINV+3*, EDITINV+9, EDITINV+11
PSAERR(0 CHK, AUTO+23
>> PSAIEN AUTO+19*
>> PSAIN AUTO+5*, AUTO+6, AUTO+7, AUTO+8, AUTO+12
>> PSAINV INV+4*, INV+5, EDITINV+11*, EDITINV+12
>> PSAKK HDR1+1*, HEADER+1*
>> PSALINE AUTO+15*, AUTO+16, AUTO+17, AUTO+18
>> PSALINES AUTO+3*, AUTO+17*, STATUS
>> PSALLSUP AUTO+3*, SETINV+2, STATUS
>> PSALNCNT AUTO+3*, AUTO+16*, SETINV+2, SETINV+7, SETINV+8, STATUS
>> PSALOC AUTO+5*, AUTO+9, AUTO+10
>> PSALOCN AUTO+9*, AUTO+11
>> PSAMENU INV+1*, INV+2*, INV+4, INV+5, AUTO+1*, AUTO+2, AUTO+3, EDITINV+8*, EDITINV+9*, EDITINV+11
>> PSAMV AUTO+5*, AUTO+7
>> PSANDC AUTO+19*
>> PSAOK SETINV+1*, SETINV+2*, SETINV+6*, SETINV+9*, STATUS
>> PSAORD INV+4*, INV+5, EDITINV+11*, EDITINV+12
>> PSAOUT INV+2, INV+8*, PROC+2*, AUTO+1, AUTO+12, AUTO+15, AUTO+21, AUTO+22, AUTO+29*, EDITINV+1*
, EDITINV+9, EDITINV+15*, SETINV+4, SETINV+6, SETINV+9
>> PSAPASS AUTO+16*
>> PSAPC AUTO+1*
>> PSARECD AUTO+12*
>> PSASEL INV+9*, INV+11, AUTO+1, EDITINV+16*
>> PSASLN INV, INV+6, AUTO+6, EDITINV+7, HDR1+3, HEADER+3
>> PSASS HDR1+1*, HEADER+1*
PSASTOP INV+1*, INV+2, INV+3, INV+6!, EDITINV+8*, EDITINV+9, EDITINV+10, EDITINV+13!, HDR1+2*, HEADER+2*
>> PSASUB AUTO+19*
>> PSASUPP AUTO+16*
>> PSAVSN AUTO+19*
>> Y INV+9, PROC+3, AUTO+29, EDITINV+15, EDITINV+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All