Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSN544E

PSN544E.m

Go to the documentation of this file.
  1. PSN544E ;BHM/LE-NDF PMI Data Updates ; 13 Dec 2017 1:38 PM
  1. ;;4.0;NATIONAL DRUG FILE;**544**; 30 Oct 98;Build 129
  1. ;
  1. E ;Environment Check for PMI data updates
  1. N PSNF,PSNLEG
  1. S (PSNF,PSNLEG)="",PSNLEG=$$GET1^DIQ(57.23,1,45)
  1. I PSNLEG="NO" S PSNF=1 D Q:PSNF
  1. .W !,"Pharmacy Product System - National (PPS-N) Update process must be used for"
  1. .W !,"National Drug File (NDF) updates. Go to the National Drug File Menu and"
  1. .W !,"select the PPS-N Menu [PSN PPS MENU] option for retrieving and installing"
  1. .W !,"NDF updates from PPS-N.",!
  1. .R !!,"Press enter to continue...",PSENTER:120
  1. .S XPDQUIT=2
  1. ;
  1. I $D(DUZ)#2 N DIC,X,Y S DIC=200,DIC(0)="N",X="`"_DUZ D ^DIC I Y>0
  1. E W !,"You must be a valid user."
  1. Q