| [613] | 1 | PXBPWCH ;ISL/JVS - PROMPT WHICH LINE ;11/7/96 08:57
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**11,73**;Aug 12, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | ;
|
|---|
| 8 | ;
|
|---|
| 9 | WHICH ;--When there is more than one entry to select ask which line no.
|
|---|
| 10 | N TIMED,PXBUT,DIC,X,N,V
|
|---|
| 11 | I '$D(IOEDEOP) D TERM^PXBCC
|
|---|
| 12 | S TIMED="I '$T!(DATA[""^"")"
|
|---|
| 13 | S N=0,V=0 F I=1:1:Q S N=$O(Q(N)) S $P(V," or ",I)=N
|
|---|
| 14 | WH W !!,"Select one of the HIGHLIGHTED lines above("_V_"): ",IOELEOL
|
|---|
| 15 | R DATA:DTIME
|
|---|
| 16 | X TIMED I S PXBUT=1,DATA="^",EDATA="^" G WFIN
|
|---|
| 17 | I DATA?.N1"E".NAP S DATA=" "_DATA
|
|---|
| 18 | I DATA?24.N S (DATA,EDATA)=$E(DATA,1,24)
|
|---|
| 19 | ;---SPACE BAR---
|
|---|
| 20 | I DATA'=" ",DATA'["^",DATA'="" S ^DISV(DUZ,"PXBWH-7")=DATA
|
|---|
| 21 | I DATA=" ",$D(^DISV(DUZ,"PXBWH-7")) S DATA=^DISV(DUZ,"PXBWH-7") W DATA
|
|---|
| 22 | I DATA["?" G HEL
|
|---|
| 23 | I DATA<0 K DATA G WH
|
|---|
| 24 | I DATA="" S DATA="???" G HEL
|
|---|
| 25 | I DATA>PXBCNT K DATA G WH
|
|---|
| 26 | G WFIN
|
|---|
| 27 | Q
|
|---|
| 28 | HEL ;--HELP
|
|---|
| 29 | I DATA'?1.3"?" S DATA="???"
|
|---|
| 30 | I DATA["?" W IOEDEOP D:DATA="?" HELP^PXBUTL0("WH1") D:DATA="??" HELP^PXBUTL0("WH2") D:DATA="???" HELP^PXBUTL0("WH3") F I=1:1:5 W IOCUU
|
|---|
| 31 | G WH
|
|---|
| 32 | WFIN ;--FINISH UP VARIABLES
|
|---|
| 33 | S EDATA=DATA
|
|---|
| 34 | ;--need to set the right item to hilighted and restore the others.
|
|---|
| 35 | S NLINE=0
|
|---|
| 36 | F S NLINE=$O(Q(NLINE)) Q:NLINE="" D:NLINE'=DATA REVCPT^PXBCC(NLINE,0)
|
|---|
| 37 | WHIX ;--EXIT AND CLEANUP
|
|---|
| 38 | W IORC,IOEDEOP
|
|---|
| 39 | K Q
|
|---|
| 40 | Q
|
|---|
