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

APCLONI1.m

Go to the documentation of this file.
  1. APCLONI1 ; IHS/OHPRD/TMJ - NO DESCRIPTION PROVIDED ;
  1. ;;3.0;IHS PCC REPORTS;;FEB 05, 1997
  1. ; LOADS
  1. ;
  1. I $S('$D(DUZ)#2:1,'$D(DUZ(0))#2:1,1:0) W !,"DUZ and DUZ(0) must be defined to continue." K DIFQ Q
  1. K DIF,DIK,D,DDF,DDT,DTO,D0,DLAYGO,DIC,DIR,DA,DFR,DTN,DIX,DZ D DT^APCLONI2 S %=1,U="^",DSEC=1
  1. S NO=$P("I 0^I $D(@X)#2,X[U",U,%) I %<1 K DIFQ Q
  1. W !," PROTOCOL INSTALLATION"
  1. Q:'$D(DIFQ) ;S %=0 W !!,"ARE YOU SURE YOU WANT TO CONTINUE" D YN^DICN I %-1 K DIFQ Q
  1. D DT^APCLONI2 K ^UTILITY(U,$J),^UTILITY("DIK",$J) W !,"...OK, this may take a while, hold on please..." F R=1001:1:1001 D @("^APCLO"_$E(R,2,4)) W "."