Routine: A4A7B0

A4A7B0 ;NEW PERSON 3/6/16/20 LOCATOR EXTENSION ;4/16/96  10:35

 ;;1.01;NEW PERSON;**9**;2/9/96

 K ^UTILITY("A4A7B") S ^UTILITY("A4A7B","RUN")="RUN"

 S ^UTILITY("A4A7B","CKPT")="DATADIC^1.99999"

NODE S A4A7B("NODE",2)="OUTP",A4A7B("NODE",4)="EXEH",A4A7B("NODE",7.5)="UINP",A4A7B("NODE","AX")="AUD",A4A7B("NODE","DEL")="DEL",A4A7B("NODE","LAYGO")="LAYG",A4A7B("NODE",1)="CR",A4A7B("NODE",12.1)="SCR"

 S A4A7B("NODE",9)="C"

 S A4A7B("IND",3)="^DD(A4A7B(""A""),A4A7B(""B""),A4A7B(""C""))",A4A7B("IND",4)="^DD(A4A7B(""A""),A4A7B(""B""),A4A7B(""C""),A4A7B(""D""))",A4A7B("IND",5)="^DD(A4A7B(""A""),A4A7B(""B""),A4A7B(""C""),A4A7B(""D""),A4A7B(""E""))"

PARTIAL ;

 R !!,"Partial or All (A or P) default A // ",ANS:DTIME W ! Q:'$T  Q:ANS="^"  S ANS=$E(ANS) S:ANS="" ANS="A" G:"AP"'[ANS PARTIAL G TASK:ANS="A" K ANS

SECTION ;

 R !!,"Which section? (Data Dictionary (D) Routines (R)",!," or templates/forms/blocks (O) //",ANS:DTIME W ! Q:'$T  Q:ANS=""  Q:ANS="^"  S ANS=$E(ANS) G:"DRO"'[ANS SECTION S A4A7B("PARTIAL")=ANS K ANS

DATADIC ;

 I A4A7B("PARTIAL")="D" R !!,"Please enter start and end file numbers in the form (start,end) // ",ANS:DTIME W ! Q:'$T  Q:ANS=""  Q:ANS="^"

 I A4A7B("PARTIAL")="D" S A4A7B("START")=+$P(ANS,",")-.00000001,A4A7B("STOP")=+$P(ANS,",",2)-.0000000001 G:A4A7B("START")<1.99 DATADIC K ANS

 I A4A7B("PARTIAL")="D" G:A4A7B("STOP")<A4A7B("START") DATADIC S ^UTILITY("A4A7B","SECTION")="DATADIC"_"^"_A4A7B("START")_"^"_A4A7B("STOP")

ROU ;

 I A4A7B("PARTIAL")="R" R !!,"FOR WHICH SINGLE LETTER RANGE (CAPS ONLY) // ",ANS:DTIME W ! Q:'$T  Q:ANS=""  Q:ANS="^"  S ANS=$E(ANS),X="ABCDEFGHIJKLMNOPQRSTUVWXYZ" G:X'[ANS ROU S ^UTILITY("A4A7B","SECTION")="ROU"_"^"_($F(X,ANS)+1)

 I A4A7B("PARTIAL")="R" S ^UTILITY("A4A7B","CKPT")=^UTILITY("A4A7B","SECTION") K ANS

DIE ;

 I A4A7B("PARTIAL")="O" R !!,"SELECT INPUT TEMPLATES (I), SORT TEMPLATES (S), PRINT TEMPLATE (P),",!,"FUNCTIONS (F), FORMS (A), BLOCKS (B) (CAPS ONLY) // ",ANS:DTIME W ! Q:'$T  Q:ANS="^"  Q:ANS=""  S ANS=$E(ANS) G:"ISPFAB"'[ANS DIE

 I A4A7B("PARTIAL")="O" S ^UTILITY("A4A7B","SECTION")="DIE^"_$S(ANS="I":"DIE(0)",ANS="S":"DIBT(0)",ANS="P":"DIPT(0)",ANS="F":"DD(""FUNC"",0)",ANS="A":"DIST(.403,0)",1:"DIST(.404,0)") K ANS

 S ^UTILITY("A4A7B","CKPT")=^UTILITY("A4A7B","SECTION")

 D @($P(^UTILITY("A4A7B","CKPT"),"^")_"^A4A7B"),Q^A4A7B

TASK ;

 R !!,"TASK THE COMPLETE SEARCH? Y/N (CAPS ONLY) // ",ANS:DTIME W ! Q:'$T  Q:ANS="^"  Q:ANS=""  S ANS=$E(ANS) G:"YN"'[ANS TASK I ANS="N" K ANS Q

 G TASK^A4A7B

A4A7B0    ;NEW PERSON 3/6/16/20 LOCATOR EXTENSION ;4/16/96  10:35

 +1       ;;1.01;NEW PERSON;**9**;2/9/96

 +2        KILL ^UTILITY("A4A7B")

           SET ^UTILITY("A4A7B","RUN")="RUN"

 +3        SET ^UTILITY("A4A7B","CKPT")="DATADIC^1.99999"

NODE       SET A4A7B("NODE",2)="OUTP"

           SET A4A7B("NODE",4)="EXEH"

           SET A4A7B("NODE",7.5)="UINP"

           SET A4A7B("NODE","AX")="AUD"

           SET A4A7B("NODE","DEL")="DEL"

           SET A4A7B("NODE","LAYGO")="LAYG"

           SET A4A7B("NODE",1)="CR"

           SET A4A7B("NODE",12.1)="SCR"

 +1        SET A4A7B("NODE",9)="C"

 +2        SET A4A7B("IND",3)="^DD(A4A7B(""A""),A4A7B(""B""),A4A7B(""C""))"

           SET A4A7B("IND",4)="^DD(A4A7B(""A""),A4A7B(""B""),A4A7B(""C""),A4A7B(""D""))"

           SET A4A7B("IND",5)="^DD(A4A7B(""A""),A4A7B(""B""),A4A7B(""C""),A4A7B(""D""),A4A7B(""E""))"

 +3        QUIT

PARTIAL   ;

 +1        READ !!,"Partial or All (A or P) default A // ",ANS:DTIME

           WRITE !

           IF '$TEST

               QUIT

           IF ANS="^"

               QUIT

           SET ANS=$EXTRACT(ANS)

           IF ANS=""

               SET ANS="A"

           IF "AP"'[ANS

               GOTO PARTIAL

           IF ANS="A"

               GOTO TASK

           KILL ANS

SECTION   ;

 +1        READ !!,"Which section? (Data Dictionary (D) Routines (R)",!," or templates/forms/blocks (O) //",ANS:DTIME

           WRITE !

           IF '$TEST

               QUIT

           IF ANS=""

               QUIT

           IF ANS="^"

               QUIT

           SET ANS=$EXTRACT(ANS)

           IF "DRO"'[ANS

               GOTO SECTION

           SET A4A7B("PARTIAL")=ANS

           KILL ANS

DATADIC   ;

 +1        IF A4A7B("PARTIAL")="D"

               READ !!,"Please enter start and end file numbers in the form (start,end) // ",ANS:DTIME

               WRITE !

               IF '$TEST

                   QUIT

               IF ANS=""

                   QUIT

               IF ANS="^"

                   QUIT

 +2        IF A4A7B("PARTIAL")="D"

               SET A4A7B("START")=+$PIECE(ANS,",")-.00000001

               SET A4A7B("STOP")=+$PIECE(ANS,",",2)-.0000000001

               IF A4A7B("START")<1.99

                   GOTO DATADIC

               KILL ANS

 +3        IF A4A7B("PARTIAL")="D"

               IF A4A7B("STOP")<A4A7B("START")

                   GOTO DATADIC

               SET ^UTILITY("A4A7B","SECTION")="DATADIC"_"^"_A4A7B("START")_"^"_A4A7B("STOP")

ROU       ;

 +1        IF A4A7B("PARTIAL")="R"

               READ !!,"FOR WHICH SINGLE LETTER RANGE (CAPS ONLY) // ",ANS:DTIME

               WRITE !

               IF '$TEST

                   QUIT

               IF ANS=""

                   QUIT

               IF ANS="^"

                   QUIT

               SET ANS=$EXTRACT(ANS)

               SET X="ABCDEFGHIJKLMNOPQRSTUVWXYZ"

               IF X'[ANS

                   GOTO ROU

               SET ^UTILITY("A4A7B","SECTION")="ROU"_"^"_($FIND(X,ANS)+1)

 +2        IF A4A7B("PARTIAL")="R"

               SET ^UTILITY("A4A7B","CKPT")=^UTILITY("A4A7B","SECTION")

               KILL ANS

DIE       ;

 +1        IF A4A7B("PARTIAL")="O"

               READ !!,"SELECT INPUT TEMPLATES (I), SORT TEMPLATES (S), PRINT TEMPLATE (P),",!,"FUNCTIONS (F), FORMS (A), BLOCKS (B) (CAPS ONLY) // ",ANS:DTIME

               WRITE !

               IF '$TEST

                   QUIT

               IF ANS="^"

                   QUIT

               IF ANS=""

                   QUIT

               SET ANS=$EXTRACT(ANS)

               IF "ISPFAB"'[ANS

                   GOTO DIE

 +2        IF A4A7B("PARTIAL")="O"

               SET ^UTILITY("A4A7B","SECTION")="DIE^"_$SELECT(ANS="I":"DIE(0)",ANS="S":"DIBT(0)",ANS="P":"DIPT(0)",ANS="F":"DD(""FUNC"",0)",ANS="A":"DIST(.403,0)",1:"DIST(.404,0)")

               KILL ANS

 +3        SET ^UTILITY("A4A7B","CKPT")=^UTILITY("A4A7B","SECTION")

 +4        DO @($PIECE(^UTILITY("A4A7B","CKPT"),"^")_"^A4A7B")

           DO Q^A4A7B

 +5        QUIT

TASK      ;

 +1        READ !!,"TASK THE COMPLETE SEARCH? Y/N (CAPS ONLY) // ",ANS:DTIME

           WRITE !

           IF '$TEST

               QUIT

           IF ANS="^"

               QUIT

           IF ANS=""

               QUIT

           SET ANS=$EXTRACT(ANS)

           IF "YN"'[ANS

               GOTO TASK

           IF ANS="N"

               KILL ANS

               QUIT

 +2        GOTO TASK^A4A7B

 +3        QUIT

A4A7B0.m