source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EAS114PT.m@ 1578

Last change on this file since 1578 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1EAS114PT ; ALB/SCK - EAS*1.0*14 POST INSTALL CONVERSION ROUTINE ; 6/3/2002
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**14**;MAR 15,2001
3 ;
4EN ; 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
Note: See TracBrowser for help on using the repository browser.