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

Package: National Drug File

Routine: PSNMRG


Information

PSNMRG ;BIR/CCH&WRT-merges NDF fields into PSDRUG ; 04/18/01 14:56

Source Information

Source file <PSNMRG.m>

Entry Points

Name Comments DBIA/ICR reference
DVC
QUE
ENQ
DONE
TITLE
LOOP
KILLIT
SET
SETAPC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This option will merge NDF fields into your local drug file. This will also",!,"produce an Error Report for entries in the translation file which are not",!,"in the local file if they should exist."
  • Line Location: PSNMRG+11
Function Call: WRITE
  • Prompt: " These exceptions will not be merged.",!
  • Line Location: PSNMRG+12
Function Call: WRITE
  • Prompt: !,"You may queue this report if you wish.",!
  • Line Location: PSNMRG+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+0
Function Call: WRITE
  • Prompt: !,?32,"MERGE ERROR REPORT",!
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: !,"Date Printed: ",Y,?73,"Page: ",PSNPGCT,!
  • Line Location: TITLE+2
Function Call: WRITE
  • Prompt: !!,"INTERNAL FILE NUMBER",?30,"VA PRODUCT NAME",!
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !!,?30,"No Errors Found During Merge",!!!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !,?8,PSNB,?30,FRMNAM,!,"***** This entry no longer exists in your local drug file. ***** ",!," This entry will not be merged. ",!
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,?5,DISPNM,?51,"needs to be rematched to Orderable Item."
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !,"Additive ",?12,ADNM,?51,"needs to be rematched to Orderable Item."
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !,"Solution ",?12,SLNM,?51,"needs to be rematched to Orderable Item."
  • Line Location: LOOP+6

FileMan Files Accessed Via FileMan Db Call

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