Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
758 bytes
|
Line | |
---|
1 | DENTDBL ;WASH ISC/TJK-UTILITY TO ASTERIK OUT ENTRIES ON SCREEN ;12/07/90 9:10 AM;12/06/91 9:38 AM
|
---|
2 | ;;1.2;DENTAL;***15**;Oct 08, 1992
|
---|
3 | START Q:'$D(DJBLO) Q:DJBLO="" F DJBNO=1:1 S DJBITEM=$P(DJBLO,",",DJBNO) Q:DJBITEM="" D
|
---|
4 | .Q:'$D(DJJ(DJBITEM)) S DJDB=""
|
---|
5 | .S $P(DJDB,"*",$P(DJJ(DJBITEM),U)+1)=""
|
---|
6 | .S @($P(DJJ(DJBITEM),U,2))
|
---|
7 | .K DJP1,DJP2,DJP8
|
---|
8 | .X XY W DJDB S DJBHOLD=DJJ(DJBITEM),DJBITEM1=DJBITEM K DJJ(DJBITEM),V(DJBITEM)
|
---|
9 | S DY=16,DX=10 X XY W DJHIN,"[Asterisks (*) indicate field n/a to this record]"
|
---|
10 | G EXIT:$D(DJJ(V))
|
---|
11 | 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"
|
---|
12 | E S V=DJNX
|
---|
13 | EXIT K DJBLO,DJBNO,DJDB,DJBITEM,DJBITEM1,DJBHOLD
|
---|
14 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.