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

Package: Drug Accountability

Routine: PSAPROC3


Information

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

Source Information

Source file <PSAPROC3.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Drug Accountability 4 PSAPROC1  PSAPROC2  PSAPROC6  PSAPROC9  

Entry Points

Name Comments DBIA/ICR reference
DUOUHELP ;Extended help for entering dispense units per order unit
PRICEHLP ;Extended help for price per order unit
PRICE ;If price per order unit is blank or 0, get price from user.
RECHELP ;Extended help to 'Date Received'
RECD ;Enter the date the invoiced drugs were received.
QTY ;If qty is blank, prompt for it.
OUHELP ;Extended help for selecting the Order Unit
GETOU ;Get the Order Unit if it is blank or if it is not in the ORDER UNIT file.
SETLINE ;Set line as process if all data is present.
QTYHELP ;Extended help for quantity delivered
NDCHELP ;Extended help for selecting invoiced drug
DUOU ;Gets & stores dispense unit per order unit in XTMP
OUYN ;Extended help for returning to the 'ORDER UNIT' prompt.
ADJREA ;Extended help for 'qty adjustment reason'

External References

Name Field # of Occurrence
^DIR DUOU+6, DUOU+12, GETOU+3, GETOU+12, PRICE+3, QTY+3, QTY+6, RECD+2
$$FMTE^XLFDT RECD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"The dispense units per order unit must be entered",!,"to change the status of the invoice to Processed."
  • Line Location: DUOU+9
Function Call: WRITE
  • Prompt: !,"The order unit must be entered to change",!,"the status of the invoice to Processed.",!
  • Line Location: GETOU+9
Function Call: WRITE
  • Prompt: !?5,"Enter why you changed the quantity.",!?5,"For example: 2 bottles were broken.",!?5," Package contained only 11 tubes."
  • Line Location: ADJREA+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number of dispense units contained in the order unit.",!!?5,"For example: Dispense Units: TAB",!?18,"Order Unit : CS"
  • Line Location: DUOUHELP+1
Function Call: WRITE
  • Prompt: !!?18,"The case contains 12 bottles of 1,000 tablets",!?18,"12 x 1,000 = 12,000",!?18,"DISPENSE UNITS PER ORDER UNIT: 12,000"
  • Line Location: DUOUHELP+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number to the left of the invoiced drug. If you select a drug",!?5,"from the list, the invoiced drug will be matched to that drug. If you"
  • Line Location: NDCHELP+1
Function Call: WRITE
  • Prompt: !?5,"choose to select another drug, you can select the invoiced drug from the",!?5,"DRUG file or flag this item as a supply item."
  • Line Location: NDCHELP+2
Function Call: WRITE
  • Prompt: !?5,"Enter the packaging unit for which the drug was ordered."
  • Line Location: OUHELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter Yes if you want to enter the order unit now.",!?5,"Enter No to bypass entering the order unit."
  • Line Location: OUYN+1
Function Call: WRITE
  • Prompt: !!?5,"The invoice will not be placed in a Processed",!?5,"status if the order units are not entered."
  • Line Location: OUYN+2
Function Call: WRITE
  • Prompt: !?5,"If the price per order unit is not zero, enter the correct price. ",!?5,"The total cost for the item will be adjusted. If it is zero, press ",!?5,"the return key to verify that zero is the correct price."
  • Line Location: PRICEHLP+1
Function Call: WRITE
  • Prompt: !?5,"If the quantity received is different than the quantity",!?5,"displayed, enter the correct quantity you received. The",!?5,"total cost for the item will be adjusted."
  • Line Location: QTYHELP+1
Function Call: WRITE
  • Prompt: !?5,"Enter the date the drugs were received. The date the prime vendor",!?5,"said the drugs were delivered and the date you say the drugs were",!?5,"received will be retained."
  • Line Location: RECHELP+1
Routine Call
  • DIR
  • Line Location:
    • DUOU+6
    • DUOU+12
    • GETOU+3
    • GETOU+12
    • PRICE+3
    • QTY+3
    • QTY+6
    • RECD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] GETOU+2
^PSDRUG - [#50] DUOU+1, GETOU+2, SETLINE+4, SETLINE+7, SETLINE+8
^XTMP("PSAPV" DUOU+7*, GETOU+7*, PRICE+5*, QTY+7*, RECD+3*, SETLINE+1, SETLINE+2*, SETLINE+4*, SETLINE+5*, SETLINE+6
, SETLINE+9*

Label References

Name Line Occurrences
DUOU DUOU+13
GETOU GETOU+14

Naked Globals

Name Field # of Occurrence
^( DUOU+7, GETOU+7*, PRICE+5*, QTY+7*
^("IN" SETLINE+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR DUOU+6!, DUOU+12!, GETOU+3!, GETOU+12!, PRICE+3!, QTY+3!, QTY+6!, RECD+2!
DIR("?" DUOU+5*, DUOU+11*, GETOU+1*, GETOU+11*, PRICE+2*, QTY+2*, QTY+5*, RECD+1*
DIR("??" DUOU+5*, DUOU+12*, GETOU+1*, GETOU+11*, PRICE+3*, QTY+2*, QTY+5*, RECD+1*
DIR("A" DUOU+5*, DUOU+10*, GETOU+1*, GETOU+10*, PRICE+1*, QTY+1*, QTY+5*, RECD+1*
DIR("B" DUOU+10*, GETOU+2*, GETOU+10*, PRICE+1*, QTY+1*, RECD+1*
DIR(0 DUOU+5*, DUOU+10*, GETOU+1*, GETOU+10*, PRICE+1*, QTY+1*, QTY+5*, RECD+1*
>> DIRUT GETOU+3, QTY+3, QTY+6, RECD+2
DT GETOU+7, PRICE+5, QTY+7
>> DTOUT DUOU+6, DUOU+12, GETOU+12, PRICE+3
>> DUOUT DUOU+6, DUOU+12, GETOU+12, PRICE+3
DUZ GETOU+7, PRICE+5, QTY+7
>> PSACTRL DUOU+7, GETOU+7, PRICE+5, QTY+7, RECD+3, SETLINE+1, SETLINE+2, SETLINE+4, SETLINE+5, SETLINE+6
, SETLINE+9
>> PSADATA DUOU+7*, GETOU+2, GETOU+7*, PRICE+4, PRICE+5*, QTY+1, QTY+4, QTY+7*, SETLINE+1*, SETLINE+3
, SETLINE+6*, SETLINE+7, SETLINE+8
>> PSADJQTY QTY+4*, QTY+7
>> PSADU DUOU+1, DUOU+2*
>> PSAIEN DUOU+1, GETOU+2, SETLINE+3*, SETLINE+4, SETLINE+7, SETLINE+8
>> PSAIN RECD+3*, SETLINE+1*, SETLINE+6, SETLINE+9*
>> PSALINE DUOU+7, GETOU+7, PRICE+5, QTY+7, SETLINE+1, SETLINE+2, SETLINE+4, SETLINE+5, SETLINE+6, SETLINE+9
>> PSALINES SETLINE+2*, SETLINE+9*
>> PSALLSUP SETLINE+2*
>> PSALOC SETLINE+6*
>> PSAOUT DUOU+6*, DUOU+12*, GETOU+3*, GETOU+12*, PRICE+3*, QTY+3*, QTY+6*, RECD+2*
>> PSARECD RECD+1
>> PSASUB SETLINE+3*, SETLINE+8
>> Y DUOU+7, DUOU+13, GETOU+7, GETOU+13, GETOU+14, PRICE+4, PRICE+5, QTY+4, QTY+7, RECD+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All