| 1 | MCARDBL ;WISC/TJK-UTILITY TO ASTERIK OUT ENTRIES ON SCREEN AND FUNCTIONS ;5/2/96 12:54
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | START Q:'$D(DJBLO) Q:DJBLO=""
|
|---|
| 4 | F DJBNO=1:1 S DJBITEM=$P(DJBLO,",",DJBNO) Q:DJBITEM="" D
|
|---|
| 5 | .Q:'$D(DJJ(DJBITEM)) S DJDB=""
|
|---|
| 6 | .S $P(DJDB,"*",$P(DJJ(DJBITEM),U)+1)=""
|
|---|
| 7 | .S @($P(DJJ(DJBITEM),U,2))
|
|---|
| 8 | .K DJP1,DJP2,DJP8
|
|---|
| 9 | .X XY W DJDB S DJBHOLD=DJJ(DJBITEM),DJBITEM1=DJBITEM K DJJ(DJBITEM),V(DJBITEM)
|
|---|
| 10 | S DY=16,DX=15 X XY W DJHIN,"[Asterisks (*) indicate field n/a to this record] "
|
|---|
| 11 | G EXIT:$D(DJJ(V))
|
|---|
| 12 | 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"
|
|---|
| 13 | E S V=DJNX
|
|---|
| 14 | EXIT K DJBLO,DJBNO,DJDB,DJBITEM,DJBITEM1,DJBHOLD
|
|---|
| 15 | Q
|
|---|
| 16 | FUNC ;Functions
|
|---|
| 17 | ;DCB-Function commands.
|
|---|
| 18 | I X="^T",$D(DJTOGGLE) W IOKPNM K DJTOGGLE D HELP G R^MCARDNJ
|
|---|
| 19 | I X="^T",'$D(DJTOGGLE) W IOKPAM S DJTOGGLE="" D HELP G R^MCARDNJ
|
|---|
| 20 | I X="^C" D HELP1 G R^MCARDNJ
|
|---|
| 21 | I X="^R" S DA=D0,DJNM=DJDPL,DJFLAG=V,MCMASS=1 K MCDID D ^MCARDPL D ^MCARD1 G EN^MCARDNJ
|
|---|
| 22 | ;I X="^K" S MCMASS=1 K MCDID D FUNCK^MCARDNQ2 G R^MCARDNJ
|
|---|
| 23 | I X="^O",'$D(MCHELPSW) S MCHELPSW=0 K MCDID S MCMASS=1 G TK^MCARDNJ
|
|---|
| 24 | I X="^O",$D(MCHELPSW) K MCHELPSW K MCDID S MCMASS=1 G TK^MCARDNJ
|
|---|
| 25 | I X="^H" S MCHELPS2=1 D START^MCARDHLP K MCDID,MCHELPS2 S MCMASS=1 G R^MCARDNJ
|
|---|
| 26 | G RETURN^MCARDNJ
|
|---|
| 27 | HELP ;
|
|---|
| 28 | Q:'$D(MCHELPSW)
|
|---|
| 29 | HELP1 ;
|
|---|
| 30 | I '$D(DJTOGGLE) D FUNCC^MCARDNQ2
|
|---|
| 31 | E D FUNCK^MCARDNQ2
|
|---|
| 32 | Q
|
|---|
