EAS114PT.m

EAS114PT ; ALB/SCK - EAS*1.0*14 POST INSTALL CONVERSION ROUTINE ; 6/3/2002

 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**14**;MAR 15,2001

 ;

EN ; Entry point for post installation routine

 N ZX,COUNT,CNVRT,DR,DA,NODE0,NODE4,NODEZ,EASPRE

 ;

 S DIR(0)="YAO",DIR("A")="Pre-scan for un-flagged 0-day letters? "

 S DIR("B")="YES"

 S DIR("?",1)="Pre-scan will provide the number of records which will have the 0-day"

 S DIR("?",2)="Flag-to-Print flag set to 'YES' when this routine is run in the conversion mode."

 S DIR("?",3)=""

 S DIR("?")="Enter 'YES' to pre-scan, 'NO' to convert the 0-day print flags"

 D ^DIR K DIR

 Q:$D(DIRUT)

 S EASPRE=Y

 ;

 W !!!,"Beginning scan for un-flagged 0-day letters"

 D WAIT^DICD W !

 ;

 S (COUNT,ZX,CNVRT)=0

 F  S ZX=$O(^EAS(713.2,ZX)) Q:'ZX  D

 . S NODE0=$G(^EAS(713.2,ZX,0))

 . S COUNT=COUNT+1 I (COUNT#100)=0 W "."

 . Q:$P(NODE0,U,4)=1

 . S NODE4=$G(^EAS(713.2,ZX,4))

 . S NODEZ=$G(^EAS(713.2,ZX,"Z"))

 . I $P(NODE4,U,3)=1 D

 . . I +$P(NODEZ,U,2)=0 D

 . . . I +$P(NODEZ,U,3)=0 D

 . . . . I 'EASPRE D

 . . . . . S DIE="^EAS(713.2,"

 . . . . . S DR="18///1",DA=ZX

 . . . . . D ^DIE K DIE

 . . . . S CNVRT=CNVRT+1

 ;

 W !?3,$FN(COUNT,",")," records scanned"

 W !?3,$FN(CNVRT,",")," records "_$S(EASPRE:"will have",1:"had")_" the 0-day flag set to print"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EAS114PT   1319     printed  Apr 09, 2024@20:58:15                                                                                                                                                                                                    Page 2

EAS114PT  ; ALB/SCK - EAS*1.0*14 POST INSTALL CONVERSION ROUTINE ; 6/3/2002

 +1       ;;1.0;ENROLLMENT APPLICATION SYSTEM;**14**;MAR 15,2001

 +2       ;

EN        ; Entry point for post installation routine

 +1        NEW ZX,COUNT,CNVRT,DR,DA,NODE0,NODE4,NODEZ,EASPRE

 +2       ;

 +3        SET DIR(0)="YAO"

           SET DIR("A")="Pre-scan for un-flagged 0-day letters? "

 +4        SET DIR("B")="YES"

 +5        SET DIR("?",1)="Pre-scan will provide the number of records which will have the 0-day"

 +6        SET DIR("?",2)="Flag-to-Print flag set to 'YES' when this routine is run in the conversion mode."

 +7        SET DIR("?",3)=""

 +8        SET DIR("?")="Enter 'YES' to pre-scan, 'NO' to convert the 0-day print flags"

 +9        DO ^DIR

           KILL DIR

 +10       if $DATA(DIRUT)

               QUIT 

 +11       SET EASPRE=Y

 +12      ;

 +13       WRITE !!!,"Beginning scan for un-flagged 0-day letters"

 +14       DO WAIT^DICD

           WRITE !

 +15      ;

 +16       SET (COUNT,ZX,CNVRT)=0

 +17       FOR 

               SET ZX=$ORDER(^EAS(713.2,ZX))

               if 'ZX

                   QUIT 

               Begin DoDot:1

 +18               SET NODE0=$GET(^EAS(713.2,ZX,0))

 +19               SET COUNT=COUNT+1

                   IF (COUNT#100)=0

                       WRITE "."

 +20               if $PIECE(NODE0,U,4)=1

                       QUIT 

 +21               SET NODE4=$GET(^EAS(713.2,ZX,4))

 +22               SET NODEZ=$GET(^EAS(713.2,ZX,"Z"))

 +23               IF $PIECE(NODE4,U,3)=1

                       Begin DoDot:2

 +24                       IF +$PIECE(NODEZ,U,2)=0

                               Begin DoDot:3

 +25                               IF +$PIECE(NODEZ,U,3)=0

                                       Begin DoDot:4

 +26                                       IF 'EASPRE

                                               Begin DoDot:5

 +27                                               SET DIE="^EAS(713.2,"

 +28                                               SET DR="18///1"

                                                   SET DA=ZX

 +29                                               DO ^DIE

                                                   KILL DIE

                                               End DoDot:5

 +30                                       SET CNVRT=CNVRT+1

                                       End DoDot:4

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +31      ;

 +32       WRITE !?3,$FNUMBER(COUNT,",")," records scanned"

 +33       WRITE !?3,$FNUMBER(CNVRT,",")," records "_$SELECT(EASPRE:"will have",1:"had")_" the 0-day flag set to print"

 +34       QUIT