DENTDBL.m

DENTDBL ;WASH ISC/TJK-UTILITY TO ASTERIK OUT ENTRIES ON SCREEN ;12/07/90  9:10 AM;12/06/91  9:38 AM

 ;;1.2;DENTAL;***15**;Oct 08, 1992

START Q:'$D(DJBLO)  Q:DJBLO=""  F DJBNO=1:1 S DJBITEM=$P(DJBLO,",",DJBNO) Q:DJBITEM=""  D

    .Q:'$D(DJJ(DJBITEM))  S DJDB=""

    .S $P(DJDB,"*",$P(DJJ(DJBITEM),U)+1)=""

    .S @($P(DJJ(DJBITEM),U,2))

    .K DJP1,DJP2,DJP8

    .X XY W DJDB S DJBHOLD=DJJ(DJBITEM),DJBITEM1=DJBITEM K DJJ(DJBITEM),V(DJBITEM)

 S DY=16,DX=10 X XY W DJHIN,"[Asterisks (*) indicate field n/a to this record]"

 G EXIT:$D(DJJ(V))

 S DJNX=$O(DJJ(V)) I DJNX="" S DY=17,DX=0 X XY W "Press <RETURN> to Continue" S V=DJBITEM1,DJJ(V)=DJBHOLD,DJNX=DJBITEM1,$P(DJJ(V),U,1,2)="2^DY=17,DX=27"

 E  S V=DJNX

EXIT K DJBLO,DJBNO,DJDB,DJBITEM,DJBITEM1,DJBHOLD

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DENTDBL   772     printed  Apr 09, 2024@20:50:54                                                                                                                                                                                                      Page 2

DENTDBL   ;WASH ISC/TJK-UTILITY TO ASTERIK OUT ENTRIES ON SCREEN ;12/07/90  9:10 AM;12/06/91  9:38 AM

 +1       ;;1.2;DENTAL;***15**;Oct 08, 1992

START      if '$DATA(DJBLO)

               QUIT 

           if DJBLO=""

               QUIT 

           FOR DJBNO=1:1

               SET DJBITEM=$PIECE(DJBLO,",",DJBNO)

               if DJBITEM=""

                   QUIT 

               Begin DoDot:1

 +1                if '$DATA(DJJ(DJBITEM))

                       QUIT 

                   SET DJDB=""

 +2                SET $PIECE(DJDB,"*",$PIECE(DJJ(DJBITEM),U)+1)=""

 +3                SET @($PIECE(DJJ(DJBITEM),U,2))

 +4                KILL DJP1,DJP2,DJP8

 +5                XECUTE XY

                   WRITE DJDB

                   SET DJBHOLD=DJJ(DJBITEM)

                   SET DJBITEM1=DJBITEM

                   KILL DJJ(DJBITEM),V(DJBITEM)

               End DoDot:1

 +6        SET DY=16

           SET DX=10

           XECUTE XY

           WRITE DJHIN,"[Asterisks (*) indicate field n/a to this record]"

 +7        if $DATA(DJJ(V))

               GOTO EXIT

 +8        SET DJNX=$ORDER(DJJ(V))

           IF DJNX=""

               SET DY=17

               SET DX=0

               XECUTE XY

               WRITE "Press <RETURN> to Continue"

               SET V=DJBITEM1

               SET DJJ(V)=DJBHOLD

               SET DJNX=DJBITEM1

               SET $PIECE(DJJ(V),U,1,2)="2^DY=17,DX=27"

 +9       IF '$TEST

               SET V=DJNX

EXIT       KILL DJBLO,DJBNO,DJDB,DJBITEM,DJBITEM1,DJBHOLD

 +1        QUIT