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

Package Total Call Graph
Drug Accountability 5 END^PSAPROC  RECD^PSAPROC3  (,CHG,SEL)^PSAPROC6  (,GETLOC,MASTER)^PSAPROC9  (EDITDISP,SITES)^PSAUTL1  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSAPROC1  

Entry Points

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

External References

Name Field # of Occurrence
^DIR INV+8, PROC+2, AUTO+26, EDITINV+15, HDR1+2, HEADER+2
END^PSAPROC CHK+1, STATUS, STATUS+2
RECD^PSAPROC3 AUTO+10
^PSAPROC6 EDITINV+16
CHG^PSAPROC6 STATUS
SEL^PSAPROC6 PROC+3
^PSAPROC9 AUTO+18
GETLOC^PSAPROC9 SETINV+9
MASTER^PSAPROC9 SETINV+6
EDITDISP^PSAUTL1 AUTO+18
SITES^PSAUTL1 AUTO+7
$$FMTE^XLFDT INV+5, AUTO+4, 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+4
Function Call: WRITE
  • Prompt: "Blank"
  • Line Location: AUTO+8
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+21
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+22
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+23
Function Call: WRITE
  • Prompt: !,"master vault is set up to track the reorder levels.",!
  • Line Location: AUTO+24
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+26
    • EDITINV+15
    • HDR1+2
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] AUTO+5, AUTO+7
^XTMP("PSAPV" INV+5, AUTO+2, AUTO+3, AUTO+13, AUTO+14, AUTO+15*, AUTO+16, 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+4
HDR1 EDITINV+10
HEADER INV+3
SETINV AUTO+19, EDITINV+15
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+26!, EDITINV+15!, HDR1+2!, HEADER+2!
DIR("?" INV+7*, PROC+1*, AUTO+25*, EDITINV+14*
DIR("??" INV+8*, AUTO+26*, EDITINV+15*
DIR("A" INV+7*, PROC*, AUTO+25*, EDITINV+14*
DIR("B" PROC*, AUTO+25*
DIR(0 INV+7*, PROC*, AUTO+25*, EDITINV+14*, HDR1+2*, HEADER+2*
>> DIRUT INV+8, PROC+2, AUTO+26, HDR1+2, HEADER+2
>> DTOUT EDITINV+15
>> DUOUT EDITINV+15
IOF CHK+1, AUTO+21, 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+7
>> PSACS AUTO+1*, AUTO+15*, SETINV+4, SETINV+7, SETINV+8, SETINV+9
>> PSACS( SETINV+6*
>> PSACTRL INV+4*, INV+5, AUTO+1*, AUTO+2, AUTO+3, AUTO+13, AUTO+14, AUTO+15, AUTO+16, 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+14*, AUTO+15, AUTO+16*, AUTO+17
PSAERR EDITINV+1!*, EDITINV+3*
PSAERR( INV+2, INV+4, AUTO+1, EDITINV+3*, EDITINV+9, EDITINV+11
PSAERR(0 CHK
>> PSAIEN AUTO+17*
>> PSAIN AUTO+3*, AUTO+4, AUTO+5, AUTO+6, AUTO+10
>> PSAINV INV+4*, INV+5, EDITINV+11*, EDITINV+12
>> PSAKK HDR1+1*, HEADER+1*
>> PSALINE AUTO+13*, AUTO+14, AUTO+15, AUTO+16
>> PSALINES AUTO+1*, AUTO+15*, STATUS
>> PSALLSUP AUTO+1*, SETINV+2, STATUS
>> PSALNCNT AUTO+1*, AUTO+14*, SETINV+2, SETINV+7, SETINV+8, STATUS
>> PSALOC AUTO+3*, AUTO+7, AUTO+8
>> PSALOCN AUTO+7*, AUTO+9
>> PSAMENU INV+1*, INV+2*, INV+4, INV+5, AUTO+1*, EDITINV+8*, EDITINV+9*, EDITINV+11
>> PSAMV AUTO+3*, AUTO+5
>> PSANDC AUTO+17*
>> 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+10, AUTO+13, AUTO+19, AUTO+20, AUTO+26*, EDITINV+1*
, EDITINV+9, EDITINV+15*, SETINV+4, SETINV+6, SETINV+9
>> PSAPASS AUTO+14*
>> PSAPC AUTO+1*
>> PSARECD AUTO+10*
>> PSASEL INV+9*, AUTO+1, EDITINV+16*
>> PSASLN INV, INV+6, AUTO+4, 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+17*
>> PSASUPP AUTO+14*
>> PSAVSN AUTO+17*
>> Y INV+9, PROC+3, AUTO+26, 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