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

Package: Drug Accountability

Routine: PSAPROC5


Information

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

Source Information

Source file <PSAPROC5.m>

Entry Points

Name Comments DBIA/ICR reference
MANYUPCS ;List supply synonym data & ask user which on to use
SAMEU ;If more than one drug with same VSN, assign to correct drug.
DIFFU ;If more than one supply with different UPC, assign to correct drug.
CHOOSEU
NDCDIFF ;If New NDC is correct, remove "~" piece with questionable NDC in ^XTMP.
SUPDIFF ;If New UPC is correct, remove "~" piece with questionable UPC in ^XTMP.
VSNDIFF ;If New VSN is correct, remove "~" piece with questionable VSN in ^XTMP.
NEWOLD ;Extended help to 'Is new VSN correct'
NEWOLDN ;Extended help to 'Is new NDC correct'
NEWUPC ;Extended help to 'Is new UPC correct'
UPCHELP ;Extended help for selecting invoiced supply

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is more than one supply in the DRUG file",!,"with the same UPC and Vendor Stock Number.",!
  • Line Location: SAMEU+1
Function Call: WRITE
  • Prompt: !!,"There is more than one supply in the DRUG file with the same UPC.",!
  • Line Location: DIFFU+1
Function Call: WRITE
  • Prompt: !?1,PSAMENU_".",?4,"Select another item."
  • Line Location: CHOOSEU+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOOSEU+2
Function Call: WRITE
  • Prompt: !!,"There is a change in Vendor Stock Number's NDC."
  • Line Location: NDCDIFF+3
Function Call: WRITE
  • Prompt: !,"New NDC: "_PSANDC_" "
  • Line Location: NDCDIFF+4
Function Call: WRITE
  • Prompt: !,"Old NDC: "_$P($P(^XTMP("PSAPV",PSACTRL,"IT",PSALINE),"^",5),"~",3),!
  • Line Location: NDCDIFF+5
Function Call: WRITE
  • Prompt: !!,"There is a change in item's Universal Product Code (UPC)."
  • Line Location: SUPDIFF+2
Function Call: WRITE
  • Prompt: !,"New UPC: "_PSAUPC
  • Line Location: SUPDIFF+3
Function Call: WRITE
  • Prompt: !,"Old UPC: "_$P($P(^XTMP("PSAPV",PSACTRL,"IT",PSALINE),"^",26),"~",3),!
  • Line Location: SUPDIFF+4
Function Call: WRITE
  • Prompt: !!,"There is a change in the NDC's Vendor Stock Number (VSN)."
  • Line Location: VSNDIFF+2
Function Call: WRITE
  • Prompt: !,"New VSN: "_PSAVSN_" "
  • Line Location: VSNDIFF+3
Function Call: WRITE
  • Prompt: !,"Old VSN: "_$P($P(^XTMP("PSAPV",PSACTRL,"IT",PSALINE),"^",4),"~",3),!
  • Line Location: VSNDIFF+4
Function Call: WRITE
  • Prompt: !?5,"Enter Yes to add another synonym for the NDC with the new VSN.",!?5,"Enter No to discard the new VSN."
  • Line Location: NEWOLD+1
Function Call: WRITE
  • Prompt: !?5,"Enter Yes to add another synonym for the NDC with the new NDC.",!?5,"Enter No to discard the new NDC."
  • Line Location: NEWOLDN+1
Function Call: WRITE
  • Prompt: !?5,"Enter Yes to add another synonym for the NDC with the new UPC.",!?5,"Enter No to discard the new UPC."
  • Line Location: NEWUPC+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number of the invoiced item. If you select an item from the",!?5,"list, the invoice data will be added to that item. If you select to"
  • Line Location: UPCHELP+1
Function Call: WRITE
  • Prompt: !?5,"add a new entry in the DRUG file for the invoiced item, a new",!?5,"synonym for the item will be added to the DRUG file."
  • Line Location: UPCHELP+2
Info |  Source |  Entry Points |  Interaction Calls