source: FOIAVistA/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXBPWCH.m@ 1423

Last change on this file since 1423 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1PXBPWCH ;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 ;
9WHICH ;--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
14WH 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
28HEL ;--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
32WFIN ;--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)
37WHIX ;--EXIT AND CLEANUP
38 W IORC,IOEDEOP
39 K Q
40 Q
Note: See TracBrowser for help on using the repository browser.