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

Package: Drug Accountability

Routine: PSAUP


Information

PSAUP ;BIR/JMB-Upload and Process Prime Vendor Invoice Data ;7/23/97

Source Information

Source file <PSAUP.m>

Entry Points

Name Comments DBIA/ICR reference
UNWRAP ;Changes the data element and segment delimiters to ^ & ~, places each
LINE ;Places each segment on a node to itself.
SPACES ;remove all leading spaces in all data elements
CHECK ;Looks for X12 errors. If no errors, loads data into ^TMP("PSAPV SET",$J)
LOADXTMP ;Loads data into ^XTMP("PSAPV").
STORE ;Get the line item data and store in ^XTMP("PSAPV")
PRINT ;Ask if user wants to print invoices.
PROC ;Ask if user wants to process the invoice data now.
PHARM ;Assign a pharmacy location or master vault to each Order.
PRINT2
KILL ;Kills uploading variables

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You do not hold the key to enter the option."
  • Line Location: PSAUP+6
Function Call: WRITE
  • Prompt: @IOF,!,"****************************** I M P O R T A N T ******************************"
  • Line Location: PSAUP+7
Function Call: WRITE
  • Prompt: !!,"This option uploads the invoice data received from your prime vendor.",!,"In order to upload the data, you must be running ProComm Plus software",!,"on Pharmacy's prime vendor PC.",!!
  • Line Location: PSAUP+8
Function Call: WRITE
  • Prompt: PSASTLN,!
  • Line Location: PSAUP+9
Function Call: WRITE
  • Prompt: !!,"Press <ALT> 1 if your Prime Vendor script is installed as a Meta Key,",!,"otherwise press <ALT> F5 and enter ""PV""",!
  • Line Location: PSAUP+15
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PSAUP+16
Function Call: WRITE
  • Prompt: !!,"ERROR - "_XTKERR
  • Line Location: PSAUP+19
Function Call: WRITE
  • Prompt: !,"ERROR - NO LINES RECEIVED."
  • Line Location: PSAUP+20
Function Call: WRITE
  • Prompt: @IOF,!,"Done",!,"The data uploaded to a temporary file. "_DWLC," lines received.",!!
  • Line Location: PSAUP+21
Function Call: WRITE
  • Prompt: !,"Unwrapping the invoice."
  • Line Location: UNWRAP+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: UNWRAP+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: UNWRAP+15
Function Call: WRITE
  • Prompt: "."
  • Line Location: UNWRAP+31
Function Call: WRITE
  • Prompt: "."
  • Line Location: LINE+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: SPACES+4
Function Call: WRITE
  • Prompt: !,"Finished unwrapping the invoice."
  • Line Location: SPACES+12
Function Call: WRITE
  • Prompt: !!,"Checking the invoice data."
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !,"Finished checking the invoice data."
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: !!,"Loading data into VISTA."
  • Line Location: LOADXTMP+1
Function Call: WRITE
  • Prompt: !,"Finished loading data into VISTA."
  • Line Location: LOADXTMP+4
Function Call: WRITE
  • Prompt: !!,"** The upload was successful. **"
  • Line Location: LOADXTMP+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: STORE+1
Function Call: WRITE
  • Prompt: !,"There are no valid invoices to process."
  • Line Location: STORE+2
Function Call: WRITE
  • Prompt: !,"Searching for and storing the drug data for each line item."
  • Line Location: STORE+3
Function Call: WRITE
  • Prompt: !,"Finished storing the drug data."
  • Line Location: STORE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PROC+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT2+0
Info |  Source |  Entry Points |  Interaction Calls