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 |  Local Variables
Print Page as PDF
Routine: PSANDF1

Package: Drug Accountability

Routine: PSANDF1


Information

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

Source Information

Source file <PSANDF1.m>

Entry Points

Name Comments DBIA/ICR reference
NDC ;Extended help for entering NDC ;*58 11 characters
NDCUPC ;Extended help for selecting either NDC or UPC
NDFDRG ;Extended help for NDF "Is XXX the drug you received?" question.
REA ;Extended help for 'description or reason why the item is not in the DRUG file'
SELNDF ;Extended help for selecting a NDF drug
SUP ;Extended help for 'Is this a supply item'
UPC ;Extended help for entering UPC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"The NDC must be 11-digits. If the NDC does not contain",!?5,"11 numbers, zero fill the section of the NDC that is missing."
  • Line Location: NDC+1
Function Call: WRITE
  • Prompt: !!?5,"The NDC contains three sections separated by dashes.",!?5,"It contains 5 digits, a dash, 4 digits, a dash, then 2 digits."
  • Line Location: NDC+2
Function Call: WRITE
  • Prompt: !!?5,"For Example: If the NDC is 12345-123-1, enter 12345012301.",!?5," If the NDC is 12345-123-12, enter 12345012312."
  • Line Location: NDC+3
Function Call: WRITE
  • Prompt: !?5,"Select NDC to enter a National Drug Code prompt.",!?5,"Select UPC to enter a Universal Product Code prompt."
  • Line Location: NDCUPC+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES to assign the drug to the line item.",!!?5,"If it is not the drug you received, enter NO. You",!?5,"will then be able to select the correct drug from the DRUG file."
  • Line Location: NDFDRG+1
Function Call: WRITE
  • Prompt: !?5,"You must enter a description or reason why the item will never be",!?5,"found in the DRUG file. Enter 1-30 characters. This description or"
  • Line Location: REA+1
Function Call: WRITE
  • Prompt: !?5,"reason will be printed on the invoice where the drug name is usually",!?5,"printed. By entering a description or reason, you will be allowed to"
  • Line Location: REA+2
Function Call: WRITE
  • Prompt: !?5,$S($D(PSABEFOR):"verify",1:"process")_" the item."
  • Line Location: REA+3
Function Call: WRITE
  • Prompt: !?5,"Select the drug you received for the line item.",!?5,"If you want to choose the drug from the DRUG file, enter ""^""."
  • Line Location: SELNDF+1
Function Call: WRITE
  • Prompt: !?5,"Enter YES if the item is a supply item or if it will never be entered",!?5,"into the DRUG file. Enter NO if the item is or will be in the DRUG file."
  • Line Location: SUP+1
Function Call: WRITE
  • Prompt: !?5,"Enter up to 30 characters in the Universal Product Code field."
  • Line Location: UPC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> PSABEFOR REA+3
Info |  Source |  Entry Points |  Interaction Calls |  Local Variables