| 1 | EAS114PT ; ALB/SCK - EAS*1.0*14 POST INSTALL CONVERSION ROUTINE ; 6/3/2002
|
|---|
| 2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**14**;MAR 15,2001
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; Entry point for post installation routine
|
|---|
| 5 | N ZX,COUNT,CNVRT,DR,DA,NODE0,NODE4,NODEZ,EASPRE
|
|---|
| 6 | ;
|
|---|
| 7 | S DIR(0)="YAO",DIR("A")="Pre-scan for un-flagged 0-day letters? "
|
|---|
| 8 | S DIR("B")="YES"
|
|---|
| 9 | S DIR("?",1)="Pre-scan will provide the number of records which will have the 0-day"
|
|---|
| 10 | S DIR("?",2)="Flag-to-Print flag set to 'YES' when this routine is run in the conversion mode."
|
|---|
| 11 | S DIR("?",3)=""
|
|---|
| 12 | S DIR("?")="Enter 'YES' to pre-scan, 'NO' to convert the 0-day print flags"
|
|---|
| 13 | D ^DIR K DIR
|
|---|
| 14 | Q:$D(DIRUT)
|
|---|
| 15 | S EASPRE=Y
|
|---|
| 16 | ;
|
|---|
| 17 | W !!!,"Beginning scan for un-flagged 0-day letters"
|
|---|
| 18 | D WAIT^DICD W !
|
|---|
| 19 | ;
|
|---|
| 20 | S (COUNT,ZX,CNVRT)=0
|
|---|
| 21 | F S ZX=$O(^EAS(713.2,ZX)) Q:'ZX D
|
|---|
| 22 | . S NODE0=$G(^EAS(713.2,ZX,0))
|
|---|
| 23 | . S COUNT=COUNT+1 I (COUNT#100)=0 W "."
|
|---|
| 24 | . Q:$P(NODE0,U,4)=1
|
|---|
| 25 | . S NODE4=$G(^EAS(713.2,ZX,4))
|
|---|
| 26 | . S NODEZ=$G(^EAS(713.2,ZX,"Z"))
|
|---|
| 27 | . I $P(NODE4,U,3)=1 D
|
|---|
| 28 | . . I +$P(NODEZ,U,2)=0 D
|
|---|
| 29 | . . . I +$P(NODEZ,U,3)=0 D
|
|---|
| 30 | . . . . I 'EASPRE D
|
|---|
| 31 | . . . . . S DIE="^EAS(713.2,"
|
|---|
| 32 | . . . . . S DR="18///1",DA=ZX
|
|---|
| 33 | . . . . . D ^DIE K DIE
|
|---|
| 34 | . . . . S CNVRT=CNVRT+1
|
|---|
| 35 | ;
|
|---|
| 36 | W !?3,$FN(COUNT,",")," records scanned"
|
|---|
| 37 | W !?3,$FN(CNVRT,",")," records "_$S(EASPRE:"will have",1:"had")_" the 0-day flag set to print"
|
|---|
| 38 | Q
|
|---|
