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 ---[H[J[2J[HDENTDBL 772 printed Sep 15, 2024@21:10:27 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