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
Print Page as PDF
Routine: PSAVER1

Package: Drug Accountability

Routine: PSAVER1


Information

PSAVER1 ;BIR/JMB-Verify Invoices - CONT'D ;7/23/97

Source Information

Source file <PSAVER1.m>

Entry Points

Name Comments DBIA/ICR reference
EDIT
SEL ;Select line items to be edit
HEADER ;Header with screen hold
CORR
LINES
VIEW
FIELDS
PROCESS
CHECK
CHG
NEWDRUG ;If this invoice will add new drugs to location/vault, store in an
HDR ;Header for screen that displays invoice data to be edited.
CHGYN ;Extended help for 'Do you want to change the invoice's status to Verified'

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?18,"<<< EDIT INVOICES TO BE VERIFIED SCREEN >>>",!!?2,"Choose the invoices from the list you want to edit.",!,PSASLN
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: !,PSASLN
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: @IOF,!?18,"<<< EDIT INVOICES TO BE VERIFIED SCREEN >>>",!!,PSASLN
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,?5,PSAMSG,!
  • Line Location: CORR+5
Function Call: WRITE
  • Prompt: !,"** The invoice's status has not been changed to Verified!"
  • Line Location: CORR+8
Function Call: WRITE
  • Prompt: !!,$P($G(^PSD(58.8,PSAMV,0)),"^")
  • Line Location: CORR+15
Function Call: WRITE
  • Prompt: !,"** The invoice's status has not been changed to Verified!"
  • Line Location: CORR+16
Function Call: WRITE
  • Prompt: !
  • Line Location: LINES+0
Function Call: WRITE
  • Prompt: !,"Invalid line number."
  • Line Location: LINES+3
Function Call: WRITE
  • Prompt: PSASLN,!
  • Line Location: VIEW+0
Function Call: WRITE
  • Prompt: "5. Stock Level",!,"6. Reorder Level",!
  • Line Location: VIEW+2
Function Call: WRITE
  • Prompt: PSASLN
  • Line Location: VIEW+5
Function Call: WRITE
  • Prompt: !
  • Line Location: FIELDS+10
Function Call: WRITE
  • Prompt: !,"** The invoice's status has not been changed to Verified!"
  • Line Location: FIELDS+12
Function Call: WRITE
  • Prompt: !,"** The invoice's status has not been changed to Verified!"
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: !!,"** The invoice has not been placed in a Verified status!"
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !,"All drugs on the invoice are marked as a controlled substance."
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: !!,"The invoice status has been changed to Verified!"
  • Line Location: CHG+1
Function Call: WRITE
  • Prompt: @IOF,!?18,"<<< EDIT INVOICES TO BE VERIFIED SCREEN >>>"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"Order#: "_PSAORD_" Invoice#: "_PSAINV_" Invoice Date: "_$$FMTE^XLFDT(PSAINVDT),!,PSASLN,!
  • Line Location: HDR+2
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 Verify Orders option."
  • Line Location: CHGYN+2
Info |  Source |  Entry Points |  Interaction Calls