Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSAPROC6

Package: Drug Accountability

Routine: PSAPROC6


Information

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

Source Information

Source file <PSAPROC6.m>

Entry Points

Name Comments DBIA/ICR reference
SEL ;Loops thru selected invoices
CHECK ;Looks to see if all line items are processed
CHG ;Asks if invoice's status should be changed to verified. If so, status
CORR
LOC
LINES
EDITITEM
FIELDS
PROCESS ;Checks for & prompts for missing data.
MV ;Assigns master vault
PHARM ;Assigns pharmacy location
SUPPLY ;Asks if all items are supply items. If so, invoice is deleted from
NO
HDR ;Screen header
CHGYN ;Extended help - 'Do you want to change the invoice's status to Processed'
DQOR ;Extended help - 'Edit field'
LNHELP ;Extended help - 'Line Number"
ALLSUP ;Extended help - "Are all the items on the invoice supply items" &

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"All drugs on the invoice are marked as a controlled substance."
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: !!,"** The invoice has not been placed in a Processed status!"
  • Line Location: CHECK+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CHG+2
Function Call: WRITE
  • Prompt: !!,"** The invoice's status has not been changed to Processed."
  • Line Location: CHG+4
Function Call: WRITE
  • Prompt: !!,"The invoice status has been changed to Processed!"
  • Line Location: CHG+7
Function Call: WRITE
  • Prompt: !!,"MASTER VAULT: "_$P($G(^PSD(58.8,PSAMV,0)),"^")
  • Line Location: LOC+0
Function Call: WRITE
  • Prompt: !!,"Line Item Numbers: "
  • Line Location: LINES+0
Function Call: WRITE
  • Prompt: ?19,PSALINE
  • Line Location: LINES+1
Function Call: WRITE
  • Prompt: !,?19,PSALINE
  • Line Location: LINES+3
Function Call: WRITE
  • Prompt: !,"Invalid line number."
  • Line Location: LINES+9
Function Call: WRITE
  • Prompt: !,PSASLN,!
  • Line Location: LINES+14
Function Call: WRITE
  • Prompt: !,"5. Stock Level",!,"6. Reorder Level"
  • Line Location: EDITITEM+3
Function Call: WRITE
  • Prompt: !,PSASLN
  • Line Location: EDITITEM+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SUPPLY+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SUPPLY+6
Function Call: WRITE
  • Prompt: @IOF,!?26,"<<< EDIT INVOICE SCREEN >>>",!,"Order#: "_$P(PSAIN,"^",4)_" Invoice#: "_$P(PSAIN,"^",2)_" Invoice Date: "_$$FMTE^XLFDT(+PSAIN),!,PSASLN
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES if the invoice is completely correct. You will not be able",!?5,"to edit it again."
  • Line Location: CHGYN+1
Function Call: WRITE
  • Prompt: !!?5,"Enter NO if you need to edit the invoice again. You can edit it again",!?5,"by selecting the Process Orders option."
  • Line Location: CHGYN+2
Function Call: WRITE
  • Prompt: !?5,"Enter the number or range of numbers of the field you want to edit."
  • Line Location: DQOR+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the item on the invoice you want to edit. You can",!?5,"enter a line item number then edit that line item. The ""Line Number""",!?5,"prompt will be displayed again. You can keep entering and editing line"
  • Line Location: LNHELP+1
Function Call: WRITE
  • Prompt: !?5,"items until you press the Return key at the ""Line Number"" prompt."
  • Line Location: LNHELP+2
Function Call: WRITE
  • Prompt: !!?5,"Enter YES if none of the line items on the invoice are",!?5,"in the DRUG file and will never be in the DRUG file.",!!?5,"Enter NO if there is at least one line item on the",!?5,"invoice that is in the DRUG file."
  • Line Location: ALLSUP+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call