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

Package: Drug Accountability

Routine: PSAPROC4


Information

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

Source Information

Source file <PSAPROC4.m>

Entry Points

Name Comments DBIA/ICR reference
MANYNDCS ;List drug synonym data & ask user which on to use
SAME ;If more than one drug with same VSN, assign to correct drug.
DIFF ;If more than one drug with different VSN, assign to correct drug.
KILL
LIST
CHOOSE
MANYVSNS ;List drug synonym data & ask user which on to use
SAMEV ;If more than one drug with same NDC, assign to correct drug.
DIFFV ;If more than one drug with different VSN, assign to correct drug.
NDCHELP ;Extended help for selecting invoiced drug

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There is more than one item in the DRUG file",!,"with the same NDC and Vendor Stock Number.",!
  • Line Location: SAME+1
Function Call: WRITE
  • Prompt: !,"There is more than one item in the DRUG file with the same NDC.",!
  • Line Location: DIFF+1
Function Call: WRITE
  • Prompt: !?1,PSAMENU_".",?4,$P($G(^PSDRUG(PSAIEN50,0)),"^")
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: ?60,"(INACTIVE)"
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: !,?19,"SYN #",PSASYN,": ",PSASYNM,!
  • Line Location: LIST+9
Function Call: WRITE
  • Prompt: !,?4,"NDC: ",PSANDC,?25,"Order Unit: ",PSAOU,?46,"Price Per Order Unit: $",$FN(PSAPPOU,",",2)
  • Line Location: LIST+10
Function Call: WRITE
  • Prompt: !,?4,"VSN: ",PSAVSN,?19,"SYN #",PSASYN,": ",PSASYNM,?42,"Dose Unit Per Order Unit: ",PSADUOU
  • Line Location: LIST+11
Function Call: WRITE
  • Prompt: !,?4,"Vendor: ",PSAVEND,?47,"Price Per Dose Unit: ",$FN(PSACPPDU,","),!
  • Line Location: LIST+12
Function Call: WRITE
  • Prompt: !?1,PSAMENU,".",?4,"Select another drug."
  • Line Location: CHOOSE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHOOSE+2
Function Call: WRITE
  • Prompt: !,"There is more than one item in the DRUG file",!,"with the same NDC and Vendor Stock Number.",!
  • Line Location: SAMEV+1
Function Call: WRITE
  • Prompt: !,"There is more than one item in the DRUG file with the same VSN.",!
  • Line Location: DIFFV+1
Function Call: WRITE
  • Prompt: !?5,"Enter the number to the left of the invoiced drug. If you select a drug",!?5,"from the list, the invoiced drug will be matched to that drug. If you"
  • Line Location: NDCHELP+1
Function Call: WRITE
  • Prompt: !?5,"choose to select another drug, you can select the invoiced drug from the",!?5,"DRUG file or flag this item as a supply item."
  • Line Location: NDCHELP+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call