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

APCCPOST.m

Go to the documentation of this file.
  1. APCCPOST ;IHS/OHPRD/LAB;update PCC Master Control file;
  1.  ;;4;PCC MENUS/MASTER CONTROL;;JUL 10, 1990
  1.  D ^AUKVAR
  1.  S DUZ(0)="@"
  1.  W !!,"You will now be asked to update the PCC MASTER CONTROL file.",!,"You will need to enter your site name, whether your PCC Link will be Date",!,"only or Date/Time.  For each package on your machine that passes "
  1.  W !,"data to PCC you must enter the package name, whether or not the link should",!,"be active, and the type of PCC visit to create.",!
  1.  S DIC(0)="AEMQL",DIC="^APCCCTRL(" D ^DIC I Y=-1 W !!,"ERROR!! " G XIT
  1.  S DA=+Y
  1.  S DIE="^APCCCTRL(",DR="[APCC INPUT MASTER CONTROL]" D ^DIE
  1. XIT ;
  1.  K DIC,DIE,DA,Y,X,%,%Y,%X,C,D,D0,D1,DI,DQ,DR
  1.  Q