- APCLONI1 ; IHS/OHPRD/TMJ - NO DESCRIPTION PROVIDED ;
- ;;3.0;IHS PCC REPORTS;;FEB 05, 1997
- ; LOADS
- ;
- 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
- K DIF,DIK,D,DDF,DDT,DTO,D0,DLAYGO,DIC,DIR,DA,DFR,DTN,DIX,DZ D DT^APCLONI2 S %=1,U="^",DSEC=1
- S NO=$P("I 0^I $D(@X)#2,X[U",U,%) I %<1 K DIFQ Q
- W !," PROTOCOL INSTALLATION"
- Q:'$D(DIFQ) ;S %=0 W !!,"ARE YOU SURE YOU WANT TO CONTINUE" D YN^DICN I %-1 K DIFQ Q
- 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 "."
- APCLONI1 ; IHS/OHPRD/TMJ - NO DESCRIPTION PROVIDED ;
- +1 ;;3.0;IHS PCC REPORTS;;FEB 05, 1997
- +2 ; LOADS
- +3 ;
- +4 IF $SELECT('$DATA(DUZ)#2:1,'$DATA(DUZ(0))#2:1,1:0)
- WRITE !,"DUZ and DUZ(0) must be defined to continue."
- KILL DIFQ
- QUIT
- +5 KILL DIF,DIK,D,DDF,DDT,DTO,D0,DLAYGO,DIC,DIR,DA,DFR,DTN,DIX,DZ
- DO DT^APCLONI2
- SET %=1
- SET U="^"
- SET DSEC=1
- +6 SET NO=$PIECE("I 0^I $D(@X)#2,X[U",U,%)
- IF %<1
- KILL DIFQ
- QUIT
- +7 WRITE !," PROTOCOL INSTALLATION"
- +8 ;S %=0 W !!,"ARE YOU SURE YOU WANT TO CONTINUE" D YN^DICN I %-1 K DIFQ Q
- IF '$DATA(DIFQ)
- QUIT
- +9 DO DT^APCLONI2
- KILL ^UTILITY(U,$JOB),^UTILITY("DIK",$JOB)
- WRITE !,"...OK, this may take a while, hold on please..."
- FOR R=1001:1:1001
- DO @("^APCLO"_$EXTRACT(R,2,4))
- WRITE "."