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

PSS129EN.m

Go to the documentation of this file.
  1. PSS129EN ;BIR/RTR-ENVIRONMENT CHECK ROUTINE FOR PSS*1*129 ;05/14/08
  1. ;;1.0;PHARMACY DATA MANAGEMENT;**129**;9/30/97;Build 67
  1. ;
  1. Q:'$G(XPDENV)
  1. ;
  1. EN ;
  1. N PSSVJMES,PSSVJAR,PSSVJARX,PSSVJLP,PSSVJFLG,DIC,DTOUT,DUOUT,X,Y,DIRUT,DIROUT,DIR
  1. S PSSVJMES(1)="Upon completion of the Post Install, a mail message will be sent"
  1. S PSSVJMES(2)="to the patch installer, and at least one pharmacy user. Please"
  1. S PSSVJMES(3)="enter one or more Pharmacy users (e.g., Pharmacy ADPAC or designee)"
  1. S PSSVJMES(4)="who should receive this message."
  1. D MES^XPDUTL(.PSSVJMES)
  1. S PSSVJAR(DUZ)=""
  1. S PSSVJFLG=0
  1. ;
  1. ASK ;
  1. D BMES^XPDUTL(" ")
  1. K DIC S DIC=200,DIC(0)="QEAMZ",DIC("A")="Enter Pharmacy User: "
  1. D ^DIC K DIC I $D(DTOUT)!($D(DUOUT))!(+Y'>0) G END
  1. I $D(PSSVJAR(+Y)) D BMES^XPDUTL("Already selected.") G ASK
  1. S PSSVJFLG=1
  1. S PSSVJAR(+Y)=""
  1. G ASK
  1. ;
  1. END ;
  1. I 'PSSVJFLG D BMES^XPDUTL("At least one pharmacy user must be selected. Install aborted.") S XPDABORT=2 Q
  1. D BMES^XPDUTL(" ")
  1. K DIR,Y S DIR(0)="Y",DIR("B")="Y",DIR("A")="Continue with install",DIR("?")="Enter 'Y' to continue with install, enter 'N' or '^' to abort install" D ^DIR K DIR
  1. I Y'=1!($D(DTOUT))!($D(DUOUT)) S XPDABORT=2 Q
  1. D BMES^XPDUTL(" ")
  1. F PSSVJLP=0:0 S PSSVJLP=$O(PSSVJAR(PSSVJLP)) Q:'PSSVJLP S @XPDGREF@("PSSVJARX",PSSVJLP)=""
  1. Q