DGJHELP.m

DGJHELP ;ALB/MRY - EXECUTABLE ADT HELP PROMPTS ; 23 AUG 2001

 ;;1.0;Incomplete Records Tracking;;Jun 25, 2001

 ;

EN ;called from ques node on dispo multiple

 Q

UP I X'?.UNP F %=1:1:$L(X) I $E(X,%)?1L S X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)

 Q

IN S %=0 D UP I X]""&(Z[(U_X)) F I=$F(Z,U_X):1 S %=$E(Z,I) Q:%=U!(%']"")  W %

 E  S %=-1

 S:'% X=$E(X,1) K Z

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGJHELP   371     printed  Nov 22, 2024@17:10:40                                                                                                                                                                                                      Page 2

DGJHELP   ;ALB/MRY - EXECUTABLE ADT HELP PROMPTS ; 23 AUG 2001

 +1       ;;1.0;Incomplete Records Tracking;;Jun 25, 2001

 +2       ;

EN        ;called from ques node on dispo multiple

 +1        QUIT 

UP         IF X'?.UNP

               FOR %=1:1:$LENGTH(X)

                   IF $EXTRACT(X,%)?1L

                       SET X=$EXTRACT(X,0,%-1)_$CHAR($ASCII(X,%)-32)_$EXTRACT(X,%+1,999)

 +1        QUIT 

IN         SET %=0

           DO UP

           IF X]""&(Z[(U_X))

               FOR I=$FIND(Z,U_X):1

                   SET %=$EXTRACT(Z,I)

                   if %=U!(%']"")

                       QUIT 

                   WRITE %

 +1       IF '$TEST

               SET %=-1

 +2        if '%

               SET X=$EXTRACT(X,1)

           KILL Z

 +3        QUIT